pre cutover push
This commit is contained in:
@ -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
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user