AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresa Factura datos de Comercion exterior

Browse Source
This commit is contained in:
rakcsle
2022-09-05 08:09:05 -07:00
parent ecd2ed9bae
commit daa96a6a53
2 changed files with 3670 additions and 439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

141
App_Code/ClsPaginas.vb
View File

@@ -7047,26 +7047,49 @@ Public Class ClsPaginas
#Region "COMERCIO EXTERIOR VARIABLES Y TABLAS" #Region "COMERCIO EXTERIOR VARIABLES Y TABLAS"
Dim CETipoOperacion = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = "" 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 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") Dim CE_DT_Cabecera As New DataTable
CE_DT_Direcciones.Columns.Add("NumeroExterior")
CE_DT_Direcciones.Columns.Add("Colonia")
CE_DT_Direcciones.Columns.Add("Municipio") CE_DT_Cabecera.Columns.Add("Version")
CE_DT_Direcciones.Columns.Add("Estado") CE_DT_Cabecera.Columns.Add("MotivoTraslado")
CE_DT_Direcciones.Columns.Add("Pais") CE_DT_Cabecera.Columns.Add("TipoOperacion")
CE_DT_Direcciones.Columns.Add("CodigoPostal") CE_DT_Cabecera.Columns.Add("ClaveDePedimento")
CE_DT_Direcciones.Columns.Add("Tipo", GetType(Integer)) 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 Dim CE_DT_Mercancias As New DataTable
CE_DT_Mercancias.Columns.Add("NoIdentificacion") CE_DT_Mercancias.Columns.Add("NoIdentificacion")
CE_DT_Mercancias.Columns.Add("FraccionArancelaria") CE_DT_Mercancias.Columns.Add("FraccionArancelaria")
CE_DT_Mercancias.Columns.Add("CantidadAduana") CE_DT_Mercancias.Columns.Add("CantidadAduana")
CE_DT_Mercancias.Columns.Add("UnidadAduana") CE_DT_Mercancias.Columns.Add("UnidadAduana")
CE_DT_Mercancias.Columns.Add("ValorUnitarioAduana") CE_DT_Mercancias.Columns.Add("ValorUnitarioAduana", GetType(Decimal))
CE_DT_Mercancias.Columns.Add("ValorDolares") CE_DT_Mercancias.Columns.Add("ValorDolares", GetType(Decimal))
#End Region #End Region
@@ -7111,10 +7134,25 @@ Public Class ClsPaginas
#Region "COMERCIO EXTERIOR LECTURA DATOS XML" #Region "COMERCIO EXTERIOR LECTURA DATOS XML"
If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "cce11:ComercioExterior" Then 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 CETipoOperacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoOperacion").InnerText
CEClavePedimento = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("ClaveDePedimento").InnerText CEClavePedimento = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("ClaveDePedimento").InnerText
CEIncoterm = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Incoterm").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 nodo As XmlNode = XmlDoc.DocumentElement
Dim VersionCFDI As String = ValorXML(nodo, "version") Dim VersionCFDI As String = ValorXML(nodo, "version")
@@ -7157,55 +7195,55 @@ Public Class ClsPaginas
For Each node As XmlNode In CENodosEmisor For Each node As XmlNode In CENodosEmisor
Dim nRowEmisor As DataRow = CE_DT_Direcciones.NewRow Dim nRowEmisor As DataRow = CE_DT_Emisor.NewRow
nRowEmisor("Calle") = ValorXML(node, "Calle") nRowEmisor("Calle") = ValorNodoXML(node.FirstChild, "Calle")
nRowEmisor("NumeroExterior") = ValorXML(node, "NumeroExterior") nRowEmisor("NumeroExterior") = ValorXML(node.FirstChild, "NumeroExterior")
nRowEmisor("Colonia") = ValorXML(node, "Colonia") nRowEmisor("Colonia") = ValorXML(node.FirstChild, "Colonia")
nRowEmisor("Municipio") = ValorXML(node, "Municipio") nRowEmisor("Municipio") = ValorXML(node.FirstChild, "Municipio")
nRowEmisor("Estado") = ValorXML(node, "Estado") nRowEmisor("Estado") = ValorXML(node.FirstChild, "Estado")
nRowEmisor("Pais") = ValorXML(node, "Pais") nRowEmisor("Pais") = ValorXML(node.FirstChild, "Pais")
nRowEmisor("CodigoPostal") = ValorXML(node, "CodigoPostal") nRowEmisor("CodigoPostal") = ValorXML(node.FirstChild, "CodigoPostal")
nRowEmisor("Tipo") = 1 nRowEmisor("Tipo") = 1
CE_DT_Mercancias.Rows.Add(nRowEmisor) CE_DT_Emisor.Rows.Add(nRowEmisor)
Exit For Exit For
Next Next
For Each node As XmlNode In CENodosReceptor For Each node As XmlNode In CENodosReceptor
Dim nRowReceptor As DataRow = CE_DT_Direcciones.NewRow Dim nRowReceptor As DataRow = CE_DT_Receptor.NewRow
nRowReceptor("Calle") = ValorXML(node, "Calle") nRowReceptor("Calle") = ValorXML(node.FirstChild, "Calle")
nRowReceptor("NumeroExterior") = ValorXML(node, "NumeroExterior") nRowReceptor("NumeroExterior") = ValorXML(node.FirstChild, "NumeroExterior")
nRowReceptor("Colonia") = ValorXML(node, "Colonia") nRowReceptor("Colonia") = ValorXML(node.FirstChild, "Colonia")
nRowReceptor("Municipio") = ValorXML(node, "Municipio") nRowReceptor("Municipio") = ValorXML(node.FirstChild, "Municipio")
nRowReceptor("Estado") = ValorXML(node, "Estado") nRowReceptor("Estado") = ValorXML(node.FirstChild, "Estado")
nRowReceptor("Pais") = ValorXML(node, "Pais") nRowReceptor("Pais") = ValorXML(node.FirstChild, "Pais")
nRowReceptor("CodigoPostal") = ValorXML(node, "CodigoPostal") nRowReceptor("CodigoPostal") = ValorXML(node.FirstChild, "CodigoPostal")
nRowReceptor("Tipo") = 2 nRowReceptor("Tipo") = 2
CE_DT_Mercancias.Rows.Add(nRowReceptor) CE_DT_Receptor.Rows.Add(nRowReceptor)
Exit For Exit For
Next Next
For Each node As XmlNode In CEnodosDestinatario For Each node As XmlNode In CEnodosDestinatario
Dim nRowDestinatario As DataRow = CE_DT_Direcciones.NewRow Dim nRowDestinatario As DataRow = CE_DT_Destinatario.NewRow
nRowDestinatario("Calle") = ValorXML(node, "Calle") nRowDestinatario("Calle") = ValorXML(node.FirstChild, "Calle")
nRowDestinatario("NumeroExterior") = ValorXML(node, "NumeroExterior") nRowDestinatario("NumeroExterior") = ValorXML(node.FirstChild, "NumeroExterior")
nRowDestinatario("Colonia") = ValorXML(node, "Colonia") nRowDestinatario("Colonia") = ValorXML(node.FirstChild, "Colonia")
nRowDestinatario("Municipio") = ValorXML(node, "Municipio") nRowDestinatario("Municipio") = ValorXML(node.FirstChild, "Municipio")
nRowDestinatario("Estado") = ValorXML(node, "Estado") nRowDestinatario("Estado") = ValorXML(node.FirstChild, "Estado")
nRowDestinatario("Pais") = ValorXML(node, "Pais") nRowDestinatario("Pais") = ValorXML(node.FirstChild, "Pais")
nRowDestinatario("CodigoPostal") = ValorXML(node, "CodigoPostal") nRowDestinatario("CodigoPostal") = ValorXML(node.FirstChild, "CodigoPostal")
nRowDestinatario("Tipo") = 3 nRowDestinatario("Tipo") = 3
CE_DT_Mercancias.Rows.Add(nRowDestinatario) CE_DT_Destinatario.Rows.Add(nRowDestinatario)
Exit For Exit For
Next Next
For Each node As XmlNode In CEnodosMercancias For Each node As XmlNode In CEnodosMercancias
Dim nRowMercancias As DataRow = CE_DT_Mercancias.NewRow Dim nRowMercancias As DataRow = CE_DT_Mercancias.NewRow
nRowMercancias("NoIdentificacion") = ValorXML(node, "NoIdentificacion") nRowMercancias("NoIdentificacion") = ValorXML(node.FirstChild, "NoIdentificacion")
nRowMercancias("FraccionArancelaria") = ValorXML(node, "FraccionArancelaria") nRowMercancias("FraccionArancelaria") = ValorXML(node.FirstChild, "FraccionArancelaria")
nRowMercancias("CantidadAduana") = ValorXML(node, "CantidadAduana") nRowMercancias("CantidadAduana") = ValorXML(node.FirstChild, "CantidadAduana")
nRowMercancias("UnidadAduana") = ValorXML(node, "UnidadAduana") nRowMercancias("UnidadAduana") = ValorXML(node.FirstChild, "UnidadAduana")
nRowMercancias("ValorUnitarioAduana") = ValorXML(node, "ValorUnitarioAduana") nRowMercancias("ValorUnitarioAduana") = ValorXML(node.FirstChild, "ValorUnitarioAduana").ToDecimal
nRowMercancias("ValorDolares") = ValorXML(node, "ValorDolares") nRowMercancias("ValorDolares") = ValorXML(node.FirstChild, "ValorDolares").ToDecimal
CE_DT_Mercancias.Rows.Add(nRowMercancias) CE_DT_Mercancias.Rows.Add(nRowMercancias)
Next Next
Dim asddd As String = "" Dim asddd As String = ""
@@ -7927,10 +7965,21 @@ Public Class ClsPaginas
If RCETipoOperacion.Trim.Length > 0 Then 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) 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) 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 End If

3968
Empresas/1/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff