Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Compras/PopUpVerFactura.aspx.vb

@@ -14,6 +14,8 @@ Imports Stimulsoft.Report.Components
 Imports Stimulsoft.Report.Dictionary
 Imports Stimulsoft.Report.Web
 Imports Newtonsoft.Json.Linq
+Imports System
+Imports Microsoft.VisualBasic
 
 Partial Class PopUpVerFactura
     Inherits ClsPaginas
@@ -262,7 +264,7 @@ Partial Class PopUpVerFactura
                 Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio"))
                 Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
 
-                NumeroTrailer = row("NumeroTrailer").ToString()
+                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
 
                 LongitudCaja = row("LongitudCaja").ToString()
                 LineaTransportacion = row("LineaTransportacion").ToString()
@@ -4166,6 +4168,11 @@ Partial Class PopUpVerFactura
                             'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                         Else
+                            If UsuarioActual.CveEmpresa = 140 Then
+                                params.Add(New ReportParameter("Concepto", ConceptoReporte))
+                                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                                params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
+                            End If
                             params.Add(New ReportParameter("Folio", Folio))
                             params.Add(New ReportParameter("Fecha", Fecha))
                             params.Add(New ReportParameter("Almacen", Almacen))
@@ -4830,6 +4837,19 @@ Partial Class PopUpVerFactura
             Dim Titulo As String = "Acuse de cancelación de CFDI"
             Dim EstadoCFDI As String = "Cancelado"
 
+
+            'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
+            If String.IsNullOrEmpty(SelloCancelacion) Then
+                Dim ObjCancelacion As New Timbrado
+                If ObjCancelacion.ObtenerAcuse(CveVenta, UsuarioActual) Then
+                    SelloCancelacion = ObjCancelacion.CancelacionAcuse
+
+                    If FechaCancelacion = Nothing OrElse FechaCancelacion = MinFecha Then
+                        FechaCancelacion = ObjCancelacion.CancelacionFecha
+                    End If
+                End If
+            End If
+
             If CveEstatusFactura = 20 Then
                 Titulo = "Acuse de solicitud de cancelación de CFDI"
                 EstadoCFDI = "Vigente"