--FERRETERA. En ventas que al timbrar una venta no timbrada, cargue los datos de factura global

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