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
|
Public Sub CTRL29_5_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
Dim CurrentLine As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/@id"
Dim Area_path As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/BayName"
Dim Model_path As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/ModelName"
Dim Country_path As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/sysCountryName"
Dim Customer_path As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/Customer"
Dim ALineActual_path As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/ALineActual"
Dim PoffPlanned_path As String = "/dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/PoffPlanned"
Dim ALineExpected_path As String = " /dfs:myFields/dfs:dataFields/tns:Description_customerResponse/tns:Description_customerResult/BLOCKTOTAL/Description/ALineExpected"
'Dim lignetoSave As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode("/Root/RepeatNode[@id='" + CurrentLine + "']/Adr").CreateNavigator()
Dim lignetoSave As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(CurrentLine, NamespaceManager)
Dim Area As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(Area_path, NamespaceManager)
Dim Model As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(Model_path, NamespaceManager)
Dim Country As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(Country_path, NamespaceManager)
Dim Customer As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(Customer_path, NamespaceManager)
Dim ALineActual As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(ALineActual_path, NamespaceManager)
Dim PoffPlanned As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(PoffPlanned_path, NamespaceManager)
Dim ALineExpected As XPathNavigator = Me.DataSources("Description_customer").CreateNavigator().SelectSingleNode(ALineExpected_path, NamespaceManager)
Dim WsSave As save_infopath.Update = New save_infopath.Update()
WsSave.UPDATE_Description_customer(lignetoSave.ValueAsInt, Area.ToString, Model.ToString, Country.ToString, Customer.ToString, ALineActual.ToString, PoffPlanned.ToString, ALineExpected.ToString)
End Sub |
Partager