From 823c0af112240a3401dd18ab88da020b09cf4fc5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 14 Feb 2024 17:57:29 -0700
Subject: [PATCH] --FERRETERA. En ventas que al timbrar una venta no timbrada,
 cargue los datos de factura global

---
 Ventas/Ventas.aspx.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8885ef445..fcf6cc18e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12921,6 +12921,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}")
+
+            Timbre.InformacionGlobal = New CFDIInformacionGlobal() With {
+                .Año = ObjFactura.SATAnio.ToString(),
+                .Meses = SATMes,
+                .Perioricidad = SATPerioricidad
+            }
+
+        End If
+
         Return Timbre
     End Function