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/OMNIEVENT/ANNUAL_CONTRACTS.QUOTE_NUM.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert msg_equates\r\n\r\nListId = 'QUOTE_ID*':@station\r\nQuoteKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif QuoteKey then\r\n * check to see if open for this customer\r\n QuoteRec = xlate( 'QUOTE', QuoteKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if QuoteRec<quote_cust_no$> <> CustNo then\r\n ErrMsg:= 'Quote ':QuoteKey:' is a quote for ':oconv( QuoteRec<quote_cust_no$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n if QuoteRec<quote_status$> <> 'O' then\r\n if ErrMsg then\r\n ErrMsg:= ' and is not OPEN'\r\n end else\r\n ErrMsg:= 'Quote ':QuoteKey:' is not OPEN'\r\n end\r\n WrongStat = true$\r\n end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .quote_num->text = QuoteKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/CAR.PROD_SPEC_ID.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec<prod_spec_cust_id$> <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec<prod_spec_cust_id$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n if ProdSpecRec<prod_spec_status$> <> 'A' then\r\n if ErrMsg then\r\n ErrMsg:= ' and is not Active'\r\n end else\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is not active'\r\n end\r\n WrongStat = true$\r\n end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/CAR.QUOTE_NUM.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert msg_equates\r\n\r\nListId = 'QUOTE_ID*':@station\r\nQuoteKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif QuoteKey then\r\n * check to see if open for this customer\r\n QuoteRec = xlate( 'QUOTE', QuoteKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if QuoteRec<quote_cust_no$> <> CustNo then\r\n ErrMsg:= 'Quote ':QuoteKey:' is a quote for ':oconv( QuoteRec<quote_cust_no$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n *if QuoteRec<quote_status$> <> 'O' then\r\n * if ErrMsg then\r\n * ErrMsg:= ' and is not OPEN'\r\n * end else\r\n * ErrMsg:= 'Quote ':QuoteKey:' is not OPEN'\r\n * end\r\n * WrongStat = true$\r\n *end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .quote_num->text = QuoteKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/ORDER.AC_ID.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert annual_contracts_equ\r\n$insert msg_equates\r\n\r\nListId = 'AC_ID*':@station\r\nACKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ACKey then\r\n * check to see if open for this customer\r\n ACRec = xlate( 'ANNUAL_CONTRACTS', ACKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ACRec<annual_contracts_cust_no$> <> CustNo then\r\n ErrMsg:= 'Annual Contract ':ACKey:' is an Annual Contract for ':oconv( ACRRec<annual_contracts_cust_no$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n if ACRec<annual_contracts_status$> <> 'O' then\r\n if ErrMsg then\r\n ErrMsg:= ' and is not OPEN'\r\n end else\r\n ErrMsg:= 'Annual Contract ':ACKey:' is not OPEN'\r\n end\r\n WrongStat = true$\r\n end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .ac_id->text = ACKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/ORDER.ORDER_DETAIL.json Normal file
View File

File diff suppressed because one or more lines are too long

11
LSL2/OIEVENT/OMNIEVENT/QUOTE.PREV_PSNS.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec<prod_spec_cust_id$> <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec<prod_spec_cust_id$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n \tSelPos = .prev_psns->selpos\r\n \tCol = SelPos<1>\r\n \tRow = SelPos<2>\r\n ColData = get_property( @window:'.PREV_PSNS', 'COLDATA' )\r\n ColData<1,Row> = ProdSpecKey\r\n Void = set_property( @window:'.PREV_PSNS', 'COLDATA', ColData )\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/QUOTE.PROD_SPEC_ID.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec<prod_spec_cust_id$> <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec<prod_spec_cust_id$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/QUOTE_SPEC_INFO.EPI_RECIPE.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert recipe_equ\r\n\r\nListId = 'RECIPE_ID*':@station\r\nRecipeKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif RecipeKey then\r\n .epi_recipe->text = RecipeKey\r\n RecipeName = xlate( 'RECIPE', RecipeKey, recipe_recipe_name$, 'X' )\r\n .epi_recipe_name->text = RecipeName\r\n open 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\n end\r\n record_lock( SysListsTable, 'SysLists', ListId )\r\n delete SysListsTable, ListId else\r\n Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n return 0\r\n end\r\n unlock SysListsTable, ListId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n return 0\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/RDS.WO_VERIFY_VIEW.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 = set_property( @window, '@VerifyViewOmni', 1 )\r\nVoid = rds_comm( 'WO_VERIFY_CHK' )\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/SRP_COC_RESULTS.PROD_SPEC_ID.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg, send_event\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec<prod_spec_cust_id$> <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec<prod_spec_cust_id$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\n\tVoid = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/WO_LOG.PROD_SPEC_ID.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg, send_event\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec<prod_spec_cust_id$> <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec<prod_spec_cust_id$>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = ErrMsg\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\n\tVoid = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/WO_MAST_SCHED.SCHED_INFO.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert msg_equates\r\n$insert wo_log_equ\r\n$insert company_equ\r\n\r\nListId = 'WO_LOG_ID*':@station\r\nWoLogKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif WoLogKey then\r\n Selpos = .sched_info->selpos\r\n Column = SelPos<1>\r\n Row = SelPos<2>\r\n ColData = get_property( @window:'.SCHED_INFO', 'COLDATA' )\r\n CustNo = xlate( 'WO_LOG', WoLogKey, wo_log_cust_no$, 'X' )\r\n ValToRet = WoLogKey:' ':xlate( 'COMPANY', CustNo, 'ABBREV_OR_CO_NAME', 'X' ) \r\n ColData<1,Row> = ValToRet\r\n Void = set_property( @window:'.SCHED_INFO', 'COLDATA', ColData )\r\n open 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\n end\r\n record_lock( SysListsTable, 'SysLists', ListId )\r\n delete SysListsTable, ListId else\r\n Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n return 0\r\n end\r\n unlock SysListsTable, ListId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n return 0\r\n end\r\nend\r\nRETURN 0"
}
}
}