-- mandar parámetro de cveusocfdi

2025-01-14 12:28:42 -07:00
parent fde2ec99fa
commit b3a828b8b8
1 changed files with 1 additions and 0 deletions
--- 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