(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
|
'Microsoft SQL Serwer Integracja Usługa użytkownik pismo składnik
'.net być twój nowy pismo składnik w Microsoft Wizualny Podstawowy .NET
'ScriptMain być the entrypoint klasa dla pismo składnik
Import System
Import System.Data
Import System.Math
Import System.IO
Import Microsoft.SqlServer.Dts.Pipeline.Wrapper
Import Microsoft.SqlServer.Dts.Runtime.Wrapper
Import System.Xml
Społeczeństwo Klasowy ScriptMain
Dziedziczyć UserComponent
Ciemnawy sw Jako StreamWriter
'W dodatku do the Import System.Xml oświadczenie odniesienie musieć dodawać the
'System.Xml zgromadzenie (Wybiórka Projektować-Dodawać Odniesienie od JAŹ)
Ciemnawy xWriter Jako XmlTextWriter
Ciemnawy OutputFileType Jako Sznurek ".csv lub .xml"
Społeczeństwo Być ważniejszym Okręt podwodny PreExecute ()
'Czytać Tylko zmienna
Ćmić gsPickUp Jako Sznurek = Me.Variables.gsPickUp "D:\ftproot\Out\Avid"
Ćmić gsPickUpFilename Jako Sznurek = Me.Variables.gsPickUpFilename "1_AVID_"
Ćmić gsPickUpFileExtn Jako Sznurek = Me.Variables.gsPickUpFileExtn ".csv"
Ćmić gsMemoText Jako Sznurek = Me.Variables.gsMemoText "Notatka Tekst: kredytować dostosowanie"
Ćmić gsStatementText Jako Sznurek = Me.Variables.gsStatementText "Oświadczenie Tekst: kredytować dostosowanie"
Ćmić gsRunMode Gdy Sznurek = Me.Variables.gsRunMode "AKTUALIZACJA"
Ćmić gsFileType Jako Sznurek = Me.Variables.gsFileType
Ćmić fileName Jako Sznurek = gsPickUp & "\" & gsPickUpFilename
fileName = fileName & (Format (Teraz (), "yyyyMMddHHmm") .ToString)
'MsgBox (fileName)
OutputFileType = gsPickUpFileExtn
Jeżeli OutputFileType = ".xml" Wtedy
fileName = fileName & gsPickUpFileExtn
'xWriter = Nowy XmlTextWriter (Me.Connections.XMLConnection.ConnectionString, Nic)
'xWriter.WriteStartDocument ()
'xWriter.WriteComment ("Klient kartoteka pismo using pismo")
'xWriter.WriteStartElement ("x", "klient", "http://some.org/name ")
'xWriter.WriteAttributeString ("FileName", Me.Connections.XMLConnection.ConnectionString)
xWriter = Nowy XmlTextWriter (fileName, Nic)
'xWriter.Formatting = Formatting.Indented
'xWriter.Indentation = (0)
xWriter.WriteStartDocument ()
xWriter.WriteComment ("Klient kartoteka pismo using pismo")
xWriter.WriteStartElement ("x", "Komunikacja", "")
'xWriter.WriteAttributeString ("Typ", gsFileType)
Kończyć Jeżeli
Kończyć Okręt podwodny
Społeczeństwo Być ważniejszym Okręt podwodny ParsedInput_ProcessInputRow (ByVal Rząd Jako ParsedInputBuffer)
Jeżeli OutputFileType = ".xml" Wtedy
xWriter.WriteString (Environment.NewLine)
xWriter.WriteStartElement ("x", "Komunikacja", "")
xWriter.WriteAttributeString ("Typ", "LogSMS")
xWriter.WriteElementString ("CommunicationLog_SMSId", Row.CommunicationLogSMSId.ToString)
xWriter.WriteElementString ("CommunicationLogId", Row.CommunicationLogId.ToString)
xWriter.WriteElementString ("LMDealershipCode", Row.LMDealershipCode.ToString)
xWriter.WriteElementString ("MQDealershipId", Row.MQDealershipId.ToString)
xWriter.WriteElementString ("ChannelCode", Row.ChannelCode.ToString)
xWriter.WriteElementString ("VersionId", Row.VersionId.ToString)
xWriter.WriteElementString ("InstanceId", Row.InstanceId.ToString)
xWriter.WriteElementString ("SendDateTime", Row.SendDateTime.ToString)
xWriter.WriteElementString ("TimeZone", Row.TimeZone.ToString)
xWriter.WriteElementString ("CampaignType", Row.CampaignType.ToString)
xWriter.WriteElementString ("CampaignCode", Row.CampaignCode.ToString)
xWriter.WriteElementString ("CampaignName", Row.CampaignName.ToString)
xWriter.WriteElementString ("CustomerFirstName", Row.CustomerFirstName.ToString)
xWriter.WriteElementString ("CustomerLastName", Row.CustomerLastName.ToString)
xWriter.WriteElementString ("CustomerAddress1", Row.CustomerAddress1.ToString)
xWriter.WriteElementString ("CustomerAddress2", Row.CustomerAddress2.ToString)
xWriter.WriteElementString ("CustomerCity", Row.CustomerCity.ToString)
xWriter.WriteElementString ("CustomerState", Row.CustomerState.ToString)
xWriter.WriteElementString ("CustomerZip", Row.CustomerZip.ToString)
xWriter.WriteElementString ("CustomerHomePhoneNumber", Row.CustomerHomePhoneNumber.ToString)
xWriter.WriteElementString ("CustomerCellPhoneNumber", Row.CustomerCellPhoneNumber.ToString)
xWriter.WriteElementString ("CustomerEmailAddress", Row.CustomerEmailAddress.ToString)
xWriter.WriteElementString ("VIN", Row.VIN.ToString)
xWriter.WriteElementString ("DMSEventDateTime", Row.DMSEventDateTime.ToString)
xWriter.WriteElementString ("DMSEventType", Row.DMSEventType.ToString)
xWriter.WriteElementString ("DMSRetailCode", Row.DMSRetailCode.ToString)
xWriter.WriteElementString ("IsTest", Row.IsTest.ToString)
xWriter.WriteElementString ("ToPhoneNumber", Row.ToPhoneNumber.ToString)
xWriter.WriteElementString ("FromEmailAddress", Row.FromEmailAddres.ToString)
xWriter.WriteElementString ("Temat", Row.Subject.ToString)
xWriter.WriteElementString ("Tekst", Rząd. [Tekst] .ToString)
xWriter.WriteElementString ("ProcessDateTime", Row.ProcessDateTime.ToString)
xWriter.WriteElementString ("SourceCode", Row.SourceCode.ToString)
xWriter.WriteElementString ("SourceId1Name", Row.SourceId1Name.ToString)
xWriter.WriteElementString ("SourceId1Value", Row.SourceId1Value.ToString)
xWriter.WriteElementString ("SourceId2Name", Row.SourceId2Name.ToString)
xWriter.WriteElementString ("SourceId2Value", Row.SourceId2Value.ToString)
xWriter.WriteElementString ("SourceId3Name", Row.SourceId3Name.ToString)
xWriter.WriteElementString ("SourceId3Value", Row.SourceId3Value.ToString)
xWriter.WriteEndElement ()
'xWriter.WriteString (Environment.NewLine)
'Pisać (" ")
Kończyć Jeżeli
Kończyć Okręt podwodny
Społeczeństwo Być ważniejszym Okręt podwodny PostExecute ()
Jeżeli OutputFileType = ".xml" Wtedy
'xWriter.WriteStartElement ("RecordCount")
'xWriter.WriteString (Me.Variables.giSuccessCount.ToString)
'xWriter.WriteEndElement ()
'xWriter.WriteEndElement ()
xWriter.WriteEndDocument ()
xWriter.Close ()
Kończyć Jeżeli
Kończyć Okręt podwodny
Kończyć Klasa
|