| nirsiva 2005-09-25, 7:49 am |
| I am getting this error in Biztalk Server 2002. I am using AIC written
in VB.net .. I am using this code for the purpose of sending a
acknowledgement to the vendor. I was using the %tracking _id % which
had ACK_{xxxxxxxx}.edi But the vendor wanted the {} to be removed. I
using the follwoing code.. registered the dll and used in the
destation port.
Imports System
Imports System.Xml
Imports System.EnterpriseServices
Imports System.Runtime.InteropServices
Imports Microsoft.BizTalk.BTSComponentsLib
Public Class AICBTSAppIntVB
Inherits ServicedComponent
Implements IBTSAppIntegration
Function ProcessMessage(ByVal strDocument As String) As String _
Implements IBTSAppIntegration.ProcessMessage
'strDocument = "ISA*00* *00* *01*123456
*01*123456781
*050916*1500*U*00400*000032192*0*P*> ~GS*FA*0123456783*0123456781*20050916*15
00*32192*X*003040~ST*997*0001~AK1*PO*287
01~AK2*850*0001~AK5*A~AK9*A*1*1*1~SE*6*0
001~GE*1*32192~IEA*1*000032192~"
Dim str As String
Dim strtext As String
Try
' space = " "
strtext = strtext.Concat(Now().ToString("u"))
' MsgBox(strtext)
'strText = strText.Concat(strText, "VendorId:" &
strSource & " " & cust & " " & space & "" & "
PONumber: " & strMessage)
'WriteIntoFile(strSource, strText)
Dim filesys, testfile
Dim strStdPath
Dim strFileName
Dim todaydate
Dim strFullFileName
Dim cstStrDPath
Dim filename As String
filesys = CreateObject("Scripting.FileSystemObject")
cstStrDPath = "D:\JWOD.com\GSAA 997\"
strStdPath = cstStrDPath
'todaydate = Now()
'todaydate = replace(todaydate,"/","-")
filename = Replace(strtext, ":", "-")
filename = Replace(filename, " ", "_")
strFileName = "ACK_997_" & filename & ".edi"
strFullFileName = strStdPath & strFileName
testfile = filesys.CreateTextFile(strFullFileName, True)
testfile.Write(strDocument)
' testfile.Close()
Return strDocument
Catch e As Exception
MessageBox.Show(e.Message)
End Try
End Function
BUt I am getting the following error
An error occurred in BizTalk Server.
Details:
------------------------------
[0x80131509] It is invalid to show a modal dialog or form when the
application is not running in UserInteractive mode. Specify the
ServiceNotification or DefaultDesktopOnly style to display a
notification from a service application.
[0x0159] The server encountered a transport error while processing
the messaging port "GSAA_ACK_EDI_FS", which uses a transport
component with a ProgID of "ComCustomGSAA.AICBTSAppIntVB".
[0x012b] A transmission attempt failed.
Help is appreciated
Thanks
|