| Jan Eliasen 2004-02-08, 8:39 am |
| On Thu, 27 Nov 2003 01:22:21 -0800, "Finn Eide" <finn.eide@r5.com>
wrote:
Also, I think the problem could be that when two channels are using
the DB-lookup functionds at the same time. This can possibly cause
some sort of problem in Oracle, and one of them then fails.
>I an using a scripting functoid to retrieve information
>from an Oracle DB via BizTalk Utilities Adapter for
>Databases. Sometimes it works OK and sometimes not. I get
>an errormessage saying"An error occurred in BizTalk
>Server.
>
> Details:
> ------------------------------
> [0x0139] The XML document could not be translated. The
>map specified by
>reference "http://KBNN14/BizTalkServerRepository/Maps/Test
> Akzo Nobel/XML_to_EDIFACT_INVOIC.xml" failed. Verify
>that the map is up to date.
>
> [0x0140] The following channel configuration setting is
>not valid: "Test Akzo Nobel to Malermesterne - XML to
>EDIFACT - Invoic"
>
> [0x013f] The server could not finish processing the
>document.
>
> [0x1730] Suspended Queue ID: "{B0400F0D-3578-4F87-BA35-
>71D1989CBA9C}"
>
> [0x013f] The server could not finish processing the
>document.
>
>
>Attached the content of the scripting funtoid:
>Function SelectFakturabelop( FAKTNR, SERIE_ID )
> Dim OracleConnection
> Dim strConnection
> Dim sqlQuery
> Dim result
> Dim dbTabell
> Dim adStateOpen
> Dim adLockOptimistic
> Dim adOpenKeyset
> Dim adCmdText
> Dim belop
>
> 'ado constants
> adStateOpen = 1
> adLockOptimistic= 3
> adOpenKeyset= 1
> adCmdText = 1
>
> 'result=""
> Set OracleConnection = CreateObject
>("ADODB.Connection")
> Set dbTabell = CreateObject("ADODB.RecordSet")
>
> strConnection = "Provider=OraOLEDB.Oracle.1;Data
>Source=AKZOP;User ID=ifsapp;password=ifsapp;"
>
> if OracleConnection.State = adStateOpen Then
> OracleConnection.Close
> End If
> OracleConnection.Open strConnection
>
> sqlQuery = "SELECT NET_CURR_AMOUNT FROM INVOICE_TAB
>WHERE INVOICE_NO = '" & FAKTNR & "' AND SERIES_ID = '" &
>SERIE_ID & "'"
> if dbTabell.State = adStateOpen Then
> dbTabell.Close
> End If
> dbTabell.Open sqlQuery, strConnection, adOpenKeyset,
>adLockOptimistic, adCmdText
>
> if dbTabell.RecordCount<>"0" then
> belop=Trim(dbTabell("NET_CURR_AMOUNT"))
> end if
> dbTabell.Close
> OracleConnection.Close
> belop = replace(belop,".",",")
> SelectFakturabelop= belop
>End Function
>
>Looking forward to get an response to this.
>
>Regards Finn Eide - finn.eide@r5.com
>
>
--
Jan Eliasen, representing himself and not the company he works for
|