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

pre cutover push

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

63
LSL2/STPROC/EXPORT_MU_INV.txt
View File

@ -64,30 +64,29 @@ Options = ''
Flag = ''
* If @USERNAME EQ 'MESFISYSADMIN' then
SRP_Stopwatch('Reset')
SRP_Stopwatch('Start', 'SlowIndex')
SearchString = 'MAKEUP_BOX':@VM:'1':@FM
TempWOMatKeys = ''
Btree.Extract(SearchString, 'WO_MAT', WOMatDict, TempWOMatKeys, Options, Flag)
WOMatKeys = ''
For Each WOMatKey in TempWOMatKeys using @VM
CurrStatus = Xlate('WO_MAT', WOMatKey, 'CURR_STATUS', 'X')
If CurrStatus EQ 'RTU' then WOMatKeys := WOMatKey : @VM
Next WOMatKey
WOMatKeys[-1, 1] = ''
SRP_Stopwatch('Reset')
SRP_Stopwatch('Start', 'SlowIndex')
SearchString = 'MAKEUP_BOX':@VM:'1':@FM
TempWOMatKeys = ''
Btree.Extract(SearchString, 'WO_MAT', WOMatDict, TempWOMatKeys, Options, Flag)
WOMatKeys = ''
For Each WOMatKey in TempWOMatKeys using @VM
CurrStatus = Xlate('WO_MAT', WOMatKey, 'CURR_STATUS', 'X')
If CurrStatus EQ 'RTU' then WOMatKeys := WOMatKey : @VM
Next WOMatKey
WOMatKeys[-1, 1] = ''
SearchString = 'MAKEUP_BOX':@VM:'1':@FM
Btree.Extract(SearchString, 'WM_OUT', WMOutDict, TempWMOutKeys, Options, Flag)
WMOutKeys = ''
For Each WMOutKey in TempWMOutKeys using @VM
CurrStatus = Xlate('WM_OUT', WMOutKey, 'CURR_STATUS', 'X')
If CurrStatus EQ 'RTU' then WMOutKeys := WMOutKey : @VM
Next WMOutKey
WMOutKeys[-1, 1] = ''
NumWOMatKeys = DCount(WOMatKeys, @VM)
NumWMOutKeys = DCount(WMOutKeys, @VM)
SRP_Stopwatch('Stop', 'SlowIndex')
SearchString = 'MAKEUP_BOX':@VM:'1':@FM
Btree.Extract(SearchString, 'WM_OUT', WMOutDict, TempWMOutKeys, Options, Flag)
WMOutKeys = ''
For Each WMOutKey in TempWMOutKeys using @VM
CurrStatus = Xlate('WM_OUT', WMOutKey, 'CURR_STATUS', 'X')
If CurrStatus EQ 'RTU' then WMOutKeys := WMOutKey : @VM
Next WMOutKey
WMOutKeys[-1, 1] = ''
NumWOMatKeys = DCount(WOMatKeys, @VM)
NumWMOutKeys = DCount(WMOutKeys, @VM)
SRP_Stopwatch('Stop', 'SlowIndex')
wmoCnt = COUNT(WMOutKeys,@VM) + (WMOutKeys NE '')
@ -101,7 +100,7 @@ FOR I = 1 TO wmoCnt
LOCATE WOMatKey IN WOMatKeys USING @VM SETTING Pos ELSE
WOMatKeys = INSERT(WOMatKeys,1,Pos,0,WOMatKey)
END
NEXT I
CONVERT @VM TO @FM IN WOMatKeys
@ -155,7 +154,7 @@ LOOP
READNEXT WOMatKey ELSE Done = 1
UNTIL Done
READ WOMatRec FROM WOMatTable,WOMatKey THEN
SAPBatchNo = WOMatRec<WO_MAT_SAP_BATCH_NO$>
SAPCassID = XLATE('WO_MAT',WOMatKey,'CASS_ID_SAP','X')
@ -181,7 +180,7 @@ UNTIL Done
WaferSize = XLATE('PROD_SPEC', ShipPSN, 'SUB_WAFER_SIZE', 'X')<1,1> ;* Added -dkk per eng request 10/13/14
SigProfile = WOMatRec<WO_MAT_SIG_PROFILE$>
profCnt = COUNT(SigProfile,@VM) + (SigProfile NE '')
*debug
qaIdx = Index(WOMatRec<WO_MAT_INV_LOCATION$>, 'QA', 1)
@ -203,7 +202,7 @@ UNTIL Done
DataLine<1,COL$WAFER_INCHES> = WaferSize ;* Added -dkk per eng request 10/13/14
DataLine<1,COL$FINAL_QA_DTM> = OCONV(FinalQADtm,'DT4/^S')
DataLine<1,COL$CURR_LOCATION_DESC> = MULoc ;* Added -dkk per quality request 3/30/15
ExportText<ExportLine> = DataLine
ExportLine += 1
@ -220,7 +219,7 @@ SWAP @FM WITH CRLF$ IN ExportText
CALL Set_Property('CLIPBOARD', 'TEXT', ExportText)
If @USER4 EQ 'DANIEL_ST' then
OSWrite ExportText to 'D:\FITemp\MUInv.csv'
OSWrite ExportText to 'D:\FITemp\MUInv.csv'
end
ExportColCnt = 12 ;* Orginally 11 Changed -dkk per quality request 3/30/15
@ -231,11 +230,11 @@ ExportColCnt = 12 ;* Orginally 11 Changed -dkk per quality request 3/30/15
xlApp = OleCreateInstance("excel.Application")
IF OleStatus() THEN
ErrorMsg = 'Excel failed to start.':CRLF$:CRLF$
ErrorMsg := 'The data from this export is on your clipboard and can be pasted into Excel on your local machine using <Ctrl><V> .'
ErrMsg(ErrorMsg)
RETURN
@ -249,7 +248,7 @@ xlWorkBook = OleCallMethod(xlWorkBooks,'Add')
Now = Time()
LOOP
CALL Yield()
CALL Yield()
WHILE Time() EQ Now
REPEAT
@ -271,7 +270,7 @@ font = OleGetProperty(range,'Font')
OlePutProperty(font,'FontStyle','Bold')
OlePutProperty(font,'UnderLine',xlUnderlineStyleSingle)
column = OleGetProperty(xlActiveSheet,'Columns',FirstColumn:':':LastColumn)
void = OleCallMethod(column,'AutoFit')