fixed material track report, Mona_Services HTTP call, and COC file generation

This commit is contained in:
MESOISYSADMIN 2024-09-05 15:06:46 -07:00 committed by Infineon\StieberD
parent 7762b129af
commit a8a9e91d04
83 changed files with 64689 additions and 47974 deletions

View File

@ -6,7 +6,7 @@
}, },
"body": { "body": {
"record1": { "record1": {
"<1>": "15" "<1>": "60"
} }
} }
} }

View File

@ -25,75 +25,71 @@
"<1,16>": "TENCOR1", "<1,16>": "TENCOR1",
"<1,17>": "TENCOR2", "<1,17>": "TENCOR2",
"<1,18>": "TENCOR3", "<1,18>": "TENCOR3",
"<1,19>": "ASET", "<1,19>": "BIORAD2",
"<1,20>": "BIORAD2", "<1,20>": "BIORAD3",
"<1,21>": "BIORAD3", "<1,21>": "BIORAD4",
"<1,22>": "BIORAD4", "<1,22>": "BIORAD5",
"<1,23>": "BIORAD5", "<1,23>": "CDE4",
"<1,24>": "CDE2", "<1,24>": "CDE5",
"<1,25>": "CDE3", "<1,25>": "CDE6",
"<1,26>": "CDE4", "<1,26>": "HGCV1",
"<1,27>": "CDE5", "<1,27>": "HGCV2",
"<1,28>": "CDE6", "<1,28>": "HGCV3",
"<1,29>": "FLEXUS", "<1,29>": "SPV",
"<1,30>": "HGCV1", "<1,30>": "SRP",
"<1,31>": "HGCV2", "<1,31>": "BELLJAR",
"<1,32>": "HGCV3", "<1,32>": "6INLESS",
"<1,33>": "SPV", "<1,33>": "6INLESS2",
"<1,34>": "SRP", "<1,34>": "6MACTRONIX #1",
"<1,35>": "BELLJAR", "<1,35>": "6MACTRONIX #2",
"<1,36>": "6INLESS", "<1,36>": "6MACTRONIX #3",
"<1,37>": "6INLESS2", "<1,37>": "6MACTRONIX #4",
"<1,38>": "6MACTRONIX #1", "<1,38>": "8INLESS",
"<1,39>": "6MACTRONIX #2", "<1,39>": "8INLESS2",
"<1,40>": "6MACTRONIX #3", "<1,40>": "BAGGER1",
"<1,41>": "6MACTRONIX #4", "<1,41>": "BAGGER2",
"<1,42>": "8INLESS", "<1,42>": "BAGGER3",
"<1,43>": "8INLESS2", "<1,43>": "BAGGER4",
"<1,44>": "BAGGER1", "<1,44>": "6INFF01",
"<1,45>": "BAGGER2", "<1,45>": "6INFF02",
"<1,46>": "BAGGER3", "<1,46>": "6INFF03",
"<1,47>": "BAGGER4", "<1,47>": "6INFF04",
"<1,48>": "6INFF01", "<1,48>": "6INFF05",
"<1,49>": "6INFF02", "<1,49>": "6INFF06",
"<1,50>": "6INFF03", "<1,50>": "6INFF07",
"<1,51>": "6INFF04", "<1,51>": "6INFF08",
"<1,52>": "6INFF05", "<1,52>": "6INFF09",
"<1,53>": "6INFF06", "<1,53>": "6INFF10",
"<1,54>": "6INFF07", "<1,54>": "8INNF01",
"<1,55>": "6INFF08", "<1,55>": "8INNF02",
"<1,56>": "6INFF09", "<1,56>": "8INNF03",
"<1,57>": "6INFF10", "<1,57>": "8INNF04",
"<1,58>": "8INNF01", "<1,58>": "8INNF05",
"<1,59>": "8INNF02", "<1,59>": "8INFF01",
"<1,60>": "8INNF03", "<1,60>": "8INFF02",
"<1,61>": "8INNF04", "<1,61>": "8INFF03",
"<1,62>": "8INNF05", "<1,62>": "8INFF04",
"<1,63>": "8INFF01", "<1,63>": "MACTRONIX #1",
"<1,64>": "8INFF02", "<1,64>": "MACTRONIX #2 ",
"<1,65>": "8INFF03", "<1,65>": "MACTRONIX #3",
"<1,66>": "8INFF04", "<1,66>": "MACTRONIX #4",
"<1,67>": "MACTRONIX #1", "<1,67>": "MACTRONIX #5",
"<1,68>": "MACTRONIX #2 ", "<1,68>": "MACTRONIX #6",
"<1,69>": "MACTRONIX #3", "<1,69>": "MACTRONIX #7",
"<1,70>": "MACTRONIX #4", "<1,70>": "TALL_PITCH1",
"<1,71>": "MACTRONIX #5", "<1,71>": "TALL_PITCH2",
"<1,72>": "MACTRONIX #6", "<1,72>": "TALL_PITCH3",
"<1,73>": "MACTRONIX #7", "<1,73>": "TALL_PITCH4",
"<1,74>": "TALL_PITCH1", "<1,74>": "WC6INCH1",
"<1,75>": "TALL_PITCH2", "<1,75>": "WC6INCH2",
"<1,76>": "TALL_PITCH3", "<1,76>": "WC6INCH3",
"<1,77>": "TALL_PITCH4", "<1,77>": "WC6INCH4",
"<1,78>": "WC6INCH1", "<1,78>": "WC8INCH1",
"<1,79>": "WC6INCH2", "<1,79>": "WC8INCH2",
"<1,80>": "WC6INCH3", "<1,80>": "WC8INCH3",
"<1,81>": "WC6INCH4", "<1,81>": "ELLP01",
"<1,82>": "WC8INCH1", "<1,82>": "LEAKCHK01",
"<1,83>": "WC8INCH2", "<1,83>": "LEAKCHK02"
"<1,84>": "WC8INCH3",
"<1,85>": "ELLP01",
"<1,86>": "LEAKCHK01",
"<1,87>": "LEAKCHK02"
} }
} }
} }

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -258,6 +258,7 @@ RETURN
TxShipments: TxShipments:
* * * * * * * * * * * * * *
CtrlEntID = @WINDOW:'.TX_SHIP' CtrlEntID = @WINDOW:'.TX_SHIP'
ShipNos = Get_Property(@WINDOW:'.TX_SHIP','DEFPROP')<COL$SHIP_NO> ShipNos = Get_Property(@WINDOW:'.TX_SHIP','DEFPROP')<COL$SHIP_NO>

