diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c6e1ba575..695d4fe5a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12925,16 +12925,18 @@ Partial Class Ventas
             Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
         End If
 
-        If ObjFactura.CveVenta > 0 AndAlso ObjFactura.EsFacturaGlobal Then
-            Dim SATMes As String = ClsPaginas.GlobalDTGralSATMeses().FiltroPrimeroValor("Mes", $"CveSATMes = {ObjFactura.CveSATMes}")
-            Dim SATPerioricidad = ClsPaginas.GlobalDTGralSATPeriodicidad().FiltroPrimeroValor("Periodicidad", $"CveSATPeriodicidad = {ObjFactura.CveSATPeriodicidad}")
+        If ObjFactura IsNot Nothing Then
+            If ObjFactura.CveVenta > 0 AndAlso ObjFactura.EsFacturaGlobal Then
+                Dim SATMes As String = ClsPaginas.GlobalDTGralSATMeses().FiltroPrimeroValor("Mes", $"CveSATMes = {ObjFactura.CveSATMes}")
+                Dim SATPerioricidad = ClsPaginas.GlobalDTGralSATPeriodicidad().FiltroPrimeroValor("Periodicidad", $"CveSATPeriodicidad = {ObjFactura.CveSATPeriodicidad}")
 
-            Timbre.InformacionGlobal = New CFDIInformacionGlobal() With {
-                .Año = ObjFactura.SATAnio.ToString(),
-                .Meses = SATMes,
-                .Perioricidad = SATPerioricidad
-            }
+                Timbre.InformacionGlobal = New CFDIInformacionGlobal() With {
+                    .Año = ObjFactura.SATAnio.ToString(),
+                    .Meses = SATMes,
+                    .Perioricidad = SATPerioricidad
+                }
 
+            End If
         End If
 
         Return Timbre