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

Removed referenced to QUOTE_SIG_PWD_ENTRY and

Browse Source 
replaced with NDW_VERIFY_USER. Added barcode
scan function to NDW_VERIFY_USER.

fixed two instances of ohms square unit characters being garbled by git

minor modification to NDW_VERIFY_USER_EVENTS lost focus events

minor change to gotfocus event logic
This commit is contained in:
Infineon\Mitchem 2025-04-07 09:29:34 -07:00 committed by Infineon\StieberD
parent 4b26d37a1c
commit 741a8450e3
91 changed files with 112358 additions and 19078 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/OIEVENT/CLICK/CAR.BUTTON_3.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRespUser = .resp_user_id->text\r\nRespSig = .resp_signature->text\r\nCarInplaceSig = .car_inplace_signature->text\r\nVipMfgSig = .vip_mfg_signature->text\r\nif CarInplaceSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been signed by the responsible person, as being in place.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tif @user4 = RespUser then\r\n if RespSig and VipMfgSig then\t\r\n\t\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t\t .car_inplace_signature->text = @user4\r\n\t\t\t .car_inplace_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t .status->value = 'C'\r\n\t\t\t .car_inplace_date->text = oconv( date(), 'D2/' )\r\n \t\t * now send message to entry person\r\n\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\r\n\t\t if EntryId then\r\n\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"In place\" status', 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'CAR', .car_ref_id->text )\t \t\r\n\t\t end\r\n\t\t\t @@window->savewarn = 1\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo<mtext$> = 'This CAR must be signed by you and the VP of Manufacturing, before being in place.'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the responsible person...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRespUser = .resp_user_id->text\r\nRespSig = .resp_signature->text\r\nCarInplaceSig = .car_inplace_signature->text\r\nVipMfgSig = .vip_mfg_signature->text\r\nif CarInplaceSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been signed by the responsible person, as being in place.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tif @user4 = RespUser then\r\n if RespSig and VipMfgSig then\t\r\n\t\tValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\t\r\n if Valid then\r\n\t\t\t .car_inplace_signature->text = @user4\r\n\t\t\t .car_inplace_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t .status->value = 'C'\r\n\t\t\t .car_inplace_date->text = oconv( date(), 'D2/' )\r\n \t\t * now send message to entry person\r\n\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\r\n\t\t if EntryId then\r\n\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"In place\" status', 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'CAR', .car_ref_id->text )\t \t\r\n\t\t end\r\n\t\t\t @@window->savewarn = 1\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo<mtext$> = 'This CAR must be signed by you and the VP of Manufacturing, before being in place.'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the responsible person...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/CAR.BUTTON_4.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRespUser = .resp_user_id->text\r\nRespSig = .resp_signature->text\r\nif RespSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been signed by the responsible person.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tif @user4 = RespUser then\r\n\t if .confirm_status->value <> '' then\r\n\t\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t\t .resp_signature->text = @user4\r\n\t\t\t .resp_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t @@window->savewarn = 1\r\n\t\t\t if .vip_mfg_signature->text <> '' then\r\n\t\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\r\n\t\t\t if .confirm_status->value = 'C' then\r\n\t\t\t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t\t * set to form complete status\r\n\t\t\t\t .status->value = 'F'\r\n\t\t\t\t * now send message to entry person\r\n\t\t\t\t if EntryId then\r\n\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\t\t \r\n\t\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Form Complete\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t\t end\r\n\t\t\t end else\r\n\t\t\t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t\t * but it is unconfirmed so set to verified to end the CAR\r\n\t\t\t\t .status->value = 'V'\t\t\t\t \r\n\t\t\t\t if EntryId then\r\n\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'. '\r\n\t\t MsgToSend:= 'It was set to \"Verified\" status due to it being unconfirmed.'\r\n\t\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Verified\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t \t\t end else\r\n\t\t\t * send a message to the vip of manufacturing that is has been signed by the\r\n\t\t\t * responsible user\r\n\t\t\t\t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t\t\t\t VipMfg = SignatureInfo<VipMfg$>\r\n\t MsgToSend = 'This CAR was signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\t\t\t \r\n\t create_note( VipMfg, 'System', 'CAR#':.car_ref_id->text:' signed by responsible person', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo<mtext$> = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the responsible person...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRespUser = .resp_user_id->text\r\nRespSig = .resp_signature->text\r\nif RespSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been signed by the responsible person.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tif @user4 = RespUser then\r\n\t if .confirm_status->value <> '' then\r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t\t .resp_signature->text = @user4\r\n\t\t\t .resp_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t @@window->savewarn = 1\r\n\t\t\t if .vip_mfg_signature->text <> '' then\r\n\t\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\r\n\t\t\t if .confirm_status->value = 'C' then\r\n\t\t\t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t\t * set to form complete status\r\n\t\t\t\t .status->value = 'F'\r\n\t\t\t\t * now send message to entry person\r\n\t\t\t\t if EntryId then\r\n\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\t\t \r\n\t\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Form Complete\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t\t end\r\n\t\t\t end else\r\n\t\t\t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t\t * but it is unconfirmed so set to verified to end the CAR\r\n\t\t\t\t .status->value = 'V'\t\t\t\t \r\n\t\t\t\t if EntryId then\r\n\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'. '\r\n\t\t MsgToSend:= 'It was set to \"Verified\" status due to it being unconfirmed.'\r\n\t\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Verified\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t \t\t end else\r\n\t\t\t * send a message to the vip of manufacturing that is has been signed by the\r\n\t\t\t * responsible user\r\n\t\t\t\t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t\t\t\t VipMfg = SignatureInfo<VipMfg$>\r\n\t MsgToSend = 'This CAR was signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\t\t\t \r\n\t create_note( VipMfg, 'System', 'CAR#':.car_ref_id->text:' signed by responsible person', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo<mtext$> = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the responsible person...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/CAR.BUTTON_4U.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCarInplaceSig = .car_inplace_signature->text\r\nCarVerSig = .car_verified_signature->text\r\nif CarVerSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been verified by the VP of manufacturing.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n if CarInplaceSig <> '' then\r\n SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t VipMfg = SignatureInfo<VipMfg$>\r\n\t VipPwd = SignatureInfo<VipMfgPwd$>\r\n\t if @user4 = VipMfg then\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:VipPwd )\r\n\t\t if Valid then\r\n\t\t \t .car_verified_signature->text = @user4\r\n\t\t\t .car_verified_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t .status->value = 'V'\r\n\t\t\t @@window->savewarn = 1\r\n\t\t end \r\n end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo<mtext$> = 'You are not the VP of manufacturing...'\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n end\r\n end else\r\n MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'You can not verify the CAR until it has been in place.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCarInplaceSig = .car_inplace_signature->text\r\nCarVerSig = .car_verified_signature->text\r\nif CarVerSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been verified by the VP of manufacturing.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n if CarInplaceSig <> '' then\r\n SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t VipMfg = SignatureInfo<VipMfg$>\r\n\t VipPwd = SignatureInfo<VipMfgPwd$>\r\n\t if @user4 = VipMfg then\r\n\t\tValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n\t\t if Valid then\r\n\t\t \t .car_verified_signature->text = @user4\r\n\t\t\t .car_verified_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t .status->value = 'V'\r\n\t\t\t @@window->savewarn = 1\r\n\t\t end \r\n end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo<mtext$> = 'You are not the VP of manufacturing...'\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n end\r\n end else\r\n MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'You can not verify the CAR until it has been in place.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0"
}
}
}

2
LSL2/OIEVENT/CLICK/CAR.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .vip_mfg_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been signed by the VP of manufacturing.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tVipMfg = SignatureInfo<VipMfg$>\r\n\tVipPwd = SignatureInfo<VipMfgPwd$>\r\n\tif @user4 = VipMfg then\r\n\t if .confirm_status->value <> '' then\r\n\t\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:VipPwd )\r\n\t\t\tif Valid then\r\n\t\t\t\t.vip_mfg_signature->text = @user4\r\n\t\t\t\t.vip_mfg_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t\t@@window->savewarn = 1\r\n\t\t \tif .resp_signature->text <> '' then\r\n\t\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\t\t \t\r\n\t\t \t if .confirm_status->value = 'C' then\r\n\t \t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t * set to form complete status\r\n\t\t\t .status->value = 'F'\r\n\t\t\t * now send message to entry person\t\t \r\n\t\t\t if EntryId then\r\n\t\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\r\n\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Form Complete\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\t end else\r\n\t \t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t * but it is unconfirmed so set to Verified status to end the CAR\r\n\t\t\t .status->value = 'V'\r\n\t\t\t * now send message to entry person\t\t \r\n\t\t\t if EntryId then\r\n\t\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'. '\r\n\t\t MsgToSend:= 'It was set to \"Verified\" status due to it being unconfirmed.'\t\t\t \r\n\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Verified\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\t end\r\n\t \t\tend\r\n\t\t\tend \r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo<mtext$> = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\t\t\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the VP of manufacturing...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .vip_mfg_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This CAR has already been signed by the VP of manufacturing.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tVipMfg = SignatureInfo<VipMfg$>\r\n\tVipPwd = SignatureInfo<VipMfgPwd$>\r\n\tif @user4 = VipMfg then\r\n\t if .confirm_status->value <> '' then\r\n\t\t\tValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\t\t\tif Valid then\r\n\t\t\t\t.vip_mfg_signature->text = @user4\r\n\t\t\t\t.vip_mfg_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t\t@@window->savewarn = 1\r\n\t\t \tif .resp_signature->text <> '' then\r\n\t\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\t\t \t\r\n\t\t \t if .confirm_status->value = 'C' then\r\n\t \t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t * set to form complete status\r\n\t\t\t .status->value = 'F'\r\n\t\t\t * now send message to entry person\t\t \r\n\t\t\t if EntryId then\r\n\t\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\r\n\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Form Complete\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\t end else\r\n\t \t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t * but it is unconfirmed so set to Verified status to end the CAR\r\n\t\t\t .status->value = 'V'\r\n\t\t\t * now send message to entry person\t\t \r\n\t\t\t if EntryId then\r\n\t\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'. '\r\n\t\t MsgToSend:= 'It was set to \"Verified\" status due to it being unconfirmed.'\t\t\t \r\n\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Verified\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\t end\r\n\t \t\tend\r\n\t\t\tend \r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo<mtext$> = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\t\t\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the VP of manufacturing...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0"
}
}
}

2
LSL2/OIEVENT/CLICK/CAR2.BUTTON_4.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .eng_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RMA has already been signed by an engineer or production personnel.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo<PSNPreProdSigs$>\r\n\tPassword = xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' )\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\tif Valid then\r\n\t\t\t.eng_signature->text = @user4\r\n\t\t\t.eng_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .eng_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RMA has already been signed by an engineer or production personnel.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo<PSNPreProdSigs$>\r\n\tPassword = xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' )\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\t\tif Valid then\r\n\t\t\t.eng_signature->text = @user4\r\n\t\t\t.eng_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/CDM_LOG.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box, SRP_DateTime, Oconv, DateTime\r\nDeclare subroutine Set_Property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\tDate = SRP_DateTime(\"Date\", DateTime())\r\n\t\tTime = SRP_DateTime(\"Time\", Datetime())\r\n\r\n\t\tiDate = OConv(Date, 'D4/H')\r\n\t\tiTime = OConv(Time, 'MTS')\r\n\t\r\n\t\tSet_Property(@Window : '.DATE_CHANGED', 'DEFPROP', iDate)\r\n\t\tSet_Property(@Window : '.TIME_CHANGED', 'DEFPROP', iTime)\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box, SRP_DateTime, Oconv, DateTime\r\nDeclare subroutine Set_Property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\tDate = SRP_DateTime(\"Date\", DateTime())\r\n\t\tTime = SRP_DateTime(\"Time\", Datetime())\r\n\r\n\t\tiDate = OConv(Date, 'D4/H')\r\n\t\tiTime = OConv(Time, 'MTS')\r\n\t\r\n\t\tSet_Property(@Window : '.DATE_CHANGED', 'DEFPROP', iDate)\r\n\t\tSet_Property(@Window : '.TIME_CHANGED', 'DEFPROP', iTime)\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_4.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .eng_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Customer Inquiry has already been signed by an engineer or production personnel.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo<InqEngSigners$>\r\n\tPasswords = SignatureInfo<IEPasswords$>\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tPassword = Passwords<1,Fpos>\r\n\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\tif Valid then\r\n\t\t\t.eng_signature->text = @user4\r\n\t\t\t.eng_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .eng_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Customer Inquiry has already been signed by an engineer or production personnel.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo<InqEngSigners$>\r\n\tPasswords = SignatureInfo<IEPasswords$>\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tPassword = Passwords<1,Fpos>\r\n\t\tValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\t\tif Valid then\r\n\t\t\t.eng_signature->text = @user4\r\n\t\t\t.eng_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .mkt_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Customer Inquiry has already been signed by a marketing personnel.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo<InqMktSigners$>\r\n\tPasswords = SignatureInfo<IMPasswords$>\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tPassword = Passwords<1,Fpos>\r\n\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\tif Valid then\r\n\t\t\t.mkt_signature->text = @user4\r\n\t\t\t.mkt_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not an authorized Marketing signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .mkt_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Customer Inquiry has already been signed by a marketing personnel.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo<InqMktSigners$>\r\n\tPasswords = SignatureInfo<IMPasswords$>\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tPassword = Passwords<1,Fpos>\r\n\t\tValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\t\tif Valid then\r\n\t\t\t.mkt_signature->text = @user4\r\n\t\t\t.mkt_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not an authorized Marketing signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0"
}
}
}

2
LSL2/OIEVENT/CLICK/HOTH2O2_LOG.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_11.json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/MEG_LOG.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_10.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box, send_event\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert reactor_log_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nQuartzSig = .quartz_sig->text\r\nif QuartzSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.quartz_sig->text = @user4\r\n\t\t.quartz_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'V'\r\n\t\t@@window->savewarn = 1\r\n\t\tRecord = get_property( @window, 'RECORD' )\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box, send_event\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert reactor_log_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nQuartzSig = .quartz_sig->text\r\nif QuartzSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\tif Valid then\r\n\t\t.quartz_sig->text = @user4\r\n\t\t.quartz_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'V'\r\n\t\t@@window->savewarn = 1\r\n\t\tRecord = get_property( @window, 'RECORD' )\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_9.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box, send_event\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert reactor_log_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'C'\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\n\r\nreturn 0\r\n"
"<1>": "declare function dialog_box, send_event\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert reactor_log_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'C'\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\n\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/QUOTE.SIGN.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCurStat = .status->value\r\nif CurStat = 'C' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Quote is closed...'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif .status->value = 'O' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Quote is fully signed...'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tCurSigs = .signatures->array<1>\r\n\tlocate @user4 in CurSigs using @vm setting Fpos then\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'You have already signed off on this quote...' \r\n\t MsgInfo<micon$> = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t Users = SignatureInfo<1>\r\n\t Passwords = SignatureInfo<2>\r\n\t NumSigsRequired = SignatureInfo<3>+0\r\n\t QuoteFaxer = SignatureInfo<5>\r\n\t locate @user4 in Users using @vm setting Fpos then\r\n\t if ( .prod_spec_id->text <> '' ) then\r\n\t\t Password = Passwords<1,Fpos>\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\t if Valid then\r\n\t\t Sigs = .signatures->array<1>\r\n\t\t SigsOut = .signatures->array<2>\r\n\t\t\t Scnt = fieldcount( Sigs, @vm )\r\n\t\t\t Filled = false$\r\n\t\t\t for i = 1 to Scnt\r\n\t\t\t if Sigs<1,i> = '' then\r\n\t\t\t Sigs<1,i> = @user4\r\n\t\t\t SigsOut<1,i> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t Filled = true$\r\n\t\t\t end\r\n\t\t\t until Filled\r\n\t\t\t next i\r\n\t\t\t ExpDate = .exp_date->invalue\r\n\t\t if ExpDate = '' or ExpDate < date() then\r\n\t\t * don't change it is expired\r\n\t\t if i >= NumSigsRequired then\r\n if QuoteFaxer then\r\n\t\t Message = 'This quote is fully signed and ready to be faxed but it is currently expired. You will need to push the expiration date out.'\r\n\t\t create_note( QuoteFaxer, 'System', 'Quote ready to fax', Message, 'QUOTE', .quote_no->text )\r\n end\r\n end\r\n\t\t end else\r\n\t\t if i >= NumSigsRequired then\r\n\t\t .status->value = 'O'\r\n\t\t .inquiry_status->value = 'C'\r\n\t\t if QuoteFaxer then\r\n\t\t Message = 'This quote is fully signed and ready to be faxed'\r\n\t\t create_note( QuoteFaxer, 'System', 'Quote ready to fax', Message, 'QUOTE', .quote_no->text )\r\n\t\t end\r\n\t\t end \r\n\t\t end\r\n\t\t SigArray = Sigs:@fm:SigsOut\r\n\t\t .signatures->array = SigArray\r\n @@window->savewarn = 1\r\n\t\t\t end \r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t Ttext = 'You must enter a PSN ( Product Specification# ) before signing'\r\n\t\t MsgInfo<mtext$> = Ttext\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo<mtext$> = 'You are not authorized to sign off on Quotes...'\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t end\r\n\tend\r\nend\r\nreturn 0"
"<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCurStat = .status->value\r\nif CurStat = 'C' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Quote is closed...'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif .status->value = 'O' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This Quote is fully signed...'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tCurSigs = .signatures->array<1>\r\n\tlocate @user4 in CurSigs using @vm setting Fpos then\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'You have already signed off on this quote...' \r\n\t MsgInfo<micon$> = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t Users = SignatureInfo<1>\r\n\t Passwords = SignatureInfo<2>\r\n\t NumSigsRequired = SignatureInfo<3>+0\r\n\t QuoteFaxer = SignatureInfo<5>\r\n\t locate @user4 in Users using @vm setting Fpos then\r\n\t if ( .prod_spec_id->text <> '' ) then\r\n\t\t Password = Passwords<1,Fpos>\r\n\t\t Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\t\t if Valid then\r\n\t\t Sigs = .signatures->array<1>\r\n\t\t SigsOut = .signatures->array<2>\r\n\t\t\t Scnt = fieldcount( Sigs, @vm )\r\n\t\t\t Filled = false$\r\n\t\t\t for i = 1 to Scnt\r\n\t\t\t if Sigs<1,i> = '' then\r\n\t\t\t Sigs<1,i> = @user4\r\n\t\t\t SigsOut<1,i> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t Filled = true$\r\n\t\t\t end\r\n\t\t\t until Filled\r\n\t\t\t next i\r\n\t\t\t ExpDate = .exp_date->invalue\r\n\t\t if ExpDate = '' or ExpDate < date() then\r\n\t\t * don't change it is expired\r\n\t\t if i >= NumSigsRequired then\r\n if QuoteFaxer then\r\n\t\t Message = 'This quote is fully signed and ready to be faxed but it is currently expired. You will need to push the expiration date out.'\r\n\t\t create_note( QuoteFaxer, 'System', 'Quote ready to fax', Message, 'QUOTE', .quote_no->text )\r\n end\r\n end\r\n\t\t end else\r\n\t\t if i >= NumSigsRequired then\r\n\t\t .status->value = 'O'\r\n\t\t .inquiry_status->value = 'C'\r\n\t\t if QuoteFaxer then\r\n\t\t Message = 'This quote is fully signed and ready to be faxed'\r\n\t\t create_note( QuoteFaxer, 'System', 'Quote ready to fax', Message, 'QUOTE', .quote_no->text )\r\n\t\t end\r\n\t\t end \r\n\t\t end\r\n\t\t SigArray = Sigs:@fm:SigsOut\r\n\t\t .signatures->array = SigArray\r\n @@window->savewarn = 1\r\n\t\t\t end \r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t Ttext = 'You must enter a PSN ( Product Specification# ) before signing'\r\n\t\t MsgInfo<mtext$> = Ttext\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo<mtext$> = 'You are not authorized to sign off on Quotes...'\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t end\r\n\tend\r\nend\r\nreturn 0"
}
}
}

2
LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.OK_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare subroutine get_property, end_dialog\r\ndeclare function msg, send_event\r\n\r\n$INSERT LOGICAL\r\n$INSERT MSG_EQUATES\r\n\r\nPInfo = Get_Property( @WINDOW, '@PINFO' )\r\n\r\nPassWord = Get_Property(@WINDOW:'.PASSWORD','TEXT')\r\n\r\nIF Password = PInfo<1,2> THEN\r\n\r\n\tEnd_Dialog( @WINDOW,TRUE$ )\r\n\t\r\nEND ELSE\r\n\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'Password entered incorrectly...'\r\n\tMsgInfo<micon$> = 'H'\r\n\t\r\n\tVoid = Msg( '', MsgInfo )\r\n\t\r\n\tEnd_Dialog( @WINDOW,false$ )\r\nEND\r\n\r\n\r\nRETURN 0"
"<1>": "declare subroutine get_property, end_dialog\r\ndeclare function msg, send_event\r\n\r\n$INSERT LOGICAL\r\n$INSERT MSG_EQUATES\r\n\r\nPInfo = Get_Property( @WINDOW, '@PINFO' )\r\n\r\nPassWord = Get_Property(@WINDOW:'.PASSWORD','TEXT')\r\n\r\nIf PassWord [1,3] EQ 'PWD' then\r\n PassWord = PassWord[4,999] \r\nend\r\n\r\nIF Password = PInfo<1,2> THEN\r\n\r\n\tEnd_Dialog( @WINDOW,TRUE$ )\r\n\t\r\nEND ELSE\r\n\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'Password entered incorrectly...'\r\n\tMsgInfo<micon$> = 'H'\r\n\t\r\n\tVoid = Msg( '', MsgInfo )\r\n\t\r\n\tEnd_Dialog( @WINDOW,false$ )\r\nEND\r\n\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS.BUTTON_20.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo<mtext$> = Tvar\r\n\tMsgInfo<micon$> = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0"
"<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo<mtext$> = Tvar\r\n\tMsgInfo<micon$> = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\nValid = Valid<1>\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SIGN_BUTTON.json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CLICK/RDS_SUPPL.OP_SIG_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) then\r\n\tif .op_sig->text <> '' then\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'This RDS Supplement form has already been signed by a technician.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\tif Valid then\r\n\t\t .save->enabled = 1\r\n\t .op_sig->text = @user4\r\n\t .op_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t .op_sig_date->text = oconv( date(), 'D2/' )\t \r\n\t .op_sig_time->text = oconv( time(), 'MTH' )\r\n\t @@window->savewarn = 1\r\n\t end\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = '!'\r\n MsgInfo<mtext$> = 'You must be a cleanroom personnel to sign the work order verification.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nreturn 0\r\n"
"<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) then\r\n\tif .op_sig->text <> '' then\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'This RDS Supplement form has already been signed by a technician.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n\t\tif Valid then\r\n\t\t .save->enabled = 1\r\n\t .op_sig->text = @user4\r\n\t .op_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t .op_sig_date->text = oconv( date(), 'D2/' )\t \r\n\t .op_sig_time->text = oconv( time(), 'MTH' )\r\n\t @@window->savewarn = 1\r\n\t end\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = '!'\r\n MsgInfo<mtext$> = 'You must be a cleanroom personnel to sign the work order verification.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oi_ex2->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oo_ex1->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You cannot do a second load if you have not unloaded once.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nValid = rds_comm2( 'LOAD_UNLOAD_EXTRA_SIGN_CHECK' )\r\nif Valid else\r\n * error will be raised in rds_comm2\r\n return 0\r\nend\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oi_ex2->text = @user4\r\n .oi_ex2_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oi_ex2_date->text = oconv( date(), 'D2/' )\r\n .oi_ex2_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oi_ex2->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oo_ex1->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You cannot do a second load if you have not unloaded once.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nValid = rds_comm2( 'LOAD_UNLOAD_EXTRA_SIGN_CHECK' )\r\nif Valid else\r\n * error will be raised in rds_comm2\r\n return 0\r\nend\r\nValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\nValid = Valid<1>\r\nif Valid then\r\n .oi_ex2->text = @user4\r\n .oi_ex2_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oi_ex2_date->text = oconv( date(), 'D2/' )\r\n .oi_ex2_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_2.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oo_ex1->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oo_ex1->text = @user4\r\n .oo_ex1_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oo_ex1_date->text = oconv( date(), 'D2/' )\r\n .oo_ex1_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oo_ex1->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\nValid = Valid<1>\r\nif Valid then\r\n .oo_ex1->text = @user4\r\n .oo_ex1_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oo_ex1_date->text = oconv( date(), 'D2/' )\r\n .oo_ex1_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oi_ex3->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oo_ex2->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You cannot do a third load if you have not unloaded twice.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nValid = rds_comm2( 'LOAD_UNLOAD_EXTRA_SIGN_CHECK' )\r\nif Valid else\r\n * error will be raised in rds_comm2\r\n return 0\r\nend\r\n\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oi_ex3->text = @user4\r\n .oi_ex3_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oi_ex3_date->text = oconv( date(), 'D2/' )\r\n .oi_ex3_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oi_ex3->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oo_ex2->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You cannot do a third load if you have not unloaded twice.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nValid = rds_comm2( 'LOAD_UNLOAD_EXTRA_SIGN_CHECK' )\r\nif Valid else\r\n * error will be raised in rds_comm2\r\n return 0\r\nend\r\n\r\nValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\nValid = Valid<1>\r\nif Valid then\r\n .oi_ex3->text = @user4\r\n .oi_ex3_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oi_ex3_date->text = oconv( date(), 'D2/' )\r\n .oi_ex3_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_6.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oo_ex2->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oi_ex2->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You cannot do a second unload if you have not loaded twice.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oo_ex2->text = @user4\r\n .oo_ex2_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oo_ex2_date->text = oconv( date(), 'D2/' )\r\n .oo_ex2_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oo_ex2->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This has already been signed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oi_ex2->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You cannot do a second unload if you have not loaded twice.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nValid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\nValid = Valid<1>\r\nif Valid then\r\n .oo_ex2->text = @user4\r\n .oo_ex2_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oo_ex2_date->text = oconv( date(), 'D2/' )\r\n .oo_ex2_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RECIPE.BUTTON_4A.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nif memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = '!'\r\n MsgInfo<mtext$> = 'You must be an engineer to sign for recipes.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif ( .eng_sig->text = '' ) then\r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n if Valid then\r\n .eng_sig->text = @user4\r\n .eng_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n .status->value = 'A'\r\n @@window->savewarn = 1\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Do you wisht to inactivate this recipe?.'\r\n MsgInfo<micon$> = '?'\r\n MsgInfo<mtype$> = 'BNY'\r\n Resp = msg( '', MsgInfo )\r\n if Resp then\r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n if Valid then\r\n .eng_sig->text = ''\r\n .eng_sig_name->text = ''\r\n .status->value = 'I'\r\n end\r\n end\r\nend\r\nreturn 0"
"<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nif memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = '!'\r\n MsgInfo<mtext$> = 'You must be an engineer to sign for recipes.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif ( .eng_sig->text = '' ) then\r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n if Valid then\r\n .eng_sig->text = @user4\r\n .eng_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n .status->value = 'A'\r\n @@window->savewarn = 1\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Do you wisht to inactivate this recipe?.'\r\n MsgInfo<micon$> = '?'\r\n MsgInfo<mtype$> = 'BNY'\r\n Resp = msg( '', MsgInfo )\r\n if Resp then\r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n if Valid then\r\n .eng_sig->text = ''\r\n .eng_sig_name->text = ''\r\n .status->value = 'I'\r\n end\r\n end\r\nend\r\nreturn 0"
}
}
}