View File

@ -39,6 +39,27 @@ Return Response or ""
// SERVICES // SERVICES
//----------------------------------------------------------------------------- //-----------------------------------------------------------------------------
Service UpdateYesterdayAvail()
Today = 20702
DataArray = ''
//ASM Reactors
ASMRecordKey = 'ASM*': Today
ASMUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'ASM')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', ASMRecordKey, ASMUptimeRec, True$, False$, True$)
//HTR Reactors
HTRRecordKey = 'HTR*': Today
HTRUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'HTR')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', HTRRecordKey, HTRUptimeRec, True$, False$, True$)
//EPP Reactors
EPPRecordKey = 'EPP*': Today
EPPUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'EPP')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', EPPRecordKey, EPPUptimeRec, True$, False$, True$)
//All Reactors
ALLRecordKey = 'ALL*': Today
ALLUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'ALL')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', ALLRecordKey, ALLUptimeRec, True$, False$, True$)
end service
Service GetReactorNumbersByType() Service GetReactorNumbersByType()
Debug Debug
test = Reactor_Services('GetReactorNumbers', 'ASM') test = Reactor_Services('GetReactorNumbers', 'ASM')

View File

@ -159,7 +159,8 @@ Service SendBufferedAverageMetric(MonaResource, MetricName, MetricValue)
retries = retries - 1 retries = retries - 1
response = Httpclient_Services('SendHTTPRequest', 'POST', ApiUrl, 'Content-Type':@VM:'application/json':@FM:'Accept':@VM:'*/*', RequestBodyJson, '', '', False$, True$, '') response = Httpclient_Services('SendHTTPRequest', 'POST', ApiUrl, 'Content-Type':@VM:'application/json':@FM:'Accept':@VM:'*/*', RequestBodyJson, '', '', False$, False$, '')
If response EQ '"Request queued for processing"' then If response EQ '"Request queued for processing"' then
isSuccessful = True$ isSuccessful = True$
end end
@ -167,5 +168,3 @@ Service SendBufferedAverageMetric(MonaResource, MetricName, MetricValue)
end service end service

