Empresa Factura datos de Comercion exterior
This commit is contained in:
rakcsle
@@ -7047,26 +7047,49 @@ Public Class ClsPaginas
|
||||
|
||||
|
||||
#Region "COMERCIO EXTERIOR VARIABLES Y TABLAS"
|
||||
|
||||
Dim CETipoOperacion = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = ""
|
||||
Dim RCETipoOperacion As String = "", RCEClavePedimento As String = "", RCEIncoterm As String = "", RCEMotivoTraslado As String = ""
|
||||
|
||||
Dim CE_DT_Direcciones As New DataTable
|
||||
CE_DT_Direcciones.Columns.Add("Calle")
|
||||
CE_DT_Direcciones.Columns.Add("NumeroExterior")
|
||||
CE_DT_Direcciones.Columns.Add("Colonia")
|
||||
CE_DT_Direcciones.Columns.Add("Municipio")
|
||||
CE_DT_Direcciones.Columns.Add("Estado")
|
||||
CE_DT_Direcciones.Columns.Add("Pais")
|
||||
CE_DT_Direcciones.Columns.Add("CodigoPostal")
|
||||
CE_DT_Direcciones.Columns.Add("Tipo", GetType(Integer))
|
||||
|
||||
Dim CE_DT_Cabecera As New DataTable
|
||||
|
||||
|
||||
CE_DT_Cabecera.Columns.Add("Version")
|
||||
CE_DT_Cabecera.Columns.Add("MotivoTraslado")
|
||||
CE_DT_Cabecera.Columns.Add("TipoOperacion")
|
||||
CE_DT_Cabecera.Columns.Add("ClaveDePedimento")
|
||||
CE_DT_Cabecera.Columns.Add("CertificadoOrigen")
|
||||
CE_DT_Cabecera.Columns.Add("Incoterm")
|
||||
CE_DT_Cabecera.Columns.Add("Subdivision")
|
||||
CE_DT_Cabecera.Columns.Add("TipoCambioUSD", GetType(Decimal))
|
||||
CE_DT_Cabecera.Columns.Add("TotalUSD", GetType(Decimal))
|
||||
|
||||
|
||||
Dim CE_DT_Emisor As New DataTable
|
||||
CE_DT_Emisor.Columns.Add("Calle")
|
||||
CE_DT_Emisor.Columns.Add("NumeroExterior")
|
||||
CE_DT_Emisor.Columns.Add("Colonia")
|
||||
CE_DT_Emisor.Columns.Add("Municipio")
|
||||
CE_DT_Emisor.Columns.Add("Estado")
|
||||
CE_DT_Emisor.Columns.Add("Pais")
|
||||
CE_DT_Emisor.Columns.Add("CodigoPostal")
|
||||
CE_DT_Emisor.Columns.Add("Tipo", GetType(Integer))
|
||||
|
||||
Dim CE_DT_Receptor As New DataTable
|
||||
Dim CE_DT_Destinatario As New DataTable
|
||||
|
||||
CE_DT_Receptor = CE_DT_Emisor.Copy
|
||||
CE_DT_Destinatario = CE_DT_Emisor.Copy
|
||||
|
||||
|
||||
Dim CE_DT_Mercancias As New DataTable
|
||||
CE_DT_Mercancias.Columns.Add("NoIdentificacion")
|
||||
CE_DT_Mercancias.Columns.Add("FraccionArancelaria")
|
||||
CE_DT_Mercancias.Columns.Add("CantidadAduana")
|
||||
CE_DT_Mercancias.Columns.Add("UnidadAduana")
|
||||
CE_DT_Mercancias.Columns.Add("ValorUnitarioAduana")
|
||||
CE_DT_Mercancias.Columns.Add("ValorDolares")
|
||||
CE_DT_Mercancias.Columns.Add("ValorUnitarioAduana", GetType(Decimal))
|
||||
CE_DT_Mercancias.Columns.Add("ValorDolares", GetType(Decimal))
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -7111,10 +7134,25 @@ Public Class ClsPaginas
|
||||
#Region "COMERCIO EXTERIOR LECTURA DATOS XML"
|
||||
If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "cce11:ComercioExterior" Then
|
||||
|
||||
Dim nRowCECabecera As DataRow = CE_DT_Cabecera.NewRow
|
||||
|
||||
CETipoOperacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoOperacion").InnerText
|
||||
CEClavePedimento = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("ClaveDePedimento").InnerText
|
||||
CEIncoterm = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Incoterm").InnerText
|
||||
|
||||
|
||||
nRowCECabecera("Version") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Version").InnerText
|
||||
nRowCECabecera("MotivoTraslado") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado").InnerText
|
||||
nRowCECabecera("TipoOperacion") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoOperacion").InnerText
|
||||
nRowCECabecera("ClaveDePedimento") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("ClaveDePedimento").InnerText
|
||||
nRowCECabecera("CertificadoOrigen") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("CertificadoOrigen").InnerText
|
||||
nRowCECabecera("Incoterm") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Incoterm").InnerText
|
||||
nRowCECabecera("Subdivision") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Subdivision").InnerText
|
||||
nRowCECabecera("TipoCambioUSD") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoCambioUSD").InnerText.ToDecimal
|
||||
nRowCECabecera("TotalUSD") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TotalUSD").InnerText.ToDecimal
|
||||
|
||||
CE_DT_Cabecera.Rows.Add(nRowCECabecera)
|
||||
|
||||
Dim nodo As XmlNode = XmlDoc.DocumentElement
|
||||
Dim VersionCFDI As String = ValorXML(nodo, "version")
|
||||
|
||||
@@ -7157,55 +7195,55 @@ Public Class ClsPaginas
|
||||
|
||||
|
||||
For Each node As XmlNode In CENodosEmisor
|
||||
Dim nRowEmisor As DataRow = CE_DT_Direcciones.NewRow
|
||||
nRowEmisor("Calle") = ValorXML(node, "Calle")
|
||||
nRowEmisor("NumeroExterior") = ValorXML(node, "NumeroExterior")
|
||||
nRowEmisor("Colonia") = ValorXML(node, "Colonia")
|
||||
nRowEmisor("Municipio") = ValorXML(node, "Municipio")
|
||||
nRowEmisor("Estado") = ValorXML(node, "Estado")
|
||||
nRowEmisor("Pais") = ValorXML(node, "Pais")
|
||||
nRowEmisor("CodigoPostal") = ValorXML(node, "CodigoPostal")
|
||||
Dim nRowEmisor As DataRow = CE_DT_Emisor.NewRow
|
||||
nRowEmisor("Calle") = ValorNodoXML(node.FirstChild, "Calle")
|
||||
nRowEmisor("NumeroExterior") = ValorXML(node.FirstChild, "NumeroExterior")
|
||||
nRowEmisor("Colonia") = ValorXML(node.FirstChild, "Colonia")
|
||||
nRowEmisor("Municipio") = ValorXML(node.FirstChild, "Municipio")
|
||||
nRowEmisor("Estado") = ValorXML(node.FirstChild, "Estado")
|
||||
nRowEmisor("Pais") = ValorXML(node.FirstChild, "Pais")
|
||||
nRowEmisor("CodigoPostal") = ValorXML(node.FirstChild, "CodigoPostal")
|
||||
nRowEmisor("Tipo") = 1
|
||||
CE_DT_Mercancias.Rows.Add(nRowEmisor)
|
||||
CE_DT_Emisor.Rows.Add(nRowEmisor)
|
||||
Exit For
|
||||
Next
|
||||
|
||||
For Each node As XmlNode In CENodosReceptor
|
||||
Dim nRowReceptor As DataRow = CE_DT_Direcciones.NewRow
|
||||
nRowReceptor("Calle") = ValorXML(node, "Calle")
|
||||
nRowReceptor("NumeroExterior") = ValorXML(node, "NumeroExterior")
|
||||
nRowReceptor("Colonia") = ValorXML(node, "Colonia")
|
||||
nRowReceptor("Municipio") = ValorXML(node, "Municipio")
|
||||
nRowReceptor("Estado") = ValorXML(node, "Estado")
|
||||
nRowReceptor("Pais") = ValorXML(node, "Pais")
|
||||
nRowReceptor("CodigoPostal") = ValorXML(node, "CodigoPostal")
|
||||
Dim nRowReceptor As DataRow = CE_DT_Receptor.NewRow
|
||||
nRowReceptor("Calle") = ValorXML(node.FirstChild, "Calle")
|
||||
nRowReceptor("NumeroExterior") = ValorXML(node.FirstChild, "NumeroExterior")
|
||||
nRowReceptor("Colonia") = ValorXML(node.FirstChild, "Colonia")
|
||||
nRowReceptor("Municipio") = ValorXML(node.FirstChild, "Municipio")
|
||||
nRowReceptor("Estado") = ValorXML(node.FirstChild, "Estado")
|
||||
nRowReceptor("Pais") = ValorXML(node.FirstChild, "Pais")
|
||||
nRowReceptor("CodigoPostal") = ValorXML(node.FirstChild, "CodigoPostal")
|
||||
nRowReceptor("Tipo") = 2
|
||||
CE_DT_Mercancias.Rows.Add(nRowReceptor)
|
||||
CE_DT_Receptor.Rows.Add(nRowReceptor)
|
||||
Exit For
|
||||
Next
|
||||
|
||||
For Each node As XmlNode In CEnodosDestinatario
|
||||
Dim nRowDestinatario As DataRow = CE_DT_Direcciones.NewRow
|
||||
nRowDestinatario("Calle") = ValorXML(node, "Calle")
|
||||
nRowDestinatario("NumeroExterior") = ValorXML(node, "NumeroExterior")
|
||||
nRowDestinatario("Colonia") = ValorXML(node, "Colonia")
|
||||
nRowDestinatario("Municipio") = ValorXML(node, "Municipio")
|
||||
nRowDestinatario("Estado") = ValorXML(node, "Estado")
|
||||
nRowDestinatario("Pais") = ValorXML(node, "Pais")
|
||||
nRowDestinatario("CodigoPostal") = ValorXML(node, "CodigoPostal")
|
||||
Dim nRowDestinatario As DataRow = CE_DT_Destinatario.NewRow
|
||||
nRowDestinatario("Calle") = ValorXML(node.FirstChild, "Calle")
|
||||
nRowDestinatario("NumeroExterior") = ValorXML(node.FirstChild, "NumeroExterior")
|
||||
nRowDestinatario("Colonia") = ValorXML(node.FirstChild, "Colonia")
|
||||
nRowDestinatario("Municipio") = ValorXML(node.FirstChild, "Municipio")
|
||||
nRowDestinatario("Estado") = ValorXML(node.FirstChild, "Estado")
|
||||
nRowDestinatario("Pais") = ValorXML(node.FirstChild, "Pais")
|
||||
nRowDestinatario("CodigoPostal") = ValorXML(node.FirstChild, "CodigoPostal")
|
||||
nRowDestinatario("Tipo") = 3
|
||||
CE_DT_Mercancias.Rows.Add(nRowDestinatario)
|
||||
CE_DT_Destinatario.Rows.Add(nRowDestinatario)
|
||||
Exit For
|
||||
Next
|
||||
|
||||
For Each node As XmlNode In CEnodosMercancias
|
||||
Dim nRowMercancias As DataRow = CE_DT_Mercancias.NewRow
|
||||
nRowMercancias("NoIdentificacion") = ValorXML(node, "NoIdentificacion")
|
||||
nRowMercancias("FraccionArancelaria") = ValorXML(node, "FraccionArancelaria")
|
||||
nRowMercancias("CantidadAduana") = ValorXML(node, "CantidadAduana")
|
||||
nRowMercancias("UnidadAduana") = ValorXML(node, "UnidadAduana")
|
||||
nRowMercancias("ValorUnitarioAduana") = ValorXML(node, "ValorUnitarioAduana")
|
||||
nRowMercancias("ValorDolares") = ValorXML(node, "ValorDolares")
|
||||
nRowMercancias("NoIdentificacion") = ValorXML(node.FirstChild, "NoIdentificacion")
|
||||
nRowMercancias("FraccionArancelaria") = ValorXML(node.FirstChild, "FraccionArancelaria")
|
||||
nRowMercancias("CantidadAduana") = ValorXML(node.FirstChild, "CantidadAduana")
|
||||
nRowMercancias("UnidadAduana") = ValorXML(node.FirstChild, "UnidadAduana")
|
||||
nRowMercancias("ValorUnitarioAduana") = ValorXML(node.FirstChild, "ValorUnitarioAduana").ToDecimal
|
||||
nRowMercancias("ValorDolares") = ValorXML(node.FirstChild, "ValorDolares").ToDecimal
|
||||
CE_DT_Mercancias.Rows.Add(nRowMercancias)
|
||||
Next
|
||||
Dim asddd As String = ""
|
||||
@@ -7927,10 +7965,21 @@ Public Class ClsPaginas
|
||||
|
||||
|
||||
If RCETipoOperacion.Trim.Length > 0 Then
|
||||
Dim rds6 As New ReportDataSource With {.Name = "CE_DT_Direcciones", .Value = CE_DT_Direcciones}
|
||||
Dim rds6 As New ReportDataSource With {.Name = "CE_DT_Emisor", .Value = CE_DT_Emisor}
|
||||
lrds.Add(rds6)
|
||||
Dim rds7 As New ReportDataSource With {.Name = "CE_DT_Mercancias", .Value = CE_DT_Mercancias}
|
||||
|
||||
Dim rds7 As New ReportDataSource With {.Name = "CE_DT_Receptor", .Value = CE_DT_Receptor}
|
||||
lrds.Add(rds7)
|
||||
|
||||
Dim rds8 As New ReportDataSource With {.Name = "CE_DT_Destinatario", .Value = CE_DT_Destinatario}
|
||||
lrds.Add(rds8)
|
||||
|
||||
Dim rds9 As New ReportDataSource With {.Name = "CE_DT_Mercancias", .Value = CE_DT_Mercancias}
|
||||
lrds.Add(rds9)
|
||||
|
||||
Dim rds10 As New ReportDataSource With {.Name = "CE_DT_Cabecera", .Value = CE_DT_Cabecera}
|
||||
lrds.Add(rds10)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user