From b3a828b8b8f958d74489c31af6c8ab400778993a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Jan 2025 12:28:42 -0700
Subject: [PATCH] =?UTF-8?q?--=20mandar=20par=C3=A1metro=20de=20cveusocfdi?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/FacturacionGlobal.aspx.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Ventas/FacturacionGlobal.aspx.vb b/Ventas/FacturacionGlobal.aspx.vb
index d8579acc7..efb8fb39f 100644
--- a/Ventas/FacturacionGlobal.aspx.vb
+++ b/Ventas/FacturacionGlobal.aspx.vb
@@ -220,6 +220,7 @@ Partial Class Ventas_FacturacionGlobal
         ObjFactura.DtRemisionesPS = DtRemisionesPS
         ObjFactura.DtRemisiones = DtRemisiones.FiltraParametros($"CveVenta IN ({SbRemisiones.ToString()})")
         ObjFactura.DtPagosFacturaGlobal = DtPagosFacturaGlobal
+        ObjFactura.CveUsoCFDI = 23 'S01 - Sin efectos fiscales'
 
         Dim RowNum As Integer = 0
         For Each Dr As DataRow In ObjFactura.DtRemisionesPS.Rows