-- Vya. ver remisiones de todos los contratos

2025-02-27 17:06:11 -07:00
parent 03e51a2d60
commit d472287620
1 changed files with 5 additions and 1 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -34643,7 +34643,11 @@ Partial Class Ventas
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetRemisionesSinFacturar(TxtFechaIRem.Text, TxtFechaFRem.Text, CveCliente, CveContrato, 1, CveMoneda) Then
            If CveContrato = -1 Then
-                DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0")
+                If UsuarioActual.CveEmpresa = 188 Then
+                    DTRemisiones = ObjVentas.DtResultados
+                Else
+                    DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0")
+                End If
            Else
                DTRemisiones = ObjVentas.DtResultados.FiltraParametros($"CveContrato = {CveContrato}")
            End If