added remaining LSL2 entities

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

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.SPEC_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .spec_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.spec_info->selpos = SelPos\r\nRETURN 1"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function msg, send_message, fieldcount\r\ndeclare subroutine extract_si_keys\r\n$insert invoice_equ\r\n$insert logical\r\n$insert wafer_inv_equ\r\n$insert msg_equates\r\nequ WIPos$ to 6\r\n\r\nSelPos = .order_detail->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nOrderLine = CurRow\r\n* IF THIS ORDER LINE ITEM HAS BEEN INVOICED THEN DO NOT ALLOW DELETION OF THE ROW\r\nOrderNo = .order_no->text\r\nInvoiced = false$\r\nextract_si_keys(\"INVOICE\", \"ORDER_NO\", OrderNo, KeyList)\r\nKCnt = fieldcount( KeyList, @vm )\r\nfor i = 1 to KCnt\r\n ThisInv = KeyList<1,i>\r\n OrderLineItems = xlate( 'INVOICE', ThisInv, invoice_order_line_item$, 'X' )\r\n locate OrderLine in OrderLineItems using @vm setting LPos then\r\n Invoiced = true$\r\n end\r\n until Invoiced\r\nnext i\r\nif Invoiced then\r\n Void = send_message( @window:'.ORDER_DETAIL', 'INSERT', RowNum, RowData )\r\n SelPos = .order_detail->selpos\r\n SelPos<2> = SelPos<2> - 1\r\n .order_detail->selpos = SelPos\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This order line item has already been inoviced...deletion is not allowed.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend \r\nWaferInvId = RowData<1,6>\r\nWIRec = xlate( 'WAFER_INV', WaferInvId, '', 'X' )\r\nOrdNo = .order_no->text\r\nWIOrdNos = WIRec<wafer_inv_order_no$>\r\nlocate OrdNo in WIOrdNos using @vm setting FPos then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You will need to manually adjust wafer inventory# ':WaferInvId\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 1"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message, msg\r\n$insert msg_equates\r\n\r\nCurrPos = @CtrlEntId->selpos\r\nCurrCol = CurrPos<1>\r\nCurrRow = CurrPos<2>\r\n\r\nIF RowData<1,4> NE '' THEN\r\n\t* Row is signed\r\n\tVoid = Send_Message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n\tCurrRow = CurrRow - 1\r\n\t@CtrlEntId->selpos = CurrCol:@FM:CurrRow\r\n\tRETURN 0\t\r\nEND\r\n\r\nMsgInfo = ''\r\nMsgInfo<mtext$> = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo<mtype$> = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n\r\n\r\n/*\r\ndeclare function send_message, msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo<mtext$> = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo<mtype$> = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n*/"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message, msg\r\n$insert msg_equates\r\n\r\nCurrPos = @CtrlEntId->selpos\r\nCurrCol = CurrPos<1>\r\nCurrRow = CurrPos<2>\r\n\r\nIF RowData<1,4> NE '' THEN\r\n\t* Row is signed\r\n\tVoid = Send_Message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n\tCurrRow = CurrRow - 1\r\n\t@CtrlEntId->selpos = CurrCol:@FM:CurrRow\r\n\tRETURN 0\t\r\nEND\r\n\r\nMsgInfo = ''\r\nMsgInfo<mtext$> = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo<mtype$> = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n\r\n\r\n/*\r\ndeclare function send_message, msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo<mtext$> = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo<mtype$> = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n*/"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function msg, send_message\r\n$insert ncr_equ\r\n$insert logical\r\n\r\nNCRId = RowData<1,6>\r\nRejCnt = RowData<1,1>\r\nRejLoss = RowData<1,2>\r\nRejAC = RowData<1,4>\r\n*if xlate( 'NCR', NCRId, ncr_status$, 'X' ) = 'O' then\r\n NCRsToDelete = get_property( @window, '@NCRsToDelete' )\r\n RejCntToDelete = get_property( @window, '@RejCntToDelete' )\r\n RejLossToDelete = get_property( @window, '@RejLossToDelete' )\r\n RejACToDelete = get_property( @window, '@RejACToDelete' )\r\n *\r\n NCRsToDelete<-1> = NCRId\r\n RejCntToDelete<-1> = RejCnt\r\n RejLossToDelete<-1> = RejLoss\r\n RejACToDelete<-1> = RejAC\r\n Void = set_property( @window, '@NCRsToDelete', NCRsToDelete )\r\n Void = set_property( @window, '@RejCntToDelete', RejCntToDelete )\r\n Void = set_property( @window, '@RejLossToDelete', RejLossToDelete )\r\n Void = set_property( @window, '@RejACToDelete', RejACToDelete )\r\n *\r\n*end else\r\n * TELL USER THAT THEY CANNOT DELETE\r\n* MsgInfo = ''\r\n* MsgInfo<mtext$> = 'The corresponding NCR ':NCRId:' for this accounted reject has already been signed. You cannot delete this.'\r\n* MsgInfo<micon$> = 'H'\r\n* Void = msg( '', MsgInfo )\r\n* Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData ) \r\n*end\r\nRETURN 1"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.REACT_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .react_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.react_info->selpos = SelPos\r\nRETURN 0"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = delete( Record, schedule_wafers_in$, RowNum, 0 )\r\nRecord = delete( Record, schedule_run_order_num$, RowNum, 0 )\r\nRecord = delete( Record, schedule_rds_ids$, RowNum, 0 )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_WAF_IN', 'CALCULATE', 1 )\r\nRETURN 0"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = delete( Record, schedule_srl_ship_qty$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_date$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_invoice_ids$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_via$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_tracking_no$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_setup_charge$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_rejects$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_unprocessed$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_price$, RowNum, 0 )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOTAL_SHIP_QTY', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_NOT_SHIP_QTY', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_SHIP_AMOUNT', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_REJ', 'CALCULATE', 1 )\r\nRETURN 0"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = delete( Record, schedule_srl_sched_qty$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_sched_date$, RowNum, 0 )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_SCHED', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOT_NOT_SCHED', 'CALCULATE', 1 )\r\nRETURN 0"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.SCHED_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .sched_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.sched_info->selpos = SelPos\r\nRETURN 0"
}
}
}

View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.SCHED_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .sched_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.sched_info->selpos = SelPos\r\nRETURN 0"
}
}
}