From 1bb007262b4bbd06dcd60bee9e1002285c2b10a0 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 22 Feb 2024 10:06:29 -0700
Subject: [PATCH] --FIX. error de factura global al refacturar

---
 Ventas/Ventas.aspx.vb | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

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