2
LSL2/OIEVENT/CLICK/SEMI_LOG.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This HF SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This HF SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This HF SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This HF SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This HF Etch SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This HF Etch SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This Akrion HF Etch SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This Akrion HF Etch SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SC1 SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SC1 SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SRD SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SRD SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This 4PP SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This 4PP SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This ADE SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This ADE SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This FTIR SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This FTIR SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SRD SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SRD SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.SIGN_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SC1 SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This SC1 SPC Control entry has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.SIGN_BUTTON_LABEL.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box, msg, post_event, set_property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nDateField = .date->text\r\nif DateField = '' then; *make sure date has been entered\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = \"Date is required\"\r\n\tMsgInfo<micon$> = \"H\"\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.DATE', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.DATE', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nType = .SRPlogwafertype->text\r\nif Type = '' then; *make sure wafer type has been entered\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = \"SRP Wafer Type is required\"\r\n\tMsgInfo<micon$> = \"H\"\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.SRPLOGWAFERTYPE', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.SRPLOGWAFERTYPE', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nSRPreason = .SRPlogreason->text\r\nif SRPreason <> 'Eng. Qual.' then; *WO#, RDS# & Customer are required fields\r\n\tWO = .wo_num->text\r\n\tRDS = .rds_num->text\r\n\tcustomer = .cust_id->text\r\n\tif WO = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = \"Work Order number is required\"\r\n\t\tMsgInfo<micon$> = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.WO_NUM', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.WO_NUM', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\r\n\tif RDS = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = \"RDS number is required\"\r\n\t\tMsgInfo<micon$> = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.RDS_NUM', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.RDS_NUM', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\r\n\tif customer = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = \"Customer is required\"\r\n\t\tMsgInfo<micon$> = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.CUST_ID', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.CUST_ID', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\t\r\nend\r\n\r\nEngSig = .eng_sig->text\r\nif EngSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.eng_sig->text = @user4\r\n\t\t.eng_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box, msg, post_event, set_property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nDateField = .date->text\r\nif DateField = '' then; *make sure date has been entered\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = \"Date is required\"\r\n\tMsgInfo<micon$> = \"H\"\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.DATE', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.DATE', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nType = .SRPlogwafertype->text\r\nif Type = '' then; *make sure wafer type has been entered\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = \"SRP Wafer Type is required\"\r\n\tMsgInfo<micon$> = \"H\"\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.SRPLOGWAFERTYPE', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.SRPLOGWAFERTYPE', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nSRPreason = .SRPlogreason->text\r\nif SRPreason <> 'Eng. Qual.' then; *WO#, RDS# & Customer are required fields\r\n\tWO = .wo_num->text\r\n\tRDS = .rds_num->text\r\n\tcustomer = .cust_id->text\r\n\tif WO = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = \"Work Order number is required\"\r\n\t\tMsgInfo<micon$> = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.WO_NUM', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.WO_NUM', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\r\n\tif RDS = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = \"RDS number is required\"\r\n\t\tMsgInfo<micon$> = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.RDS_NUM', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.RDS_NUM', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\r\n\tif customer = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = \"Customer is required\"\r\n\t\tMsgInfo<micon$> = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.CUST_ID', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.CUST_ID', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\t\r\nend\r\n\r\nEngSig = .eng_sig->text\r\nif EngSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n if Valid then\r\n\t\t.eng_sig->text = @user4\r\n\t\t.eng_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/SUB_REC_LOG.BUTTON_5.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nReceiverSig = .receiver_sig->text\r\nif ReceiverSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.receiver_sig->text = @user4\r\n\t\t.receiver_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
"<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nReceiverSig = .receiver_sig->text\r\nif ReceiverSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo<mtext$> = 'This log has already been signed.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)\r\n Valid = Valid<1>\r\n\r\n if Valid then\r\n\t\t.receiver_sig->text = @user4\r\n\t\t.receiver_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n"
}
}
}

11
LSL2/OIEVENT/LOSTFOCUS/QUOTE_SIG_PWD_ENTRY.PASSWORD.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "Declare Subroutine Post_Event\r\n\r\nPassword = .PASSWORD->text\r\nIf Password[1,3] EQ 'PWD' Then\r\n Post_Event(@window:'.OK_BUTTON', 'CLICK')\r\nend\r\n\r\nreturn 1"
}
}
}

11839
LSL2/OIWIN/CAR.json
View File

File diff suppressed because it is too large Load Diff

2297
LSL2/OIWIN/CAR2.json
View File

File diff suppressed because it is too large Load Diff

2815
LSL2/OIWIN/CDM_LOG.json
View File

File diff suppressed because it is too large Load Diff

11344
LSL2/OIWIN/CUST_INQUIRY.json
View File

File diff suppressed because it is too large Load Diff

2874
LSL2/OIWIN/HOTH2O2_LOG.json
View File

File diff suppressed because it is too large Load Diff

10340
LSL2/OIWIN/LAST_WFR_CI_GROUP.json
View File

File diff suppressed because it is too large Load Diff

