Detalle de XML a una hoja de Excell
Publicado por Wanbyn (2 intervenciones) el 29/03/2021 17:14:43
Muy buenas estimados programadores
Les vengo a pedir su colaboración llevo ya varios dias intentando poder extraer la informacion de una factura de XML a una hoja de excel, mi gran problema es cuando ingreso al nodo donde viene el detalle de las lineas de la factura, dentro de este nodo vienen datos como cantidad, precio, detalle, pero mi problema reside en que el descuento vienen como un sub nodo por ende no logro tomar el dato correcto y me lo replica a otras celdas. este es el xml ejemplo:
El XML en cuestion lleva 12 lineas de productos yo ocupo trasladar a una hoja de excel linea por linea con su respectivo detalle de cantidad, precio, subtotal, descuento si lo tiene, impuesto, tasa, el gran problema que tengo es que Descuento no siempre lo tienen el producto, por ende el nodo no siempre esta y con el codigo que les he mostrado toma descuento de otra linea y lo llena en otras.
Este es el código que estoy usando
Les vengo a pedir su colaboración llevo ya varios dias intentando poder extraer la informacion de una factura de XML a una hoja de excel, mi gran problema es cuando ingreso al nodo donde viene el detalle de las lineas de la factura, dentro de este nodo vienen datos como cantidad, precio, detalle, pero mi problema reside en que el descuento vienen como un sub nodo por ende no logro tomar el dato correcto y me lo replica a otras celdas. este es el xml ejemplo:
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
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
<?xml version="1.0" encoding="utf-8"?>
<FacturaElectronica xmlns="https://cdn.comprobanteselectronicos.go.cr/xml-schemas/v4.3/facturaElectronica">
<Clave>5062911190031012</Clave>
<CodigoActividad>552004</CodigoActividad>
<NumeroConsecutivo>101000000525</NumeroConsecutivo>
<FechaEmision>2019-11-29T21:15:20-06:00</FechaEmision>
<Emisor>
<Nombre>COSTARRICAN RESTAURANT CO, S A</Nombre>
<Identificacion>
<Tipo>02</Tipo>
<Numero>31011111111</Numero>
</Identificacion>
<NombreComercial>OUTBACK STEAK HOUSE ESCAZU</NombreComercial>
<Ubicacion>
<Provincia>1</Provincia>
<Canton>02</Canton>
<Distrito>03</Distrito>
<Barrio>26</Barrio>
<OtrasSenas>DEL RESTAURANTE TONY ROMAS, 150 MTS OESTE, OFICINAS ESQUINERAS COLOR TERRACOTA, FRENTE A EDIFICIO DE ESCAZU VILLAGE</OtrasSenas>
</Ubicacion>
<Telefono>
<CodigoPais>506</CodigoPais>
<NumTelefono>44043800</NumTelefono>
</Telefono>
<CorreoElectronico>facturacion@prueba.com</CorreoElectronico>
</Emisor>
<Receptor>
<Nombre>Fresca sa</Nombre>
<Identificacion>
<Tipo>02</Tipo>
<Numero>3101333333</Numero>
</Identificacion>
<CorreoElectronico>dato@test.com</CorreoElectronico>
</Receptor>
<CondicionVenta>01</CondicionVenta>
<MedioPago>02</MedioPago>
<DetalleServicio>
<LineaDetalle>
<NumeroLinea>1</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>508</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Cola de Langosta</Detalle>
<PrecioUnitario>8048.78000</PrecioUnitario>
<MontoTotal>8048.78000</MontoTotal>
<SubTotal>8048.78000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>1046.34140</Monto>
</Impuesto>
<ImpuestoNeto>1046.34140</ImpuestoNeto>
<MontoTotalLinea>9095.12140</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>2</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>6031</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>N/A</Detalle>
<PrecioUnitario>0.00000</PrecioUnitario>
<MontoTotal>0.00000</MontoTotal>
<SubTotal>0.00000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>0.00000</Monto>
</Impuesto>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>0.00000</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>3</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>13038</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Outback Special 6oz</Detalle>
<PrecioUnitario>8861.78000</PrecioUnitario>
<MontoTotal>8861.78000</MontoTotal>
<SubTotal>8861.78000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>1152.03140</Monto>
</Impuesto>
<ImpuestoNeto>1152.03140</ImpuestoNeto>
<MontoTotalLinea>10013.81140</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>4</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>80116</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Papas Fritas</Detalle>
<PrecioUnitario>0.00000</PrecioUnitario>
<MontoTotal>0.00000</MontoTotal>
<SubTotal>0.00000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>0.00000</Monto>
</Impuesto>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>0.00000</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>5</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>999104</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>TERMINO MEDIO</Detalle>
<PrecioUnitario>0.00000</PrecioUnitario>
<MontoTotal>0.00000</MontoTotal>
<SubTotal>0.00000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>0.00000</Monto>
</Impuesto>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>0.00000</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>6</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>12027</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>El Ranchito Salad Entre</Detalle>
<PrecioUnitario>0.00000</PrecioUnitario>
<MontoTotal>0.00000</MontoTotal>
<SubTotal>0.00000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>0.00000</Monto>
</Impuesto>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>0.00000</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>7</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>16088</Codigo>
</CodigoComercial>
<Cantidad>3.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Old Parr</Detalle>
<PrecioUnitario>4878.04000</PrecioUnitario>
<MontoTotal>14634.12000</MontoTotal>
<Descuento>
<MontoDescuento>4878.04</MontoDescuento>
<NaturalezaDescuento>Descuento</NaturalezaDescuento>
</Descuento>
<SubTotal>9756.08000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>1268.29040</Monto>
</Impuesto>
<ImpuestoNeto>1268.29040</ImpuestoNeto>
<MontoTotalLinea>11024.37040</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>8</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>1007</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Beef Carpaccio pq</Detalle>
<PrecioUnitario>3983.73000</PrecioUnitario>
<MontoTotal>3983.73000</MontoTotal>
<SubTotal>3983.73000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>517.88490</Monto>
</Impuesto>
<ImpuestoNeto>517.88490</ImpuestoNeto>
<MontoTotalLinea>4501.61490</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>9</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>999101</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>--- ENTREE ---</Detalle>
<PrecioUnitario>0.00000</PrecioUnitario>
<MontoTotal>0.00000</MontoTotal>
<SubTotal>0.00000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>0.00000</Monto>
</Impuesto>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>0.00000</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>10</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>6031</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>N/A</Detalle>
<PrecioUnitario>0.00000</PrecioUnitario>
<MontoTotal>0.00000</MontoTotal>
<SubTotal>0.00000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>0.00000</Monto>
</Impuesto>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>0.00000</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>11</NumeroLinea>
<Codigo />
<CodigoComercial>
<Tipo>01</Tipo>
<Codigo>6003</Codigo>
</CodigoComercial>
<Cantidad>1.000</Cantidad>
<UnidadMedida>Unid</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Corn on the Cob</Detalle>
<PrecioUnitario>2357.72000</PrecioUnitario>
<MontoTotal>2357.72000</MontoTotal>
<SubTotal>2357.72000</SubTotal>
<Impuesto>
<Codigo>01</Codigo>
<CodigoTarifa>08</CodigoTarifa>
<Tarifa>13</Tarifa>
<Monto>306.50360</Monto>
</Impuesto>
<ImpuestoNeto>306.50360</ImpuestoNeto>
<MontoTotalLinea>2664.22360</MontoTotalLinea>
</LineaDetalle>
<LineaDetalle>
<NumeroLinea>12</NumeroLinea>
<Codigo />
<Cantidad>1.000</Cantidad>
<UnidadMedida>Os</UnidadMedida>
<UnidadMedidaComercial>Unid</UnidadMedidaComercial>
<Detalle>Servicio</Detalle>
<PrecioUnitario>3300.81000</PrecioUnitario>
<MontoTotal>3300.81000</MontoTotal>
<SubTotal>3300.81000</SubTotal>
<ImpuestoNeto>0.00000</ImpuestoNeto>
<MontoTotalLinea>3300.81000</MontoTotalLinea>
</LineaDetalle>
</DetalleServicio>
El XML en cuestion lleva 12 lineas de productos yo ocupo trasladar a una hoja de excel linea por linea con su respectivo detalle de cantidad, precio, subtotal, descuento si lo tiene, impuesto, tasa, el gran problema que tengo es que Descuento no siempre lo tienen el producto, por ende el nodo no siempre esta y con el codigo que les he mostrado toma descuento de otra linea y lo llena en otras.
Este es el código que estoy usando
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
Sub CargarDetalle()
Dim xDoc As New MSXML2.DOMDocumentDim xDocNode As MSXML2.IXMLDOMNode 'IXMLDOMNode
Dim xDocNodes As MSXML2.IXMLDOMNodeList 'IXMLDOMNodeList
xDoc.Load RutaXML 'Aqui mando la dirección del xml por otra funcion aparte
Set xDocNodes = xDoc.SelectNodes("//FacturaElectronica//DetalleServicio//LineaDetalle//")
Dim E As Integer
E = 0For Each xDocNode In xDocNodes
With hoja.Range(CeldaGuardar)
'Todo esto funciona bien.Offset(E, 0).Value = FechaEmi
.Offset(E, 1).Value = "'" & Factura
.Offset(E, 2).Value = EmisorID
.Offset(E, 3).Value = EmisorNombre
.Offset(E, 4).Value = EmisorMoneda
.Offset(E, 5).Value = EmisorTipoCambio
.Offset(E, 6).Value = (xDocNode.SelectSingleNode("Cantidad").Text)
.Offset(E, 7).Value = xDocNode.SelectSingleNode("Detalle").Text
.Offset(E, 8).Value = (xDocNode.SelectSingleNode("PrecioUnitario").Text)
.Offset(E, 9).Value = (xDocNode.SelectSingleNode("MontoTotal").Text)
.Offset(E, 10).Value = (xDocNode.SelectSingleNode("SubTotal").Text)
'Aqui ya no da el dato correcto.Offset(E, 11).Value = (xDocNode.SelectNodes("/[NumeroLinea/Descuento/MontoDescuento")(0).Text)
.Offset(E, 12).Value = xDocNode.SelectNodes("//Impuesto//Tarifa")(E).Text
.Offset(E, 13).Value = (xDocNode.ChildNodes(E).SelectNodes("//Impuesto//Monto")(0).Text)
'Aqui termina los datos que no estan correctos 'Desde aqui si dan los datos Correctos.Offset(E, 14).Value = (xDocNode.SelectSingleNode("ImpuestoNeto").Text)
.Offset(E, 15).Value = (xDocNode.SelectSingleNode("MontoTotalLinea").Text)
.Offset(E, 23).Value = ReceptorID
.Offset(E, 24).Value = ReceptorNombre
.Offset(E, 25).Value = xDocNode.SelectSingleNode("Detalle").Text
End With
E = E + 1
Next
Set xDocNodes = NothingEnd If
End Function
Valora esta pregunta
0
