Share
ReportHi
I am running in visual studio 2015 the following procedure:
Sub CrearProyecto1(ByVal Proyecto As String)
Dim iSolerr As Short
Dim iOSerr As Long
Dim screen As String
SIVApp = Nothing
screen = "PAPRJ00.exe"
Try
SIVApp = StartAppAndAutomate(screen.ToString(), iSolerr, iOSerr)
SIVApp.[New]("Project")
SIVApp.Controls("cproject").Value = Trim(Proyecto)
SIVApp.Controls("cmanager1").Value = "00"
SIVApp.Controls("cgl_subacct").Value = "00000"
SIVApp.Controls("cproject_desc").Value = "Expediente Nro " + Trim(Proyecto)
SIVApp.Controls("cpjt_entity").Value = "O"
SIVApp.Controls("cpjt_entity_desc").Value = "Actividad 1"
SIVApp.Save()
Catch ex As System.Runtime.InteropServices.COMException
Dim lErrNumber As Integer
If ex.Source.Contains("Solomon") = True Or ex.ErrorCode - vbObjectError > 0 Then
If ex.Source.Contains("Solomon") = True Or ex.ErrorCode - vbObjectError > 0 Then
lErrNumber = ex.ErrorCode - vbObjectError
Else
lErrNumber = ex.ErrorCode
End If
End If
Select Case lErrNumber
Case 2048 'non-fatal exception '(Message event has just fired before this)
iSolerr = Val(Err.Description)
Select Case iSolerr
Case 9 'Not found 'fix problem or give up
Case 15 'value was too small 'fix problem or give up
Case 23 'Wrong GL Period
MessageBox.Show("Error 23, Periodo en GL errado")
End Select
Case 7500 'Already logged in
Case 7501 'System Database Name > 20 Characters
Case 7502 'Wrong System Database Server Database Name
Case 7503 'Incorrect Company ID, User ID, or Password
Case 7504 'System Database Does Not Exist
Case 7505 'Interactive User ID <> Client Login
Case Else
MsgBox(ex.Message, MsgBoxStyle.Exclamation, String.Format("{0} Error {1}", ex.Source, lErrNumber.ToString()))
End Select
Catch ex As Exception
'do work
'MsgBox(ex.Message, MsgBoxStyle.Exclamation, String.Format("{0} Exception", ex.Source))
Finally
Dim lErrNumber As Integer
'SIVApp.Visible = "True"
'MessageBox.Show("Now Quiting application screen " + screen.ToString())
Try
SIVApp.Cancel()
SIVApp.Quit()
SIVApp.Dispose()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, String.Format("{0} Error {1}", ex.Source, lErrNumber.ToString()))
Finally
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
'MessageBox.Show("Done with Automation of screen " + screen.ToString())
End Try
End Try
End Sub
but when executing it shows me the following error: Object reference not established as an instance of an object
this routine works in visual studio 2008 and in sl 7.x, but in visual studio 2015 in sl 2018.x no
regards
*This post is locked for comments
All responses (
Answers (
291,280