3071
LSL2/OIWIN/MASTER_DISK_LOG.json
View File

File diff suppressed because it is too large Load Diff

2987
LSL2/OIWIN/MEG_LOG.json
View File

File diff suppressed because it is too large Load Diff

1092
LSL2/OIWIN/NDW_VERIFY_USER.json
View File

File diff suppressed because it is too large Load Diff

2677
LSL2/OIWIN/PHOTOFLO_LOG.json
View File

File diff suppressed because it is too large Load Diff

3670
LSL2/OIWIN/QUARTZ_WAND_LOG.json
View File

File diff suppressed because it is too large Load Diff

9245
LSL2/OIWIN/QUOTE.json
View File

File diff suppressed because it is too large Load Diff

495
LSL2/OIWIN/QUOTE_SIG_PWD_ENTRY.json
View File

@ -22,19 +22,19 @@
"<1,9>": "Signature Password",
"<1,10>": {
"<1,10,1>": "0x82C00000",
"<1,10,2>": "0x0"
"<1,10,2>": "0x100"
},
"<1,11>": {
"<1,11,1>": "0x1000",
"<1,11,1>": "0x8000",
"<1,11,2>": "0x80000000"
},
"<1,12>": "0",
"<1,12>": "",
"<1,13>": {
"<1,13,1>": "16777215",
"<1,13,2>": "8454143",
"<1,13,3>": "1"
},
"<1,14>": "0",
"<1,14>": "",
"<1,15>": "",
"<1,16>": "",
"<1,17>": "CREATE",
@ -45,38 +45,43 @@
"<1,22>": "",
"<1,23>": "",
"<1,24>": {
"<1,24,1>": "0",
"<1,24,1>": "",
"<1,24,2>": "0",
"<1,24,3>": "0",
"<1,24,4>": "0",
"<1,24,5>": "0",
"<1,24,6>": "0"
"<1,24,5>": "",
"<1,24,6>": "0",
"<1,24,7>": "",
"<1,24,8>": "",
"<1,24,9>": "",
"<1,24,10>": "0",
"<1,24,11>": "0",
"<1,24,12>": "0",
"<1,24,13>": "0",
"<1,24,14>": "0",
"<1,24,15>": "0",
"<1,24,16>": "0",
"<1,24,17>": "0"
},
"<1,25>": "0",
"<1,26>": "0",
"<1,25>": "",
"<1,26>": "",
"<1,27>": "",
"<1,28>": "",
"<1,29>": "",
"<1,30>": "",
"<1,31>": "",
"<1,32>": {
"<1,32,1>": "0x7FFFE",
"<1,32,2>": "0xF001E808"
},
"<1,32>": "",
"<1,33>": "",
"<1,34>": "LSL2*IMAGE*ICO*DATASET",
"<1,34>": "",
"<1,35>": "",
"<1,36>": "",
"<1,37>": {
"<1,37,1>": "0x10001",
"<1,37,2>": "0x10001"
},
"<1,38>": {
"<1,38,1>": "1",
"<1,38,2>": "1"
"<1,37,1>": "0X10001",
"<1,37,2>": "0X10001"
},
"<1,38>": "",
"<1,39>": "",
"<1,40>": "0",
"<1,40>": "",
"<1,41>": "",
"<1,42>": "",
"<1,43>": "",
@ -88,7 +93,74 @@
"<1,49>": "",
"<1,50>": "",
"<1,51>": "",
"<1,52>": ""
"<1,52>": "",
"<1,53>": "",
"<1,54>": "",
"<1,55>": "",
"<1,56>": "",
"<1,57>": "",
"<1,58>": "",
"<1,59>": "",
"<1,60>": "",
"<1,61>": "",
"<1,62>": {
"<1,62,1>": "0",
"<1,62,2>": "",
"<1,62,3>": "",
"<1,62,4>": "0",
"<1,62,5>": "0",
"<1,62,6>": "0",
"<1,62,7>": "",
"<1,62,8>": "0.50",
"<1,62,9>": "5.00",
"<1,62,10>": "0.00"
},
"<1,63>": "",
"<1,64>": "",
"<1,65>": "",
"<1,66>": "",
"<1,67>": "",
"<1,68>": "",
"<1,69>": "",
"<1,70>": "",
"<1,71>": "",
"<1,72>": "",
"<1,73>": "",
"<1,74>": "",
"<1,75>": "",
"<1,76>": "",
"<1,77>": "",
"<1,78>": "",
"<1,79>": "",
"<1,80>": "",
"<1,81>": "",
"<1,82>": "",
"<1,83>": "",
"<1,84>": "",
"<1,85>": "",
"<1,86>": "",
"<1,87>": "",
"<1,88>": "",
"<1,89>": "",
"<1,90>": "",
"<1,91>": "",
"<1,92>": "",
"<1,93>": "",
"<1,94>": "",
"<1,95>": "",
"<1,96>": "",
"<1,97>": "",
"<1,98>": "",
"<1,99>": "",
"<1,100>": "",
"<1,101>": "",
"<1,102>": "",
"<1,103>": "",
"<1,104>": "",
"<1,105>": "",
"<1,106>": "0",
"<1,107>": "",
"<1,108>": ""
}
},
"record3": {
@ -103,7 +175,7 @@
"<1,8>": "21",
"<1,9>": "",
"<1,10>": {
"<1,10,1>": "0x56800088",
"<1,10,1>": "0x56000088",
"<1,10,2>": "0x200"
},
"<1,11>": {
@ -111,7 +183,11 @@
"<1,11,2>": "0x80000100"
},
"<1,12>": "1",
"<1,13>": "-2",
"<1,13>": {
"<1,13,1>": "-2",
"<1,13,2>": "-2",
"<1,13,3>": ""
},
"<1,14>": "0",
"<1,15>": {
"<1,15,1>": {
@ -132,7 +208,7 @@
}
},
"<1,16>": "",
"<1,17>": "",
"<1,17>": "LOSTFOCUS",
"<1,18>": "",
"<1,19>": "",
"<1,20>": "",
@ -140,21 +216,21 @@
"<1,22>": "",
"<1,23>": "",
"<1,24>": "",
"<1,25>": "0",
"<1,26>": "0",
"<1,25>": "",
"<1,26>": "",
"<1,27>": "",
"<1,28>": "<<None>>",
"<1,29>": "<<None>>",
"<1,30>": "<<None>>",
"<1,31>": "0",
"<1,32>": {
"<1,32,1>": "0x7fffe",
"<1,32,2>": "0xf0016108"
},
"<1,32>": "",
"<1,33>": "",
"<1,34>": "",
"<1,35>": "",
"<1,36>": "",
"<1,36>": {
"<1,36,1>": "-1",
"<1,36,2>": "0"
},
"<1,37>": "",
"<1,38>": "",
"<1,39>": "",
@ -170,7 +246,63 @@
"<1,49>": "",
"<1,50>": "",
"<1,51>": "",
"<1,52>": ""
"<1,52>": "",
"<1,53>": "",
"<1,54>": "",
"<1,55>": "",
"<1,56>": "",
"<1,57>": "",
"<1,58>": "",
"<1,59>": "",
"<1,60>": "",
"<1,61>": "",
"<1,62>": "0",
"<1,63>": "",
"<1,64>": "",
"<1,65>": "",
"<1,66>": "",
"<1,67>": "",
"<1,68>": "",
"<1,69>": "",
"<1,70>": "",
"<1,71>": "",
"<1,72>": "",
"<1,73>": "",
"<1,74>": "",
"<1,75>": "",
"<1,76>": "",
"<1,77>": "",
"<1,78>": "",
"<1,79>": "",
"<1,80>": "",
"<1,81>": "",
"<1,82>": "",
"<1,83>": "",
"<1,84>": "",
"<1,85>": "",
"<1,86>": "",
"<1,87>": "",
"<1,88>": "",
"<1,89>": "",
"<1,90>": "",
"<1,91>": "",
"<1,92>": "",
"<1,93>": "",
"<1,94>": "",
"<1,95>": "",
"<1,96>": "",
"<1,97>": "",
"<1,98>": "",
"<1,99>": "",
"<1,100>": "",
"<1,101>": "",
"<1,102>": "",
"<1,103>": "",
"<1,104>": "",
"<1,105>": "",
"<1,106>": "",
"<1,107>": "",
"<1,108>": ""
},
"<2>": {
"<2,1>": "TEXT_1",
@ -183,7 +315,7 @@
"<2,8>": "15",
"<2,9>": "Password:",
"<2,10>": {
"<2,10,1>": "0x56000002",
"<2,10,1>": "0x56000800",
"<2,10,2>": "0x0"
},
"<2,11>": {
@ -191,7 +323,11 @@
"<2,11,2>": "0x80000000"
},
"<2,12>": "2",
"<2,13>": "-1",
"<2,13>": {
"<2,13,1>": "-1",
"<2,13,2>": "-1",
"<2,13,3>": ""
},
"<2,14>": "0",
"<2,15>": {
"<2,15,1>": {
@ -220,17 +356,14 @@
"<2,22>": "",
"<2,23>": "",
"<2,24>": "",
"<2,25>": "0",
"<2,26>": "0",
"<2,25>": "",
"<2,26>": "",
"<2,27>": "",
"<2,28>": "<<None>>",
"<2,29>": "<<None>>",
"<2,30>": "<<None>>",
"<2,31>": "0",
"<2,32>": {
"<2,32,1>": "0x7fffe",
"<2,32,2>": "0xf0016808"
},
"<2,28>": "",
"<2,29>": "",
"<2,30>": "",
"<2,31>": "",
"<2,32>": "",
"<2,33>": "",
"<2,34>": "",
"<2,35>": "",
@ -250,7 +383,76 @@
"<2,49>": "",
"<2,50>": "",
"<2,51>": "",
"<2,52>": ""
"<2,52>": "",
"<2,53>": "",
"<2,54>": "",
"<2,55>": "",
"<2,56>": "",
"<2,57>": "",
"<2,58>": "",
"<2,59>": "",
"<2,60>": "",
"<2,61>": "",
"<2,62>": "0",
"<2,63>": {
"<2,63,1>": "",
"<2,63,2>": "",
"<2,63,3>": "",
"<2,63,4>": "",
"<2,63,5>": "",
"<2,63,6>": "",
"<2,63,7>": "",
"<2,63,8>": ""
},
"<2,64>": {
"<2,64,1>": "",
"<2,64,2>": "",
"<2,64,3>": ""
},
"<2,65>": "-2",
"<2,66>": "",
"<2,67>": "",
"<2,68>": "",
"<2,69>": "",
"<2,70>": "",
"<2,71>": "",
"<2,72>": "",
"<2,73>": "",
"<2,74>": "",
"<2,75>": "",
"<2,76>": "",
"<2,77>": "",
"<2,78>": "",
"<2,79>": "",
"<2,80>": "",
"<2,81>": "",
"<2,82>": "",
"<2,83>": "",
"<2,84>": "",
"<2,85>": "",
"<2,86>": "",
"<2,87>": "",
"<2,88>": "",
"<2,89>": "",
"<2,90>": "0",
"<2,91>": "0",
"<2,92>": "",
"<2,93>": "",
"<2,94>": "",
"<2,95>": "",
"<2,96>": "",
"<2,97>": "",
"<2,98>": "",
"<2,99>": "",
"<2,100>": "",
"<2,101>": "",
"<2,102>": "",
"<2,103>": "",
"<2,104>": "",
"<2,105>": "",
"<2,106>": "",
"<2,107>": "",
"<2,108>": ""
},
"<3>": {
"<3,1>": "OK_BUTTON",
@ -263,15 +465,19 @@
"<3,8>": "18",
"<3,9>": "OK",
"<3,10>": {
"<3,10,1>": "0x56000000",
"<3,10,1>": "0x56000300",
"<3,10,2>": "0x0"
},
"<3,11>": {
"<3,11,1>": "0x101",
"<3,11,1>": "0x1",
"<3,11,2>": "0x80000000"
},
"<3,12>": "3",
"<3,13>": "-2",
"<3,13>": {
"<3,13,1>": "-2",
"<3,13,2>": "-2",
"<3,13,3>": "0"
},
"<3,14>": "0",
"<3,15>": {
"<3,15,1>": {
@ -300,17 +506,14 @@
"<3,22>": "",
"<3,23>": "",
"<3,24>": "",
"<3,25>": "0",
"<3,26>": "0",
"<3,25>": "",
"<3,26>": "",
"<3,27>": "",
"<3,28>": "<<None>>",
"<3,29>": "<<None>>",
"<3,30>": "<<None>>",
"<3,31>": "0",
"<3,32>": {
"<3,32,1>": "0x7fffe",
"<3,32,2>": "0xf0016408"
},
"<3,28>": "",
"<3,29>": "",
"<3,30>": "",
"<3,31>": "",
"<3,32>": "",
"<3,33>": "",
"<3,34>": "",
"<3,35>": "",
@ -319,7 +522,10 @@
"<3,38>": "",
"<3,39>": "",
"<3,40>": "1",
"<3,41>": "",
"<3,41>": {
"<3,41,1>": "",
"<3,41,2>": "-1"
},
"<3,42>": "",
"<3,43>": "",
"<3,44>": "",
@ -329,7 +535,68 @@
"<3,48>": "",
"<3,49>": "",
"<3,50>": "",
"<3,51>": ""
"<3,51>": "",
"<3,52>": "",
"<3,53>": "",
"<3,54>": "",
"<3,55>": "",
"<3,56>": "",
"<3,57>": "",
"<3,58>": "",
"<3,59>": "",
"<3,60>": "",
"<3,61>": "",
"<3,62>": "0",
"<3,63>": "",
"<3,64>": {
"<3,64,1>": "-2",
"<3,64,2>": "-2",
"<3,64,3>": "0"
},
"<3,65>": "-2",
"<3,66>": "",
"<3,67>": "",
"<3,68>": "",
"<3,69>": "",
"<3,70>": "",
"<3,71>": "",
"<3,72>": "",
"<3,73>": "",
"<3,74>": "",
"<3,75>": "",
"<3,76>": "",
"<3,77>": "",
"<3,78>": "",
"<3,79>": "",
"<3,80>": "",
"<3,81>": "",
"<3,82>": "",
"<3,83>": "",
"<3,84>": "",
"<3,85>": "",
"<3,86>": "",
"<3,87>": "",
"<3,88>": "",
"<3,89>": "",
"<3,90>": "0",
"<3,91>": "0",
"<3,92>": "",
"<3,93>": "",
"<3,94>": "",
"<3,95>": "",
"<3,96>": "",
"<3,97>": "",
"<3,98>": "",
"<3,99>": "",
"<3,100>": "",
"<3,101>": "",
"<3,102>": "",
"<3,103>": "",
"<3,104>": "",
"<3,105>": "",
"<3,106>": "",
"<3,107>": "",
"<3,108>": ""
},
"<4>": {
"<4,1>": "CANCEL_BUTTON",
@ -342,15 +609,19 @@
"<4,8>": "18",
"<4,9>": "Cancel",
"<4,10>": {
"<4,10,1>": "0x56000000",
"<4,10,1>": "0x56000300",
"<4,10,2>": "0x0"
},
"<4,11>": {
"<4,11,1>": "0x100",
"<4,11,1>": "0x0",
"<4,11,2>": "0x80000000"
},
"<4,12>": "4",
"<4,13>": "-2",
"<4,13>": {
"<4,13,1>": "-2",
"<4,13,2>": "-2",
"<4,13,3>": "0"
},
"<4,14>": "0",
"<4,15>": {
"<4,15,1>": {
@ -379,17 +650,14 @@
"<4,22>": "",
"<4,23>": "",
"<4,24>": "",
"<4,25>": "0",
"<4,26>": "0",
"<4,25>": "",
"<4,26>": "",
"<4,27>": "",
"<4,28>": "<<None>>",
"<4,29>": "<<None>>",
"<4,30>": "<<None>>",
"<4,31>": "0",
"<4,32>": {
"<4,32,1>": "0x7fffe",
"<4,32,2>": "0xf0016408"
},
"<4,28>": "",
"<4,29>": "",
"<4,30>": "",
"<4,31>": "",
"<4,32>": "",
"<4,33>": "",
"<4,34>": "",
"<4,35>": "",
@ -398,7 +666,10 @@
"<4,38>": "",
"<4,39>": "",
"<4,40>": "1",
"<4,41>": "",
"<4,41>": {
"<4,41,1>": "",
"<4,41,2>": "-1"
},
"<4,42>": "",
"<4,43>": "",
"<4,44>": "",
@ -408,18 +679,72 @@
"<4,48>": "",
"<4,49>": "",
"<4,50>": "",
"<4,51>": ""
},
"<5>": ""
"<4,51>": "",
"<4,52>": "",
"<4,53>": "",
"<4,54>": "",
"<4,55>": "",
"<4,56>": "",
"<4,57>": "",
"<4,58>": "",
"<4,59>": "",
"<4,60>": "",
"<4,61>": "",
"<4,62>": "0",
"<4,63>": "",
"<4,64>": {
"<4,64,1>": "-2",
"<4,64,2>": "-2",
"<4,64,3>": "0"
},
"<4,65>": "-2",
"<4,66>": "",
"<4,67>": "",
"<4,68>": "",
"<4,69>": "",
"<4,70>": "",
"<4,71>": "",
"<4,72>": "",
"<4,73>": "",
"<4,74>": "",
"<4,75>": "",
"<4,76>": "",
"<4,77>": "",
"<4,78>": "",
"<4,79>": "",
"<4,80>": "",
"<4,81>": "",
"<4,82>": "",
"<4,83>": "",
"<4,84>": "",
"<4,85>": "",
"<4,86>": "",
"<4,87>": "",
"<4,88>": "",
"<4,89>": "",
"<4,90>": "0",
"<4,91>": "0",
"<4,92>": "",
"<4,93>": "",
"<4,94>": "",
"<4,95>": "",
"<4,96>": "",
"<4,97>": "",
"<4,98>": "",
"<4,99>": "",
"<4,100>": "",
"<4,101>": "",
"<4,102>": "",
"<4,103>": "",
"<4,104>": "",
"<4,105>": "",
"<4,106>": "",
"<4,107>": "",
"<4,108>": ""
}
},
"record4": {
"<1>": "",
"<2>": {
"<2,1>": "",
"<2,2>": "",
"<2,3>": "",
"<2,4>": "0"
}
"<1>": ""
}
}
}

8
LSL2/OIWIN/RDS.json
View File

@ -22604,10 +22604,10 @@
"<2>": {
"<2,1>": {
"<2,1,1>": {
"<2,1,1,1>": "UNLOAD/LOAD_EXTRA.SIGNATURE_INFO",
"<2,1,1,2>": "PRINT.FACTORY_LABELS",
"<2,1,1,3>": "PRINT.CUSTOMER_RDS",
"<2,1,1,4>": "SEND_MESSAGE.MESSAGE_W/ATTACHMENT"
"<2,1,1,1>": "SEND_MESSAGE.MESSAGE_W/ATTACHMENT",
"<2,1,1,2>": "PRINT.CUSTOMER_RDS",
"<2,1,1,3>": "PRINT.FACTORY_LABELS",
"<2,1,1,4>": "UNLOAD/LOAD_EXTRA.SIGNATURE_INFO"
}
},
"<2,2>": {

10805
LSL2/OIWIN/RDS_PRE_EPI_ORG.json
View File

File diff suppressed because it is too large Load Diff

2257
LSL2/OIWIN/RDS_SUPPL.json
View File

File diff suppressed because it is too large Load Diff

2881
LSL2/OIWIN/RDS_UNLOAD_LOAD_EX.json
View File

File diff suppressed because it is too large Load Diff

2680
LSL2/OIWIN/SEMI_LOG.json
View File

File diff suppressed because it is too large Load Diff

3618
LSL2/OIWIN/SPC_CLEAN_HF.json
View File

File diff suppressed because it is too large Load Diff

3616
LSL2/OIWIN/SPC_CLEAN_HF_AKRION.json
View File

File diff suppressed because it is too large Load Diff

3433
LSL2/OIWIN/SPC_CLEAN_HF_ETCH.json
View File

File diff suppressed because it is too large Load Diff

3616
LSL2/OIWIN/SPC_CLEAN_HF_ETCH_AKRION.json
View File

File diff suppressed because it is too large Load Diff

3618
LSL2/OIWIN/SPC_CLEAN_SC1.json
View File

File diff suppressed because it is too large Load Diff

3616
LSL2/OIWIN/SPC_CLEAN_SRD.json
View File

File diff suppressed because it is too large Load Diff

3720
LSL2/OIWIN/SPC_EVAL_4PP.json
View File

File diff suppressed because it is too large Load Diff

3804
LSL2/OIWIN/SPC_EVAL_ADE.json
View File

File diff suppressed because it is too large Load Diff

3720
LSL2/OIWIN/SPC_EVAL_FTIR.json
View File

File diff suppressed because it is too large Load Diff

3789
LSL2/OIWIN/SPC_REACTOR_PARTICLES.json
View File

File diff suppressed because it is too large Load Diff

3611
LSL2/OIWIN/SPC_WAFER_ETCH.json
View File

File diff suppressed because it is too large Load Diff

3640
LSL2/OIWIN/SRP_INCOMING_LOG.json
View File

File diff suppressed because it is too large Load Diff

3960
LSL2/OIWIN/SUB_REC_LOG.json
View File

File diff suppressed because it is too large Load Diff

12
LSL2/STPROC/CLEAN_INSP.txt
View File

@ -828,7 +828,8 @@ SignClean:
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
Valid = 1
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END
IF Valid = 1 THEN
@ -1438,7 +1439,8 @@ SignInsp:
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
Valid = 1
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END
IF Valid = 1 THEN
@ -1616,7 +1618,8 @@ SignScan:
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
Valid = 1
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END
IF Valid = 1 THEN
@ -1692,7 +1695,8 @@ RETURN
SIGN_ROTR_ACCEPTANCE.CLICK:
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
If Valid EQ True$ then
OrigReason = Get_Property(@Window : '.SIGN_ROTR_REASON', 'DEFPROP')
Reason = Msg(@Window, '', 'MESSAGE_INPUT', '', 'ROTR Acceptance' : @FM : 'ROTR Acceptance Reason' : @FM : OrigReason)

18
LSL2/STPROC/COMM_ICAR.txt
View File

@ -759,7 +759,8 @@ SignEmpReview:
Msg( '', MsgInfo )
END ELSE
IF @USER4 = EmpID THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
end else
Valid = Dialog_Box('NDW_USER_OVERRIDE', @WINDOW, EmpId)
End
@ -829,7 +830,8 @@ SignEmpSup:
Msg( '', MsgInfo )
END ELSE
IF @USER4 = RespSupervisor THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END else
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, RespSupervisor)
@ -901,7 +903,8 @@ SignSecSup:
Msg( '', MsgInfo )
END ELSE
IF @USER4 = DeptManager THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END else
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, DeptManager)
@ -1000,12 +1003,3 @@ LotInfoDC:
RETURN

16
LSL2/STPROC/COMM_NCR.txt
View File

@ -1202,7 +1202,8 @@ IF ( @USER4 = DeptManager ) OR ( DeptResp = 'Customer' ) OR ( DeptResp = 'Resear
MsgInfo<micon$> = '!'
Msg( '', MsgInfo )
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.DEPT_MGR_SIG','TEXT', @USER4 )
@ -1271,7 +1272,8 @@ IF CurStatus = 'O' THEN
Void = Msg( '', MsgInfo )
END ELSE
IF Get_Property(@WINDOW:'.AUTH_REJ_SIG','TEXT') <> '' THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.AUTH_DEV_SIG','TEXT', @USER4 )
Set_Property(@WINDOW:'.AUTH_DEV_SIG_NAME','TEXT', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
@ -1337,7 +1339,8 @@ IF AuthRejSig <> '' THEN
MsgInfo<micon$> = '!'
Void = msg( '', MsgInfo )
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.AUTH_REJ_SIG','DEFPROP', @USER4 )
Set_Property(@WINDOW:'.AUTH_REJ_SIG_NAME','DEFPROP', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
@ -1430,7 +1433,8 @@ IF CurStatus = 'O' THEN
Void = Msg( '', MsgInfo )
END ELSE
IF ( Get_Property(@WINDOW:'.AUTH_REJ_SIG','TEXT' ) <> '' ) THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
@ -1958,7 +1962,3 @@ FQAVerify:
return

16
LSL2/STPROC/COMM_PROD_SPEC.txt
View File

@ -136,6 +136,8 @@ Equ COL$SIG_STAGE To 1
Equ COL$SIG_STAGE_DESC To 2
Equ MSG_WIDTH$ to 600
EQU OHMS_SQUARE$ TO CHAR(234):'/':CHAR(220) ;* Ohms/Square
ErrCode = ''
ErrorMsg = ''
ErrTitle = 'Error in Comm_Prod_Spec'
@ -1245,9 +1247,9 @@ BEGIN CASE
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = OHMS_SQUARE$ ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = OHMS_SQUARE$ THEN
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
END
@ -1266,9 +1268,9 @@ BEGIN CASE
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = OHMS_SQUARE$ ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = OHMS_SQUARE$ THEN
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
END
@ -1503,7 +1505,8 @@ SignNextMode:
If Qualified EQ TRUE$ THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
ErrMsg(ErrorMsg)
@ -1570,7 +1573,8 @@ UnsignCurrMode:
END CASE
If Qualified EQ TRUE$ THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
ErrMsg(ErrorMsg)

24
LSL2/STPROC/COMM_PR_SPEC.txt
View File

@ -280,7 +280,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -301,7 +302,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)
@ -341,7 +343,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -362,7 +365,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)
@ -399,7 +403,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -420,7 +425,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)
@ -456,7 +462,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -477,7 +484,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)

3
LSL2/STPROC/COMM_QA_MET_RESULT.txt
View File

@ -950,7 +950,8 @@ Sign:
IF (SignatureReady = True$) THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF (Valid) THEN
ScanUser = @USER4
ScanDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')

12
LSL2/STPROC/COMM_QUOTE.txt
View File

@ -619,7 +619,8 @@ QuoteFaxer = SignatureInfo<5>
LOCATE @USER4 IN Users USING @VM SETTING FPos THEN
Password = Passwords<1,Fpos>
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@vm:Password )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
NextLine = ''
FOR I = 1 TO COUNT(CurrentSignatures,@VM) + (CurrentSignatures NE '')
@ -1004,12 +1005,3 @@ END ELSE
END
RETURN

