Hi I am useing VB.NET and the set keyword has been removed, maybe it is time I tried a version of my code in VB6 to see if it is in fact a .NET with UniObjects problem.
-----Original Message----- From: Kryka, Richard [mailto:[EMAIL PROTECTED] Sent: 19 May 2004 16:12 To: [EMAIL PROTECTED] Subject: RE: [U2] Error 30107 when calling SubRoutines from UniObjects I'm certainly not a VB expert, but I think the failure may have to do with this line: Dim cu As Object = m_uniobject.Subroutine("MVACNOT", 4) Here is a snippet of code from our application: Public Sub Load_Detail() 'Declarations Dim DetailObj As Object Dim ResultArray As Object Const TOTAL_PARAM = 11 'Main Set ResultArray = CreateObject(UV_DARRAY_OBJECT) Set DetailObj = uvSession.subroutine("VBDISTRIBUTEAR", TOTAL_PARAM) DetailObj.SetArg 0, txtCredId.Text DetailObj.SetArg 1, txtInvoiceNo.Text DetailObj.SetArg 2, cmbRfId.Text If OptWriteOff.Value = True Then DetailObj.SetArg 3, "WriteOff" Else DetailObj.SetArg 3, "Receipt" End If DetailObj.SetArg 4, strAcctClient DetailObj.SetArg 5, intAcctDebt DetailObj.Call ResultArray = DetailObj.GetArg(6) 'store array in this field for later use txtDetailAccept.Text = DetailObj.GetArg(6) strDistAmount = DetailObj.GetArg(9) strDetailBalance = DetailObj.GetArg(10) intDetailCount = ResultArray.Count End Sub Dick Kryka Director of Applications CCCS of Greater Denver, Inc. Paragon Financial Services 303-632-2226 [EMAIL PROTECTED] -----Original Message----- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 8:12 AM To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to "" but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = "") As String ' if Connection failed exit function If Not Connect() Then MsgBox("No Connection", MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine("MVACNOT", 4) If m_uniobject.Error <> 0 Then MsgBox("Error: (" & m_uniobject.Error & ") " + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, "") If cu.Error <> 0 Then MsgBox("Error: (" & cu.Error & ") " + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, "ZA4") If cu.Error <> 0 Then MsgBox("Error: (" & cu.Error & ") " + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error <> 0 Then MsgBox("Error: (" & cu.Error & ") " + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, "OW") If cu.Error <> 0 Then MsgBox("Error: (" & cu.Error & ") " + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error <> 0 Then MsgBox("Error: (" & cu.Error & ") " + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox("Args: " & cu.GetArg(0) & "," & cu.GetArg(1) & "," & cu.GetArg(2) & "," & cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error <> 0 Then MsgBox(ex.Message + vbCrLf + "UniVerse : Error: (" & cu.Error & ") " + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return "" End Try ' Return Result Return "Args: " & cu.GetArg(0) & "," & cu.GetArg(1) & "," & cu.GetArg(2) & "," & cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR("MVACNOT",@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- ------- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users ------- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- ------- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
