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:
|
'Компонент сценария потребителей сервиса внедрения сервера Майкрософт SQL
'Это будет ваш новый компонент сценария в Майкрософт Висуал Басич .NET
'ScriptMain будет типом entrypoint для компонентов сценария
Система ввозов
Ввозы System.Data
Ввозы System.Math
Ввозы System.IO
Ввозы Microsoft.SqlServer.Dts.Pipeline.Wrapper
Ввозы Microsoft.SqlServer.Dts.Runtime.Wrapper
Ввозы System.Xml
Общественный тип ScriptMain
Наследует UserComponent
Тусклый sw как StreamWriter
'В дополнение к использованию заявления ввозов System.Xml справку необходимо добавить к
'Агрегат System.Xml (отборный Проект-Добавьте справку от IDE)
Затемните xWriter как XmlTextWriter
Затемните OutputFileType как шнур «.csv или .xml»
Публика отвергает Sub PreExecute ()
'Прочитайте только перемеююые
Затемните gsPickUp как шнур = Me.Variables.gsPickUp «D:\ftproot\Out\Avid»
Затемните gsPickUpFilename как шнур = Me.Variables.gsPickUpFilename «1_AVID_»
Затемните gsPickUpFileExtn как шнур = Me.Variables.gsPickUpFileExtn «.csv»
Затемните gsMemoText как шнур = текст памятки Me.Variables.gsMemoText «: чредитуйте регулировку»
Затемните gsStatementText как шнур = текст заявления Me.Variables.gsStatementText «: чредитуйте регулировку»
Затемните gsRunMode по мере того как шнур = Me.Variables.gsRunMode «УТОЧНЕНИЕ»
Затемните gsFileType как шнур = Me.Variables.gsFileType
Затемните fileName как шнур = gsPickUp & «\» & gsPickUpFilename
fileName = fileName & (форма (теперь (), «yyyyMMddHHmm») .ToString)
'MsgBox (fileName)
OutputFileType = gsPickUpFileExtn
Если OutputFileType = «.xml» после этого
fileName = fileName & gsPickUpFileExtn
'xWriter = новое XmlTextWriter (Me.Connections.XMLConnection.ConnectionString, ничего)
'xWriter.WriteStartDocument ()
'xWriter.WriteComment («клиентская картотека parsed using сценарий»)
'xWriter.WriteStartElement («x», «клиент», «http://some.org/name ")
'xWriter.WriteAttributeString («FileName», Me.Connections.XMLConnection.ConnectionString)
xWriter = новое XmlTextWriter (fileName, ничего)
'xWriter.Formatting = Formatting.Indented
'xWriter.Indentation = 0
xWriter.WriteStartDocument ()
xWriter.WriteComment («клиентская картотека parsed using сценарий»)
xWriter.WriteStartElement («x», «сообщение», "")
'xWriter.WriteAttributeString («тип», gsFileType)
Закончитесь если
Закончите подводную лодку
Публика отвергает Sub ParsedInput_ProcessInputRow (рядок ByVal как ParsedInputBuffer)
Если OutputFileType = «.xml» после этого
xWriter.WriteString (Environment.NewLine)
xWriter.WriteStartElement («x», «сообщение», "")
xWriter.WriteAttributeString («тип», «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 («часовойо пояс», 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 («вопрос», Row.Subject.ToString)
xWriter.WriteElementString («текст», рядок. [Текст] .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)
'Напишите («
")
Закончитесь если
Закончите подводную лодку
Публика отвергает Sub PostExecute ()
Если OutputFileType = «.xml» после этого
'xWriter.WriteStartElement («RecordCount»)
'xWriter.WriteString (Me.Variables.giSuccessCount.ToString)
'xWriter.WriteEndElement ()
'xWriter.WriteEndElement ()
xWriter.WriteEndDocument ()
xWriter.Close ()
Закончитесь если
Закончите подводную лодку
Закончите тип
|
