necesito insertar en el XML1 el XML2
Publicado por QBox (1 intervención) el 19/12/2016 20:32:03
XML1
y lo estoy intentando hacer asi y no me funciona
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
<?xml version="1.0" encoding="ISO-8859-1"?>
<EnvioDTE xmlns="EnvioXXX" version="1.0">
<SetDTE ID="Set728384">
<Caratula version="1.0">
<Fecha>2015-06-02</Fecha>
<Numero>12345</Numero>
<Envio>2016-12-03T01:09:25</Envio>
</Caratula>
<DTE version="1.0">
<Encabezado>
<IdDoc>
<TipoD>105</TipoD>
<Folio>111705</Folio>
<FchEmis>2016-12-03</FchEmis>
</IdDoc>
<Emisor>
<IDEmisor>7251827106-1</IDEmisor>
<RznSoc>Comercializadora SPA</RznSoc>
</Emisor>
<Receptor>
<IDRecep>1216298490-3</IDRecep>
<RznSocRecep>Juana Isabel </RznSocRecep>
</Receptor>
<Totales>
<Monto>861758</Monto>
</Totales>
</Encabezado>
</DTE>
-------------------------------------Aqui necesito insertar el XML2
</SetDTE>
</EnvioDTE>
XML2
<?xml version="1.0" encoding="ISO-8859-1"?>
<DTE version="1.0">
<Encabezado>
<IdDoc>
<TipoD>110</TipoD>
<Folio>111705</Folio>
<FchEmis>2016-10-01</FchEmis>
</IdDoc>
<Emisor>
<IDEmisor>12345827106-1</IDEmisor>
<RznSoc>El Librero</RznSoc>
</Emisor>
<Receptor>
<IDRecep>23678998490-3</IDRecep>
<RznSocRecep>Pedro Perez </RznSocRecep>
</Receptor>
<Totales>
<Monto>334589</Monto>
</Totales>
</Encabezado>
</DTE>
QBoxIT
y lo estoy intentando hacer asi y no me funciona
1
2
3
4
5
6
7
8
9
10
Private Sub AgregaD()
Dim doc1 As XElement = XElement.Load("XML1.xml")
Dim NodoP As XElement = (From nodo In doc1.Descendants("SetDTE") Where nodo.Attribute("ID").Value = "Set728384").FirstOrDefault()
Dim doc2 As XElement = XElement.Load("XML2.xml")
Dim nuevoNodo As New XElement(doc2)
NodoP.Add(nuevoNodo)
NodoP.Save("ResultadoD.xml")
End Sub
Valora esta pregunta
0