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

Addressing an OI10 Edittable issue with calculated Resistivity values in RDS_TEST

Browse Source
This commit is contained in:
Infineon\Ouellette
2024-10-25 15:39:27 -07:00
parent ddf0171841
commit a5d133e20a
2 changed files with 81 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
LSL2/STPROC/COMM_RDS_TEST.txt
View File

@ -36,7 +36,7 @@ $INSERT SPC_QUEUE_EQUATES
EQU CRLF$ TO \0D0A\
EQU SHEETRHO_SPEC_UNITS$ TO 'ê/Ü'
EQU SHEETRHO_SPEC_UNITS$ TO 'ê/Ü'
EQU RES_SPEC_UNITS$ TO \EA2D636D\
EQU TAB$ TO CHAR(9)
@ -388,6 +388,20 @@ END ELSE
END
END
Savewarn = Get_Property(@Window, 'SAVEWARN')
If Savewarn EQ False$ then
ThisMetNo = Get_Property(@Window: '.MET_NO', 'TEXT')
ThisMetRec = Database_Services('ReadDataRow', 'RDS_TEST', ThisMetNo)
ResReadings = obj_RDS_Test('Resistivity',ThisMetNo:@RM:ThisMetRec:@RM:1)
for i = 1 to DCount(ResReadings, @VM)
ResReading = ResReadings<1,i>
ResReadings<1,i> = OConv(ResReading,'MD4Z')
Next i
Set_Property(@Window : '.RES_READINGS', 'ARRAY', ResReadings)
end
Set_Property(Ctrls,Props,Vals)
@ -943,7 +957,16 @@ IF ReadingCnt > 0 THEN
*END
END
Post_Event(@WINDOW:'.RES_READINGS','CALCULATE',1)
//Post_Event(@WINDOW:'.RES_READINGS','CALCULATE',1)
UpdatedRec = Get_Property(@Window, 'ATRECORD')
ThisMetNo = Get_Property(@Window: '.MET_NO', 'TEXT')
ResReadings = obj_RDS_Test('Resistivity',ThisMetNo:@RM:UpdatedRec:@RM:1)
for i = 1 to DCount(ResReadings, @VM)
ResReading = ResReadings<1,i>
ResReadings<1,i> = OConv(ResReading,'MD4Z')
Next i
Set_Property(@Window : '.RES_READINGS', 'ARRAY', ResReadings)
Send_Event(@WINDOW:'.GROWTH_RATE','CALCULATE')
@ -966,7 +989,18 @@ END ELSE
end
END
Send_Event(@WINDOW:'.RES_READINGS','CALCULATE')
//Problem line here. Removed 10/25/2024
//Send_Event(@WINDOW:'.RES_READINGS','CALCULATE')
UpdatedRec = Get_Property(@Window, 'ATRECORD')
ThisMetNo = Get_Property(@Window: '.MET_NO', 'TEXT')
ResReadings = obj_RDS_Test('Resistivity',ThisMetNo:@RM:UpdatedRec:@RM:1)
for i = 1 to DCount(ResReadings, @VM)
ResReading = ResReadings<1,i>
ResReadings<1,i> = OConv(ResReading,'MD4Z')
Next i
Set_Property(@Window : '.RES_READINGS', 'ARRAY', ResReadings)
Readings = Get_Property(CurrCtrl,'ARRAY')
Conversion = Get_Property(CurrCtrl,'CONV')<1,1,1>
@ -1052,7 +1086,7 @@ RETURN
* * * * * * *
ReadingsIns:
* * * * * * *
return
RowIndex = Parm1
CurrCtrl = Get_Property(@WINDOW,'FOCUS')
@ -2341,3 +2375,4 @@ RETURN