View File

@ -148,8 +148,9 @@ Event WINDOW.CREATE(CreateParam)
If (AccessLevel EQ -1) OR (AccessLevel EQ '') then If (AccessLevel EQ -1) OR (AccessLevel EQ '') then
Set_Property(@Window, '@CLOSE', 1) Set_Property(@Window, '@CLOSE', 1)
Post_Event(@Window, 'CLOSE')
// This prevents OI from throwing an error message if the cancel button is pressed on the LOGON form. // This prevents OI from throwing an error message if the cancel button is pressed on the LOGON form.
If (Server EQ 'MESST5201') or (Server EQ 'MESST5202') then Utility("DESTROY", "SYSTEM") //If (Server EQ 'MESST5201') or (Server EQ 'MESST5202') then Utility("DESTROY", "SYSTEM")
end end
If AccessLevel GE 0 then If AccessLevel GE 0 then

View File

@ -429,21 +429,23 @@ SAPCreate:
SendReason = 'Initial Tx (Auto)' SendReason = 'Initial Tx (Auto)'
SendDtm = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT') SendDtm = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
SendUser = @User4 SendUser = @User4
TaskID = RTI_Task_Submit('', 'PRINT_SHIPMENT_DEV', ShipNo, ShipRec, 1, True$) * TaskID = RTI_Task_Submit('', 'PRINT_SHIPMENT_DEV', ShipNo, ShipRec, 1, True$)
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Called PRINT_SHIPMENT_DEV Task. TaskID : ' : TaskID, @RM, @FM, '') Print_Shipment_Dev(ShipNo, ShipRec, True$, True$)
If TaskID NE 0 then
Done = False$ * Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Called PRINT_SHIPMENT_DEV Task. TaskID : ' : TaskID, @RM, @FM, '')
TaskResponse = '' * If TaskID NE 0 then
Loop * Done = False$
Status = RTI_Task_Status(TaskID, TaskResponse) * TaskResponse = ''
If (Status EQ 'COMPLETED') OR (Status EQ 'ERROR') then Done = True$ * Loop
Until Done * Status = RTI_Task_Status(TaskID, TaskResponse)
Repeat * If (Status EQ 'COMPLETED') OR (Status EQ 'ERROR') then Done = True$
end else * Until Done
// Track if task id wasn't created at all. * Repeat
end * end else
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Finished PRINT_SHIPMENT_DEV Task. Status : ' : Status, @RM, @FM, '') * // Track if task id wasn't created at all.
* end
* Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Finished PRINT_SHIPMENT_DEV Task. Status : ' : Status, @RM, @FM, '')
StatusError = Get_Status(errCode) StatusError = Get_Status(errCode)
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' GetStatus PRINT_SHIPMENT_DEV Task. ErrCode : ' : ErrCode, @RM, @FM, '') Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' GetStatus PRINT_SHIPMENT_DEV Task. ErrCode : ' : ErrCode, @RM, @FM, '')
If (Index(errCode, 'SHELLEXECUTE', 1)) NE 0 then StatusError = 0 If (Index(errCode, 'SHELLEXECUTE', 1)) NE 0 then StatusError = 0

View File

