From 90d3d47d0b5abe765ababc0b559dff3cc5d38023 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 11 Dec 2021 11:35:19 -0700
Subject: [PATCH] Correcion en tabla TipoUbicacion

---
 Compras/PopUpVerFactura.aspx.vb | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index de41ff9c0..1e9d428eb 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -937,7 +937,7 @@ Partial Class PopUpVerFactura
             Dim NumPolizaSeguroMedioAmbiente As String = ""
             Dim NombreAseguradoraCarga As String = ""
             Dim NumPolizaSeguroCarga As String = ""
-            Dim TipoUbicacion As String = ""
+
 
 
 
@@ -978,7 +978,10 @@ Partial Class PopUpVerFactura
             DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
             DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
             DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))
-
+            DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String)))
+
+
+
             Dim DtMercancias As New DataTable()
             DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
             DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
@@ -1078,7 +1081,7 @@ Partial Class PopUpVerFactura
                     'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
                     'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "")
                     'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "")
-                    'TipoUbicacion = ValorXML(TipoUbicacion, "", "")
+
 
 
                 End If
@@ -1129,6 +1132,11 @@ Partial Class PopUpVerFactura
                         Row("RFC") = ValorXML(nodeOrigen, "RFCRemitente", "")
                         Row("Nombre") = ValorXML(nodeOrigen, "NombreRemitente", "")
                         Row("FechaHoraSalida") = ValorXML(nodeOrigen, "FechaHoraSalida", "").ToDateTime()
+
+                        Row("TipoUbicacion") = ""  'Sin definir
+
+
+
                     End If
 
                     Dim nodeDestino = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Destino") 'node.SelectSingleNode(String.Format("//{0}:Destino", "cartaporte"), namespaces)
@@ -1136,6 +1144,7 @@ Partial Class PopUpVerFactura
                         Row("RFC") = ValorXML(nodeDestino, "RFCDestinatario", "")
                         Row("Nombre") = ValorXML(nodeDestino, "NombreDestinatario", "")
                         Row("FechaHoraSalida") = ValorXML(nodeDestino, "FechaHoraProgLlegada", "").ToDateTime()
+                        Row("TipoUbicacion") = ""  'Sin definir
                     End If
 
                     Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
@@ -1148,6 +1157,8 @@ Partial Class PopUpVerFactura
                         Row("Direccion") = String.Format("{0} ,{1},{2}. CP {3}", calle, Estado, Pais, CP)
                     End If
 
+
+
                     DtUbicaciones.Rows.Add(Row)
                 Next
 
@@ -1223,7 +1234,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
                 params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
                 params.Add(New ReportParameter("Total", Total.ToString()))
-                params.Add(New ReportParameter("TipoUbicacion", TipoUbicacion))
+
 
 
                 ' [@CertificadoContribuyente]