phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed 25 wafer qty limitation to Spectrum label printing

Browse Source
This commit is contained in:
Infineon\Ouellette 2025-02-11 11:20:12 -07:00
parent 25d9ebb6b7
commit 8e66fb16ee
1 changed files with 53 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
LSL2/STPROC/SAP_SERVICES.txt
View File

@ -744,68 +744,59 @@ Service PrintSpectrumLabel(WONo,StepNo,CassNo)
SpectrumDirectory = XLATE('APP_INFO', 'SPECTRUM_FILE_PATH', 1, 'X')
SpectrumExportPath = SpectrumDirectory : SpectrumFileName
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
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';
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
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
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';
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 = '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)
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. SAP Batch number for WOMat Record ' : WoMatKey : ' does not exist.'
@ -1099,3 +1090,4 @@ ClearCursors:
return