@ -3287,7 +3287,7 @@ Service CreateReactorProveInOrder(ReactNo, ProveInType)
Retries = Retries - 1 Retries = Retries - 1
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'POST', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', '', '', '') HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'POST', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', False$, False$, '')
If HttpResponseJson NE '' then If HttpResponseJson NE '' then
ObjResponseJson = '' ObjResponseJson = ''
If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then
@ -3340,6 +3340,7 @@ Service CreateReactorProveInOrder(ReactNo, ProveInType)
end service end service
Service GetReactorProveInStatus(ReactNo) Service GetReactorProveInStatus(ReactNo)
Headers = 'Logging DTM' : @FM : 'Machine' : @FM : 'Log' Headers = 'Logging DTM' : @FM : 'Machine' : @FM : 'Log'
ColumnWidths = 20 : @FM : 15 : @FM : 300 ColumnWidths = 20 : @FM : 15 : @FM : 300
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\ReactorProveIn' LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\ReactorProveIn'
@ -3386,7 +3387,7 @@ Service GetReactorProveInStatus(ReactNo)
Retries = Retries - 1 Retries = Retries - 1
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'GET', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', '', '', '') HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'GET', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', False$, False$, '')
If HttpResponseJson NE '' then If HttpResponseJson NE '' then
ObjResponseJson = '' ObjResponseJson = ''
If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then
@ -3488,7 +3489,7 @@ Service CancelReactorProveIn(ReactNo, OrderId)
Retries = Retries - 1 Retries = Retries - 1
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'PUT', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', '', '', '') HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'PUT', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', False$, False$, '')
If HttpResponseJson NE '' then If HttpResponseJson NE '' then
ObjResponseJson = '' ObjResponseJson = ''
If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then

View File

@ -77,7 +77,6 @@ Return Response or ""
//----------------------------------------------------------------------------- //-----------------------------------------------------------------------------
Service CalculateMaterialTrackData(RptColumns, LocationFilter, NoMatFlag) Service CalculateMaterialTrackData(RptColumns, LocationFilter, NoMatFlag)
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS') hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
Lock hSysLists, ServiceKeyID then Lock hSysLists, ServiceKeyID then
@ -131,7 +130,7 @@ Service CalculateMaterialTrackData(RptColumns, LocationFilter, NoMatFlag)
PrevReactNo = '' PrevReactNo = ''
PrevWO = '' PrevWO = ''
SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE ':Today:' BY REACT_NO' SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE "':OCONV(Today, 'DT'):'" BY REACT_NO'
RList(SelectSent,TARGET_ACTIVELIST$,'','','') RList(SelectSent,TARGET_ACTIVELIST$,'','','')
IF Get_Status(errCode) THEN IF Get_Status(errCode) THEN
@ -432,7 +431,7 @@ DETAIL:
WPDAdjusted = Epi_Part_Services('GetAdjustedWafersPerDayScheduler', EpiPartNo, S.React_Type) WPDAdjusted = Epi_Part_Services('GetAdjustedWafersPerDayScheduler', EpiPartNo, S.React_Type)
If WPDAdjusted NE '' then If WPDAdjusted NE '' then
CPDAdjusted = SRP_Math('CEILING', (WPDAdjusted/25) ) CPDAdjusted = SRP_Math('CEILING', (WPDAdjusted/25) )
CassInCR = DCount(KittCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',') CassInCR = DCount(KitCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',')
CassNeeded = CassInCR - CPDAdjusted CassNeeded = CassInCR - CPDAdjusted
end end
end end

View File

@ -149,7 +149,7 @@ Service GetMaterialTrackReport(RptColumns, LocationFilter, NoMatFlag)
PrevReactNo = '' PrevReactNo = ''
PrevWO = '' PrevWO = ''
SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE ':Today:' BY REACT_NO' SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE "':OCONV(Today, 'DT'):'" BY REACT_NO'
RList(SelectSent,TARGET_ACTIVELIST$,'','','') RList(SelectSent,TARGET_ACTIVELIST$,'','','')
IF Get_Status(errCode) THEN IF Get_Status(errCode) THEN
@ -461,7 +461,7 @@ DETAIL:
WPDAdjusted = Epi_Part_Services('GetAdjustedWafersPerDayScheduler', EpiPartNo, S.React_Type) WPDAdjusted = Epi_Part_Services('GetAdjustedWafersPerDayScheduler', EpiPartNo, S.React_Type)
If WPDAdjusted NE '' then If WPDAdjusted NE '' then
CPDAdjusted = SRP_Math('CEILING', (WPDAdjusted/25) ) CPDAdjusted = SRP_Math('CEILING', (WPDAdjusted/25) )
CassInCR = DCount(KittCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',') CassInCR = DCount(KitCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',')
CassNeeded = CassInCR - CPDAdjusted CassNeeded = CassInCR - CPDAdjusted
end end
end end

View File