3
LSL2/STPROC/COMM_RDS_TEST.txt
View File

@ -1625,7 +1625,8 @@ IF ListData<CurrRow,CurrCol> = '' AND CurrCol NE COL$TW_USAGE_DESC THEN
CASE ColPointer = COL$TW_SIG
IF ListData<CurrRow,CurrCol> = '' THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Parms = @USER4:@RM:CtrlEntId:@RM:ColPointer:@FM:LinePointer ;* Username
obj_Appwindow('LUValReturn',Parms )

3
LSL2/STPROC/COMM_REACTOR_LOG.txt
View File

@ -674,7 +674,8 @@ TechSign:
Set_Property(@Window, 'IOOPTIONS', PrevOptions)
ReactorlogNo = Get_Property(@Window:'.REACTOR_LOG_NO', 'TEXT')
Valid = Dialog_Box('QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
If Valid then
Def = ""

6
LSL2/STPROC/COMM_REACT_RUN.txt
View File

@ -1439,7 +1439,8 @@ SignSuppl:
* * * * * * *
IF MemberOf( @USER4, 'DATA_ENTRY' ) OR MemberOf( @USER4, 'SUPERVISOR' ) THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.SUPP_SIG','INVALUE',@USER4)
*Set_Property(@WINDOW:'.SUPP_SIG','TEXT',XLATE('LSL_USERS',@USER4,'FIRST_LAST','X' )
@ -1811,6 +1812,3 @@ SUSC_LOAD.OPTIONS:
return

4
LSL2/STPROC/COMM_REACT_RUN_VER.txt
View File

@ -284,7 +284,8 @@ RETURN
Sign:
* * * * * * *
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
ScanUser = @USER4
@ -352,3 +353,4 @@ End_Dialog('REACT_RUN_VER','')
RETURN

5
LSL2/STPROC/COMM_SURFACE_SCAN.txt
View File

@ -211,7 +211,8 @@ RETURN
Sign:
* * * * * * *
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
@ -414,5 +415,3 @@ Close:
RETURN

3
LSL2/STPROC/COMM_WM_IN.txt
View File

@ -496,7 +496,8 @@ Sign:
IF NOT(Yes) THEN RETURN ;* User bailed
END
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
SigCnt = COUNT(Signatures,@VM) + (Signatures NE '')

20
LSL2/STPROC/GAN_PROD_SPEC.txt
View File

@ -128,6 +128,8 @@ EQU COL$STAGE_SURFSCAN_RECIPE TO 5
Equ COL$SIG_STAGE To 1
Equ COL$SIG_STAGE_DESC To 2
EQU OHMS_SQUARE$ TO CHAR(234):'/':CHAR(220) ;* Ohms/Square
ErrCode = ''
ErrorMsg = ''
ErrTitle = 'Error in Comm_Prod_Spec'
@ -1009,9 +1011,9 @@ BEGIN CASE
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = OHMS_SQUARE$ ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = OHMS_SQUARE$ THEN
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
END
@ -1030,9 +1032,9 @@ BEGIN CASE
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
END
@ -1223,7 +1225,8 @@ SignNextMode:
END CASE
LOCATE @USER4 IN QualUsers USING @VM SETTING Pos THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
ErrMsg(ErrorMsg)
@ -1276,14 +1279,16 @@ UnsignCurrMode:
END CASE
LOCATE @USER4 IN QualUsers USING @VM SETTING Pos THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
ErrMsg(ErrorMsg)
RETURN
END
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid = 1 THEN
CurrDate = OCONV(Date(),'D4/')
@ -2146,4 +2151,3 @@ ColorTab:
return

32
LSL2/STPROC/NDW_VERIFY_USER_EVENTS.txt
View File

@ -135,7 +135,21 @@ end event
Event EDL_USERNAME.GOTFOCUS(PrevFocusID)
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
If PrevFocusID NE CtrlEntId then
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
end
end event
Event EDL_USERNAME.LOSTFOCUS(Flag, FocusID)
Username = Get_Property(@Window:'.EDL_USERNAME','TEXT')
If Username [1,2] EQ '1H' then
Username = Username[3, 999]
Set_Property(CtrlEntId, 'TEXT', Username)
Set_Property(@Window:'.EDL_PASSWORD', 'FOCUS', True$)
end
end event
@ -156,7 +170,21 @@ end event
Event EDL_PASSWORD.GOTFOCUS(PrevFocusID)
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
If PrevFocusID NE CtrlEntId then
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
end
end event
Event EDL_PASSWORD.LOSTFOCUS(Flag, FocusID)
Password = Get_Property(@Window:'.EDL_PASSWORD','TEXT')
If Password [1,3] EQ 'PWD' then
Password = Password[4, 999]
Set_Property(CtrlEntId, 'TEXT', Password)
Send_Event(@Window : '.PUB_OK', 'CLICK')
end
end event

6
LSL2/STPROC/PM.txt
View File

@ -311,7 +311,8 @@ PMComp:
RETURN
END
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -328,6 +329,3 @@ PMComp:
RETURN

6
LSL2/STPROC/RUN_STAGE.txt
View File

@ -413,7 +413,8 @@ CurrQueueID = CurrLocs<1,4> ;* Added 9/27/2016 JCH
IF @USER4 = '' THEN @USER4 = 'BRYCE_BARB'
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -531,7 +532,8 @@ IF Stage = 'ETCH' THEN
END ;* End of check for Etch Stage
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0

6
LSL2/STPROC/RUN_STAGE_WFR.txt
View File

@ -335,7 +335,8 @@ END
IF ErrorMsg NE '' THEN RETURN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -419,7 +420,8 @@ CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
WOMatKey = XLATE('REACT_RUN',RDSNo,'WO_MAT_KEY','X')
*/
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0

6
LSL2/STPROC/TEST_WAFER.txt
View File

@ -990,7 +990,8 @@ RETURN
Sign:
* * * * * * *
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
@ -1031,6 +1032,3 @@ Msg(@WINDOW,'','TW_USE_WAFER_HELP')
RETURN

4
LSL2/STPROC/WO_MAT_GAN_EVENTS.txt
View File

@ -323,7 +323,8 @@ Event PUB_SIGN_FQA.CLICK()
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -1110,4 +1111,3 @@ EnableSignButton:
return