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:
6:
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-Server-Integrations-Dienstbenutzer-Indexbestandteil
'Dieses ist Ihr neuer Indexbestandteil in Microsoft Visual Basic .NET
'ScriptMain ist die entrypoint Kategorie für Indexbestandteile
Import-System
Importe System.Data
Importe System.Math
Importe System.IO
Importe Microsoft.SqlServer.Dts.Pipeline.Wrapper
Importe Microsoft.SqlServer.Dts.Runtime.Wrapper
Importe System.Xml
Allgemeine Kategorie ScriptMain
Übernimmt UserComponent
Schwacher Schalter als StreamWriter
'Zusätzlich zur Anwendung der Aussage der Importe System.Xml muss ein Hinweis hinzugefügt werden
'System.Xml (auserwählt Hinweis von IDE Projekt-Hinzufügen)
xWriter als XmlTextWriter verdunkeln
OutputFileType als Schnur „.csv oder .xml“ verdunkeln
Öffentlichkeit hebt VorPreExecute auf ()
'Nur Variablen lesen
gsPickUp als Schnur = Me.Variables.gsPickUp „D:\ftproot\Out\Avid“ verdunkeln
gsPickUpFilename als Schnur = Me.Variables.gsPickUpFilename „1_AVID_“ verdunkeln
gsPickUpFileExtn als Schnur = Me.Variables.gsPickUpFileExtn „.csv“ verdunkeln
gsMemoText als Schnur = Me.Variables.gsMemoText „Protokoll-Text verdunkeln: Justage gutschreiben“
gsStatementText als Schnur = Me.Variables.gsStatementText „Anweisungstext verdunkeln: Justage gutschreiben“
gsRunMode verdunkeln, wie Schnur = Me.Variables.gsRunMode „UPDATE“
gsFileType als Schnur = Me.Variables.gsFileType verdunkeln
Dateinamen als Schnur = gsPickUp verdunkeln u. „\“ u. gsPickUpFilename
Dateiname = Dateiname u. (Format (jetzt (), „yyyyMMddHHmm“) .ToString)
'MsgBox (Dateiname)
OutputFileType = gsPickUpFileExtn
Wenn OutputFileType = „.xml“ dann
Dateiname = Dateiname u. gsPickUpFileExtn
'xWriter = neues XmlTextWriter (Me.Connections.XMLConnection.ConnectionString, nichts)
'xWriter.WriteStartDocument ()
'xWriter.WriteComment („Kundenakte analysiert using Index“)
'xWriter.WriteStartElement („x“, „Kunde“, „http://some.org/name ")
'xWriter.WriteAttributeString („Dateiname“, Me.Connections.XMLConnection.ConnectionString)
xWriter = neues XmlTextWriter (Dateiname, nichts)
'xWriter.Formatting = Formatting.Indented
'xWriter.Indentation = 0
xWriter.WriteStartDocument ()
xWriter.WriteComment („Kundenakte analysiert using Index“)
xWriter.WriteStartElement („x“, „Kommunikation“, "")
'xWriter.WriteAttributeString („Art“, gsFileType)
Beenden wenn
Unterseeboot beenden
Öffentlichkeit hebt VorParsedInput_ProcessInputRow auf (ByVal Reihe als ParsedInputBuffer)
Wenn OutputFileType = „.xml“ dann
xWriter.WriteString (Environment.NewLine)
xWriter.WriteStartElement („x“, „Kommunikation“, "")
xWriter.WriteAttributeString („Art“, „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 („Thema“, Row.Subject.ToString)
xWriter.WriteElementString („Text“, Reihe. [Text] .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)
'Schreiben („
")
Beenden wenn
Unterseeboot beenden
Öffentlichkeit hebt VorPostExecute auf ()
Wenn OutputFileType = „.xml“ dann
'xWriter.WriteStartElement („RecordCount“)
'xWriter.WriteString (Me.Variables.giSuccessCount.ToString)
'xWriter.WriteEndElement ()
'xWriter.WriteEndElement ()
xWriter.WriteEndDocument ()
xWriter.Close ()
Beenden wenn
Unterseeboot beenden
Kategorie beenden
|
