pre cutover push

This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions

View File

@ -48,12 +48,20 @@ Declare function SRP_Array, SAP_Services, Memory_Services, Database_Services,
Declare function SRP_Math, SRP_Hash, Obj_WO_Mat, Obj_Tables, GaN_Services, Environment_Services, Logging_Services
Declare function Date_Services, SRP_Datetime
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WM_OUT'
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\Packaging\AddCassComp'
LogDate = Oconv(Date(), 'D4/')
LogTime = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Function call log.csv'
Headers = 'Logging DTM' : @FM : 'WOMatKey' : @FM : 'SAPBatchNo' : @FM : 'SAPTxDTM' : @FM : 'RejectCassFlag' : @FM : 'Call Stack'
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Cass Comp Call Log.csv'
Headers = 'Logging DTM' : @FM : 'WOMatKey' : @FM : 'SAPBatchNo' : @FM : 'SAPTxDTM' : @FM : 'RejectCassFlag' : @FM : 'Message'
objLogAddCassComp = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\Shipping\PrintSpectrumLabel'
LogDate = Oconv(Date(), 'D4/')
LogTime = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Spectrum Label Printing.csv'
Headers = 'Logging DTM' : @FM : 'WOMatKey' : @FM : 'Message'
objLogPrintSpectrumLabel = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
GoToService else
@ -80,19 +88,6 @@ Service AddCassCompTransaction(WOMatKey)
SAPTxDTM = WOMatRec<WO_MAT_SAP_TX_DTM$>
RejectCass = (SAPBatchNo[-1, 1] EQ 'R')
// Log the service call
CallStack = RetStack()
Swap @FM with CRLF$ in CallStack
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = SAPBatchNo
LogData<4> = SAPTxDTM
LogData<5> = RejectCass
LogData<6> = CRLF$:CallStack
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
If ( ( (SAPBatchNo EQ '') and (SAPTxDTM EQ '') ) or ( (RejectCass EQ True$) and (SAPTxDTM EQ '') ) ) then
WONo = WOMatKey[1,'*']
CassNo = WOMatKey[COL2()+1,'*']
@ -172,11 +167,7 @@ Service AddCassCompTransaction(WOMatKey)
CurrDTM = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS'),'DT')
END
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
If Error_Services('NoError') then
WOMatRec<WO_MAT_SAP_TX_DTM$> = CurrDTM
Database_Services('WriteDataRow', 'WO_MAT', WOmatKey, WOMatRec, True$, False$, True$)
end
obj_Post_Log('Create','WO_MAT':@RM:WOMatKey:@RM:WO_MAT_SAP_TX_DTM$:@RM:CurrDTM)
* Section for Local generation of SAP_BATCH_NO removed 8/10/2011 JCH
atParms = 'CASS_COMP':@RM
@ -198,8 +189,25 @@ Service AddCassCompTransaction(WOMatKey)
Swap @RM with @FM in Copy
obj_SAP('AddTransaction', atParms)
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = SAPBatchNo
LogData<4> = SAPTxDTM
LogData<5> = RejectCass
LogData<6> = 'Sent Cass Comp Transaction'
Logging_Services('AppendLog', objLogAddCassComp, LogData, @RM, @FM)
end else
Error_Services('Add', 'SAP Batch No already exists for this lot.')
ErrMsg = 'SAP Batch No already exists for this lot.'
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = SAPBatchNo
LogData<4> = SAPTxDTM
LogData<5> = RejectCass
LogData<6> = ErrMsg
Logging_Services('AppendLog', objLogAddCassComp, LogData, @RM, @FM)
Error_Services('Add', ErrMsg)
end
end service
@ -461,8 +469,8 @@ Service SendOutboundTransactions()
If Get_Status(errCode) then ErrLog(errCode)
end
end
DateTimeStamp = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTHS')
OSWrite DateTimeStamp to Environment_Services('GetApplicationRootPath') : '\LogFiles\SAP Outbound Service\Heartbeat.txt'
HeartbeatDTM = SRP_Datetime('Now')
Database_Services('WriteDataRow', 'APP_INFO', 'SAP_HEARTBEAT_DTM', HeartbeatDTM, True$, False%, True$)
Unlock hSysLists, ServiceKeyID else Null
end
@ -619,7 +627,6 @@ end service
Service PrintSpectrumLabel(WONo,StepNo,CassNo)
EQU SIK_FIXED_DATA$ To 1
EQU SIK_P_BNR$ TO 2
EQU SIK_GRVP$ TO 3
@ -643,47 +650,105 @@ Service PrintSpectrumLabel(WONo,StepNo,CassNo)
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey)
SAPBatchNo = WOMatRec<WO_MAT_SAP_BATCH_NO$>
IF SAPBatchNo NE '' then
CurrTime = Time()
WOLogKey = WONo
EpiPartNo = XLATE('WO_LOG', WOLogKey, WO_LOG_EPI_PART_NO$, 'X')
ZPVMMatNum = XLATE('EPI_PART', EpiPartNo, EPI_PART_VARM_PART_NO$, 'X')
ZPVMPartDesc = XLATE('EPI_PART', EpiPartNo, EPI_PART_EPI_PART_DESC$ , 'X')
SAPYieldQty = XLATE('WO_MAT', WoMatKey, 'SAP_YIELD', 'X')
ReshipEpiPartNo = XLATE('WO_MAT', WoMatKey, WO_MAT_RESHIP_CUST_EPI_PART_NO$, 'X')
IF ReshipEpiPartNo EQ '' then
ZPVMMatNum = XLATE('EPI_PART', EpiPartNo, EPI_PART_VARM_PART_NO$, 'X')
ZPVMPartDesc = XLATE('EPI_PART', EpiPartNo, EPI_PART_EPI_PART_DESC$ , 'X')
end else
ZPVMMatNum = XLATE('EPI_PART', ReshipEpiPartNo, EPI_PART_VARM_PART_NO$, 'X')
ZPVMPartDesc = XLATE('EPI_PART', ReshipEpiPartNo, EPI_PART_EPI_PART_DESC$ , 'X')
end
ShipDate = XLATE('WO_MAT', WoMatKey, WO_MAT_SAP_TX_DTM$, 'X')
ShipYear = SRP_Datetime('Year', ShipDate)
ShipYear = ShipYear[3,4]
ShipWW = Date_Services('GetWeekNum', ShipDate)
ShipDtCd = ShipYear : ShipWW
SpectrumFileName = SAPBatchNo : '.sik'
SpectrumFileName = SAPBatchNo : '-' :CurrTime : '.sik'
SpectrumDirectory = XLATE('APP_INFO', 'SPECTRUM_FILE_PATH', 1, 'X')
SpectrumExportPath = SpectrumDirectory : SpectrumFileName
SikData = ''
SikData<SIK_FIXED_DATA$> = 'POKE EBSOFTLD.SYSTEM POOL'
SikData<SIK_P_BNR$> = 'P_BNR' : Tab$ : ZPVMMatNum
SikData<SIK_GRVP$> = 'GRVP' : Tab$ : 1; *Default
SikData<SIK_I_GRVP$> = 'I_GRVP' : Tab$ : 25; *Default
SikData<SIK_M_QUANTITY$> = 'M_QUANTITY' : Tab$ : SAPYieldQty
SikData<SIK_M_QUANTITY1$> = 'M_QUANTITY1' : Tab$ : SAPYieldQty
SikData<SIK_M_LOTNO$> = 'M_LOTNO' : Tab$ : SAPBatchNo
SikData<SIK_DATECODE$> = 'M_DATECODE' : Tab$ : ShipDtCd; *Need to send a datecode in format of YYWW, so need to find a way to generate a correct work week. Something already exists I'm sure
SikData<SIK_LOTCOUNT$> = 'LOTCOUNT' : Tab$ : 1; *Default
SikData<SIK_SERIALNO$> = 'SERIALNO' : Tab$ : 00001; *Default
SikData<SIK_M_CODE$> = 'M_COD' : Tab$ : 'US'; *Default
SikData<SIK_M_COA$> = 'M_COA' : Tab$ : ''
SikData<SIK_P_TEXT2_3$> = 'P_TEXT2_3' : Tab$ : ZPVMPartDesc;
SikData<SIK_P_SALES_PRODUCT$> = 'P_SALES_PRODUCT' : Tab$ : ZPVMPartDesc;
SikData<SIK_BLANK_LINE$> = '';*Intentionally left blank. Example file has a blank line here.
SikData<SIK_FIXED_DATA_2$> = 'EXECUTE EBSOFTLD.SYSTEM PRINT'
SikData<SIK_LABEL_ID$> = 'LABEL_ID' : Tab$ : 'BPL_CYSC'; *Default
SikData<SIK_PRT_PORT$> = 'PRT_PORT' : Tab$ : 'AUCPL01SMALLLABEL'; *This is the printer. This will change once a permanent printer is assigned to us.
swap @FM with CRLF$ in SikData
OSWrite SikData to SpectrumExportPath
CurrWaferCnt = XLATE('WO_MAT', WoMatKey, 'CURR_WFR_CNT', 'X')
If CurrWaferCnt EQ 25 then
SikData = ''
SikData<SIK_FIXED_DATA$> = 'POKE EBSOFTLD.SYSTEM POOL'
SikData<SIK_P_BNR$> = 'P_BNR' : Tab$ : ZPVMMatNum
SikData<SIK_GRVP$> = 'GRVP' : Tab$ : 1; *Default
SikData<SIK_I_GRVP$> = 'I_GRVP' : Tab$ : CurrWaferCnt
SikData<SIK_M_QUANTITY$> = 'M_QUANTITY' : Tab$ : CurrWaferCnt
SikData<SIK_M_QUANTITY1$> = 'M_QUANTITY1' : Tab$ : CurrWaferCnt
SikData<SIK_M_LOTNO$> = 'M_LOTNO' : Tab$ : SAPBatchNo
SikData<SIK_DATECODE$> = 'M_DATECODE' : Tab$ : ShipDtCd; *Need to send a datecode in format of YYWW, so need to find a way to generate a correct work week. Something already exists I'm sure
SikData<SIK_LOTCOUNT$> = 'LOTCOUNT' : Tab$ : 1; *Default
SikData<SIK_SERIALNO$> = 'SERIALNO' : Tab$ : 00001; *Default
SikData<SIK_M_CODE$> = 'M_COD' : Tab$ : 'US'; *Default
SikData<SIK_M_COA$> = 'M_COA' : Tab$ : ''
SikData<SIK_P_TEXT2_3$> = 'P_TEXT2_3' : Tab$ : ZPVMPartDesc;
SikData<SIK_P_SALES_PRODUCT$> = 'P_SALES_PRODUCT' : Tab$ : ZPVMPartDesc;
SikData<SIK_BLANK_LINE$> = '';*Intentionally left blank. Example file has a blank line here.
SikData<SIK_FIXED_DATA_2$> = 'EXECUTE EBSOFTLD.SYSTEM PRINT'
SikData<SIK_LABEL_ID$> = 'LABEL_ID' : Tab$ : 'BPL_CYSC'; *Default
SikData<SIK_PRT_PORT$> = 'PRT_PORT' : Tab$ : 'MESOPCNOVP604LBL003'; *This is the printer. This will change once a permanent printer is assigned to us.
swap @FM with CRLF$ in SikData
Status() = 0
OSWrite SikData to SpectrumExportPath
StatusCode = Status()
If StatusCode EQ 0 then
SuccessMsg = 'Successfully sent sik file to the spectrum system.'
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = SuccessMsg
Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
end else
ErrorMsg = ''
Begin Case
Case StatusCode EQ 1
ErrorMsg = 'Bad OS filename.'
Case StatusCode EQ 2
ErrorMsg = 'Access denied by operating system.'
Case StatusCode EQ 3
ErrorMsg = 'Disk or directory full.'
Case StatusCode EQ 4
ErrorMsg = 'File does not exist.'
Case StatusCode EQ 5
ErrorMsg = 'Unknown error.'
Case StatusCode EQ 6
ErrorMsg = 'Attempt to write to a read-only file.'
End Case
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = ErrorMsg
Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
Error_Services('Add', ErrorMsg)
end
end else
ErrorMsg = 'Error in ':Service:' service. Lot has less than 25 wafers. Cannot ship less than 25 wafers.'
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = ErrorMsg
Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
Error_Services('Add', ErrorMsg)
end
end else
ErrorMsg = 'Error in ':Service:' service. SAP Batch number for WOMat Record ' : WoMatKey : ' does not exist.'
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = ErrorMsg
Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
Error_Services('Add', ErrorMsg)
end
end else
ErrorMsg = 'Error in ':Service:' service. WO No or Cass No not provided.'
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = WOMatKey
LogData<3> = ErrorMsg
Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
Error_Services('Add', ErrorMsg)
end
end service
@ -960,5 +1025,3 @@ ClearCursors:
return