Correcion en tabla TipoUbicacion

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,6 +978,9 @@ 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)))
@@ -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]