|
Home > Archive > BizTalk Server Applications Integration > July 2004 > BTS2002 Lightweight AIC
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
BTS2002 Lightweight AIC
|
|
| JTnospam@verizon.net 2004-07-09, 3:32 pm |
| Hi,
Can anyone tell me exactly what is sent from BTS to an AIC that implements IBTSAppIntegration_ProcessMessage(byVal strDoc AS String)? I understand that the parameter strDoc is "a string that contains the document." If, for example, I am trying to make a
lterations to an EDI message in text format, and I use a channel to send the message to an AIC, does strDoc then contain a string of the text in the EDI message? If so, how do I manipulate that string? Can I load it directly into a stringbuilder? The r
eason I ask is that I am trying to implement such an AIC and getting out what looks like binary encoded values as a result.
My code is below. I would greatly appreciate any help with this.
JT
Function ProcessMessage(ByVal strDocument As String) As String _
Implements IBTSAppIntegration.ProcessMessage
Try
Return TrimST(strDocument)
Catch
End Try
End Function
Private Function TrimST(ByRef strDoc As String) As String
Try
'Dump string into a string builder with initial capacity 'of 100000 characters
Dim fileContent As New StringBuilder(stRead.ReadToEnd, 100000)
stRead.Close()
'Modify the string within the Stringbuilder
'by getting rid of the extraneous ST segment
With fileContent
If .Length > 0 Then
.Replace("ST*837*0001~ST", "ST")
End If
End With
'Create a StreamWriter to write the file
'to the output directory with
'the new file content
Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
With stWrite
.Write(fileContent.ToString)
.Flush()
.Close()
End With
Return fileContent.ToString
Catch ex As Exception
ex.ToString()
End Try
End Function
| |
| Nick Malik 2004-07-09, 3:32 pm |
| What is stRead?
Your code passes a string into a routine called TrimST, but that routine
ignores the argument and reads a string out of a stream called stRead.
Hmmmm
---- Nick
"JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrote
in message news:27C886AA-A24C-410B-A55A-6B6123B5E456@microsoft.com...
> Hi,
> Can anyone tell me exactly what is sent from BTS to an AIC that implements
IBTSAppIntegration_ProcessMessage(byVal strDoc AS String)? I understand
that the parameter strDoc is "a string that contains the document." If, for
example, I am trying to make alterations to an EDI message in text format,
and I use a channel to send the message to an AIC, does strDoc then contain
a string of the text in the EDI message? If so, how do I manipulate that
string? Can I load it directly into a stringbuilder? The reason I ask is
that I am trying to implement such an AIC and getting out what looks like
binary encoded values as a result.
>
> My code is below. I would greatly appreciate any help with this.
>
> JT
>
> Function ProcessMessage(ByVal strDocument As String) As String _
> Implements IBTSAppIntegration.ProcessMessage
>
> Try
>
>
> Return TrimST(strDocument)
>
> Catch
>
> End Try
>
> End Function
>
> Private Function TrimST(ByRef strDoc As String) As String
>
> Try
>
> 'Dump string into a string builder with initial capacity
'of 100000 characters
> Dim fileContent As New StringBuilder(stRead.ReadToEnd, 100000)
> stRead.Close()
>
> 'Modify the string within the Stringbuilder
> 'by getting rid of the extraneous ST segment
> With fileContent
> If .Length > 0 Then
>
> .Replace("ST*837*0001~ST", "ST")
>
> End If
> End With
>
> 'Create a StreamWriter to write the file
> 'to the output directory with
> 'the new file content
> Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim
out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
> With stWrite
> .Write(fileContent.ToString)
> .Flush()
> .Close()
> End With
>
> Return fileContent.ToString
>
>
> Catch ex As Exception
> ex.ToString()
>
> End Try
>
> End Function
>
>
>
| |
| JTnospam@verizon.net 2004-07-09, 3:32 pm |
| Hi Nick,
Thanks for pointing that out - I think I deleted a couple of key lines of code in trying to get my post to look pretty. Bottom line - I still can't get this to work for me. I've taken a different approach now in my AIC (code below). Nevertheless, the r
esult I get is unintelligible (sample below). I am sure it has to do with either my misinterpreting what the AIC is sending me in strDoc or not coding the output correctly in the StringWriter OR maybe just having the wrong approach altogether. Perhaps I
should be doing this with a pipeline component, or with a component that I can call in an orchestration. Also, I am not sure that the AIC really wants a string of my new document as a return value - some examples I have seen show 0 for success, 2 for er
ror. Thanks again.
John Thayer
Garbage Producing Code:
Function ProcessMessage(ByVal strDocument As String) As String _
Implements IBTSAppIntegration.ProcessMessage
Try
Return ProcessDocument(strDocument)
Catch ex As Exception
ex.ToString()
End Try
End Function
Private Function ProcessDocument(ByRef strDoc As String) As String
Try
'Dump file contents into a string builder with initial capacity of
'100000 characters
Dim fileContent As New StringBuilder(strDoc, 100000)
'Set up a stringbuilder to hold the Trans Ctrl Number
Dim sbTranNumber As New StringBuilder(9)
'Isolate the value to be used as the new
'Transaction Set Control Number
With fileContent
If .Length > 0 Then
Dim i As Integer
Dim startPoint As Integer = (strDoc.IndexOf("~BHT*0019*") + 13)
For i = startPoint To (startPoint + 10)
'Counts on TransSetCtrlNumber being an integer
If IsNumeric(.Chars(i)) Then
sbTranNumber.Append(.Chars(i))
Else
GoTo 1
End If
Next i
'Replace BTS assigned TranCtlNumber (0001) with
'value in string builder
1: .Replace("ST*837*0001", "ST*837*" & sbTranNumber.ToString)
.Replace("0001~GE*", sbTranNumber.ToString & "~GE*")
End If
End With
'Create a StreamWriter to write the file
'to the output directory with
'the new file content
Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
With stWrite
.Write(fileContent.ToString)
.Flush()
.Close()
End With
Return fileContent.ToString
Catch ex As Exception
ex.ToString()
End Try
End Function
Part of my Garbage out:
卉⩁〰_____〰__
___婚㈪㔵′_____娪
ㄳ㐱″_____㐰㜰_ㄪ
⨳⩕〰〴⨱〰〰〰㌰⨰⨱⩔縺
_⩃㔲㈵㌪ㄱ㌴㈪〰〴〷⨸
㌱㌪⨰⩘〰〴〱じ_ㅁ卾⩔㌸
⨷〰䉾呈
〪⨹〰㐪㐰⨹〲㐰㜰_ㄪ
⨵䡃剾䙅_⨷〰〴〱じ_ㅁ
ㅍ㐪⨱⨱䡔奁剅䨪䡏⩎⩁⨪㘴
㈪㔵縲䕐⩒䍉䌪䕈奒⩌䕔㐪㌱
㌲〰縰䵎⨱〴㈪䴪䑅䍉剁⩅
⨪㘴㌪ㄱ㌴䡾⩌⨱㈪⨰縱剐⩖
䥂娪⩚〲圷
〰〰_乾ㅍ_⨵⨱䡔奁剅䨪䡏
⩁⨪㐲〪㌴㐴㤸㜵乾⨳㐹_
_䵌_⩔啓呉⁅〱縲㑎圪卅䙔䕉
䑌䴪⩁_縵䕒⩆䌱䄪㌲㌴縲
⩒䍉䌪䕈奒⩌䕔㐪㌱㜵㌲〰
䱈㈪ㄪ㈪⨲縰䥍〪㌱㈲〲㤷繁
㍎ㄪ__䅒
䕎_䕖乾⨴䕗呓䥆䱅⩄䅍〪〱
䑾䝍䐪⨸㤱㤲㐰〱䘪乾ㅍ倪
⨲䕍䥄䅃䕒⨪⨪倪⩉繌䵄⩇㡄
ㄪㄹㄸ㈰⨶繆䥏⨪太䈪⨪繙䵎
䱉ㄪ䬪䕏䥎⩇䱅婉䉁呅⩈⨪
⩉塘き_㐴㐸〲乾⨳㔶_䥈䅔
䕋⁒佒䑁乾
⨴䕗呓䥆䱅⩄䅍〪〱㔸乾ㅍ倪
⨲䕍䕄⩘⨪⨪䥐〪ㄱ㌷䱾⩘
噓⨱䍈㤺〹㐲〪唪⩎⨱⨪縱呄
⩐㜴⨲㡄㈪〰〴㈶縵䕒⩆制㐪
䡾⩌⨶⨱㈲〪卾剂倪ㄪ⨸⨪
⨪䉍乾ㅍ䤪⩌⨱䕊䱌奅圪䱉剆
䑅⨪⨪䥍〪
㜱_㔹㜱繁㍎㐪″䱃奁佔繎㑎
卅⁔偓䥒䝎䥆䱅⩄䅍〪〱㤸
䝍䐪⨸㤱㈲_㌰䴪乾ㅍ倪⩒⨲
䕍䥄䅃䕒⨪⨪倪⩉ㄳ㐱縳㍎倪
佂⁘㈱㈱乾⨴䥈䝎䅈⩍䅍〪
㌴䍾䵌ㄪ㈱⨷㈱⨵⨪ㄱ㨺⨱⩙
⩁⩙⩙繂䥈
䈪㩋㘳㔲⨲䙂㌺㘶㘱乾ㅍ䐪⩎
䅂䕋⩒佈䅗䑒偾噒刪⩆婚㈪
げ〰〰繘䕒⩆䜱䘪〸_縸䉓⩒
⩓_⨪䴪⩉⨪䌪繉䵄⩇㡄ㄪ㈹
〸⨳繍䥏⨪太䈪⨪繙䵎⨱䱉
䨪䱅䕌⩙䥗䙌䕒⩄⨪䴪⩉㜹
〹ㄶ縱㍎㐪
″䱃奁佔繎㑎圪卅⁔偓䥒䝎䥆
⩄䅍〪〱㤸乾ㅍ倪⩒⨲䅂_
⁓䥌䕆⨪⨪倪⩉㔰縲塌ㄪ卾
ㅖ_㩃㈹⨴㈱⨵乕ㄪ⨪ㄪ㈺
偔㐪㈷䐪⨸〲㐰㘰㐲剾䙅㘪
㐴縲䱃⩍ㄱ㈳㜪⨰⨪ㄱ㨺⨱⩙
⩁⩙⩙繂䥈
䈪㩋㜰㤷縹䵎⨱乄ㄪ䈪_剅_
剁繄剐⩖䙒娪⩚〲刷〰〰_
䙅ㄪ⩇㡆㜰_卾剂匪ㄪ⨸⨪䥍
⨪⨪䥃䑾䝍䐪⨸㤱㈲_㌰䴪佾
⨪⩙⩂太乾ㅍ䤪⩌⨱䕊䱌奅
䱉剆䑅⨪⨪䥍㤪〷㤱㘰ㄱ乾⨳
㌴_䅌呙乏
乾⨴䕗呓_剐义䙇䕉䑌䴪⩁
_縹䵎⨱剐㈪䈪乁䕋卒_䙉⩅
⨪䥐〪〵㈱䱾⩘縱噓⨱䍈㤺㈹
㌱㜪⨰乕ㄪ⨪ㄪ䑾偔㐪㈷䐪⨸
㐰㘰㔲剾䙅㘪⩒㐴縸䱈㜪ㄪ
⨲縰䉓⩒⩐_⨪⨪⨪䴪繂䵎⨱
䱉ㄪ䘪䥒䉓
䕉䰪久⩁⨪䴪⩉㈰ㄳ㈸㤷䐱乾
㘱_坁䥍䱌_剁繋㑎匪問䡔
_䴪⩁㜰縷䵄⩇㡄ㄪ㈹〲㈳
⨶繆䵎⨱剐㈪䴪䑅䍉剁⩅⨪⨪
㌪ㄱ㌴乾⨳佐_塏_ㄲ縲㑎_
义䡇䵁䴪⩁㈰㐰縳䱃⩍ㄱ㤲ㄪ
㈶⨪ㄪ㨱ㄺ
太䄪太太䈪䡾⩉_㌺ㄵ縰䵎⨱
ㄪ䄪䝎佃䌪卅剁偾噒刪⩆婚
_い〰〰繘䕒⩆䜱䈪㜹㘶縶塌
ㄪ卾ㅖ_㩃㤹㐲⨳㘱⨲乕ㄪ⨪
䑾偔㐪㈷䐪⨸〲㐰㘰㔲剾䙅
⩒㐴縴䱈_ㄪ㈪⨲縰䉓⩒⩐_
⨪⨪⨪䴪繂
䵎⨱䱉ㄪ䜪剁⩙䡃剁䕌⩓⩂⨪
〪㈱〳_㈹繁㍎㐪_䉙久_
㑎圪卅䙔䕉䑌䴪⩁_縵䵄⩇
㡄ㄪ㈹ㄱ⨲繍䵎⨱剐㈪䴪䑅
剁⩅⨪⨪䥐㌪ㄱ㌴乾⨳佐_
_ㄲ縲㑎_义䡇䵁䴪⩁㈰㐰縳
䱃⩍ㄱ〳㈪
㜰⨪ㄪ㨱ㄺ太䄪太太䈪䡾⩉_
ㄷ㔰䈪㩆㘳ㄶ⨷䙂㌺㔶㤵乾
䐪⩎⨱䅋呌
> What is stRead?
>
> Your code passes a string into a routine called TrimST, but that routine
> ignores the argument and reads a string out of a stream called stRead.
>
> Hmmmm
>
> ---- Nick
>
> "JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrote
> in message news:27C886AA-A24C-410B-A55A-6B6123B5E456@microsoft.com...
> IBTSAppIntegration_ProcessMessage(byVal strDoc AS String)? I understand
> that the parameter strDoc is "a string that contains the document." If, for
> example, I am trying to make alterations to an EDI message in text format,
> and I use a channel to send the message to an AIC, does strDoc then contain
> a string of the text in the EDI message? If so, how do I manipulate that
> string? Can I load it directly into a stringbuilder? The reason I ask is
> that I am trying to implement such an AIC and getting out what looks like
> binary encoded values as a result.
> 'of 100000 characters
> out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
>
>
>
| |
| Nick Malik 2004-07-09, 3:32 pm |
| Tell you what... I will fish out my code for substituting EDI values in
Biztalk 2002 and compare code. I'll get an answer for you in the morning
(Pacific time).
(I can mail it to you if you'd like. I have a fairly stable EDI
parser/serializer in C#).
--- Nick
"JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrote
in message news:50479DFC-1ED8-49AC-93EB-EFF9C801A913@microsoft.com...
> Hi Nick,
> Thanks for pointing that out - I think I deleted a couple of key lines of
code in trying to get my post to look pretty. Bottom line - I still can't
get this to work for me. I've taken a different approach now in my AIC
(code below). Nevertheless, the result I get is unintelligible (sample
below). I am sure it has to do with either my misinterpreting what the AIC
is sending me in strDoc or not coding the output correctly in the
StringWriter OR maybe just having the wrong approach altogether. Perhaps I
should be doing this with a pipeline component, or with a component that I
can call in an orchestration. Also, I am not sure that the AIC really wants
a string of my new document as a return value - some examples I have seen
show 0 for success, 2 for error. Thanks again.
> John Thayer
>
> Garbage Producing Code:
>
> Function ProcessMessage(ByVal strDocument As String) As String _
> Implements IBTSAppIntegration.ProcessMessage
>
> Try
>
> Return ProcessDocument(strDocument)
>
> Catch ex As Exception
> ex.ToString()
> End Try
>
> End Function
>
> Private Function ProcessDocument(ByRef strDoc As String) As String
>
> Try
>
>
> 'Dump file contents into a string builder with initial capacity of
> '100000 characters
> Dim fileContent As New StringBuilder(strDoc, 100000)
>
> 'Set up a stringbuilder to hold the Trans Ctrl Number
> Dim sbTranNumber As New StringBuilder(9)
>
> 'Isolate the value to be used as the new
> 'Transaction Set Control Number
> With fileContent
> If .Length > 0 Then
>
> Dim i As Integer
>
> Dim startPoint As Integer = (strDoc.IndexOf("~BHT*0019*") + 13)
>
> For i = startPoint To (startPoint + 10)
> 'Counts on TransSetCtrlNumber being an integer
> If IsNumeric(.Chars(i)) Then
> sbTranNumber.Append(.Chars(i))
>
> Else
> GoTo 1
> End If
>
> Next i
>
> 'Replace BTS assigned TranCtlNumber (0001) with
> 'value in string builder
> 1: .Replace("ST*837*0001", "ST*837*" & sbTranNumber.ToString)
> .Replace("0001~GE*", sbTranNumber.ToString & "~GE*")
>
> End If
> End With
>
> 'Create a StreamWriter to write the file
> 'to the output directory with
> 'the new file content
> Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim
out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
> With stWrite
> .Write(fileContent.ToString)
> .Flush()
> .Close()
> End With
>
> Return fileContent.ToString
>
>
> Catch ex As Exception
> ex.ToString()
>
> End Try
>
> End Function
>
> Part of my Garbage out:
>
???????????????????'????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
?????????????????????????????????????????????????????????????????????????[vbcol=seagreen]
>
wrote[vbcol=seagreen]
implements[vbcol=seagreen]
for[vbcol=seagreen]
format,[vbcol=seagreen]
contain[vbcol=seagreen]
that[vbcol=seagreen]
is[vbcol=seagreen]
like[vbcol=seagreen]
| |
| JTnospam@verizon.net 2004-07-12, 5:51 pm |
| Hi Nick,
Well, I finally did get this to work. My registry error has vanished. I am not sure why, and can not seem to reproduce it now. Here's what I came up with:
Option Explicit On
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO
Imports Interop_PipeComplib
Imports Interop_MscsCore
Public Class AICPipeline_TSCtlNo
Implements IPipelineComponentAdmin
Implements IPipelineComponent
Const E_NOTIMPL As Integer = &H80004001
Private Const E_FAIL As Integer = &H80004005
Private m_strFileLocation As String
Private Sub IPipelineComponent_EnableDesign(ByVal fEnable As Integer) Implements IPipelineComponent.EnableDesign
'Do Nothing
End Sub 'IPipelineComponent_EnableDesign
Private Function IPipelineComponent_Execute(ByVal dictTransport As Object, ByVal pdispContext As Object, ByVal lFlags As Integer) As Integer Implements IPipelineComponent.Execute
On Error GoTo ExecuteError
'Overwrite configuration defaults with any values passed in
IPipelineComponentAdmin_SetConfigData(di
ctTransport)
If Not pdispContext Is Nothing Then
IPipelineComponentAdmin_SetConfigData(pd
ispContext)
End If
' Write the new file with reconstructed Trans Set Ctl Numbers
' in ST and SE segments
ProcessDocument(dictTransport("working_data").ToString)
'return success
Return 0
ExecuteError:
EventLog.WriteEntry("AIC", "The following Error was encountered: " + Err.Description, EventLogEntryType.Error)
'LogFail("The following Error was encountered: " + Err.Description)
Return 2 'Serious Error Occurred
End Function 'IPipelineComponent_Execute
Private Function IPipelineComponentAdmin_GetConfigData() As Object Implements IPipelineComponentAdmin.GetConfigData
Dim objectConfig As New CDictionary
objectConfig.Value("File_Location") = m_strFileLocation
IPipelineComponentAdmin_GetConfigData = objectConfig
End Function 'IPipelineComponentAdmin_GetCon
figData
Private Sub IPipelineComponentAdmin_SetConfigData(By
Val pDict As Object) Implements IPipelineComponentAdmin.SetConfigData
' set m_strFileLocation
If Not IsDBNull(pDict("File_Location")) Then
m_strFileLocation = (pDict("File_Location")).ToString
End If
'If m_strFileLocation = "" Then
' m_strFileLocation = "C:\BTS Output\PClaim_" & Now.ToFileTime.ToString & ".837"
'End If
End Sub 'IPipelineComponentAdmin_SetConfigDa
ta
Private Function ProcessDocument(ByVal strDoc As String) As Integer
Try
'Dump file contents into a string builder with initial capacity of
'100000 characters
Dim fileContent As New StringBuilder(strDoc, 100000)
'Set up a stringbuilder to hold the Trans Ctrl Number
Dim sbTranNumber As New StringBuilder(9)
Dim sbRcvrName As New StringBuilder(10)
'Isolate the value to be used as the new
'Transaction Set Control Number
With fileContent
If .Length > 0 Then
Dim i As Integer
Dim startPoint As Integer = (strDoc.IndexOf("~BHT*0019*") + 13)
For i = startPoint To (startPoint + 10)
'Counts on TransSetCtrlNumber being an integer
If IsNumeric(.Chars(i)) Then
sbTranNumber.Append(.Chars(i))
Else
GoTo 1
End If
Next i
'Get the insurer's name as a prefix for the
'output file
1: startPoint = (strDoc.IndexOf("~NM1*40*2*") + 10)
For i = startPoint To startPoint + 10
If Char.IsLetter(.Chars(i)) Then
sbRcvrName.Append(.Chars(i))
Else
GoTo 2
End If
Next
'Replace BTS assigned TranCtlNumber (0001) with
'value in string builder
2: .Replace("ST*837*0001", "ST*837*" & sbTranNumber.ToString)
.Replace("0001~GE*", sbTranNumber.ToString & "~GE*")
End If
End With
'Create a StreamWriter to write the file
'to the output directory with the new file content,
'using the extracted Insurer's Name in the file name
Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim out\" & sbRcvrName.ToString & "_" & Now.ToFileTime.ToString & ".837", False)
With stWrite
.Write(fileContent.ToString)
.Flush()
.Close()
End With
Return 0
Catch ex As Exception
Return 2
End Try
End Function
<ComRegisterFunctionAttribute()> Public Shared Sub RegisterFunction(ByVal t As Type)
Try
Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("CLSID\\{" + t.GUID.ToString().ToUpper() + "}\\Implemented Categories\\{5C6C30E7-C66D-40E3-889D-08C5C3099E52}")
Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("CLSID\\{" + t.GUID.ToString().ToUpper() + "}\\Implemented Categories\\{BD193E1D-D7DC-4B7C-B9D2-92AE0344C836}")
Catch
End Try
End Sub
<ComUnregisterFunctionAttribute()> Public Shared Sub UnregisterFunction(ByVal t As Type)
Try
Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey("CLSID\\{" + t.GUID.ToString().ToUpper() + "}\\Implemented Categories\\{5C6C30E7-C66D-40E3-889D-08C5C3099E52}")
Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey("CLSID\\{" + t.GUID.ToString().ToUpper() + "}\\Implemented Categories\\{BD193E1D-D7DC-4B7C-B9D2-92AE0344C836}")
Catch
End Try
End Sub
End Class
"Nick Malik" wrote:
> Tell you what... I will fish out my code for substituting EDI values in
> Biztalk 2002 and compare code. I'll get an answer for you in the morning
> (Pacific time).
>
> (I can mail it to you if you'd like. I have a fairly stable EDI
> parser/serializer in C#).
>
> --- Nick
>
> "JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrote
> in message news:50479DFC-1ED8-49AC-93EB-EFF9C801A913@microsoft.com...
> code in trying to get my post to look pretty. Bottom line - I still can't
> get this to work for me. I've taken a different approach now in my AIC
> (code below). Nevertheless, the result I get is unintelligible (sample
> below). I am sure it has to do with either my misinterpreting what the AIC
> is sending me in strDoc or not coding the output correctly in the
> StringWriter OR maybe just having the wrong approach altogether. Perhaps I
> should be doing this with a pipeline component, or with a component that I
> can call in an orchestration. Also, I am not sure that the AIC really wants
> a string of my new document as a return value - some examples I have seen
> show 0 for success, 2 for error. Thanks again.
> out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
> ???????????????????'????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ????????????????????????????????????????????????????????????????????????????
> ?????????????????????????????????????????????????????????????????????????
> wrote
> implements
> for
> format,
> contain
> that
> is
> like
>
>
>
|
|
|
|
|