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

added call to clean array to prevent null values from truncating the list

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-23 15:54:30 -07:00
parent b159e1aa27
commit 8f233705a2
1 changed files with 3 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
LSL2/STPROC/WORK_ORDER_SERVICES.txt
View File

@ -938,29 +938,13 @@ Service PrintLabels(WONo)
Msg(@WINDOW,MsgUp) Msg(@WINDOW,MsgUp)
end ELSE end ELSE
RDSNos = XLATE('WO_STEP',WOSteps<1,1>,WO_STEP_RDS_KEY$,'X') WOMatKeys = Xlate('WO_LOG', WONo, WO_LOG_WO_MAT_KEY$, 'X')
end RDSNos = Xlate('WO_MAT', WOMatKeys, WO_MAT_RDS_NO$, 'X')
If MemberOf(@USER4,'OI_ADMIN') then
WOMatKeys = XLATE('WO_LOG',WONo,WO_LOG_WO_MAT_KEY$,'X')
CONVERT @VM TO @FM IN WOMatKeys
AllRDSNos = XLATE('WO_MAT',WOMatKeys,WO_MAT_RDS_NO$,'X')
RDSNos = ''
LOOP
CassRDSNos = AllRDSNos[1,@FM]
AllRDSNos[1,COL2()] = ''
UNTIL CassRdsNos = ''
RDSNos := CassRdsNos<1,WOStep>:@VM
REPEAT
RDSNos[-1,1] = ''
end end
If INDEX(RDSNos,@VM,1) then If INDEX(RDSNos,@VM,1) then
TypeOver = '' TypeOver = ''
RDSNos = SRP_Array('Clean', RDSNos, 'TrimAndMakeUnique', @VM)
TypeOver<PDISPLAY$> = RDSNos TypeOver<PDISPLAY$> = RDSNos
TypeOver<PFIELD$> = 2 TypeOver<PFIELD$> = 2
TypeOver<PTYPE$> = 'K' TypeOver<PTYPE$> = 'K'
@ -976,9 +960,7 @@ Service PrintLabels(WONo)
ErrMsg('No RDS Numbers Selected or Work Order Not Yet Released to Production.') ErrMsg('No RDS Numbers Selected or Work Order Not Yet Released to Production.')
end ELSE end ELSE
CONVERT @VM TO @FM IN RDSKeys CONVERT @VM TO @FM IN RDSKeys
Print_Cass_Labels(RDSKeys,MultiStepFlag) ;* Updated labels with Akrion Bar Codes Print_Cass_Labels(RDSKeys,MultiStepFlag) ;* Updated labels with Akrion Bar Codes
end end
end end
end end