Obtener el acuse de cancealcion al imprimir si no existe, salida de usados al cancelar RNC

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
@@ -4830,6 +4832,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"