added remaining LSL2 entities
This commit is contained in:
Infineon\StieberD
11
LSL2/OIEVENT/CREATE/ABOUT..json
Normal file
11
LSL2/OIEVENT/CREATE/ABOUT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/AC_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/AC_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Annual Contracts', Print$ ) else\r\n security_err_msg( 'Annual Contracts', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/AC_RPT_1..json
Normal file
11
LSL2/OIEVENT/CREATE/AC_RPT_1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Annual Contracts', Print$ ) else\r\n security_err_msg( 'Annual Contracts', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/AC_SRPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/AC_SRPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Annual Contracts', Print$ ) else\r\n security_err_msg( 'Annual Contracts', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ANNUAL_CONTRACTS..json
Normal file
11
LSL2/OIEVENT/CREATE/ANNUAL_CONTRACTS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n\r\nif index( CreateParam, 'Choosing', 1 ) or index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_ac_button->visible = 1\r\n Ttext = .ret_ac_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_ac_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .contract_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .contract_no->text = Keys\r\n Void = send_event( @window:'.CONTRACT_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Annual Contracts', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Annual Contracts', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Annual Contracts', Edit$ ) else\r\n security_err_msg( 'Annual Contracts', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/AR_INV_EXP..json
Normal file
11
LSL2/OIEVENT/CREATE/AR_INV_EXP..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "* DEFAULT TO THE FOLLOWING DRIVE AND PATH\r\n.path->text = 'M:\\90W\\MAS90\\INVOICE.M&S'\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ASSIGN_CAUSE..json
Normal file
11
LSL2/OIEVENT/CREATE/ASSIGN_CAUSE..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t sendmessage( HbBar, QbfOccurred$, 0, 0 ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .assign_cause_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .assign_cause_id->text = Keys\r\n Void = send_event( @window:'.ASSIGN_CAUSE_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Assign Cause', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Assign Cause', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Assign Cause', Edit$ ) else\r\n security_err_msg( 'Assign Cause', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ATTENDANCE..json
Normal file
11
LSL2/OIEVENT/CREATE/ATTENDANCE..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .absent_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .absent_id->text = Keys\r\n Void = send_event( @window:'.ABSENT_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Attendance', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Attendance', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Attendance', Edit$ ) else\r\n security_err_msg( 'Attendance', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ATTENDANCE_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/ATTENDANCE_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ATTENDANCE_SRPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/ATTENDANCE_SRPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data, security_err_msg, end_dialog\r\ndeclare function security_check, center_window\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\n\r\nset_list_box_data(@window)\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CALL_VISIT..json
Normal file
11
LSL2/OIEVENT/CREATE/CALL_VISIT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .call_visit_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .call_visit_id->text = Keys\r\n Void = send_event( @window:'.CALL_VISIT_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Call Visit', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Call Visit', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Call Visit', Edit$ ) else\r\n security_err_msg( 'Call Visit', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CAR..json
Normal file
11
LSL2/OIEVENT/CREATE/CAR..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .car_ref_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .car_ref_id->text = Keys\r\n Void = send_event( @window:'.CAR_REF_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'CAR', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'CAR', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'CAR', Edit$ ) else\r\n security_err_msg( 'CAR', Edit$ )\r\nend\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CAR2..json
Normal file
11
LSL2/OIEVENT/CREATE/CAR2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n\r\n* Info will be sent with \"LotInfo\":char(244):\"All other Edit fields\":char(244):\"Prod Ret radio button\"\r\nLotInfo = field( CreateParam, char(244), 1 )\r\nEditControlInfo = field( CreateParam, char(244), 2 )\r\nHoldEditControlInfo = EditControlInfo\r\nProdRet = field( EditControlInfo, @fm, 1, 1)\r\n.prod_ret->value = ProdRet\r\nEditControlInfo = field( EditControlInfo, @fm, 2, 999)\r\n.special_inst->text = field( CreateParam, char(244), 3 )\r\n.eng_comments->text = field( CreateParam, char(244), 4 )\r\n.ret_lot_info->array = LotInfo\r\n* now load the controls\r\nEditControls = 'WAF_REC_DATE/WAF_GIVEN_TO/WAF_GIVEN_DATE/ENG_SIGNATURE'\r\nswap '/' with @rm:@window:'.' in EditControls\r\nEditControls = @window:'.':EditControls\r\nVoid = set_property( @window, '@EditControls', EditControls )\r\n* ok\r\nconvert @fm to @rm in EditControlInfo\r\nVoid = set_property( EditControls, 'TEXT', EditControlInfo )\r\n.eng_signature_name->text = oconv( HoldEditControlInfo<5>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n* above HoldEditControlInfo<5> is the FIFTH value passed which is eng_signature if this\r\n* should change then above code must change\r\nset_list_box_data( @window )\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CAR_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/CAR_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data( @window )\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CAR_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/CAR_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'CAR', Print$ ) else\r\n security_err_msg( 'CAR', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CAR_SRPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/CAR_SRPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'CAR', Print$ ) else\r\n security_err_msg( 'CAR', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CDM_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/CDM_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'CDM Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'CDM Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'CDM Log', Edit$ ) else\r\n security_err_msg( 'CDM Log', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CDM_LOG_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/CDM_LOG_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/COC..json
Normal file
11
LSL2/OIEVENT/CREATE/COC..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .coc_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .coc_no->text = keys\r\n Void = send_event( @window:'.COC_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'COC', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'COC', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'COC', Edit$ ) else\r\n security_err_msg( 'COC', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/COC_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/COC_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE SUBROUTINE Btree.Extract,ErrMsg, Set_Property\r\nDECLARE FUNCTION Get_Status, Get_Property\r\n\r\n$INSERT COMPANY_EQUATES\r\n\r\nEQU COL$CUST_NO\t\tTO 1\r\nEQU COL$CUST_NAME\tTO 2\r\n\r\n\t\r\nParent = Get_Property(@WINDOW,'PARENT')\r\n\r\nIF Parent = 'DIALOG_FTP_QUEUE' THEN\r\n\r\n\tSearchString = 'FTP_QUEUE':@VM:'#'\r\n\r\n\tOPEN 'DICT.COMPANY' TO DictVar ELSE\r\n\t\tErrMsg('Unable to open DICT.COMPANY for Btree.Extract')\r\n\t\tRETURN\r\n\tEND\r\n\r\n\tBtree.Extract(SearchString,'COMPANY',DictVar,CustNos,'','')\r\n\r\n\tIF Get_Status(errCode) THEN \r\n\t\tErrMsg(errCode)\r\n\t\tRETURN\r\n\tEND\r\n\r\n\tCustArray = ''\t\t;* Array of customers with the FTP_QUEUE flag set on\r\n\r\n\tCustCnt = COUNT(CustNos,@VM) + (CustNos NE '')\r\n\r\n\tFOR I = 1 TO CustCnt\r\n\t\tCustNo\t\t= CustNos<1,I>\r\n\t\tCustRec\t\t= XLATE('COMPANY',CustNo,'','X')\r\n\t\tCustName\t= CustRec<COMPANY_CO_NAME$>\r\n\t\tIF CustRec<COMPANY_CITY$> NE '' THEN\r\n\t\t\tCustName := ', ':CustRec<COMPANY_CITY$>\r\n\t\tEND\r\n\t\t\r\n\t\tCustArray<COL$CUST_NO,I>\t= CustNo\r\n\t\tCustArray<COL$CUST_NAME,I>\t= CustName\r\n\r\n\tNEXT I\r\n\t\r\n\tLOOP\r\n\r\n\tUNTIL I > 21\r\n\t\tCustArray<COL$CUST_NO,I>\t= ''\r\n\t\tCustArray<COL$CUST_NAME,I>\t= ''\r\n\t\tI+= 1\r\n\tREPEAT\r\n\r\n\tSet_Property(@WINDOW:'.CUSTOMER_INFO','DEFPROP',CustArray)\r\nEND\r\n\r\n\r\n\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/COC_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/COC_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'COC', Print$ ) else\r\n security_err_msg( 'COC', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/COC_SRPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/COC_SRPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'COC', Print$ ) else\r\n security_err_msg( 'COC', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/COMPANY..json
Normal file
11
LSL2/OIEVENT/CREATE/COMPANY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data, security_err_msg, rlist\r\ndeclare function security_check, msg, end_window, company_comm, send_event\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .co_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .co_no->text = Keys\r\n Void = send_event( @window:'.CO_NO', 'LOSTFOCUS', '' )\r\n end \r\nend \r\nif security_check( 'Company', Read$ ) then\r\n set_list_box_data( CtrlEntId )\r\nend else\r\n security_err_msg( 'Company', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Company', Edit$ ) else\r\n security_err_msg( 'Company', Edit$ )\r\nend\r\nVoid = company_comm( 'SET_FIELDS' )\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/COMPANY_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/COMPANY_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data( @window )\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CUST_ACTIVITY_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/CUST_ACTIVITY_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Quote', Print$ ) else\r\n security_err_msg( 'Quote', Print$ )\r\n end_dialog( @window, '' )\r\nend\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CUST_INQUIRY..json
Normal file
11
LSL2/OIEVENT/CREATE/CUST_INQUIRY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .cust_inquiry_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .cust_inquiry_id->text = Keys\r\n Void = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Cust Inquiry', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Cust Inquiry', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Cust Inquiry', Edit$ ) else\r\n security_err_msg( 'Cust Inquiry', Edit$ )\r\nend\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/CUST_INQUIRY2..json
Normal file
11
LSL2/OIEVENT/CREATE/CUST_INQUIRY2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n$insert quote_spec_equ\r\n\r\nControlInfo = field( CreateParam, char(244), 1 )\r\nTitle = field( CreateParam, char(244), 2 )\r\nVoid = set_property( @window, 'TEXT', Title )\r\n\r\n* now load the controls\r\n* extra S on units and extra E on thickmeasure and resmeasure\r\n* so set_list_box_data does not override choices\r\n* the choices are set in the control itself\r\nControls = 'THICK_MIN/THICK_TAR/THICK_MAX/THICK_UNITSS/THICK_UNIF/THICKMEASUREE/'\r\nControls:= 'RES_MIN/RES_TAR/RES_MAX/RES_UNITSS/RES_UNIF/RESMEASUREE/'\r\nControls:= 'EPIDOPANT/THICK_PROD_WAFER/RES_PROD_WAFER'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\nCcnt = fieldcount( Controls, @rm )\r\n* ok\r\ndebug\r\nControlInfo = field( ControlInfo, @vm, 1, Ccnt ) ;* don't want the last blank value\r\nconvert @vm to @rm in ControlInfo\r\nVoid = set_property( Controls, 'TEXT', ControlInfo )\r\nset_list_box_data( @window )\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/DESIG_ERR_GRP..json
Normal file
11
LSL2/OIEVENT/CREATE/DESIG_ERR_GRP..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .desig_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .desig_id->text = Keys\r\n Void = send_event( @window:'.DESIG_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Desig Err Grp', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Desig Err Grp', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Desig Err Grp', Edit$ ) else\r\n security_err_msg( 'Desig Err Grp', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/DIALOG_SHIP_PRINT_OPTS..json
Normal file
11
LSL2/OIEVENT/CREATE/DIALOG_SHIP_PRINT_OPTS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function center_window, Get_Property\r\nDECLARE SUBROUTINE Set_Property\r\n\r\n$INSERT CUST_EPI_PART_EQUATES\r\n$insert logical\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = Center_Window( @window )\r\nEND ELSE\r\n Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nCustEpiPartKey = CreateParam\r\n\r\nCustEpiPartRec = XLATE('CUST_EPI_PART',CustEpiPartKey,'','X')\r\n\r\n\r\nCustRDS = CustEpiPartRec<CUST_EPI_PART_SHIP_CUST_RDS$>\r\nCOCFront = CustEpiPartRec<CUST_EPI_PART_SHIP_COC_FRONT$>\r\nCOCBack = CustEpiPartRec<CUST_EPI_PART_SHIP_COC_BACK$>\r\nNCRRej = CustEpiPartRec<CUST_EPI_PART_SHIP_NCR_REJ$>\r\nCOCFrontCopies = CustEpiPartRec<CUST_EPI_PART_SHIP_COC_FRONT_COPIES$>\r\nCOCBackCopies = CustEpiPartRec<CUST_EPI_PART_SHIP_COC_BACK_COPIES$>\r\n\r\nIF CustRDS THEN\r\n\tSet_Property(@WINDOW:'.CUST_RDS','CHECK',TRUE$)\r\nEND\r\n\r\nIF COCBack THEN\r\n\tSet_Property(@WINDOW:'.BACK_PAGE','CHECK',TRUE$)\r\n\tSet_Property(@WINDOW:'.BACK_PAGE_COPY','TEXT',COCBackCopies)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.BACK_PAGE','CHECK',FALSE$)\r\n\tSet_Property(@WINDOW:'.BACK_PAGE_COPY','TEXT','')\r\nEND\r\n\r\nIF COCFront THEN\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE','CHECK',TRUE$)\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE_COPY','TEXT',COCFrontCopies)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE','CHECK',FALSE$)\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE_COPY','TEXT','')\r\nEND\r\n\r\nSet_Property(@WINDOW:'.NCR_REJ_CNT','TEXT',NCRRej)\r\n\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ENGINEER_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/ENGINEER_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'MASTER' ) or memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'SUPERVISOR' ) else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You do not have proper security to run the engineering report.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/EXPORT3..json
Normal file
11
LSL2/OIEVENT/CREATE/EXPORT3..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, fieldcount, center_window, send_event, post_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nTemplatePassed = field( CreateParam, '*', 1 )\r\nSystemGenerated = false$\r\nif index( CreateParam, 'NOEXCEL', 1 ) then\r\n Void = set_property( @window, '@NoExcel', 1 )\r\nend else\r\n Void = set_property( @window, '@NoExcel', 0 )\r\nend\r\nif index( CreateParam, 'SYSTEM_GENERATED', 1 ) then\r\n\t* DO NOT MAKE THE WINDOW VISIBLE CAUSE WE ARE CALLING BEHIND THE SCENES\r\n\t* TO DO AN EXPORT I FUCKING HOPE\r\n\tSystemGenerated = true$\r\nend else\r\n\tif index( CreateParam, 'CENTER', 1 ) then\r\n\t void = center_window( @window )\r\n\tend else\r\n\t Void = set_property( @window, 'VISIBLE', 1 )\r\n\tend\r\nend\r\nTToVal = xlate( 'LISTBOX_CONFIG', 'EXPORTTABLENAMES', 1, 'X' )\r\nTToValOut = oconv( TToVal, '[TABLENAME_CONV]' )\r\nTcnt = fieldcount( TToVal, @vm )\r\nTList = ''\r\nfor i = 1 to Tcnt\r\n if security_check( TToValOut<1,i>, Read$ ) then\r\n TList<-1> = TToVal<1,i>\r\n end\r\nnext i\r\nif TList then\r\n IF @USER4 = 'BRYCE_M' THEN\r\n TLIST<-1> = 'NOTES'\r\n TLIST<-1> = 'MODS'\r\n END\r\n .exporttablenames->list = TList \r\nend\r\nif SystemGenerated then\r\n\tVoid = set_property( @window, '@SystemGenerated', true$ )\r\n\tVoid = set_property( @window, '@CurCustomer', field( CreateParam, '*', 3 ) )\r\n\tTemplateToUse = field( CreateParam, '*', 2 )\r\n\t* THIS WILL BE THE ID TO THE TABLE, NO ERROR CHECKING CAUSE THE CODE WILL\r\n\t* BE THE ONLY CALLING PIECE\r\n\t.export_name->text = TemplateToUse\r\n\tVoid = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tVoid = send_event( @window:'.BUTTON_1', 'CLICK' )\r\nend\r\nif TemplatePassed then\r\n .export_name->text = TemplatePassed\r\n Void = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\nend\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/EXPORTS..json
Normal file
11
LSL2/OIEVENT/CREATE/EXPORTS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, fieldcount, center_window, send_event, post_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nTemplatePassed = field( CreateParam, '*', 1 )\r\nSystemGenerated = false$\r\nif index( CreateParam, 'NOEXCEL', 1 ) then\r\n Void = set_property( @window, '@NoExcel', 1 )\r\nend else\r\n Void = set_property( @window, '@NoExcel', 0 )\r\nend\r\n\r\nif index( CreateParam, 'SYSTEM_GENERATED', 1 ) then\r\n\tSystemGenerated = true$\r\nend else\r\n\tif index( CreateParam, 'CENTER', 1 ) then\r\n\t void = center_window( @window )\r\n\tend else\r\n\t Void = set_property( @window, 'VISIBLE', 1 )\r\n\tend\r\nend\r\n\r\nTToVal = xlate( 'LISTBOX_CONFIG', 'EXPORTTABLENAMES', 1, 'X' )\r\nTToValOut = oconv( TToVal, '[TABLENAME_CONV]' )\r\nTcnt = fieldcount( TToVal, @vm )\r\nTList = ''\r\nfor i = 1 to Tcnt\r\n if security_check( TToValOut<1,i>, Read$ ) then\r\n TList<-1> = TToVal<1,i>\r\n end\r\nnext i\r\nif TList then\r\n IF @USER4 = 'BRYCE_M' THEN\r\n TLIST<-1> = 'NOTES'\r\n TLIST<-1> = 'MODS'\r\n END\r\n .exporttablenames->list = TList \r\nend\r\nif SystemGenerated then\r\n\tVoid = set_property( @window, '@SystemGenerated', true$ )\r\n\tVoid = set_property( @window, '@CurCustomer', field( CreateParam, '*', 3 ) )\r\n\tTemplateToUse = field( CreateParam, '*', 2 )\r\n\t* THIS WILL BE THE ID TO THE TABLE, NO ERROR CHECKING CAUSE THE CODE WILL\r\n\t* BE THE ONLY CALLING PIECE\r\n\t.export_name->text = TemplateToUse\r\n\tVoid = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tVoid = send_event( @window:'.BUTTON_1', 'CLICK' )\r\nend else\r\n\tif TemplatePassed then\r\n\t .export_name->text = TemplatePassed\r\n\t Void = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tend\r\nEND\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/EXPORTS2..json
Normal file
11
LSL2/OIEVENT/CREATE/EXPORTS2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "if CreateParam then\r\n Column = field( CreateParam, '*', 1 )\r\n Rest = field( CreateParam, '*', 2 )\r\n .column->text = Column\r\n .operator->text = field( Rest, ' ', 1 )\r\n .compval->text = field( Rest, ' ', 2, 999 )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/GAN_PROD_SPEC..json
Normal file
11
LSL2/OIEVENT/CREATE/GAN_PROD_SPEC..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec, GaN_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nGAN_PROD_SPEC('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/HOTH2O2_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/HOTH2O2_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Hot H2O2 Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Hot H2O2 Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Hot H2O2 Log', Edit$ ) else\r\n security_err_msg( 'Hot H2O2 Log', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/HOTH2O2_LOG_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/HOTH2O2_LOG_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ICAR_NONCONF..json
Normal file
11
LSL2/OIEVENT/CREATE/ICAR_NONCONF..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function msg, send_event, admin_user, center_window, security_check\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n* IF THE USER HAS WRITE WRITES TO THE ICAR TABLE THEN ALLOW THEM TO USE\r\n* THE ICAR NONCONFORMANCE SETUP\r\nif security_check( 'ICAR', Write$ ) then\r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'ICAR_NONCONFORMANCE' else\r\n\t Void = msg( '', 'ICAR_NONCONFORMANCE is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread NonConfRec from ConfigTable, 'ICAR_NONCONFORMANCE' then\r\n\t .nonconf->array = NonConfRec\r\n\tend\r\nend else\r\n\tsecurity_err_msg( 'ICAR', Write$ )\t\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE..json
Normal file
File diff suppressed because one or more lines are too long
11
LSL2/OIEVENT/CREATE/INVOICE_BANK_NOTES..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_BANK_NOTES..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function center_window, msg, send_event\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) or index( CreateParam, 'CREATE', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n msg( '', 'Unable to open config...' )\r\n return 0\r\nend\r\nlock ConfigTable, 'INVOICE_BANK_NOTES' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Invoice Banking Notes is already in use elsewhere...'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend\r\n.cust_invoice_notes->text = xlate( 'CONFIG', 'INVOICE_BANK_NOTES', '', 'X' )\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_KEY_VIEW..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_KEY_VIEW..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": ".tempe->text = xlate( 'DICT.INVOICE', '%SK%', 1, 'X' )\r\n.mesa->text = xlate( 'DICT.INVOICE', '%MESASK%', 1, 'X' )\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_RPT2..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_RPT2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_RPT3..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_RPT3..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_RPT4..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_RPT4..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_RPT5..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_RPT5..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_RPT6..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_RPT6..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n* THIS WINDOW WAS INITIALLY A REPORT FOR THE INVOICE TABLE,\r\n* BUT IT IS NOW A REPORT FOR THE COC TABLE\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT2..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT3..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT3..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT4..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT4..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT5..json
Normal file
11
LSL2/OIEVENT/CREATE/INVOICE_SRPT5..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/LEAK_LAMP..json
Normal file
11
LSL2/OIEVENT/CREATE/LEAK_LAMP..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif memberof( @user4, 'MAINTENANCE' ) or @USER4 = 'BRYCE_M' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec<ReactorCnt$>\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t List<-1> = 'Reactor':i\r\n\tnext i\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must be a maintenance technician to access this!'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json
Normal file
11
LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "\r\ndeclare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n$insert listbox_config_equ\r\n$insert quote_sigs_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) OR @USERNAME = 'BRYCE_BARB' then\r\n * OK THEY ARE AN ADMINISTRATOR, SO ALSO SHOW THE MANUF_CHECK BOX\r\n .MANUF_CHECK->VISIBLE = 1\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) or ( @user4 = 'PAUL_W' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n .MANUF_CHECK->VISIBLE = 0\r\n end else\r\n\t\tMessage = 'You do not have the proper security to enter ListBox entries...' \r\n\t\tMessage<micon$> = 'H'\r\n\t\tVoid = msg( '', Message )\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\n\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/LOG_CHECK_WARN..json
Normal file
11
LSL2/OIEVENT/CREATE/LOG_CHECK_WARN..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/LOSS_CODES..json
Normal file
11
LSL2/OIEVENT/CREATE/LOSS_CODES..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .loss_code->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .loss_code->text = Keys\r\n Void = send_event( @window:'.LOSS_CODE', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Loss Codes', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Loss Codes', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Loss Codes', Edit$ ) else\r\n security_err_msg( 'Loss Codes', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/LSL_MAIN2..json
Normal file
11
LSL2/OIEVENT/CREATE/LSL_MAIN2..json
Normal file
File diff suppressed because one or more lines are too long
11
LSL2/OIEVENT/CREATE/LSL_USERS_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/LSL_USERS_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif Admin_user( @user4 ) else\r\n Message = 'You do not have the proper to run the LSL User Report...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/MASTER_DISK_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/MASTER_DISK_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Master Disk Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Master Disk Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Master Disk Log', Edit$ ) else\r\n security_err_msg( 'Master Disk Log', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/MEG_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/MEG_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Meg Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Meg Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Meg Log', Edit$ ) else\r\n security_err_msg( 'Meg Log', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/MODS..json
Normal file
11
LSL2/OIEVENT/CREATE/MODS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function msg, send_event, admin_user, center_window, mods_load_control, end_window\r\ndeclare function get_status\r\ndeclare subroutine end_dialog, attach_table\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nosopen 'MODS\\MODS.TXT' to Tvar then\r\n * OFFLINE DO NOT ALLOW UPDATES\r\n osclose Tvar\r\n .us_button->enabled = 0\r\n .ua_button->enabled = 0\r\nend else\r\n * ONLINE DO NOT ALLOW NEW PROJECTS OR ADDING REPOSITORY ENTRIES OR PREPARING MODS\r\n .prep_final_button->enabled = 0\r\n .prep_button->enabled = 0\r\n .new_button->enabled = 0\r\n .sr_button->enabled = 0\r\n attach_table(\"C:\\Revsoft\\OFFnSght\\MODS\", \"\", \"\", \"\")\r\n if get_status() then\r\n Void = msg( '', 'Error while attaching offline MODS...' )\r\n Void = end_window(@window) \r\n end\r\nend\r\n* CAUSE SOMETIMES I DON'T LOG INTO THE LSL_MAIN2 AND THEN THIS ERRORS\r\n* MOST OF THE TIME WHEN I GET INTO DEVELOPMENT I GO IMMEDIATELY INTO MODS\r\nif @user4 = '' then\r\n @user4 = @username\r\nend\r\nif Admin_user( @user4 ) then \r\n\topen 'MODS_CFG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open MODS_CFG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'MODS' else\r\n\t Void = msg( '', 'MODS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread ModsInfo from ConfigTable, 'MODS' then\r\n\t if ModsInfo then\r\n\t .PSD->text = ModsInfo<1>\r\n\t .PN->text = ModsInfo<2>\r\n\t .proj_notes->text = ModsInfo<3>\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to DO MODS...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\nVoid = mods_load_control()\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/MSG_GROUPS..json
Normal file
11
LSL2/OIEVENT/CREATE/MSG_GROUPS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .group_name->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .group_name->text = Keys\r\n Void = send_event( @window:'.GROUP_NAME', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NAMES..json
Normal file
11
LSL2/OIEVENT/CREATE/NAMES..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function relational_call, msg, security_check, set_property\r\ndeclare function send_event, center_window\r\ndeclare subroutine forward_event, send_event, set_list_box_data, rlist\r\ndeclare subroutine security_err_msg\r\n\r\n$insert company_equ\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n.co_id->misc = field( CreateParam, '*', 2 )\r\n.description->text = 'Contact Names for: ':xlate( 'COMPANY', .co_id->misc, company_co_name$, 'X' )\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n * need to send to qbf\r\n convert @vm to @fm in Keys\r\n Void = set_property( @window, 'QBFLIST', Keys ) \r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .seq->text = Keys<1>\r\n Void = send_event( @window, 'READ' )\r\n Void = set_property( @window, '@NoRead', 0 )\r\nend \r\nset_list_box_data( CtrlEntId )\r\nif security_check( 'Names', Edit$ ) else\r\n security_err_msg( 'Names', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NCR_CALCULATOR..json
Normal file
11
LSL2/OIEVENT/CREATE/NCR_CALCULATOR..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function center_window, send_event\r\ndeclare function post_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nControls = 'TTHICK_AVG/TTHICK_STDEV/TTHICK_MAX/TTHICK_MIN/TTHICK_UNIF/'\r\nControls:= 'TRES_AVG/TRES_STDEV/TRES_MAX/TRES_MIN/TRES_UNIF'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\n\r\nStatInfo = field( CreateParam, char(245), 1 )\r\nconvert @fm to @rm in StatInfo\r\nThickInfo = field( CreateParam, char(245), 2 )\r\nRHOInfo = field( CreateParam, char(245), 3 )\r\nUnitType = field( CreateParam, char(245), 4 )\r\n\r\nVoid = set_property( Controls, 'TEXT', StatInfo )\r\n.thickness_readings->array = ThickInfo\r\n.sheetrho_readings->array = RHOInfo\r\nif ( UnitType <> '' ) then\r\n .calc_type->value = UnitType\r\nend\r\n\r\n* CODE BELOW IS THE SAME AS CALCULATOR_RESRHO_VALID CONVERSION\r\n* COULD NOT FORCE IT TO BE CALLED VIA A CLICK EVENT ON THE THICKNESS READINGS\r\n\r\nThickness = iconv( get_property( @window:'.THICKNESS_READINGS', 'ARRAY' ), 'MD2' )\r\nSheetRHO = get_property( @window:'.SHEETRHO_READINGS', 'ARRAY' )\r\nOffSet = str( '.001':@vm, 17 )\r\nOffSet[-1,1] = ''\r\nRes = oconv( SheetRHO *** Thickness *** OffSet, 'MD3' )\r\nswap '.000' with '' in Res\r\nVoid = set_property( @window:'.RES_READINGS', 'ARRAY', Res )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NCR_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/NCR_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NCR_SURFACE_INFO..json
Normal file
11
LSL2/OIEVENT/CREATE/NCR_SURFACE_INFO..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert prod_spec_equ\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nSurfaceInfo = field( CreateParam, char(245), 1 )\r\n\r\n* THEN LOAD THE CURRENT DATA PASSED FROM THE NCR WINDOW\r\nControls = 'POST_LPD_OUT_R/POST_PITS_R/POST_MOUNDS_R/POST_BL_DEFECTS_R/POST_STACK_FAULTS_R/POST_SPIKES_R/'\r\nControls:= 'POST_SPOTS_R/POST_FOV_R/POST_SCRATCHES_R/POST_SCRATCH_LEN_R/POST_SURFSCAN_DEFECTS_R/POST_SURFSCAN_HAZE_R'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\nvoid = set_property( Controls, 'TEXT', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NDA..json
Normal file
11
LSL2/OIEVENT/CREATE/NDA..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .nda_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .nda_id->text = Keys\r\n Void = send_event( @window:'.NDA_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'NDA', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'NDA', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'NDA', Edit$ ) else\r\n security_err_msg( 'NDA', Edit$ )\r\nend\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NEW_REPORT..json
Normal file
11
LSL2/OIEVENT/CREATE/NEW_REPORT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window, admin_user, msg, send_event\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif Admin_user( @user4 ) else\r\n Message = 'You do not have the proper security to enter REPORT_SLIST_CFG...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\n\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NIGHTLY_PROCESS..json
Normal file
11
LSL2/OIEVENT/CREATE/NIGHTLY_PROCESS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function msg, send_event, admin_user, center_window\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n\r\nif Admin_user( @user4 ) then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'NIGHTLY_PROCESS' else\r\n\t Void = msg( '', 'NIGHTLY_PROCESS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread NightlyProcess from ConfigTable, 'NIGHTLY_PROCESS' then\r\n\t if NightlyProcess then\r\n\t *convert @fm to @vm in TableNamesData\r\n\t .night_process_data->array = NightlyProcess\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to view/change the nightly process configuration...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/NOTES..json
Normal file
11
LSL2/OIEVENT/CREATE/NOTES..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function send_event, get_property, set_property, center_window\r\nDECLARE Function Notes\r\nDECLARE SUBROUTINE obj_Call_Event\r\n$insert logical\r\n\r\n* ALWAYS CENTER\r\nvoid = center_window( @window )\r\n\r\nVoid = set_property( @window, '@called', 0 )\r\nif CreateParam<1,1> then \r\n * called from note pointers new\r\n Void = set_property( @window, '@called', true$ )\r\nend\r\n\r\nif CreateParam<1,2> then\r\n * protect the prompts \r\n * called from note pointers with an id passed\r\n \r\n IoOptions = get_property( @window, 'IOOPTIONS' )\r\n IoOptions<2> = 2 ;* do not lock\r\n Void = set_property( @window, 'IOOPTIONS', IoOptions )\r\n \r\n DisableFields = 'MESSAGE_TYPE':@rm:'MENU.FILE.SAVE_ROW':@rm:'MENU.FILE.CLEAR_FORM'\r\n swap @rm with @rm:@window:'.' in DisableFields\r\n DisableFields = @window:'.':DisableFields\r\n Void = set_property( DisableFields, 'ENABLED', 0 )\r\n \r\n .seq->text = CreateParam<1,2>\r\n .save_send->enabled = 0\r\n void = send_event( @window, 'READ', '' )\r\nend else\r\n .reply_button->enabled = 0\r\nend\r\n\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ORDER..json
Normal file
11
LSL2/OIEVENT/CREATE/ORDER..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert wo_log_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nWO = field( CreateParam, '*', 3 )\r\n\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .order_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .order_no->text = Keys\r\n Void = send_event( @window:'.ORDER_NO', 'LOSTFOCUS', '' )\r\n end\r\n**end\r\n******Block added by JLT 5/2/01***********\r\nend else\r\n If WO Then\r\n WO_Rcd = XLATE('WO_LOG', WO, '','X')\r\n Void = send_event(@window:'.ORDER_NO','GOTFOCUS', '' )\r\n Void = send_event(@window:'.ORDER_NO','LOSTFOCUS', '' )\r\n Void = set_property('SYSTEM', 'FOCUS', @window:'.AC_ID')\r\n .cust_no->text = WO_Rcd<wo_log_cust_no$>\r\n Void = send_event(@window:'.CUST_NO','LOSTFOCUS' )\r\n\r\n\t arrayinfo = ''\r\n arrayinfo<4> = WO\r\n .order_detail->array = arrayinfo\r\n \r\n end\r\nend\r\n******End of Block added by JLT 5/2/01***********\r\n\r\nif security_check( 'Order', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Order', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Order', Edit$ ) else\r\n security_err_msg( 'Order', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nVoid = set_property( @window, '@OrigOrderDetail', '' )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ORDER_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/ORDER_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ORDER_RPT2..json
Normal file
11
LSL2/OIEVENT/CREATE/ORDER_RPT2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ORDER_SRPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/ORDER_SRPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/ORDER_SRPT2..json
Normal file
11
LSL2/OIEVENT/CREATE/ORDER_SRPT2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PASS_DOWN..json
Normal file
11
LSL2/OIEVENT/CREATE/PASS_DOWN..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'OPERATOR') or @USERNAME = 'BRYCE_BARB' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec<ReactorCnt$>\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t\tBEGIN CASE\r\n\t\t\tCASE i = 74\r\n\t\t\t\tList<-1> = 'Eng Log ':i\r\n\t\t\t\t\r\n\t\t\tCASE i = 73\r\n\t\t\t\tList<-1> = 'Cleans ':i\r\n\t\t\t\t\r\n\t\t\tCASE 1\r\n\t\t\t\tList<-1> = 'Reactor ':i\r\n\t\t\r\n\t\tEND CASE\r\n\tnext i\r\n\t\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must be a technician or a supervisor to access this...'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PHOTOFLO_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/PHOTOFLO_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'PhotoFlo Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'PhotoFlo Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'PhotoFlo Log', Edit$ ) else\r\n security_err_msg( 'PhotoFlo Log', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PHOTOFLO_LOG_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/PHOTOFLO_LOG_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG..json
Normal file
11
LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function msg, send_event, admin_user\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\n\r\nif Admin_user( @user4 ) then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'PRINT_HELP_CONFIG' else\r\n\t Void = msg( '', 'PRINT_HELP_CONFIG is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread PrintHelpConfig from ConfigTable, 'PRINT_HELP_CONFIG' then\r\n\t if PrintHelpConfig then\r\n\t .print_help_cfg->array = field( PrintHelpConfig, @fm, 1, 8 )\r\n\t end\r\n\t .bmp_path->text = PrintHelpConfig<9>\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to modify print help configuration...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG2..json
Normal file
11
LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "Window = field( CreateParam, '*', 1 )\r\nFieldText = field( CreateParam, '*', 2 )\r\nif window then\r\n .window->text = Window\r\nend\r\nif FieldText then\r\n convert '^' to @vm in FieldText\r\n convert '~' to @fm in FieldText\r\n .field_text->array = FieldText\r\nend\r\nreturn 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\n\r\nGaNFormVisible = Get_Property('DBW_PROD_SPEC_GAN', 'VISIBLE')\r\nIf GaNFormVisible then\r\n\tUtility('DESTROY', 'DBW_PROD_SPEC_GAN')\r\nend\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\n\r\nRETURN 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_BACKUP..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_BACKUP..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_COSTING..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_COSTING..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nIF @USER4 = 'JOE_W' OR @USER4 = 'ADINA_C' OR @USER4 = 'BRYCE_BARB' THEN\r\n\tRETURN 1\r\nEND ELSE\r\n\tErrMsg('You are not authorized to change Costing Information.')\r\n\tRETURN 0\r\nEND"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_JCH..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_JCH..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_JRO..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_JRO..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_QUERY..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_QUERY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "* DEFAULT TO ONLY QUERYING ON ACTIVE\r\n* AS REQUESTED BY RICK ALDRED\r\n.active_check->check = 1\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Prod Spec', Print$ ) else\r\n security_err_msg( 'Prod Spec', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SCAN..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SCAN..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function center_window, utility\r\n\r\nBMP = field( CreateParam, '*', 1 )\r\n.bitmap_1->bitmap = BMP\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 3 ) ;* TO MAXIMIZE\r\nend\r\nStat = utility( 'CURSOR', 'A' )\r\n* THE CALLING CODE WILL SET CURSOR TO HOURGLASS\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json
Normal file
File diff suppressed because one or more lines are too long
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI2..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n$insert quote_spec_equ\r\n\r\nEpiInfo = field( CreateParam, char(244), 1 )\r\nTitle = field( CreateParam, char(244), 2 )\r\nCurTitle = get_property( @window, 'TEXT' )\r\nCurTitle:= ' ':Title\r\nVoid = set_property( @window, 'TEXT', CurTitle )\r\nconvert @svm to @fm in EpiInfo ;* for the conc mv mess\r\nif EpiInfo = '' then \r\n EpiInfo = @fm:@rm:@fm; * for conc mess\r\nend\r\nNumLayers = fieldcount( EpiInfo, char(248) )\r\n.same_reactor_layer_desc->text = '1 of ':NumLayers\r\nFirstLayer = field( EpiInfo, char(248), 1 )\r\nVoid = set_property( @window, '@CurSameLayer', 1 )\r\nVoid = set_property( @window, '@EpiInfo', EpiInfo )\r\nVoid = set_property( @window, '@OrigEpiInfo', EpiInfo )\r\n\r\n* now load the EPI specific prompts\r\nControls = 'EPI_CONC_MIN_THICK/EPI_CONC_MAX_THICK/EPI_CONC_UNITS/'\r\nControls:= 'EPI_RES_MIN_THICK/EPI_RES_MAX_THICK/EPI_RES_UNITS/'\r\nControls:= 'EPI_MIN_THICK/EPI_MAX_THICK/EPI_THICK_UNITS/EPI_DOPANT/EPI_RECIPE_NO/EPI_RECIPE_NAME/'\r\nControls:= 'EPI_THICKMEASURE/EPI_RESMEASURE/EPI_CONMEASURE'\r\n* EPI_RECIPE_NO AND EPI_RECIPE_NAME ARE NOT USED ON SAME REACTOR LAYERS BUT THEY\r\n* ARE THERE AS TO KEEP THE POSITIONAL EQUATES THE SAME BETWEEN SAME AND SEPERATE REACTOR LAYERS\r\n* THEY ARE INVISIBLE FIELDS ON THIS WINDOW\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@EpiControls', Controls )\r\nEpiPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@EpiPromptCnt', EpiPromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < EpiPromptCnt then\r\n FirstLayer := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nconvert @vm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'LIST':@rm:'LIST':@rm:'INVALUE', FirstLayer )\r\n\r\nset_list_box_data( @window )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI3..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI3..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert recipe_equ\r\ndeclare subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nSurfaceInfo = field( CreateParam, char(245), 1 )\r\nNotes = field( CreateParam, char(245), 2 )\r\n.surface_notes->text = Notes\r\nBL = field( CreateParam, char(245), 3 )\r\n\r\nControls = 'PRE_PITS/PRE_MOUNDS/PRE_BL_DEFECTS/PRE_SPOTS/PRE_FOV/PRE_SCRATCHES/PRE_SCRATCH_LEN/PRE_LPD/'\r\nControls := 'PRE_BRIGHTLIGHT/PRE_SURFSCAN/PRE_SURFSCAN_RECIPE/PRE_MICROSCOPE/PRE_SURFSCAN_DEFECTS/PRE_SURFSCAN_HAZE/POST_PITS/POST_MOUNDS/'\r\nControls := 'POST_BL_DEFECTS/POST_STACK_FAULTS/POST_SPOTS/POST_FOV/POST_SPIKES/POST_SCRATCHES/'\r\nControls := 'POST_SCRATCH_LEN/POST_LPD/POST_BRIGHTLIGHT/POST_SURFSCAN/POST_SURFSCAN_RECIPE/'\r\nControls := 'POST_MICROSCOPE/POST_SURFSCAN_DEFECTS/POST_SURFSCAN_HAZE/CLEAN_BRIGHTLIGHT/CLEAN_SURFSCAN/CLEAN_SURFSCAN_RECIPE/CLEAN_SURFSCAN_DEFECTS/CLEAN_SURFSCAN_HAZE/'\r\nControls := 'FWI_LWI'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\n\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\n\r\nvoid = set_property( Controls, 'INVALUE', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\n\r\nset_list_box_data(CtrlEntId)\r\n\r\nif BL then\r\n .pre_epi_v->enabled = 0\r\n .post_epi_v->enabled = 0\r\nend else\r\n .pre_epi_bl->enabled = 0\r\n .post_epi_bl->enabled = 0\r\nend \r\n\r\nSurfScanRecipes = xlate( 'LISTBOX_CONFIG', 'SURFSCAN_RECIPES', '', 'X' )\r\nconvert @vm to @fm in SurfScanRecipes\r\n.pre_surfscan_recipe->list = SurfScanRecipes\r\n.post_surfscan_recipe->list = SurfScanRecipes\r\n.clean_surfscan_recipe->list = SurfScanRecipes\r\n\r\nPreSurfscan = .pre_surfscan->check\r\nPostSurfscan = .post_surfscan->check\r\nCleanSurfscan = .clean_surfscan->check\r\n\r\n.pre_surfscan_recipe->enabled = ( PreSurfscan )\r\n.pre_surfscan_defects->enabled = ( PreSurfscan )\r\n.pre_surfscan_haze->enabled = ( PreSurfscan )\r\n.post_surfscan_recipe->enabled = ( PostSurfscan )\r\n.post_surfscan_defects->enabled = ( PostSurfscan )\r\n.post_surfscan_haze->enabled = ( PostSurfscan )\r\n.clean_surfscan_recipe->enabled = ( .clean_surfscan->check )\r\n.clean_surfscan_recipe->enabled = ( CleanSurfscan )\r\n.clean_surfscan_defects->enabled = ( CleanSurfscan )\r\n.clean_surfscan_haze->enabled = ( CleanSurfscan )\r\nRETURN 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$INSERT RECIPE_EQU\r\n\r\nDECLARE SUBROUTINE Set_List_Box_data, Set_Property\r\nDECLARE FUNCTION Center_Window, Prod_Spec_Comm\r\n\r\nEQU MI$TOOL\t\t\tTO 1\r\nEQU MI$TYPE\t\t\tTO 2\r\nEQU MI$RECIPE\t\tTO 3\r\nEQU MI$FREQ\t\t\tTO 4\r\nEQU MI$PROVE_TYPE\tTO 5\r\nEQU MI$FIRST_CHECK\tTO 6\r\nEQU MI$LAST_CHECK\tTO 7\r\nEQU MI$SPC\t\t\tTO 8\r\nEQU MI$OVERGROW\t\tTO 9\r\nEQU MI$EXP_TW_QTY\tTO 10\r\nEQU MI$PATTERN\t\tTO 11\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nMeasureInfo\t= FIELD( CreateParam, CHAR(245), 1 )\t\t;* 1st passed parameter\r\n\r\nCtrls = @WINDOW:'.TOOL':@RM\t\t\t\t; Props = 'TEXT':@RM\t\t; Vals = FIELD(MeasureInfo,'~',MI$TOOL):@RM\r\nCtrls := @WINDOW:'.TYPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$TYPE):@RM\r\nCtrls := @WINDOW:'.RECIPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$RECIPE):@RM\r\nCtrls := @WINDOW:'.FREQ':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FREQ):@RM\r\nCtrls := @WINDOW:'.PROVE_TYPE':@RM\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$PROVE_TYPE):@RM\r\nCtrls := @WINDOW:'.FIRST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FIRST_CHECK):@RM\r\nCtrls := @WINDOW:'.LAST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$LAST_CHECK):@RM\r\nCtrls := @WINDOW:'.SPC':@RM\t\t\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$SPC):@RM\r\nCtrls := @WINDOW:'.OVERGROW':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$OVERGROW):@RM\r\nCtrls := @WINDOW:'.EXPECTED_TW_QTY':@RM\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$EXP_TW_QTY):@RM\r\nCtrls := @WINDOW:'.PATTERN'\t\t\t\t\t; Props := 'TEXT'\t\t\t; Vals := FIELD(MeasureInfo,'~',MI$PATTERN)\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\nSet_Property(@WINDOW, '@Controls',Ctrls)\r\nSet_Property(@WINDOW, '@Props',Props)\r\n\r\nType = FIELD(CreateParam,CHAR(245),2)\t\t;* 2nd passed parameter\r\n\r\nIF Type = 'RES' THEN\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',1)\r\nEND ELSE\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',0)\r\nEND\r\n\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nTypeOut = FIELD(CreateParam,CHAR(245),3)\t\t\t;* 3rd passed parameter\r\n\r\nTitle = Get_Property(@WINDOW,'TEXT')\r\nTitle := TypeOut:' ':Title\r\nSet_Property(@WINDOW,'TEXT',Title)\r\n\r\nSet_List_Box_Data(CtrlEntId)\r\n\r\n\r\nToolList = XLATE('LISTBOX_CONFIG',Type:'MEASURETOOL','','X')\r\nCONVERT @VM TO @FM IN ToolList\r\nSet_Property(@WINDOW:'.TOOL','LIST',ToolList)\r\n\r\nTool = Get_Property(@WINDOW:'.TOOL', 'TEXT' )\r\nCONVERT @LOWER_CASE TO @UPPER_CASE IN Tool\r\n\r\nRecipeList = XLATE( 'LISTBOX_CONFIG', Tool:'_RECIPES', '', 'X' )\r\nCONVERT @VM To @FM IN RecipeList\r\n\r\nIF RecipeList NE '' THEN\r\n\tSet_Property(@WINDOW:'.RECIPE','LIST',RecipeList)\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI5..json
Normal file
11
LSL2/OIEVENT/CREATE/PROD_SPEC_SI5..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert recipe_equ\r\ndeclare subroutine set_list_box_data\r\ndeclare function center_window, prod_spec_comm\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPreCleanAkrion = field( CreateParam, char(245), 1 )\r\nPostCleanAkrion = field( CreateParam, char(245), 2 )\r\nRecipeInfo = PreCleanAkrion:@rm:PostCleanAkrion\r\nControls = 'PRECLEAN_AKRIONRECIPES/POSTCLEAN_AKRIONRECIPES'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nvoid = set_property( Controls, 'TEXT', RecipeInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nset_list_box_data(CtrlEntId)\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/P_NAMES..json
Normal file
11
LSL2/OIEVENT/CREATE/P_NAMES..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUARTZ_TC_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/QUARTZ_TC_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .tc_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .tc_no->text = Keys\r\n Void = send_event( @window:'.TC_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quartz TC Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quartz TC Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quartz TC Log', Edit$ ) else\r\n security_err_msg( 'Quartz TC Log', Edit$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUARTZ_WAND_LOG..json
Normal file
11
LSL2/OIEVENT/CREATE/QUARTZ_WAND_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n$insert reactor_log_equ\r\n\r\n* JOHN PULL OF 3RD * PARAM SET TO A VARIABLE\r\nReactorLogID = field( CreateParam, '*', 3 )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n* IF 3RD PARAM THEN WE KNOW THAT IT WAS CALLED FROM REACTOR LOG SO THERE WILL NOT BE ANY KEYS CAUSE WE WILL NOT CALL\r\n* THIS WINDOW THAT WAY\r\nIF ReactorLogID Then\r\n\t* XLATE THE ROW FROM REACTOR_LOG\r\n\tReactorLogRecord = XLATE(\"REACTOR_LOG\",ReactorLogID,\"\",\"X\")\r\n\t* IF IT IS THERE THEN\r\n\tif ( ReactorLogRecord <> '' ) Then\r\n\t\tVoid = send_event( @window:'.WAND_LOG_NO', 'GOTFOCUS', '' )\t\r\n\t\t* SEND_EVENT TO THE WAND_LOG_NO LOSTFOCUS WHICH WILL FORCE THE READ\r\n\t\tVoid = send_event( @window:'.WAND_LOG_NO', 'LOSTFOCUS', '' )\r\n\t\t* SET THE REACTOR_LOG_ID->TEXT TO THE VAR\r\n\t\t.reactor_log_id->text = ReactorLogID\r\n\t\t* SET THE REACTOR\r\n\t\t.reactor->text = ReactorLogRecord<reactor_log_reactor$>\r\n\t\t* SET THE FOCUS TO THE REPLACEMENT REASON\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.WANDREPLACEMENTREASON' )\t \t\t\r\n\tend\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .wand_log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .wand_log_no->text = Keys\r\n Void = send_event( @window:'.WAND_LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quartz Wand Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quartz Wand Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quartz Wand Log', Edit$ ) else\r\n security_err_msg( 'Quartz Wand Log', Edit$ )\r\nend\r\nRETURN 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUOTE..json
Normal file
11
LSL2/OIEVENT/CREATE/QUOTE..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function set_property, security_check, end_window, send_event\r\ndeclare function center_window, getwindow, fieldcount\r\ndeclare subroutine set_list_box_data, security_err_msg, rlist, sendmessage\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nVoid = set_property( @window, '@ChoosingMultiPSN', false$ )\r\n* FLAG IF SET TO TRUE WILL SET ARRAY PROPERTY OF PREV_PSNS OTHERWISE WILL SET PROD_SPEC_ID\r\n* THIS FLAG IS CHECKED FROM THE PROD_SPEC WINDOW CLICK EVENT FOR RETURN PSN TO QUOTE\r\nif index( CreateParam, 'Choosing', 1 ) or index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nVoid = set_property( @window, '@CUST_NO', '' )\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_quote_button->visible = 1\r\n Ttext = .ret_quote_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_quote_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = Keys\r\n Voic = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quote', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quote', Edit$ ) else\r\n security_err_msg( 'Quote', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n.sigs_req_text->text = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0 \r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUOTE_OLD..json
Normal file
11
LSL2/OIEVENT/CREATE/QUOTE_OLD..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function set_property, security_check, end_window, send_event\r\ndeclare function center_window, getwindow, fieldcount\r\ndeclare subroutine set_list_box_data, security_err_msg, rlist\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'Choosing', 1 ) or index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nVoid = set_property( @window, '@CUST_NO', '' )\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_quote_button->visible = 1\r\n Ttext = .ret_quote_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_quote_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = Keys\r\n Voic = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quote', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quote', Edit$ ) else\r\n security_err_msg( 'Quote', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n.sigs_req_text->text = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0 \r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUOTE_RPT1..json
Normal file
11
LSL2/OIEVENT/CREATE/QUOTE_RPT1..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Print$ ) else\r\n security_err_msg( 'Quote', Print$ )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json
Normal file
11
LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CREATE/QUOTE_SPEC_INFO..json
Normal file
11
LSL2/OIEVENT/CREATE/QUOTE_SPEC_INFO..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount, center_window\r\n$insert quote_spec_equ\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n Void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nDetailLine = field( CreateParam, char(244), 1 )\r\n.quote_detail_line->array = DetailLine\r\nSubstrateInfo = field( CreateParam, char(244), 2 )\r\nAllEpiInfo = field( CreateParam, char(244), 3 )\r\nEpiInfo = field( AllEpiInfo, char(245), 1 )\r\nOtherEpiInfo = field( AllEpiInfo, char(245), 2 )\r\nconvert @svm to @fm in EpiInfo ;* for the conc mv mess\r\nif EpiInfo = '' then \r\n EpiInfo = @fm:@rm:@fm; * for conc mess\r\nend\r\nNumLayers = fieldcount( EpiInfo, char(247) )\r\nButText = .same_reactor_button->text\r\nButText := ' 1'\r\n.same_reactor_button->text = ButText\r\n.sep_reactor_layer_desc->text = '1 of ':NumLayers\r\nFirstLayer = field( EpiInfo, char(247), 1 )\r\nFirstLayer = field( FirstLayer, char(248), 1 )\r\nVoid = set_property( @window, '@CurSepLayer', 1 )\r\nVoid = set_property( @window, '@EpiInfo', EpiInfo )\r\nVoid = set_property( @window, '@OrigEpiInfo', EpiInfo )\r\n\r\n* first load the substrate specific prompts\r\nControls = 'SUB_ORIENTATION/SUB_TYPE/SUB_WAFERSIZE/SUB_RESISTIVITY/SUB_REST_UNITS/'\r\nControls:= 'SUB_DOPANT/SUB_PRE_CLEAN/SUB_BL1_DOPANT/SUB_BL2_DOPANT/'\r\nControls:= 'SUB_OXIDE/SUB_POST_CLEAN/SUB_RADIAL_GRADIENT_RES/'\r\nControls:= 'SUB_CARBON/SUB_DIS_DENSITY/SUB_INSTRUCTIONS/SUB_OTHER_SPECS/'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@SubControls', Controls )\r\nSubPromptCnt = fieldcount( Controls, @rm )\r\n* so set_property does not propagate\r\nValueCnt = fieldcount( SubstrateInfo, @vm )\r\nif ValueCnt < SubPromptCnt then\r\n SubstrateInfo := str( @vm, SubPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nVoid = set_property( @window, '@OrigSubstrateInfo', SubstrateInfo )\r\nconvert @vm to @rm in SubstrateInfo\r\nVoid = set_property( Controls, 'INVALUE', SubstrateInfo )\r\n\r\n* now load the EPI specific prompts\r\nControls = 'EPI_CONC_MIN_THICK/EPI_CONC_MAX_THICK/EPI_CONC_UNITS/'\r\nControls:= 'EPI_RES_MIN_THICK/EPI_RES_MAX_THICK/EPI_RES_UNITS/EPI_MIN_THICK/'\r\nControls:= 'EPI_MAX_THICK/EPI_THICK_UNITS/EPI_DOPANT/EPI_RECIPE/EPI_RECIPE_NAME'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@EpiControls', Controls )\r\nEpiPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@EpiPromptCnt', EpiPromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < EpiPromptCnt then\r\n FirstLayer := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nconvert @vm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'LIST':@rm:'LIST':@rm:'INVALUE', FirstLayer )\r\n*\r\n* now load the other EPI specific prompts\r\nControls = 'OEPI_THICKMEASURE/OEPI_RESMEASURE/'\r\nControls:= 'OEPI_THICK_TOL/OEPI_THICK_WWTOL/OEPI_RES_TOL/OEPI_RES_WWTOL/'\r\nControls:= 'OEPI_DOP_TRANS/OEPI_LPDEF/OEPI_SLIP/OEPI_STACK_FAULTS/'\r\nControls:= 'OEPI_STRESS/OEPI_EDGE_CROWN/OEPI_M_CONTAM'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@OtherEpiControls', Controls )\r\nOEpiPromptCnt = fieldcount( Controls, @rm )\r\nValueCnt = fieldcount( OtherEpiInfo, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < OEpiPromptCnt then\r\n OtherEpiInfo := str( @vm, OEpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nVoid = set_property( @window, '@OrigOtherEpiInfo', OtherEpiInfo )\r\nconvert @vm to @rm in OtherEpiInfo\r\nVoid = set_property( Controls, 'INVALUE', OtherEpiInfo )\r\n\r\nset_list_box_data( @window )\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user