Emerson Exchange 365

Error Number : -1577058273 (A200001F)

I am creating new e_em_dt detail for 20 Operating parameters from the existing faceplate (e_em_dt) and added Operating parameters( 11- 20) group in next tab and modified script for Parameter description (which need to show on Data entry popup) as below but workspace application error is found in Runmode.

Please see below script and Error screenshot:

Newly added**************************************

lngI1 = 0
For intUpvalue = 1 To 20   ( Previous value is 10)
If intUpvalue < 20 Then  ( Previous value is 10)
strUpvalue = "0" & Trim(Str(intUpvalue))
Else
strUpvalue = Trim(Str(intUpvalue))

End If

strReqPath = frsreadvalue(ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & ".A_$REF", lerror)

strReqFormat = frsreadvalue(ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & "_FORMAT.A_CV", lerror2)



If lerror = 0 And lerror2 = 0 Then

iTmp = InStr(strReqPath, "^")
iLen = Len(strReqPath)
If iTmp > 0 Then strReqPath = Mid(strReqPath, iTmp + 1, iLen)

strTemp = frsreadvalue(ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & "_D.A_CV", lerror)
If lngerror1 = 0 Then
If StrType = "OP" And strTemp <> "" Then
objDescOP(lngI1).Source = ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & "_D.A_CV"
objValOP(lngI1).Source = ps_nm.CurrentValue & strReqPath & "." & strReqFormat & "_CV"
objValOP(lngI1).Description = strTemp
objValOPVw(lngI1).Source = ps_nm.CurrentValue & strReqPath & "." & strReqFormat & "_CV"
objValOPVw(lngI1).Description = strTemp
End If

Else
MsgBox "Parameter " & strTemp & " Not Found"

End If
End If
lngI1 = lngI1 + 1
Next intUpvalue

'Newly added**************************************

Run mode Error :

• DeltaV Operate
• Control
• DeltaV #DCS
• DeltaV 12.3
• iFix #Operate #Graphics
• DeltaV

Kunal

• 22 Aug 2022 4:18 PM
• Cancel

2 Replies

• Matt Stoner

  

  • 22 Aug 2022 6:15 PM

  If the parameter you are trying to read doesn't exist, you will get this error. You need to add [_NOT_CONFIG_OK_] into the path so you don't get these errors when you are doing displays like this.
  
  Here is example update for the lines in your script you should update that might solve your problem:
  
  strReqPath = frsreadvalue(ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & ".A_$REF[_NOT_CONFIG_OK_]", lerror)
  strReqFormat = frsreadvalue(ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & "_FORMAT.A_CV[_NOT_CONFIG_OK_]", lerror2)
  strTemp = frsreadvalue(ps_nm.CurrentValue & "/PRM/" & StrType & strUpvalue & "_D.A_CV[_NOT_CONFIG_OK_]", lerror)
  
  It may be better to temporarily Enable VBE Access for Workspace (if it isn't already) so you could switch to debug mode and do some troubleshooting of the logic. This is configured under Workspace UserPreferences and the Environment Protection and NOT having the Disable VBE Access checked. You could have another parameter causing this error message.
  
  You may also have to make the tab not visible if the parameters doen't exist so an example of this shown below where you Operating 11-20 would be set to invisible.
  
  tabstripname.Tabs(1).Visible = False
  
  You may want to put a counter or flag in you logic so you can set in your logic and just use conditional like "dOPMax > 10" instead of just False in the above logic.

  • Cancel
• Kunal

  

  • 23 Aug 2022 1:47 PM

  In reply to Matt Stoner:

  Thanks for reply. I will try same.

  • Cancel