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

added remaining LSL2 entities

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

11
LSL2/OIEVENT/MENU/ANNUAL_CONTRACTS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nContractNo = .contract_no->text\r\nif ContractNo then\r\n if rowexists( 'ANNUAL_CONTRACTS', ContractNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'ANNUAL_CONTRACTS*':ContractNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this annual contract first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have an annual contract present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/ATTENDANCE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nAttendance = .absent_id->text\r\nif Attendance then\r\n if rowexists( 'ATTENDANCE', Attendance ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'ATTENDANCE*':Attendance:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this record first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/CALL_VISIT.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCVId = .call_visit_id->text\r\nif CVId then\r\n if rowexists( 'CALL_VISIT', CVId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'CALL_VISIT*':CVId:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this call/visit entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a call/visit entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/CAR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCARId = .car_ref_id->text\r\nif CARId then\r\n if rowexists( 'CAR', CARId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'CAR*':CARId:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this CAR inquriy first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a CAR present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/COC.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCOCNo = .coc_no->text\r\nif COCNo then\r\n if rowexists( 'COC', COCNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'COC*':COCNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this COC first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a COC record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/COMPANY.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCoNo = .co_no->text\r\nif CoNo then\r\n if rowexists( 'COMPANY', CoNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'COMPANY*':CoNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this company first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a company present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/CUST_INQUIRY.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nInquiryID = .cust_inquiry_id->text\r\nif InquiryID then\r\n if rowexists( 'CUST_INQUIRY', InquiryID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'CUST_INQUIRY*':InquiryID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this customer inquriy first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a customer inquiry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/DBW_PROD_SPEC_GAN.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this PSN first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a PSN present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/GAN_PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this PSN first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a PSN present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/ICAR.MENU.SEND_MESSAGE.MWA.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box, NextKey\r\nDECLARE SUBROUTINE obj_AppWindow\r\n$insert msg_equates\r\n\r\nICARId = .icar_ref_id->text\r\nif ICARId then\r\n if rowexists( 'ICAR', ICARId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n\t\t\tconvert @fm to @vm in Qbf\r\n end else\r\n\t\t\tQbf = ''\r\n\t\tend\r\n \r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'ICAR':@FM:ICARId)\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this ICAR first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a ICAR present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.CREATE_CREDIT%002FDEBIT_MEMO.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function next_key, send_event, msg, security_check, admin_user\r\ndeclare function entid, repository\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert invoice_equ\r\n$insert logical\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nContinue = false$\r\nif admin_user( @user4 ) then\r\n Continue = true$\r\nend else\r\n SecGroups = xlate( 'LSL_USERS', @user4, lsl_users_groups$, 'X' )\r\n locate 'SCHEDULING' in SecGroups using @vm setting Fpos then\r\n Continue = true$\r\n end\r\nend\r\nif Continue then\r\n\tif security_check( 'Invoice', Write$ ) then\r\n\t * save off all data\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_MEMO_OPTS' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n if ChoosenRow then\r\n if ChoosenRow = 1 then\r\n Prefix = 'CM'\r\n end else\r\n Prefix = 'DM'\r\n end\r\n\t\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t\t convert @fm to @rm in AllControls\r\n\t\t AllData = get_property( Allcontrols, 'TEXT' )\r\n\t\t InvoiceDetail = .invoice_detail->array\r\n\t\t RecToUse = ''\r\n\t\t RecToUse<invoice_order_line_item$> = InvoiceDetail<1>\r\n\t\t RecToUse<invoice_quote_ids$> = InvoiceDetail<2>\r\n\t\t RecToUse<invoice_schedule_ids$> = InvoiceDetail<3>\r\n\t\t RecToUse<invoice_wo$> = InvoiceDetail<4>\r\n\t\t RecToUse<invoice_part_num$> = InvoiceDetail<5>\r\n\t\t RecToUse<invoice_lot_num$> = InvoiceDetail<6>\r\n\t\t RecToUse<invoice_gl_acct$> = InvoiceDetail<7>\r\n\t\t RecToUse<invoice_setup_charge$> = iconv( InvoiceDetail<8>, 'MD2,$' )\r\n\t\t RecToUse<invoice_srp_charge$> = iconv( InvoiceDetail<9>, 'MD2,$' )\r\n\t\t RecToUse<invoice_quantity$> = InvoiceDetail<10>\r\n\t\t RecToUse<invoice_rejects$> = InvoiceDetail<11>\r\n\t\t RecToUse<invoice_unprocessed$> = InvoiceDetail<12>\r\n\t\t RecToUse<invoice_price$> = iconv( InvoiceDetail<13>, 'MD2,$' )\r\n\t\t RecToUse<invoice_check_no$> = ''\r\n\t\t RecToUse<invoice_check_date$> = ''\r\n\t\t RecToUse<invoice_check_amount$> = ''\r\n\t\t OrigInvNo = .invoice_no->text\r\n\t\t HoldBillToAddr = .bill_to_addr->array\r\n\t\t HoldShipToAddr = .ship_to_addr->array\r\n\t\t HoldTrackNo = .tracking_no->array\r\n\t\t\tChoice = send_event( @window, 'CLEAR' )\r\n\t\t\tif Choice = '' then\r\n\t\t\t * if choice has a value then the user has canceled \r\n\t\t Void = set_property( @window, '@AutoCreate', 1 ) ;* to enable the creation of a new record\r\n\t\t NewInvoiceKey = Prefix:OrigInvNo\r\n\t\t\t\t.invoice_no->text = NewInvoiceKey\r\n\t\t Void = send_event( @window:'.INVOICE_NO', 'GOTFOCUS' )\r\n\t\t\t\tVoid = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS' )\r\n\t\t Void = send_event( @window, 'READ' )\t\t\r\n\t\t Void = set_property( AllControls, 'TEXT', AllData )\r\n\t\t\t\t.invoice_no->text = NewInvoiceKey\r\n\t\t\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t\t.status->value = 'O'\r\n\t\t\t\tVoid = set_property( @window, 'RECORD', RecToUse )\r\n\t\t\t\tInvoiceDetail<14> = str( @vm, 3 )\r\n\t\t \t.invoice_detail->array = InvoiceDetail\r\n\t\t \t.check_detail->array = @vm:@vm:@vm:@fm:@vm:@vm:@vm:@fm:@vm:@vm:@vm\r\n\t\t\t\tVoid = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 14 ) \t\t\r\n\t\t\t\tVoid = send_event( @window:'.TOT_SHIP_QTY', 'CALCULATE', 1 )\r\n\t\t\t Void = send_event( @window:'.TOT_SHIP_AMT', 'CALCULATE', 1 )\r\n\t\t \tVoid = send_event( @window:'.INVOICE_AMT', 'CALCULATE', 1 )\r\n\t\t\t\tVoid = send_event( @window:'.BALANCE', 'CALCULATE', 1 )\r\n\t\t .bill_to_addr->array = HoldBillToAddr\r\n\t\t .ship_to_addr->array = HoldShipToAddr\r\n\t\t .tracking_no->array = HoldTrackNo \r\n\t\t\t\t@@window->savewarn = 1\r\n\t\t end\r\n\t\tend\r\n\tend else\r\n\t security_err_msg( 'Invoice', Write$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You do not have proper security to create a Credit Memo.' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.INVOICE_BANKING_NOTES.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nVoid = dialog_box( 'INVOICE_BANK_NOTES', @window, '' )\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.UNPROTECT_FIELDS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message, admin_user, msg\r\ndeclare subroutine send_message\r\n$insert lsl_users_equ\r\n$insert logical\r\n$insert msg_equates\r\nequ LockStyle$ to 8192\r\n\r\nContinue = false$\r\nif admin_user( @user4 ) then\r\n Continue = true$\r\nend else\r\n SecGroups = xlate( 'LSL_USERS', @user4, lsl_users_groups$, 'X' )\r\n locate 'SCHEDULING' in SecGroups using @vm setting Fpos then\r\n Continue = true$\r\n end\r\nend\r\nif Continue then\r\n\tInvDetail = @window:'.INVOICE_DETAIL'\r\n\t*Styles = send_message( InvDetail, 'COLSTYLE', 0, '' )\r\n\t*debug\r\n\tVoid = send_message( InvDetail, 'COLSTYLE', 2, 385 ) ;* 385 is non \r\n\tVoid = send_message( InvDetail, 'COLSTYLE', 3, 385 ) ;* protect right just\r\n\t.entry_date->enabled = 1\r\n\t.po->enabled = 1\r\n\t.order_no->enabled = 1\r\n\t.cust_no->enabled = 1\r\n\t*Styles<1> = bitor( Styles<1>, LockStyle$ )\r\n\t*Styles<1> = bitand( Styles<1>, bitnot(LockStyle$))\r\n\t*Styles<2> = bitand( Styles<2>, bitnot(LockStyle$))\r\n\t*Styles<3> = bitand( Styles<3>, bitnot(LockStyle$))\r\n\t*send_message( InvDetail, 'COLSTYLE', 0, Styles \r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You do not have proper security to unprotect quote and schedule nos.' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/INVOICE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nInvoiceNo = .invoice_no->text\r\nif InvoiceNo then\r\n if rowexists( 'INVOICE', InvoiceNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'INVOICE*':InvoiceNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this invoice first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have an invoice present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/INVOICE.MENU.VIEW.NEXT_INVOICE_NUMBERS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nCurFocus = get_property( @window, 'FOCUS' )\r\nCurRecord = get_property( @window, 'RECORD' )\r\nif ( CurFocus = 'INVOICE.INVOICE_NO' ) and ( CurRecord = '' ) then\r\n .invoice_no->text = ''\r\nend\r\nVoid = dialog_box( 'INVOICE_KEY_VIEW', @window, '')\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.REJECT_ACCOUNTABILITY.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\nRdsNo = .rds_no->text\r\nRejCols = 'LSL_PRE_EPI_REJ/LSL_POST_EPI_REJ/CUST_PRE_EPI_REJ/CUST_POST_EPI_REJ'\r\nRejAcctPos = '1,5,9,13/2,6,10,14/3,7,11,15/4,8,12,16'\r\nRejFields = 'L_PRE_REJ_CNT/L_POST_REJ_CNT/C_PRE_REJ_CNT/C_POST_REJ_CNT'\r\nconvert '/' to @fm in RejCols\r\nconvert '/' to @fm in RejAcctPos\r\nconvert ',' to @vm in RejAcctPos\r\nconvert '/' to @fm in RejFields\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_REJ_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .lsl_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'LSL_PRE_EPI_REJ'\r\nend\r\nif .lsl_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'LSL_POST_EPI_REJ'\r\nend\r\nif .cust_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'CUST_PRE_EPI_REJ'\r\nend\r\nif .cust_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'CUST_POST_EPI_REJ'\r\nend\r\nif Display then\r\n\tOverRide<Pdisplay$> = Display\r\n\tRejCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif RejCol then\r\n\t locate RejCol in RejCols using @fm setting Fpos then\r\n\t RejField = RejFields<Fpos>\r\n \tCurRej = get_property( @window:'.':RejCols<Fpos>, 'TEXT' )+0\r\n\t\t RejectInfo = .reject_info->array\r\n\t\t ParamToPass = RejCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldRej = RejectInfo<RejAcctPos<Fpos,2>>\r\n\t HoldLoss = RejectInfo<RejAcctPos<Fpos,1>>\r\n\t HoldAc = RejectInfo<RejAcctPos<Fpos,3>>\r\n\t HoldNCR = RejectInfo<RejAcctPos<Fpos,4>>\t \r\n\t HoldAll = HoldRej:HoldLoss:HoldAc:HoldNCR\r\n\t\t ParamToPass := '*':CurRej\r\n\t\t ParamToPass := '*':HoldRej\r\n\t\t ParamToPass := '*':HoldLoss\r\n\t\t ParamToPass := '*':HoldAc\r\n\t\t ParamToPass := '*':HoldNCR\r\n \t ParamToPass := '*':RdsNo\r\n\t\t ParamToPass := '*':RejField\r\n NCRMustSave = get_property( @window, '@NCRMustSave' ) \r\n\t\t RetVal = dialog_box( 'RDS_REJECTS', @window, ParamToPass:char(245):NCRMustSave )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t NCRChg = field( RetVal, char(245), 2 )\r\n * NEED NCRCHG HERE CAUSE THE USER MAY TRY TO LEAVE THIS RDS WITHOUT SAVING\r\n * THE PURPOSE OF THIS FLAG IS TO FORCE A SAVE IF AN NCR WAS AFFECTED\r\n\t RetVal = field( RetVal, char(245), 1 )\r\n\t\t\t RetRej = RetVal<1>\r\n\t\t\t RetLoss = RetVal<2>\r\n\t\t\t RetAC = RetVal<4>\r\n\t\t\t RetNCR = RetVal<6>\r\n\t\t\t All = RetRej:RetLoss:RetAC:RetNCR\r\n\t\t\t if All <> HoldAll then\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,2>> = RetRej\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,1>> = RetLoss\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,3>> = RetAC\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,4>> = RetNCR\r\n\t\t\t\t .reject_info->array = RejectInfo\r\n\t\t\t\t @@window->savewarn = true$\r\n\t\t\t\t if NCRChg = true$ then\r\n\t\t\t\t Void = set_property( @window, '@NCRMustSave', true$ )\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'There are no rejects!'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.TWA.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\n\r\n\r\nTWCols = 'TW_PPLUS/TW_PMINUS/TW_NPLUS/TW_NMINUS/TW_PROD/TW_RECLAIM'\r\nTWAcctPos = '1,7,13,19,25,31,37,43,49/2,8,14,20,26,32,38,44,50/3,9,15,21,27,33,39,45,51/4,10,16,22,28,34,40,46,52/5,11,17,23,29,35,41,47,53/6,12,18,24,30,36,42,48,54'\r\nconvert '/' to @fm in TWCols\r\nconvert '/' to @fm in TWAcctPos\r\nconvert ',' to @vm in TWAcctPos\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_TW_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .tw_pplus->text then\r\n Display<1,-1> = 'P Plus':@tm:'TW_PPLUS'\r\nend\r\nif .tw_pminus->text then\r\n Display<1,-1> = 'P Minus':@tm:'TW_PMINUS'\r\nend\r\nif .tw_nplus->text then\r\n Display<1,-1> = 'N Plus':@tm:'TW_NPLUS'\r\nend\r\nif .tw_nminus->text then\r\n Display<1,-1> = 'N Minus':@tm:'TW_NMINUS'\r\nend\r\nif .tw_prod->text then\r\n Display<1,-1> = 'Product':@tm:'TW_PROD'\r\nend\r\nif .tw_reclaim->text then\r\n Display<1,-1> = 'Reclaim':@tm:'TW_RECLAIM'\r\nend\r\nif Display then\r\n\tOverRide<Pdisplay$> = Display\r\n\tTWCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif TWCol then\r\n\t locate TWCol in TWCols using @fm setting Fpos then\r\n \tCurTW = get_property( @window:'.':TWCols<Fpos>, 'TEXT' )+0\r\n\t\t TWInfo = .tw_info->array\r\n\t\t ParamToPass = TWCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldTW = TWInfo<TWAcctPos<Fpos,2>>\r\n\t HoldCode = TWInfo<TWAcctPos<Fpos,1>>\r\n HoldTool = TWInfo<TWAcctPos<Fpos,3>>\r\n\t HoldThick = TWInfo<TWAcctPos<Fpos,4>>\r\n\t HoldRes = TWInfo<TWAcctPos<Fpos,5>>\r\n\t HoldConc = TWInfo<TWAcctPos<Fpos,6>>\r\n\t HoldStress = TWInfo<TWAcctPos<Fpos,7>>\r\n\t HoldTrans = TWInfo<TWAcctPos<Fpos,8>>\r\n\t HoldRHO = TWInfo<TWAcctPos<Fpos,9>>\r\n\t HoldAll = HoldTW:HoldCode:HoldTool:HoldThick:HoldRes:HoldConc:HoldStress:HoldTrans:HoldRHO\r\n\t ParamToPass := '*':CurTW\r\n\t ParamToPass := '*':HoldTW\r\n\t\t ParamToPass := '*':HoldCode\r\n\t\t ParamToPass := '*':HoldTool\r\n\t\t ParamToPass := '*':HoldThick\r\n\t\t ParamToPass := '*':HoldRes\r\n\t\t ParamToPass := '*':HoldConc\r\n\t\t ParamToPass := '*':HoldStress\r\n\t\t ParamToPass := '*':HoldTrans\t\t \r\n\t\t ParamToPass := '*':HoldRHO\r\n\t\t RetVal = dialog_box( 'RDS_TW', @window, ParamToPass )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t RetCnt = RetVal<1>\r\n\t\t RetCode = RetVal<2>\r\n\t\t RetTool = RetVal<3>\r\n\t\t RetThick = RetVal<4>\r\n\t\t RetRes = RetVal<5>\r\n\t\t RetConc = RetVal<6>\r\n\t\t RetStress = RetVal<7>\r\n\t\t RetTrans = RetVal<8>\r\n\t\t RetRHO = RetVal<9>\r\n\t\t All = RetCnt:RetCode:RetTool:RetThick:RetRes:RetConc:RetStress:RetTrans:RetRHO\r\n\t\t if All <> HoldAll then\r\n\t\t\t TWInfo<TWAcctPos<Fpos,2>> = RetCnt\r\n\t\t\t TWInfo<TWAcctPos<Fpos,1>> = RetCode\r\n\t\t\t TWInfo<TWAcctPos<Fpos,3>> = RetTool\r\n\t\t\t TWInfo<TWAcctPos<Fpos,4>> = RetThick\r\n\t\t\t TWInfo<TWAcctPos<Fpos,5>> = RetRes\r\n\t\t\t TWInfo<TWAcctPos<Fpos,6>> = RetConc\r\n\t\t\t TWInfo<TWAcctPos<Fpos,7>> = RetStress\r\n\t\t\t TWInfo<TWAcctPos<Fpos,8>> = RetTrans\r\n\t\t\t TWInfo<TWAcctPos<Fpos,9>> = RetRHO\r\n\t\t\t .tw_info->array = TWInfo\r\n \t\t\t @@window->savewarn = true$\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'There are no test wafers!'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1"
}
}
}

11
LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.ADMINISTRATION.EXPORTS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function start_window, send_event\r\n\r\nVoid = send_event( 'EXPORT3', 'CLOSE' ) ;* INCASE IT IS STILL OPEN FROM A SYSTEM EXPORT\r\nVoid = start_window( 'EXPORT3', 'LSL_MAIN2', '*CENTER', '', '' )\r\nRETURN 1"
}
}
}

11
LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.REACT_STAT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE FUNCTION Start_Window\r\n\r\nvoid = Start_Window('REACT_STATUS_EVEN',@WINDOW,'')\r\nvoid = Start_Window('REACT_STATUS_ODD',@WINDOW,'')\r\n\r\nvoid = Start_Window('TOOL_STATUS',@WINDOW,'')\r\n\r\n\r\nRETURN 1"
}
}
}

