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

updated material track row generation to store the start dtm of a work order so that the json response can be sorted corrected

Browse Source
This commit is contained in:
Infineon\StieberD
2025-05-02 12:37:58 -07:00
parent 3c95ec88d8
commit 5c18f7ccd2
2 changed files with 24 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
LSL2/STPROC/REPORT_SERVICES.txt
View File

@ -604,7 +604,7 @@ Service GetMaterialTrackJSON()
ErrCode = '' ErrCode = ''
KeyList = '' KeyList = ''
Query = 'SELECT MATERIAL_REPORT BY REACT_NO BY WO_NO' Query = 'SELECT MATERIAL_REPORT BY REACT_NO BY START_DTM'
RList(Query, TARGET_ACTIVELIST$, '', '', '') RList(Query, TARGET_ACTIVELIST$, '', '', '')
If Not(Get_Status(ErrCode)) then If Not(Get_Status(ErrCode)) then
EOF = False$ EOF = False$
@ -1529,24 +1529,25 @@ Service GenerateMaterialTrackRows()
* Calculate Value(s) For Column(s) * Calculate Value(s) For Column(s)
S.ATID = {@ID} S.StartDtm = {START_DTM}
I.ATID = S.ATID S.ATID = {@ID}
S.ReactNo = {REACT_NO} I.ATID = S.ATID
I.ReactNo = S.ReactNo S.ReactNo = {REACT_NO}
S.WoNo = {WO_NO} I.ReactNo = S.ReactNo
I.WoNo = S.WoNo S.WoNo = {WO_NO}
S.SubPartNo = XLATE('WO_LOG', S.WoNo, 'ORD_SUB_PART_NO', 'X') I.WoNo = S.WoNo
I.SubPartNo = S.SubPartNo S.SubPartNo = XLATE('WO_LOG', S.WoNo, 'ORD_SUB_PART_NO', 'X')
S.EpiPartNo = XLATE('WO_LOG', S.WoNo, WO_LOG_EPI_PART_NO$, 'X') I.SubPartNo = S.SubPartNo
I.EpiPartNo = S.EpiPartNo S.EpiPartNo = XLATE('WO_LOG', S.WoNo, WO_LOG_EPI_PART_NO$, 'X')
S.WO_Qty = Xlate('WO_LOG', {WO_NO}, WO_LOG_WO_QTY$, 'X') I.EpiPartNo = S.EpiPartNo
I.WO_Qty = S.WO_Qty S.WO_Qty = Xlate('WO_LOG', {WO_NO}, WO_LOG_WO_QTY$, 'X')
S.WO_RX_Qty = Xlate('WO_LOG', {WO_NO}, 'RX_QTY', 'X') I.WO_Qty = S.WO_Qty
I.WO_RX_Qty = S.WO_RX_Qty S.WO_RX_Qty = Xlate('WO_LOG', {WO_NO}, 'RX_QTY', 'X')
S.WO_UnRel_QTY = Xlate('WO_LOG', {WO_NO}, 'UNREL_QTY', 'X') I.WO_RX_Qty = S.WO_RX_Qty
I.WO_UnRel_QTY = S.WO_UnRel_QTY S.WO_UnRel_QTY = Xlate('WO_LOG', {WO_NO}, 'UNREL_QTY', 'X')
S.REACT_TYPE = Xlate('WO_LOG', {WO_NO}, 'REACT_TYPE', 'X') I.WO_UnRel_QTY = S.WO_UnRel_QTY
S.ProdOrdNo = Xlate('WO_LOG', {WO_NO}, 'PROD_ORD_NO', 'X') S.REACT_TYPE = Xlate('WO_LOG', {WO_NO}, 'REACT_TYPE', 'X')
S.ProdOrdNo = Xlate('WO_LOG', {WO_NO}, 'PROD_ORD_NO', 'X')
Locate 'SR*KTR]' in LocationFilter using @VM setting vPos then Locate 'SR*KTR]' in LocationFilter using @VM setting vPos then
KitData = Location_Services('GetLocationCassInfo', S.WONo, 'SR*KTR]') KitData = Location_Services('GetLocationCassInfo', S.WONo, 'SR*KTR]')
@ -1737,6 +1738,7 @@ Service GenerateMaterialTrackRows()
AllReportData<RowIndex, 13> = KitCassList ; // Skip field 14, it is populated by users AllReportData<RowIndex, 13> = KitCassList ; // Skip field 14, it is populated by users
AllReportData<RowIndex, 15> = PTICassList AllReportData<RowIndex, 15> = PTICassList
AllReportData<RowIndex, 16> = LoadedCassList ; // Skip field 17, it is populated by users AllReportData<RowIndex, 16> = LoadedCassList ; // Skip field 17, it is populated by users
AllReportData<RowIndex, 18> = S.StartDtm
end end
end else end else

2
LSL2/STPROCINS/MATERIAL_REPORT_EQUATES.txt
View File

@ -24,5 +24,7 @@ compile insert MATERIAL_REPORT_EQUATES
equ MATERIAL_REPORT.PTI_RO$ to 15 equ MATERIAL_REPORT.PTI_RO$ to 15
equ MATERIAL_REPORT.LOAD_RO$ to 16 equ MATERIAL_REPORT.LOAD_RO$ to 16
equ MATERIAL_REPORT.COMMENTS$ to 17 equ MATERIAL_REPORT.COMMENTS$ to 17
equ MATERIAL_REPORT.START_DTM$ to 18
#endif #endif