Visual Basic.NET - LLenar un Gridview con varios Xml

 
Vista:
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

LLenar un Gridview con varios Xml

Publicado por Oscar (31 intervenciones) el 23/05/2018 23:20:54
Hola gente ando teniendo unos problemas con el gridview necesito que la informacion que me trai cada Xml que vacio a una variable se vaya agregando a la misma columna del gridview y que no cada vez que encuentre un xml nuevo remplaze la info de la columna del gridview si no que anexe una nueva Fila.

Gracias por el apoyo de antemano

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
Protected Sub ButtonArchivos_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonArchivos.Click
        Dim filepath As String = Server.MapPath("\Upload")
        Dim uploadedFiles As HttpFileCollection = Request.Files
        Span1.Text = String.Empty
 
        For i As Integer = 0 To uploadedFiles.Count - 1
            Dim userPostedFile As HttpPostedFile = uploadedFiles(i)
 
            'Try
 
            If userPostedFile.ContentLength > 0 Then
                Span1.Text += "<u>File #" & (i + 1) & "</u><br>"
                Span1.Text += "File Content Type: " & userPostedFile.ContentType & "<br>"
                Span1.Text += "File Size: " & userPostedFile.ContentLength & "kb<br>"
                Span1.Text += "File Name: " & userPostedFile.FileName & "<br>"
                userPostedFile.SaveAs(filepath & "\" & Path.GetFileName(userPostedFile.FileName))
                Span1.Text += "Location where saved: " & filepath & "\" & Path.GetFileName(userPostedFile.FileName) & "<p>"
 
                Dim Daniela As String = filepath & "\" & Path.GetFileName(userPostedFile.FileName)
                Dim Version_xml As String
                Dim implocaltraladados As Decimal
                Dim implocalretenidos As Decimal
                Dim retenidos As Decimal
                Dim trasladados As Decimal
                Dim Subtotal As Decimal
                Dim valor_noIdentificacion As String
                Dim preciounitarioxml As Decimal
                Dim importeconcepto As Decimal
                Dim cantidadvendida As Decimal
                Dim subtotalclave As Decimal = 0
                Dim descripcionxml As String
                Dim Emisor_Nombre As String
                Dim total As Decimal
                Dim Fecha As Date
                Dim UUID As String
                Dim Importe As String
                Dim Cantidad As Decimal
                Dim MercanciasNoIdentificacion As String
                Dim ComercioExterior As Decimal
                Dim Noidentificacion As String
                Dim VarConceptos As XmlNodeList
                Dim ValorDolares As String
                Dim ValorUnitarioAduana As Decimal
                Dim CantidadAduana As Decimal
                Dim VarDocumentoXML As XmlDocument = New XmlDocument()
                Dim VarManager As XmlNamespaceManager = New XmlNamespaceManager(VarDocumentoXML.NameTable)
                VarDocumentoXML.Load(Daniela)
                'VarDocumentoXML.Load("c:\prueba.xml")  'Aqui puedes definir la ruta del archivo mediante un OpenFileDialog o  algun otro metodo para especificar la ubicacion del XML
                VarManager.AddNamespace("cfdi", "http://www.sat.gob.mx/cfd/3")
                VarManager.AddNamespace("cce11", "http://www.sat.gob.mx/ComercioExterior11")
                VarManager.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                VarManager.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                Version_xml = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@Version", VarManager).InnerText
                If Version_xml = "3.3" Then
                    Subtotal = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@SubTotal", VarManager).InnerText
                    Fecha = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@Fecha", VarManager).InnerText
                    Noidentificacion = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto/@NoIdentificacion", VarManager).InnerText
                    Importe = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto/@Importe", VarManager).InnerText
                    Cantidad = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto/@Cantidad", VarManager).InnerText
                    MercanciasNoIdentificacion = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/cce11:ComercioExterior/cce11:Mercancias/cce11:Mercancia/@NoIdentificacion", VarManager).InnerText
                    ValorDolares = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/cce11:ComercioExterior/cce11:Mercancias/cce11:Mercancia/@ValorDolares", VarManager).InnerText
                    ValorUnitarioAduana = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/cce11:ComercioExterior/cce11:Mercancias/cce11:Mercancia/@ValorUnitarioAduana", VarManager).InnerText
                    CantidadAduana = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/cce11:ComercioExterior/cce11:Mercancias/cce11:Mercancia/@CantidadAduana", VarManager).InnerText
                    Emisor_Nombre = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Emisor/@Nombre", VarManager).InnerText
                    ComercioExterior = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/cce11:ComercioExterior/@Version", VarManager).InnerText
                    UUID = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital/@UUID", VarManager).InnerText
                    Label8.Text = Emisor_Nombre
                    Label9.Text = ComercioExterior
                    Label10.Text = Subtotal.ToString("c")
                    ' implocalretenidos = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/implocal:ImpuestosLocales/@TotaldeRetenciones", VarManager).InnerText
                    'implocaltraladados = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/implocal:ImpuestosLocales/@TotaldeTraslados", VarManager).InnerText
                    'retenidos = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Impuestos/@TotalImpuestosRetenidos", VarManager).InnerText
                    ' trasladados = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Impuestos/@TotalImpuestosTrasladados", VarManager).InnerText
                    VarConceptos = VarDocumentoXML.SelectNodes("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto", VarManager)
                    For Each node In VarConceptos
                        valor_noIdentificacion = node.attributes("NoIdentificacion").value
                        preciounitarioxml = node.attributes("ValorUnitario").value
                        importeconcepto = node.attributes("Importe").value
                        cantidadvendida = node.attributes("Cantidad").value
                        subtotalclave = node.attributes("Importe").value
                        descripcionxml = node.attributes("Descripcion").value
                    Next
                Else
                    MsgBox("Archivo XML no es una factura version 3.3")
                End If
 
                'For a As Integer = 0 To uploadedFiles.Count - 1
 
                Dim dt As New DataTable()
                    'columnas
                    dt.Columns.Add("Subtotal")
                    dt.Columns.Add("Fecha")
                    dt.Columns.Add("Noidentificacion")
                    dt.Columns.Add("Importe")
 
 
                    'Agregar Datos    
                    Dim row As DataRow = dt.NewRow()
                    row("Subtotal") = Subtotal
                    row("Fecha") = Fecha
                    row("Noidentificacion") = Noidentificacion
                    row("Importe") = Importe
                    dt.Rows.Add(row)
                    'enlazas datatable a griedview
                    GridTrafico1.DataSource = dt
                    GridTrafico1.DataBind()
 
                    Me.MultiView1.ActiveViewIndex = 1
                    Me.lbl_indicador.Text = 2
 
                'Next
            Else
                    Me.GridTrafico1.DataSource = Nothing
                    Me.GridTrafico1.DataBind()
            End If
 
 
            'Catch Ex As Exception
            '    Span1.Text += "Error: <br>" & Ex.Message
            'End Try
 
 
        Next
 
    End Sub

Codigo del GridView
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
<asp:View ID="View1" runat="server">
            <asp:GridView ID="GridTrafico1" runat="server" AllowSorting="True" AutoGenerateColumns="False" Caption="Anticipos" CellPadding="15" Font-Size="14px" ForeColor="#333333" GridLines="None" HorizontalAlign="Center">
                <AlternatingRowStyle BackColor="White" ForeColor="#284775" />
                <Columns>
                    <asp:TemplateField HeaderText="Numero de Poliza">
                        <ItemTemplate>
                            <asp:Label ID="LabelReferencia0" runat="server" Text='<%#Eval("Subtotal")%>'></asp:Label>
                        </ItemTemplate>
                        <HeaderStyle BackColor="Blue" Font-Bold="True" ForeColor="White" />
                    </asp:TemplateField>
                    <asp:TemplateField HeaderText="Tipo de Poliza">
                        <ItemTemplate>
                            <asp:Label ID="LabelNumFac0" runat="server" Text='<%#Eval("Fecha")%>'></asp:Label>
                        </ItemTemplate>
                        <HeaderStyle BackColor="Blue" Font-Bold="True" ForeColor="White" />
                    </asp:TemplateField>
                    <asp:TemplateField HeaderText="Referencia">
                        <ItemTemplate>
                            <asp:Label ID="LabelReferencia0" runat="server" Text='<%#Eval("Noidentificacion")%>'></asp:Label>
                        </ItemTemplate>
                        <HeaderStyle BackColor="Blue" Font-Bold="True" ForeColor="White" />
                    </asp:TemplateField>
                    <asp:TemplateField HeaderText="Concepto">
                        <ItemTemplate>
                            <asp:Label ID="LabelNumFac0" runat="server" Text='<%#Eval("Importe")%>'></asp:Label>
                        </ItemTemplate>
                        <HeaderStyle BackColor="Blue" Font-Bold="True" ForeColor="White" />
                    </asp:TemplateField>
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder