Removed referenced to QUOTE_SIG_PWD_ENTRY and
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
Infineon\StieberD
parent
4b26d37a1c
commit
741a8450e3
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
File diff suppressed because one or more lines are too long
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
File diff suppressed because one or more lines are too long
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -5,7 +5,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"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
11
LSL2/OIEVENT/LOSTFOCUS/QUOTE_SIG_PWD_ENTRY.PASSWORD.json
Normal 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
11839
LSL2/OIWIN/CAR.json
File diff suppressed because it is too large
Load Diff
2297
LSL2/OIWIN/CAR2.json
2297
LSL2/OIWIN/CAR2.json
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -22,19 +22,19 @@
|
|||||||
"<1,9>": "Signature Password",
|
"<1,9>": "Signature Password",
|
||||||
"<1,10>": {
|
"<1,10>": {
|
||||||
"<1,10,1>": "0x82C00000",
|
"<1,10,1>": "0x82C00000",
|
||||||
"<1,10,2>": "0x0"
|
"<1,10,2>": "0x100"
|
||||||
},
|
},
|
||||||
"<1,11>": {
|
"<1,11>": {
|
||||||
"<1,11,1>": "0x1000",
|
"<1,11,1>": "0x8000",
|
||||||
"<1,11,2>": "0x80000000"
|
"<1,11,2>": "0x80000000"
|
||||||
},
|
},
|
||||||
"<1,12>": "0",
|
"<1,12>": "",
|
||||||
"<1,13>": {
|
"<1,13>": {
|
||||||
"<1,13,1>": "16777215",
|
"<1,13,1>": "16777215",
|
||||||
"<1,13,2>": "8454143",
|
"<1,13,2>": "8454143",
|
||||||
"<1,13,3>": "1"
|
"<1,13,3>": "1"
|
||||||
},
|
},
|
||||||
"<1,14>": "0",
|
"<1,14>": "",
|
||||||
"<1,15>": "",
|
"<1,15>": "",
|
||||||
"<1,16>": "",
|
"<1,16>": "",
|
||||||
"<1,17>": "CREATE",
|
"<1,17>": "CREATE",
|
||||||
@ -45,38 +45,43 @@
|
|||||||
"<1,22>": "",
|
"<1,22>": "",
|
||||||
"<1,23>": "",
|
"<1,23>": "",
|
||||||
"<1,24>": {
|
"<1,24>": {
|
||||||
"<1,24,1>": "0",
|
"<1,24,1>": "",
|
||||||
"<1,24,2>": "0",
|
"<1,24,2>": "0",
|
||||||
"<1,24,3>": "0",
|
"<1,24,3>": "0",
|
||||||
"<1,24,4>": "0",
|
"<1,24,4>": "0",
|
||||||
"<1,24,5>": "0",
|
"<1,24,5>": "",
|
||||||
"<1,24,6>": "0"
|
"<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,25>": "",
|
||||||
"<1,26>": "0",
|
"<1,26>": "",
|
||||||
"<1,27>": "",
|
"<1,27>": "",
|
||||||
"<1,28>": "",
|
"<1,28>": "",
|
||||||
"<1,29>": "",
|
"<1,29>": "",
|
||||||
"<1,30>": "",
|
"<1,30>": "",
|
||||||
"<1,31>": "",
|
"<1,31>": "",
|
||||||
"<1,32>": {
|
"<1,32>": "",
|
||||||
"<1,32,1>": "0x7FFFE",
|
|
||||||
"<1,32,2>": "0xF001E808"
|
|
||||||
},
|
|
||||||
"<1,33>": "",
|
"<1,33>": "",
|
||||||
"<1,34>": "LSL2*IMAGE*ICO*DATASET",
|
"<1,34>": "",
|
||||||
"<1,35>": "",
|
"<1,35>": "",
|
||||||
"<1,36>": "",
|
"<1,36>": "",
|
||||||
"<1,37>": {
|
"<1,37>": {
|
||||||
"<1,37,1>": "0x10001",
|
"<1,37,1>": "0X10001",
|
||||||
"<1,37,2>": "0x10001"
|
"<1,37,2>": "0X10001"
|
||||||
},
|
|
||||||
"<1,38>": {
|
|
||||||
"<1,38,1>": "1",
|
|
||||||
"<1,38,2>": "1"
|
|
||||||
},
|
},
|
||||||
|
"<1,38>": "",
|
||||||
"<1,39>": "",
|
"<1,39>": "",
|
||||||
"<1,40>": "0",
|
"<1,40>": "",
|
||||||
"<1,41>": "",
|
"<1,41>": "",
|
||||||
"<1,42>": "",
|
"<1,42>": "",
|
||||||
"<1,43>": "",
|
"<1,43>": "",
|
||||||
@ -88,7 +93,74 @@
|
|||||||
"<1,49>": "",
|
"<1,49>": "",
|
||||||
"<1,50>": "",
|
"<1,50>": "",
|
||||||
"<1,51>": "",
|
"<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": {
|
"record3": {
|
||||||
@ -103,7 +175,7 @@
|
|||||||
"<1,8>": "21",
|
"<1,8>": "21",
|
||||||
"<1,9>": "",
|
"<1,9>": "",
|
||||||
"<1,10>": {
|
"<1,10>": {
|
||||||
"<1,10,1>": "0x56800088",
|
"<1,10,1>": "0x56000088",
|
||||||
"<1,10,2>": "0x200"
|
"<1,10,2>": "0x200"
|
||||||
},
|
},
|
||||||
"<1,11>": {
|
"<1,11>": {
|
||||||
@ -111,7 +183,11 @@
|
|||||||
"<1,11,2>": "0x80000100"
|
"<1,11,2>": "0x80000100"
|
||||||
},
|
},
|
||||||
"<1,12>": "1",
|
"<1,12>": "1",
|
||||||
"<1,13>": "-2",
|
"<1,13>": {
|
||||||
|
"<1,13,1>": "-2",
|
||||||
|
"<1,13,2>": "-2",
|
||||||
|
"<1,13,3>": ""
|
||||||
|
},
|
||||||
"<1,14>": "0",
|
"<1,14>": "0",
|
||||||
"<1,15>": {
|
"<1,15>": {
|
||||||
"<1,15,1>": {
|
"<1,15,1>": {
|
||||||
@ -132,7 +208,7 @@
|
|||||||
}
|
}
|
||||||
},
|
},
|
||||||
"<1,16>": "",
|
"<1,16>": "",
|
||||||
"<1,17>": "",
|
"<1,17>": "LOSTFOCUS",
|
||||||
"<1,18>": "",
|
"<1,18>": "",
|
||||||
"<1,19>": "",
|
"<1,19>": "",
|
||||||
"<1,20>": "",
|
"<1,20>": "",
|
||||||
@ -140,21 +216,21 @@
|
|||||||
"<1,22>": "",
|
"<1,22>": "",
|
||||||
"<1,23>": "",
|
"<1,23>": "",
|
||||||
"<1,24>": "",
|
"<1,24>": "",
|
||||||
"<1,25>": "0",
|
"<1,25>": "",
|
||||||
"<1,26>": "0",
|
"<1,26>": "",
|
||||||
"<1,27>": "",
|
"<1,27>": "",
|
||||||
"<1,28>": "<<None>>",
|
"<1,28>": "<<None>>",
|
||||||
"<1,29>": "<<None>>",
|
"<1,29>": "<<None>>",
|
||||||
"<1,30>": "<<None>>",
|
"<1,30>": "<<None>>",
|
||||||
"<1,31>": "0",
|
"<1,31>": "0",
|
||||||
"<1,32>": {
|
"<1,32>": "",
|
||||||
"<1,32,1>": "0x7fffe",
|
|
||||||
"<1,32,2>": "0xf0016108"
|
|
||||||
},
|
|
||||||
"<1,33>": "",
|
"<1,33>": "",
|
||||||
"<1,34>": "",
|
"<1,34>": "",
|
||||||
"<1,35>": "",
|
"<1,35>": "",
|
||||||
"<1,36>": "",
|
"<1,36>": {
|
||||||
|
"<1,36,1>": "-1",
|
||||||
|
"<1,36,2>": "0"
|
||||||
|
},
|
||||||
"<1,37>": "",
|
"<1,37>": "",
|
||||||
"<1,38>": "",
|
"<1,38>": "",
|
||||||
"<1,39>": "",
|
"<1,39>": "",
|
||||||
@ -170,7 +246,63 @@
|
|||||||
"<1,49>": "",
|
"<1,49>": "",
|
||||||
"<1,50>": "",
|
"<1,50>": "",
|
||||||
"<1,51>": "",
|
"<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>": {
|
||||||
"<2,1>": "TEXT_1",
|
"<2,1>": "TEXT_1",
|
||||||
@ -183,7 +315,7 @@
|
|||||||
"<2,8>": "15",
|
"<2,8>": "15",
|
||||||
"<2,9>": "Password:",
|
"<2,9>": "Password:",
|
||||||
"<2,10>": {
|
"<2,10>": {
|
||||||
"<2,10,1>": "0x56000002",
|
"<2,10,1>": "0x56000800",
|
||||||
"<2,10,2>": "0x0"
|
"<2,10,2>": "0x0"
|
||||||
},
|
},
|
||||||
"<2,11>": {
|
"<2,11>": {
|
||||||
@ -191,7 +323,11 @@
|
|||||||
"<2,11,2>": "0x80000000"
|
"<2,11,2>": "0x80000000"
|
||||||
},
|
},
|
||||||
"<2,12>": "2",
|
"<2,12>": "2",
|
||||||
"<2,13>": "-1",
|
"<2,13>": {
|
||||||
|
"<2,13,1>": "-1",
|
||||||
|
"<2,13,2>": "-1",
|
||||||
|
"<2,13,3>": ""
|
||||||
|
},
|
||||||
"<2,14>": "0",
|
"<2,14>": "0",
|
||||||
"<2,15>": {
|
"<2,15>": {
|
||||||
"<2,15,1>": {
|
"<2,15,1>": {
|
||||||
@ -220,17 +356,14 @@
|
|||||||
"<2,22>": "",
|
"<2,22>": "",
|
||||||
"<2,23>": "",
|
"<2,23>": "",
|
||||||
"<2,24>": "",
|
"<2,24>": "",
|
||||||
"<2,25>": "0",
|
"<2,25>": "",
|
||||||
"<2,26>": "0",
|
"<2,26>": "",
|
||||||
"<2,27>": "",
|
"<2,27>": "",
|
||||||
"<2,28>": "<<None>>",
|
"<2,28>": "",
|
||||||
"<2,29>": "<<None>>",
|
"<2,29>": "",
|
||||||
"<2,30>": "<<None>>",
|
"<2,30>": "",
|
||||||
"<2,31>": "0",
|
"<2,31>": "",
|
||||||
"<2,32>": {
|
"<2,32>": "",
|
||||||
"<2,32,1>": "0x7fffe",
|
|
||||||
"<2,32,2>": "0xf0016808"
|
|
||||||
},
|
|
||||||
"<2,33>": "",
|
"<2,33>": "",
|
||||||
"<2,34>": "",
|
"<2,34>": "",
|
||||||
"<2,35>": "",
|
"<2,35>": "",
|
||||||
@ -250,7 +383,76 @@
|
|||||||
"<2,49>": "",
|
"<2,49>": "",
|
||||||
"<2,50>": "",
|
"<2,50>": "",
|
||||||
"<2,51>": "",
|
"<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>": {
|
||||||
"<3,1>": "OK_BUTTON",
|
"<3,1>": "OK_BUTTON",
|
||||||
@ -263,15 +465,19 @@
|
|||||||
"<3,8>": "18",
|
"<3,8>": "18",
|
||||||
"<3,9>": "OK",
|
"<3,9>": "OK",
|
||||||
"<3,10>": {
|
"<3,10>": {
|
||||||
"<3,10,1>": "0x56000000",
|
"<3,10,1>": "0x56000300",
|
||||||
"<3,10,2>": "0x0"
|
"<3,10,2>": "0x0"
|
||||||
},
|
},
|
||||||
"<3,11>": {
|
"<3,11>": {
|
||||||
"<3,11,1>": "0x101",
|
"<3,11,1>": "0x1",
|
||||||
"<3,11,2>": "0x80000000"
|
"<3,11,2>": "0x80000000"
|
||||||
},
|
},
|
||||||
"<3,12>": "3",
|
"<3,12>": "3",
|
||||||
"<3,13>": "-2",
|
"<3,13>": {
|
||||||
|
"<3,13,1>": "-2",
|
||||||
|
"<3,13,2>": "-2",
|
||||||
|
"<3,13,3>": "0"
|
||||||
|
},
|
||||||
"<3,14>": "0",
|
"<3,14>": "0",
|
||||||
"<3,15>": {
|
"<3,15>": {
|
||||||
"<3,15,1>": {
|
"<3,15,1>": {
|
||||||
@ -300,17 +506,14 @@
|
|||||||
"<3,22>": "",
|
"<3,22>": "",
|
||||||
"<3,23>": "",
|
"<3,23>": "",
|
||||||
"<3,24>": "",
|
"<3,24>": "",
|
||||||
"<3,25>": "0",
|
"<3,25>": "",
|
||||||
"<3,26>": "0",
|
"<3,26>": "",
|
||||||
"<3,27>": "",
|
"<3,27>": "",
|
||||||
"<3,28>": "<<None>>",
|
"<3,28>": "",
|
||||||
"<3,29>": "<<None>>",
|
"<3,29>": "",
|
||||||
"<3,30>": "<<None>>",
|
"<3,30>": "",
|
||||||
"<3,31>": "0",
|
"<3,31>": "",
|
||||||
"<3,32>": {
|
"<3,32>": "",
|
||||||
"<3,32,1>": "0x7fffe",
|
|
||||||
"<3,32,2>": "0xf0016408"
|
|
||||||
},
|
|
||||||
"<3,33>": "",
|
"<3,33>": "",
|
||||||
"<3,34>": "",
|
"<3,34>": "",
|
||||||
"<3,35>": "",
|
"<3,35>": "",
|
||||||
@ -319,7 +522,10 @@
|
|||||||
"<3,38>": "",
|
"<3,38>": "",
|
||||||
"<3,39>": "",
|
"<3,39>": "",
|
||||||
"<3,40>": "1",
|
"<3,40>": "1",
|
||||||
"<3,41>": "",
|
"<3,41>": {
|
||||||
|
"<3,41,1>": "",
|
||||||
|
"<3,41,2>": "-1"
|
||||||
|
},
|
||||||
"<3,42>": "",
|
"<3,42>": "",
|
||||||
"<3,43>": "",
|
"<3,43>": "",
|
||||||
"<3,44>": "",
|
"<3,44>": "",
|
||||||
@ -329,7 +535,68 @@
|
|||||||
"<3,48>": "",
|
"<3,48>": "",
|
||||||
"<3,49>": "",
|
"<3,49>": "",
|
||||||
"<3,50>": "",
|
"<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>": {
|
||||||
"<4,1>": "CANCEL_BUTTON",
|
"<4,1>": "CANCEL_BUTTON",
|
||||||
@ -342,15 +609,19 @@
|
|||||||
"<4,8>": "18",
|
"<4,8>": "18",
|
||||||
"<4,9>": "Cancel",
|
"<4,9>": "Cancel",
|
||||||
"<4,10>": {
|
"<4,10>": {
|
||||||
"<4,10,1>": "0x56000000",
|
"<4,10,1>": "0x56000300",
|
||||||
"<4,10,2>": "0x0"
|
"<4,10,2>": "0x0"
|
||||||
},
|
},
|
||||||
"<4,11>": {
|
"<4,11>": {
|
||||||
"<4,11,1>": "0x100",
|
"<4,11,1>": "0x0",
|
||||||
"<4,11,2>": "0x80000000"
|
"<4,11,2>": "0x80000000"
|
||||||
},
|
},
|
||||||
"<4,12>": "4",
|
"<4,12>": "4",
|
||||||
"<4,13>": "-2",
|
"<4,13>": {
|
||||||
|
"<4,13,1>": "-2",
|
||||||
|
"<4,13,2>": "-2",
|
||||||
|
"<4,13,3>": "0"
|
||||||
|
},
|
||||||
"<4,14>": "0",
|
"<4,14>": "0",
|
||||||
"<4,15>": {
|
"<4,15>": {
|
||||||
"<4,15,1>": {
|
"<4,15,1>": {
|
||||||
@ -379,17 +650,14 @@
|
|||||||
"<4,22>": "",
|
"<4,22>": "",
|
||||||
"<4,23>": "",
|
"<4,23>": "",
|
||||||
"<4,24>": "",
|
"<4,24>": "",
|
||||||
"<4,25>": "0",
|
"<4,25>": "",
|
||||||
"<4,26>": "0",
|
"<4,26>": "",
|
||||||
"<4,27>": "",
|
"<4,27>": "",
|
||||||
"<4,28>": "<<None>>",
|
"<4,28>": "",
|
||||||
"<4,29>": "<<None>>",
|
"<4,29>": "",
|
||||||
"<4,30>": "<<None>>",
|
"<4,30>": "",
|
||||||
"<4,31>": "0",
|
"<4,31>": "",
|
||||||
"<4,32>": {
|
"<4,32>": "",
|
||||||
"<4,32,1>": "0x7fffe",
|
|
||||||
"<4,32,2>": "0xf0016408"
|
|
||||||
},
|
|
||||||
"<4,33>": "",
|
"<4,33>": "",
|
||||||
"<4,34>": "",
|
"<4,34>": "",
|
||||||
"<4,35>": "",
|
"<4,35>": "",
|
||||||
@ -398,7 +666,10 @@
|
|||||||
"<4,38>": "",
|
"<4,38>": "",
|
||||||
"<4,39>": "",
|
"<4,39>": "",
|
||||||
"<4,40>": "1",
|
"<4,40>": "1",
|
||||||
"<4,41>": "",
|
"<4,41>": {
|
||||||
|
"<4,41,1>": "",
|
||||||
|
"<4,41,2>": "-1"
|
||||||
|
},
|
||||||
"<4,42>": "",
|
"<4,42>": "",
|
||||||
"<4,43>": "",
|
"<4,43>": "",
|
||||||
"<4,44>": "",
|
"<4,44>": "",
|
||||||
@ -408,18 +679,72 @@
|
|||||||
"<4,48>": "",
|
"<4,48>": "",
|
||||||
"<4,49>": "",
|
"<4,49>": "",
|
||||||
"<4,50>": "",
|
"<4,50>": "",
|
||||||
"<4,51>": ""
|
"<4,51>": "",
|
||||||
},
|
"<4,52>": "",
|
||||||
"<5>": ""
|
"<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": {
|
"record4": {
|
||||||
"<1>": "",
|
"<1>": ""
|
||||||
"<2>": {
|
|
||||||
"<2,1>": "",
|
|
||||||
"<2,2>": "",
|
|
||||||
"<2,3>": "",
|
|
||||||
"<2,4>": "0"
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -22604,10 +22604,10 @@
|
|||||||
"<2>": {
|
"<2>": {
|
||||||
"<2,1>": {
|
"<2,1>": {
|
||||||
"<2,1,1>": {
|
"<2,1,1>": {
|
||||||
"<2,1,1,1>": "UNLOAD/LOAD_EXTRA.SIGNATURE_INFO",
|
"<2,1,1,1>": "SEND_MESSAGE.MESSAGE_W/ATTACHMENT",
|
||||||
"<2,1,1,2>": "PRINT.FACTORY_LABELS",
|
"<2,1,1,2>": "PRINT.CUSTOMER_RDS",
|
||||||
"<2,1,1,3>": "PRINT.CUSTOMER_RDS",
|
"<2,1,1,3>": "PRINT.FACTORY_LABELS",
|
||||||
"<2,1,1,4>": "SEND_MESSAGE.MESSAGE_W/ATTACHMENT"
|
"<2,1,1,4>": "UNLOAD/LOAD_EXTRA.SIGNATURE_INFO"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
"<2,2>": {
|
"<2,2>": {
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -828,7 +828,8 @@ SignClean:
|
|||||||
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
|
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
|
||||||
Valid = 1
|
Valid = 1
|
||||||
END ELSE
|
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
|
END
|
||||||
|
|
||||||
IF Valid = 1 THEN
|
IF Valid = 1 THEN
|
||||||
@ -1438,7 +1439,8 @@ SignInsp:
|
|||||||
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
|
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
|
||||||
Valid = 1
|
Valid = 1
|
||||||
END ELSE
|
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
|
END
|
||||||
|
|
||||||
IF Valid = 1 THEN
|
IF Valid = 1 THEN
|
||||||
@ -1616,7 +1618,8 @@ SignScan:
|
|||||||
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
|
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
|
||||||
Valid = 1
|
Valid = 1
|
||||||
END ELSE
|
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
|
END
|
||||||
|
|
||||||
IF Valid = 1 THEN
|
IF Valid = 1 THEN
|
||||||
@ -1692,7 +1695,8 @@ RETURN
|
|||||||
|
|
||||||
SIGN_ROTR_ACCEPTANCE.CLICK:
|
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
|
If Valid EQ True$ then
|
||||||
OrigReason = Get_Property(@Window : '.SIGN_ROTR_REASON', 'DEFPROP')
|
OrigReason = Get_Property(@Window : '.SIGN_ROTR_REASON', 'DEFPROP')
|
||||||
Reason = Msg(@Window, '', 'MESSAGE_INPUT', '', 'ROTR Acceptance' : @FM : 'ROTR Acceptance Reason' : @FM : OrigReason)
|
Reason = Msg(@Window, '', 'MESSAGE_INPUT', '', 'ROTR Acceptance' : @FM : 'ROTR Acceptance Reason' : @FM : OrigReason)
|
||||||
|
|||||||
@ -759,7 +759,8 @@ SignEmpReview:
|
|||||||
Msg( '', MsgInfo )
|
Msg( '', MsgInfo )
|
||||||
END ELSE
|
END ELSE
|
||||||
IF @USER4 = EmpID THEN
|
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
|
end else
|
||||||
Valid = Dialog_Box('NDW_USER_OVERRIDE', @WINDOW, EmpId)
|
Valid = Dialog_Box('NDW_USER_OVERRIDE', @WINDOW, EmpId)
|
||||||
End
|
End
|
||||||
@ -829,7 +830,8 @@ SignEmpSup:
|
|||||||
Msg( '', MsgInfo )
|
Msg( '', MsgInfo )
|
||||||
END ELSE
|
END ELSE
|
||||||
IF @USER4 = RespSupervisor THEN
|
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
|
END else
|
||||||
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, RespSupervisor)
|
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, RespSupervisor)
|
||||||
@ -901,7 +903,8 @@ SignSecSup:
|
|||||||
Msg( '', MsgInfo )
|
Msg( '', MsgInfo )
|
||||||
END ELSE
|
END ELSE
|
||||||
IF @USER4 = DeptManager THEN
|
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
|
END else
|
||||||
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, DeptManager)
|
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, DeptManager)
|
||||||
@ -1000,12 +1003,3 @@ LotInfoDC:
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -1202,7 +1202,8 @@ IF ( @USER4 = DeptManager ) OR ( DeptResp = 'Customer' ) OR ( DeptResp = 'Resear
|
|||||||
MsgInfo<micon$> = '!'
|
MsgInfo<micon$> = '!'
|
||||||
Msg( '', MsgInfo )
|
Msg( '', MsgInfo )
|
||||||
END ELSE
|
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
|
IF Valid THEN
|
||||||
Set_Property(@WINDOW:'.DEPT_MGR_SIG','TEXT', @USER4 )
|
Set_Property(@WINDOW:'.DEPT_MGR_SIG','TEXT', @USER4 )
|
||||||
@ -1271,7 +1272,8 @@ IF CurStatus = 'O' THEN
|
|||||||
Void = Msg( '', MsgInfo )
|
Void = Msg( '', MsgInfo )
|
||||||
END ELSE
|
END ELSE
|
||||||
IF Get_Property(@WINDOW:'.AUTH_REJ_SIG','TEXT') <> '' THEN
|
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
|
IF Valid THEN
|
||||||
Set_Property(@WINDOW:'.AUTH_DEV_SIG','TEXT', @USER4 )
|
Set_Property(@WINDOW:'.AUTH_DEV_SIG','TEXT', @USER4 )
|
||||||
Set_Property(@WINDOW:'.AUTH_DEV_SIG_NAME','TEXT', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
|
Set_Property(@WINDOW:'.AUTH_DEV_SIG_NAME','TEXT', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
|
||||||
@ -1337,7 +1339,8 @@ IF AuthRejSig <> '' THEN
|
|||||||
MsgInfo<micon$> = '!'
|
MsgInfo<micon$> = '!'
|
||||||
Void = msg( '', MsgInfo )
|
Void = msg( '', MsgInfo )
|
||||||
END ELSE
|
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
|
IF Valid THEN
|
||||||
Set_Property(@WINDOW:'.AUTH_REJ_SIG','DEFPROP', @USER4 )
|
Set_Property(@WINDOW:'.AUTH_REJ_SIG','DEFPROP', @USER4 )
|
||||||
Set_Property(@WINDOW:'.AUTH_REJ_SIG_NAME','DEFPROP', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
|
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 )
|
Void = Msg( '', MsgInfo )
|
||||||
END ELSE
|
END ELSE
|
||||||
IF ( Get_Property(@WINDOW:'.AUTH_REJ_SIG','TEXT' ) <> '' ) THEN
|
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
|
IF Valid THEN
|
||||||
|
|
||||||
@ -1958,7 +1962,3 @@ FQAVerify:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -136,6 +136,8 @@ Equ COL$SIG_STAGE To 1
|
|||||||
Equ COL$SIG_STAGE_DESC To 2
|
Equ COL$SIG_STAGE_DESC To 2
|
||||||
Equ MSG_WIDTH$ to 600
|
Equ MSG_WIDTH$ to 600
|
||||||
|
|
||||||
|
EQU OHMS_SQUARE$ TO CHAR(234):'/':CHAR(220) ;* Ohms/Square
|
||||||
|
|
||||||
ErrCode = ''
|
ErrCode = ''
|
||||||
ErrorMsg = ''
|
ErrorMsg = ''
|
||||||
ErrTitle = 'Error in Comm_Prod_Spec'
|
ErrTitle = 'Error in Comm_Prod_Spec'
|
||||||
@ -1245,9 +1247,9 @@ BEGIN CASE
|
|||||||
|
|
||||||
CASE MetTest = 'LW_RHO'
|
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')
|
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$>
|
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1266,9 +1268,9 @@ BEGIN CASE
|
|||||||
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
|
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
|
||||||
|
|
||||||
CASE MetTest = 'LW_RHO'
|
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')
|
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$>
|
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1503,7 +1505,8 @@ SignNextMode:
|
|||||||
|
|
||||||
|
|
||||||
If Qualified EQ TRUE$ THEN
|
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
|
END ELSE
|
||||||
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
|
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
|
||||||
ErrMsg(ErrorMsg)
|
ErrMsg(ErrorMsg)
|
||||||
@ -1570,7 +1573,8 @@ UnsignCurrMode:
|
|||||||
END CASE
|
END CASE
|
||||||
|
|
||||||
If Qualified EQ TRUE$ THEN
|
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
|
END ELSE
|
||||||
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
|
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
|
||||||
ErrMsg(ErrorMsg)
|
ErrMsg(ErrorMsg)
|
||||||
|
|||||||
@ -280,7 +280,8 @@ END
|
|||||||
|
|
||||||
IF Sig = '' THEN
|
IF Sig = '' THEN
|
||||||
* Doing Signature
|
* 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
|
IF GoodPassword THEN
|
||||||
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
||||||
CurrTimeDate = TimeDate()
|
CurrTimeDate = TimeDate()
|
||||||
@ -301,7 +302,8 @@ END ELSE
|
|||||||
Resp = Msg(@WINDOW,MsgInfo,'')
|
Resp = Msg(@WINDOW,MsgInfo,'')
|
||||||
|
|
||||||
IF Resp = 0 THEN RETURN
|
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
|
IF GoodPassword THEN
|
||||||
Vals = '':@RM:'':@RM:''
|
Vals = '':@RM:'':@RM:''
|
||||||
Set_Property(Ctrls,Props,Vals)
|
Set_Property(Ctrls,Props,Vals)
|
||||||
@ -341,7 +343,8 @@ END
|
|||||||
|
|
||||||
IF Sig = '' THEN
|
IF Sig = '' THEN
|
||||||
* Doing Signature
|
* 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
|
IF GoodPassword THEN
|
||||||
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
||||||
CurrTimeDate = TimeDate()
|
CurrTimeDate = TimeDate()
|
||||||
@ -362,7 +365,8 @@ END ELSE
|
|||||||
Resp = Msg(@WINDOW,MsgInfo,'')
|
Resp = Msg(@WINDOW,MsgInfo,'')
|
||||||
|
|
||||||
IF Resp = 0 THEN RETURN
|
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
|
IF GoodPassword THEN
|
||||||
Vals = '':@RM:'':@RM:''
|
Vals = '':@RM:'':@RM:''
|
||||||
Set_Property(Ctrls,Props,Vals)
|
Set_Property(Ctrls,Props,Vals)
|
||||||
@ -399,7 +403,8 @@ END
|
|||||||
|
|
||||||
IF Sig = '' THEN
|
IF Sig = '' THEN
|
||||||
* Doing Signature
|
* 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
|
IF GoodPassword THEN
|
||||||
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
||||||
CurrTimeDate = TimeDate()
|
CurrTimeDate = TimeDate()
|
||||||
@ -420,7 +425,8 @@ END ELSE
|
|||||||
Resp = Msg(@WINDOW,MsgInfo,'')
|
Resp = Msg(@WINDOW,MsgInfo,'')
|
||||||
|
|
||||||
IF Resp = 0 THEN RETURN
|
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
|
IF GoodPassword THEN
|
||||||
Vals = '':@RM:'':@RM:''
|
Vals = '':@RM:'':@RM:''
|
||||||
Set_Property(Ctrls,Props,Vals)
|
Set_Property(Ctrls,Props,Vals)
|
||||||
@ -456,7 +462,8 @@ END
|
|||||||
|
|
||||||
IF Sig = '' THEN
|
IF Sig = '' THEN
|
||||||
* Doing Signature
|
* 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
|
IF GoodPassword THEN
|
||||||
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
|
||||||
CurrTimeDate = TimeDate()
|
CurrTimeDate = TimeDate()
|
||||||
@ -477,7 +484,8 @@ END ELSE
|
|||||||
Resp = Msg(@WINDOW,MsgInfo,'')
|
Resp = Msg(@WINDOW,MsgInfo,'')
|
||||||
|
|
||||||
IF Resp = 0 THEN RETURN
|
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
|
IF GoodPassword THEN
|
||||||
Vals = '':@RM:'':@RM:''
|
Vals = '':@RM:'':@RM:''
|
||||||
Set_Property(Ctrls,Props,Vals)
|
Set_Property(Ctrls,Props,Vals)
|
||||||
|
|||||||
@ -950,7 +950,8 @@ Sign:
|
|||||||
|
|
||||||
IF (SignatureReady = True$) THEN
|
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
|
IF (Valid) THEN
|
||||||
ScanUser = @USER4
|
ScanUser = @USER4
|
||||||
ScanDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')
|
ScanDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')
|
||||||
|
|||||||
@ -619,7 +619,8 @@ QuoteFaxer = SignatureInfo<5>
|
|||||||
LOCATE @USER4 IN Users USING @VM SETTING FPos THEN
|
LOCATE @USER4 IN Users USING @VM SETTING FPos THEN
|
||||||
|
|
||||||
Password = Passwords<1,Fpos>
|
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
|
IF Valid THEN
|
||||||
NextLine = ''
|
NextLine = ''
|
||||||
FOR I = 1 TO COUNT(CurrentSignatures,@VM) + (CurrentSignatures NE '')
|
FOR I = 1 TO COUNT(CurrentSignatures,@VM) + (CurrentSignatures NE '')
|
||||||
@ -1004,12 +1005,3 @@ END ELSE
|
|||||||
END
|
END
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -1625,7 +1625,8 @@ IF ListData<CurrRow,CurrCol> = '' AND CurrCol NE COL$TW_USAGE_DESC THEN
|
|||||||
CASE ColPointer = COL$TW_SIG
|
CASE ColPointer = COL$TW_SIG
|
||||||
|
|
||||||
IF ListData<CurrRow,CurrCol> = '' THEN
|
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
|
IF Valid THEN
|
||||||
Parms = @USER4:@RM:CtrlEntId:@RM:ColPointer:@FM:LinePointer ;* Username
|
Parms = @USER4:@RM:CtrlEntId:@RM:ColPointer:@FM:LinePointer ;* Username
|
||||||
obj_Appwindow('LUValReturn',Parms )
|
obj_Appwindow('LUValReturn',Parms )
|
||||||
|
|||||||
@ -674,7 +674,8 @@ TechSign:
|
|||||||
Set_Property(@Window, 'IOOPTIONS', PrevOptions)
|
Set_Property(@Window, 'IOOPTIONS', PrevOptions)
|
||||||
ReactorlogNo = Get_Property(@Window:'.REACTOR_LOG_NO', 'TEXT')
|
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
|
If Valid then
|
||||||
Def = ""
|
Def = ""
|
||||||
|
|||||||
@ -1439,7 +1439,8 @@ SignSuppl:
|
|||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF MemberOf( @USER4, 'DATA_ENTRY' ) OR MemberOf( @USER4, 'SUPERVISOR' ) THEN
|
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
|
IF Valid THEN
|
||||||
Set_Property(@WINDOW:'.SUPP_SIG','INVALUE',@USER4)
|
Set_Property(@WINDOW:'.SUPP_SIG','INVALUE',@USER4)
|
||||||
*Set_Property(@WINDOW:'.SUPP_SIG','TEXT',XLATE('LSL_USERS',@USER4,'FIRST_LAST','X' )
|
*Set_Property(@WINDOW:'.SUPP_SIG','TEXT',XLATE('LSL_USERS',@USER4,'FIRST_LAST','X' )
|
||||||
@ -1811,6 +1812,3 @@ SUSC_LOAD.OPTIONS:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -284,7 +284,8 @@ RETURN
|
|||||||
Sign:
|
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
|
IF Valid THEN
|
||||||
ScanUser = @USER4
|
ScanUser = @USER4
|
||||||
@ -352,3 +353,4 @@ End_Dialog('REACT_RUN_VER','')
|
|||||||
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|||||||
@ -211,7 +211,8 @@ RETURN
|
|||||||
Sign:
|
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
|
IF Valid THEN
|
||||||
|
|
||||||
@ -414,5 +415,3 @@ Close:
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -496,7 +496,8 @@ Sign:
|
|||||||
IF NOT(Yes) THEN RETURN ;* User bailed
|
IF NOT(Yes) THEN RETURN ;* User bailed
|
||||||
END
|
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
|
IF Valid THEN
|
||||||
SigCnt = COUNT(Signatures,@VM) + (Signatures NE '')
|
SigCnt = COUNT(Signatures,@VM) + (Signatures NE '')
|
||||||
|
|||||||
@ -128,6 +128,8 @@ EQU COL$STAGE_SURFSCAN_RECIPE TO 5
|
|||||||
Equ COL$SIG_STAGE To 1
|
Equ COL$SIG_STAGE To 1
|
||||||
Equ COL$SIG_STAGE_DESC To 2
|
Equ COL$SIG_STAGE_DESC To 2
|
||||||
|
|
||||||
|
EQU OHMS_SQUARE$ TO CHAR(234):'/':CHAR(220) ;* Ohms/Square
|
||||||
|
|
||||||
ErrCode = ''
|
ErrCode = ''
|
||||||
ErrorMsg = ''
|
ErrorMsg = ''
|
||||||
ErrTitle = 'Error in Comm_Prod_Spec'
|
ErrTitle = 'Error in Comm_Prod_Spec'
|
||||||
@ -1009,9 +1011,9 @@ BEGIN CASE
|
|||||||
|
|
||||||
CASE MetTest = 'LW_RHO'
|
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')
|
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$>
|
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1030,9 +1032,9 @@ BEGIN CASE
|
|||||||
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
|
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
|
||||||
|
|
||||||
CASE MetTest = 'LW_RHO'
|
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')
|
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$>
|
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1223,7 +1225,8 @@ SignNextMode:
|
|||||||
END CASE
|
END CASE
|
||||||
|
|
||||||
LOCATE @USER4 IN QualUsers USING @VM SETTING Pos THEN
|
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
|
END ELSE
|
||||||
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
|
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
|
||||||
ErrMsg(ErrorMsg)
|
ErrMsg(ErrorMsg)
|
||||||
@ -1276,14 +1279,16 @@ UnsignCurrMode:
|
|||||||
END CASE
|
END CASE
|
||||||
|
|
||||||
LOCATE @USER4 IN QualUsers USING @VM SETTING Pos THEN
|
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
|
END ELSE
|
||||||
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
|
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
|
||||||
ErrMsg(ErrorMsg)
|
ErrMsg(ErrorMsg)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
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
|
IF Valid = 1 THEN
|
||||||
CurrDate = OCONV(Date(),'D4/')
|
CurrDate = OCONV(Date(),'D4/')
|
||||||
@ -2146,4 +2151,3 @@ ColorTab:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -135,7 +135,21 @@ end event
|
|||||||
|
|
||||||
Event EDL_USERNAME.GOTFOCUS(PrevFocusID)
|
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
|
end event
|
||||||
|
|
||||||
@ -156,7 +170,21 @@ end event
|
|||||||
|
|
||||||
Event EDL_PASSWORD.GOTFOCUS(PrevFocusID)
|
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
|
end event
|
||||||
|
|
||||||
|
|||||||
@ -311,7 +311,8 @@ PMComp:
|
|||||||
RETURN
|
RETURN
|
||||||
END
|
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
|
IF NOT(Valid) THEN
|
||||||
RETURN 0
|
RETURN 0
|
||||||
@ -328,6 +329,3 @@ PMComp:
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -413,7 +413,8 @@ CurrQueueID = CurrLocs<1,4> ;* Added 9/27/2016 JCH
|
|||||||
|
|
||||||
IF @USER4 = '' THEN @USER4 = 'BRYCE_BARB'
|
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
|
IF NOT(Valid) THEN
|
||||||
RETURN 0
|
RETURN 0
|
||||||
@ -531,7 +532,8 @@ IF Stage = 'ETCH' THEN
|
|||||||
END ;* End of check for Etch Stage
|
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
|
IF NOT(Valid) THEN
|
||||||
RETURN 0
|
RETURN 0
|
||||||
|
|||||||
@ -335,7 +335,8 @@ END
|
|||||||
|
|
||||||
IF ErrorMsg NE '' THEN RETURN
|
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
|
IF NOT(Valid) THEN
|
||||||
RETURN 0
|
RETURN 0
|
||||||
@ -419,7 +420,8 @@ CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
|
|||||||
WOMatKey = XLATE('REACT_RUN',RDSNo,'WO_MAT_KEY','X')
|
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
|
IF NOT(Valid) THEN
|
||||||
RETURN 0
|
RETURN 0
|
||||||
|
|||||||
@ -990,7 +990,8 @@ RETURN
|
|||||||
Sign:
|
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
|
IF Valid THEN
|
||||||
|
|
||||||
@ -1031,6 +1032,3 @@ Msg(@WINDOW,'','TW_USE_WAFER_HELP')
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -323,7 +323,8 @@ Event PUB_SIGN_FQA.CLICK()
|
|||||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||||
CassNo = Get_Property(@WINDOW:'.CASS_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
|
IF NOT(Valid) THEN
|
||||||
RETURN 0
|
RETURN 0
|
||||||
@ -1110,4 +1111,3 @@ EnableSignButton:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user