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