-

Compras/PopUpVerFactura.aspx.vb

@@ -940,6 +940,7 @@ Partial Class PopUpVerFactura
 
 
 
+
             Dim PlacaVM As String = ""
             Dim AnioModeloVM As String = ""
             'TIMBRADO
@@ -980,7 +981,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)))
@@ -1151,6 +1155,8 @@ Partial Class PopUpVerFactura
                         Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP)
                     End If
 
+
+
                     DtUbicaciones.Rows.Add(Row)
                 Next
 
@@ -1226,6 +1232,9 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
                 params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
                 params.Add(New ReportParameter("Total", Total.ToString()))
+
+
+
                 ' [@CertificadoContribuyente]
                 '[@CadenaOriginal]
 
@@ -1290,7 +1299,7 @@ Partial Class PopUpVerFactura
             Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
             Dim Archivo As New System.IO.FileInfo(Path)
             Dim cvetimbre As Integer = Parametros("CVETIMBRE").ToString.ToEntero
-
+
             If Archivo.Exists Then
                 DescargarArchivoPDFTraslado(Archivo, Path)
             Else
@@ -1302,8 +1311,8 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
                         DescargarArchivoPDFTraslado(Archivo, Path)
                     End If
-                End If
-            End If
+                End If
+            End If
             Archivo = Nothing
         End If
     End Sub
@@ -1321,9 +1330,9 @@ Partial Class PopUpVerFactura
     Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura)
         Try
             ' Dim objFactura = CreaObjetosTraslado(CveMovimiento)
-            If objFactura IsNot Nothing Then
-                PdfFactura(objFactura)
-                objFactura.Dispose()
+            If ObjFactura IsNot Nothing Then
+                PdfFactura(ObjFactura)
+                ObjFactura.Dispose()
             End If
         Catch ex As Exception
             OnError("Ocurrió un error al generar el PDF", ex)