11
LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.RSCHED.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function msg, start_window\r\n$insert msg_equates\r\n\r\nVoid = start_window( 'WO_MAST_SCHED', @window, '*CENTER', '', '' )\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NCR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE Function Get_Property, RowExists, Msg, Dialog_Box, NextKey\r\nDECLARE SUBROUTINE Start_Window, obj_AppWindow\r\n\r\n$INSERT Msg_Equates\r\n\r\nNCRNo = Get_Property(@WINDOW:'.NCR_NO','DEFPROP')\r\n\r\nIF NCRNo NE '' THEN\r\n\tIF RowExists( 'NCR', NCRNo ) THEN\r\n\t\tQbf = Get_Property( @WINDOW, 'QBFLIST' )\r\n\t\tIF Qbf THEN\r\n\t\t\tCONVERT @FM TO @VM IN Qbf\r\n\t\tEND ELSE\r\n\t\t\tQbf = ''\r\n\t\tEND\r\n\t\t\r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'NCR':@FM:NCRNo)\r\n \r\n\tEND ELSE\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You must save this NCR first...' \r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tEND\r\nEND ELSE\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You must have an NCR present...' \r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\nEND\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NDA.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nNDAID = .nda_id->text\r\nif NDAID then\r\n if rowexists( 'NDA', NDAID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'NDA*':NDAID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this NDA first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a NDA present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NDW_MAIN.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP_2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NDW_MAIN_TEST.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/NOTES.MENU.FILE.EXIT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rowexists, send_event\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n Void = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend else\r\n return 1\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/ORDER.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nOrderNo = .order_no->text\r\nif OrderNo then\r\n if rowexists( 'ORDER', OrderNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'ORDER*':OrderNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this order first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have an order present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this PSN first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a PSN present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/PROD_SPEC_BACKUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this PSN first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a PSN present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/PROD_SPEC_JCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this PSN first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a PSN present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/PROD_SPEC_JRO.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this PSN first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a PSN present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/PROD_SPEC_SCAN.MENU.PRINT.PRINT_SCANNED_IMAGE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function print_scanned_image\r\n\r\nBMP = .bitmap_1->bitmap\r\nVoid = print_scanned_image( BMP )\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/QUARTZ_TC_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nTCNO = .tc_no->text\r\nif TCNO then\r\n if rowexists( 'QUARTZ_TC_LOG', TCNO ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUARTZ_TC_LOG*':TCNO:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this record first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/QUARTZ_WAND_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nWandLogNO = .wand_log_no->text\r\nif WandLogNO then\r\n if rowexists( 'QUARTZ_WAND_LOG', WandLogNO ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUARTZ_WAND_LOG*':WandLogNO:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this record first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/QUOTE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nQuoteNo = .quote_no->text\r\nif QuoteNo then\r\n if rowexists( 'QUOTE', QuoteNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUOTE*':QuoteNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this quote first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a quote present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/QUOTE_OLD.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nQuoteNo = .quote_no->text\r\nif QuoteNo then\r\n if rowexists( 'QUOTE', QuoteNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUOTE*':QuoteNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this quote first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a quote present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/QUOTE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nQuoteNo = .quote_no->text\r\nif QuoteNo then\r\n if rowexists( 'QUOTE_SRL', QuoteNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUOTE_SRL*':QuoteNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this quote first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a quote present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS.MENU.PRINT.CUSTOMER_RDS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, security_check, test\r\ndeclare function set_printer\r\ndeclare subroutine security_err_msg, print_cust_rds\r\n\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Print$ ) then\r\n\r\n\tCurId = .rds_no->text\r\n\tIds = CurId\r\n\r\n\tif Ids <> '' then\r\n\t \r\n\t print_cust_rds( Ids, '', '' )\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'You must have a Run Data Sheet present.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n security_err_msg( 'RDS', Print$ )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS.MENU.PRINT.FACTORY_LABELS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function fieldcount, msg, print_cleanroom_labels_thermal, security_check, test\r\ndeclare function set_printer\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Print$ ) then\r\n\tQbfList = get_property( @window, 'QBFLIST' )\r\n\tCurId = .rds_no->text\r\n\tif QbfList then\r\n\t Ids = QbfList\r\n\tend else\r\n\t Ids = CurId\r\n\tend\r\n\t\r\n\tif Ids <> '' then\r\n\t Void = print_cleanroom_labels_thermal( Ids )\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'You must have a Run Data Sheet present.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n security_err_msg( 'RDS', Print$ )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box, NextKey\r\nDECLARE SUBROUTINE obj_AppWindow\r\n\r\n$insert msg_equates\r\n\r\nRdsNo = .rds_no->text\r\nif RdsNo then\r\n if rowexists( 'RDS', RdsNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n \r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'RDS':@FM:RdsNo)\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this run data sheet first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a run data sheet present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS.MENU.UNLOAD%002FLOAD_EXTRA.SIGNATURE_INFO.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nVoid = set_property( @window, '@ExSigWrite', 0 )\r\nOrigExSigInfo = get_property( @window, '@ExSigInfo' )\r\nReturnVal = dialog_box( 'RDS_UNLOAD_LOAD_EX', @window, OrigExSigInfo )\r\nif ReturnVal <> 'CANCEL' and ( ReturnVal <> OrigExSigInfo ) then\r\n Void = set_property( @window, '@ExSigInfo', ReturnVal )\r\n Void = set_property( @window, '@ExSigWrite', 1 )\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_POST_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1\r\n"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.SSI_STANDARDS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nValsToSend = .ssi_standards->array\r\nRetVal = dialog_box( 'RDS_SSI_STDS', @window, ValsToSend )\r\nif RetVal <> 'CANCEL' then\r\n .ssi_standards->array = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nValToSend = .thick_ovr_avg->text\r\nRetVal = dialog_box( 'RDS_THICK_AVG', @window, ValToSend )\r\nif RetVal <> 'CANCEL' then\r\n .thick_ovr_avg->text = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.SSI_STANDARDS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nValsToSend = .ssi_standards->array\r\nRetVal = dialog_box( 'RDS_SSI_STDS', @window, ValsToSend )\r\nif RetVal <> 'CANCEL' then\r\n .ssi_standards->array = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nValToSend = .thick_ovr_avg->text\r\nRetVal = dialog_box( 'RDS_THICK_AVG', @window, ValToSend )\r\nif RetVal <> 'CANCEL' then\r\n .thick_ovr_avg->text = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_SRP.MENU.PRINT.PRINT_SRP.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function print_srp\r\n\r\nVoid = set_property( @window, '@ProfileNum', ProfileNum )\r\nRDSId = get_property( @window, '@RDSID' )\r\nBMP = .bitmap_1->bitmap\r\nVoid = print_srp( BMP )\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.REJECT_ACCOUNTABILITY.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\nRdsNo = .rds_no->text\r\nRejCols = 'LSL_PRE_EPI_REJ/LSL_POST_EPI_REJ/CUST_PRE_EPI_REJ/CUST_POST_EPI_REJ'\r\nRejAcctPos = '1,5,9,13/2,6,10,14/3,7,11,15/4,8,12,16'\r\nRejFields = 'L_PRE_REJ_CNT/L_POST_REJ_CNT/C_PRE_REJ_CNT/C_POST_REJ_CNT'\r\nconvert '/' to @fm in RejCols\r\nconvert '/' to @fm in RejAcctPos\r\nconvert ',' to @vm in RejAcctPos\r\nconvert '/' to @fm in RejFields\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_REJ_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .lsl_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'LSL_PRE_EPI_REJ'\r\nend\r\nif .lsl_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'LSL_POST_EPI_REJ'\r\nend\r\nif .cust_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'CUST_PRE_EPI_REJ'\r\nend\r\nif .cust_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'CUST_POST_EPI_REJ'\r\nend\r\nif Display then\r\n\tOverRide<Pdisplay$> = Display\r\n\tRejCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif RejCol then\r\n\t locate RejCol in RejCols using @fm setting Fpos then\r\n\t RejField = RejFields<Fpos>\r\n \tCurRej = get_property( @window:'.':RejCols<Fpos>, 'TEXT' )+0\r\n\t\t RejectInfo = .reject_info->array\r\n\t\t ParamToPass = RejCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldRej = RejectInfo<RejAcctPos<Fpos,2>>\r\n\t HoldLoss = RejectInfo<RejAcctPos<Fpos,1>>\r\n\t HoldAc = RejectInfo<RejAcctPos<Fpos,3>>\r\n\t HoldNCR = RejectInfo<RejAcctPos<Fpos,4>>\t \r\n\t HoldAll = HoldRej:HoldLoss:HoldAc:HoldNCR\r\n\t\t ParamToPass := '*':CurRej\r\n\t\t ParamToPass := '*':HoldRej\r\n\t\t ParamToPass := '*':HoldLoss\r\n\t\t ParamToPass := '*':HoldAc\r\n\t\t ParamToPass := '*':HoldNCR\r\n \t ParamToPass := '*':RdsNo\r\n\t\t ParamToPass := '*':RejField\r\n NCRMustSave = get_property( @window, '@NCRMustSave' ) \r\n\t\t RetVal = dialog_box( 'RDS_REJECTS', @window, ParamToPass:char(245):NCRMustSave )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t NCRChg = field( RetVal, char(245), 2 )\r\n * NEED NCRCHG HERE CAUSE THE USER MAY TRY TO LEAVE THIS RDS WITHOUT SAVING\r\n * THE PURPOSE OF THIS FLAG IS TO FORCE A SAVE IF AN NCR WAS AFFECTED\r\n\t RetVal = field( RetVal, char(245), 1 )\r\n\t\t\t RetRej = RetVal<1>\r\n\t\t\t RetLoss = RetVal<2>\r\n\t\t\t RetAC = RetVal<4>\r\n\t\t\t RetNCR = RetVal<6>\r\n\t\t\t All = RetRej:RetLoss:RetAC:RetNCR\r\n\t\t\t if All <> HoldAll then\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,2>> = RetRej\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,1>> = RetLoss\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,3>> = RetAC\r\n\t\t\t\t RejectInfo<RejAcctPos<Fpos,4>> = RetNCR\r\n\t\t\t\t .reject_info->array = RejectInfo\r\n\t\t\t\t @@window->savewarn = true$\r\n\t\t\t\t if NCRChg = true$ then\r\n\t\t\t\t Void = set_property( @window, '@NCRMustSave', true$ )\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'There are no rejects!'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.TWA.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\n\r\n\r\nTWCols = 'TW_PPLUS/TW_PMINUS/TW_NPLUS/TW_NMINUS/TW_PROD/TW_RECLAIM'\r\nTWAcctPos = '1,7,13,19,25,31,37,43,49/2,8,14,20,26,32,38,44,50/3,9,15,21,27,33,39,45,51/4,10,16,22,28,34,40,46,52/5,11,17,23,29,35,41,47,53/6,12,18,24,30,36,42,48,54'\r\nconvert '/' to @fm in TWCols\r\nconvert '/' to @fm in TWAcctPos\r\nconvert ',' to @vm in TWAcctPos\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_TW_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .tw_pplus->text then\r\n Display<1,-1> = 'P Plus':@tm:'TW_PPLUS'\r\nend\r\nif .tw_pminus->text then\r\n Display<1,-1> = 'P Minus':@tm:'TW_PMINUS'\r\nend\r\nif .tw_nplus->text then\r\n Display<1,-1> = 'N Plus':@tm:'TW_NPLUS'\r\nend\r\nif .tw_nminus->text then\r\n Display<1,-1> = 'N Minus':@tm:'TW_NMINUS'\r\nend\r\nif .tw_prod->text then\r\n Display<1,-1> = 'Product':@tm:'TW_PROD'\r\nend\r\nif .tw_reclaim->text then\r\n Display<1,-1> = 'Reclaim':@tm:'TW_RECLAIM'\r\nend\r\nif Display then\r\n\tOverRide<Pdisplay$> = Display\r\n\tTWCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif TWCol then\r\n\t locate TWCol in TWCols using @fm setting Fpos then\r\n \tCurTW = get_property( @window:'.':TWCols<Fpos>, 'TEXT' )+0\r\n\t\t TWInfo = .tw_info->array\r\n\t\t ParamToPass = TWCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldTW = TWInfo<TWAcctPos<Fpos,2>>\r\n\t HoldCode = TWInfo<TWAcctPos<Fpos,1>>\r\n HoldTool = TWInfo<TWAcctPos<Fpos,3>>\r\n\t HoldThick = TWInfo<TWAcctPos<Fpos,4>>\r\n\t HoldRes = TWInfo<TWAcctPos<Fpos,5>>\r\n\t HoldConc = TWInfo<TWAcctPos<Fpos,6>>\r\n\t HoldStress = TWInfo<TWAcctPos<Fpos,7>>\r\n\t HoldTrans = TWInfo<TWAcctPos<Fpos,8>>\r\n\t HoldRHO = TWInfo<TWAcctPos<Fpos,9>>\r\n\t HoldAll = HoldTW:HoldCode:HoldTool:HoldThick:HoldRes:HoldConc:HoldStress:HoldTrans:HoldRHO\r\n\t ParamToPass := '*':CurTW\r\n\t ParamToPass := '*':HoldTW\r\n\t\t ParamToPass := '*':HoldCode\r\n\t\t ParamToPass := '*':HoldTool\r\n\t\t ParamToPass := '*':HoldThick\r\n\t\t ParamToPass := '*':HoldRes\r\n\t\t ParamToPass := '*':HoldConc\r\n\t\t ParamToPass := '*':HoldStress\r\n\t\t ParamToPass := '*':HoldTrans\t\t \r\n\t\t ParamToPass := '*':HoldRHO\r\n\t\t RetVal = dialog_box( 'RDS_TW', @window, ParamToPass )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t RetCnt = RetVal<1>\r\n\t\t RetCode = RetVal<2>\r\n\t\t RetTool = RetVal<3>\r\n\t\t RetThick = RetVal<4>\r\n\t\t RetRes = RetVal<5>\r\n\t\t RetConc = RetVal<6>\r\n\t\t RetStress = RetVal<7>\r\n\t\t RetTrans = RetVal<8>\r\n\t\t RetRHO = RetVal<9>\r\n\t\t All = RetCnt:RetCode:RetTool:RetThick:RetRes:RetConc:RetStress:RetTrans:RetRHO\r\n\t\t if All <> HoldAll then\r\n\t\t\t TWInfo<TWAcctPos<Fpos,2>> = RetCnt\r\n\t\t\t TWInfo<TWAcctPos<Fpos,1>> = RetCode\r\n\t\t\t TWInfo<TWAcctPos<Fpos,3>> = RetTool\r\n\t\t\t TWInfo<TWAcctPos<Fpos,4>> = RetThick\r\n\t\t\t TWInfo<TWAcctPos<Fpos,5>> = RetRes\r\n\t\t\t TWInfo<TWAcctPos<Fpos,6>> = RetConc\r\n\t\t\t TWInfo<TWAcctPos<Fpos,7>> = RetStress\r\n\t\t\t TWInfo<TWAcctPos<Fpos,8>> = RetTrans\r\n\t\t\t TWInfo<TWAcctPos<Fpos,9>> = RetRHO\r\n\t\t\t .tw_info->array = TWInfo\r\n \t\t\t @@window->savewarn = true$\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'There are no test wafers!'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1"
}
}
}

11
LSL2/OIEVENT/MENU/REACTOR_LOG.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nRLNo = .reactor_log_no->text\r\nif RLNo then\r\n if rowexists( 'REACTOR_LOG', RLNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'REACTOR_LOG*':RLNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Reactor Log record first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a Reactor Log record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/REACTOR_LOG_AREV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nRLNo = .reactor_log_no->text\r\nif RLNo then\r\n if rowexists( 'REACTOR_LOG', RLNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'REACTOR_LOG*':RLNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Reactor Log record first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a Reactor Log record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SCHEDULE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nScheduleNo = .schedule_no->text\r\nif ScheduleNo then\r\n if rowexists( 'SCHEDULE', ScheduleNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SCHEDULE*':ScheduleNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this schedule first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a schedule present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SCHEDULE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nScheduleNo = .schedule_no->text\r\nif ScheduleNo then\r\n if rowexists( 'SCHEDULE_SRL', ScheduleNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SCHEDULE_SRL*':ScheduleNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this schedule first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a schedule present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_CLEAN_HF.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this HF SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a HF Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_CLEAN_HF_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF_AKRION', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF_AKRION*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Akrion HF SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a Akrion HF Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF_ETCH', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF_ETCH*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this HF Etch SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a HF Etch Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF_ETCH_AKRION*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Akrion HF Etch SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have an Akrion HF Etch Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_CLEAN_SC1.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_SC1', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_SC1*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this SC1 SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a SC1 Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_CLEAN_SRD.MENU.SEND_MESSAGE.MESSAMESSAGE_W%002FATTACHMEN.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_SRD', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_SRD*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this SRD SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a SRD SPC Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_EVAL_4PP.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_EVAL_4PP', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_EVAL_4PP*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this 4PP Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a 4PP Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_EVAL_ADE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_EVAL_FTIR', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_EVAL_FTIR*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this FTIR Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a FTIR Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_EVAL_FTIR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_EVAL_FTIR', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_EVAL_FTIR*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this FTIR Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a FTIR Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_REACTOR_PARTICLES.MENU.SEND_MESSAGE.MESSAGE_WA.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_REACTOR_PARTICLES', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_REACTOR_PARTICLES*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Reactor Particle SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a Reactor Particle SPC Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SPC_WAFER_ETCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_WAFER_ETCH', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_WAFER_ETCH*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Wafer Etch SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a Wafer Etch Control entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/SRP_COC_RESULTS.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SRP_COC_RESULTS', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SRP_COC_RESULTS*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this SRP COC entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a SRP COC entry present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/MENU/WAFER_INV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nWafInvNo = .waf_inv_no->text\r\nif WafInvNo then\r\n if rowexists( 'WAFER_INV', WafInvNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'WAFER_INV*':WafInvNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this wafer inventory first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a wafer inventory record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}