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