Egalware/CMS-MTConn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

messo try-catch in parte vb

Browse Source
This commit is contained in:
Samuele E. Locatelli
2017-09-05 16:08:55 +02:00
parent eb48e13f80
commit 57cd46744b
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MTC_Adapter/.vs/MTC_Adapter/v15/sqlite3/storage.ide
BIN
View File
Binary file not shown.
MTC_Adapter/CMSCncLib/CNC/CNC.FANUC/CNC.FANUC.vb
+10 -6
View File
@@ -1673,13 +1673,17 @@ Namespace CNC
If Is30Series Then
' leggo tutto!!!
nReturn = Focas1.cnc_rdalmmsg2(nLibHandle(nPathIdx), -1, numAllarmi, allData)
Try
' leggo tutto!!!
nReturn = Focas1.cnc_rdalmmsg2(nLibHandle(nPathIdx), -1, numAllarmi, allData)
If F_CheckRetError_Cnc(nReturn, "cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CMS_CncLib") Then
Throw New CmsNcException("ERR cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CMS_CncLib")
Return New Focas1.ODBALMMSG2
End If
If F_CheckRetError_Cnc(nReturn, "cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CMS_CncLib") Then
Throw New CmsNcException("ERR cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CMS_CncLib")
Return New Focas1.ODBALMMSG2
End If
Catch ex As Exception
End Try
End If