@ -86,13 +86,13 @@ Testing:
* DebuggerOn = Get_Env(AttributeList) * DebuggerOn = Get_Env(AttributeList)
* DebuggerOn = AttributeList * DebuggerOn = AttributeList
TickCount = GetTickCount() * TickCount = GetTickCount()
Response = 'Hello World2! Ticks: ':TickCount:' Debugger is off' * Response = 'Hello World2! Ticks: ':TickCount:' Debugger is off'
OSWrite Response on 'D:\tmp\HelloWorld2.txt' * OSWrite Response on 'D:\tmp\HelloWorld2.txt'
*
* Response = Param1
Response = Param1 return
return Response
* Testing: * Testing:
* *

View File

@ -94,29 +94,32 @@ $Insert PS_EQUATES
Main: Main:
debug debug
TaskID = RTI_Task_Submit('', 'TEST_DANIEL2', '', '', '')
* Slots = Xlate('WM_OUT', '173011*1*2', 'SLOT_WAFER_ID', 'X') * Slots = Xlate('WM_OUT', '173011*1*2', 'SLOT_WAFER_ID', 'X')
* RDSNos = Xlate('WM_OUT', '173011*1*3', 'RDS', 'X') * RDSNos = Xlate('WM_OUT', '173011*1*3', 'RDS', 'X')
WONo = 172637 * WONo = 172637
WOStep = 1 * WOStep = 1
CassNo = 30 * CassNo = 30
WMOKey = WONo:'*':WOStep:'*':CassNo * WMOKey = WONo:'*':WOStep:'*':CassNo
WOMatKey = WONo:'*':CassNo * WOMatKey = WONo:'*':CassNo
NCRNos = Xlate('WM_OUT', WMOKey, 'SLOT_NCR', 'X') * NCRNos = Xlate('WM_OUT', WMOKey, 'SLOT_NCR', 'X')
NumScrapSlots = 0 * NumScrapSlots = 0
If NCRNos NE '' then * If NCRNos NE '' then
For each NCRNo in NCRNos using @VM * For each NCRNo in NCRNos using @VM
NumScrapSlots += (NCRNo NE '') * NumScrapSlots += (NCRNo NE '')
Next NCRNo * Next NCRNo
end * end
*
SchedCassQty = XLATE('WO_MAT', WOMatKey, 'WAFER_QTY', 'X') * SchedCassQty = XLATE('WO_MAT', WOMatKey, 'WAFER_QTY', 'X')
*
If NumScrapSlots GE SchedCassQty then * If NumScrapSlots GE SchedCassQty then
FullBoxReject = True$ * FullBoxReject = True$
end else * end else
FullBoxReject = False$ * FullBoxReject = False$
end * end
* Version = '' * Version = ''
* GetEngineVersion(Version) * GetEngineVersion(Version)
@ -124,7 +127,7 @@ Main:
* rv = RTI_Xlate_Controller('EnableCache') * rv = RTI_Xlate_Controller('EnableCache')
* end * end
return return TaskID
* Path = Drive() * Path = Drive()
* UNCPath = SRP_Path("PathToUnc", Path) * UNCPath = SRP_Path("PathToUnc", Path)

View File

@ -20,7 +20,7 @@ Declare function NDW_Messaging_Processor_Events, RetStack, SRP_Encode, SRP_De
Declare subroutine Error_Services, Messaging_Services, Memory_Services, SRP_JSON, SRP_COM Declare subroutine Error_Services, Messaging_Services, Memory_Services, SRP_JSON, SRP_COM
Declare subroutine NDW_Messaging_Processor_Events, SRP_Stopwatch, Send_Event, Send_Message, RTP27 Declare subroutine NDW_Messaging_Processor_Events, SRP_Stopwatch, Send_Event, Send_Message, RTP27
Equ Server.Name$ to 'MESTSA01EC' Equ Server.Name$ to 'MESSA01EC'
Equ Server.Port$ to 25000 Equ Server.Port$ to 25000
Equ Server.KeepAlive$ to 60000 Equ Server.KeepAlive$ to 60000
Equ MessageProcessor$ to 'NDW_MESSAGING_PROCESSOR' Equ MessageProcessor$ to 'NDW_MESSAGING_PROCESSOR'