minor modifications
This commit is contained in:
@ -454,7 +454,7 @@ Service GetLatestDefectCINoByRDSId(RDSNo)
|
||||
Btree.Extract(SrchString, 'CLEAN_INSP', @DICT, CIList, Option, Flag)
|
||||
If CIList NE '' then
|
||||
for each CleanInspKey in CIList using @VM
|
||||
ThisCIInspDtm = Database_Services('ReadDataColumn', 'CLEAN_INSP', CleanInspKey, CLEAN_INSP_SCAN_VER_SIG_DTM$ , True$, 0, False$)
|
||||
ThisCIInspDtm = Database_Services('ReadDataColumn', 'CLEAN_INSP', CleanInspKey, CLEAN_INSP_SCAN_SIG$ , True$, 0, False$)<1,1>
|
||||
ThisCIInspDefAvg = Database_Services('ReadDataColumn', 'CLEAN_INSP', CleanInspKey, CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$ , True$, 0, False$)
|
||||
If ThisCIInspDtm GT LatestInspDtm AND ThisCIInspDefAvg NE '' then
|
||||
LatestCINo = CleanInspKey
|
||||
@ -469,3 +469,4 @@ end service
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
|
Reference in New Issue
Block a user