fixed material track report, Mona_Services HTTP call, and COC file generation
This commit is contained in:
parent
7762b129af
commit
a8a9e91d04
@ -6,7 +6,7 @@
|
|||||||
},
|
},
|
||||||
"body": {
|
"body": {
|
||||||
"record1": {
|
"record1": {
|
||||||
"<1>": "15"
|
"<1>": "60"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
@ -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
@ -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>
|
||||||
|
@ -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')
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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:
|
||||||
*
|
*
|
||||||
|
@ -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)
|
||||||
|
@ -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'
|
||||||
|
Loading…
x
Reference in New Issue
Block a user