AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- Vya. ver remisiones de todos los contratos

Browse Source
This commit is contained in:
rrene
2025-02-27 17:06:11 -07:00
parent 03e51a2d60
commit d472287620
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/Ventas.aspx.vb
View File

@@ -34643,7 +34643,11 @@ Partial Class Ventas
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetRemisionesSinFacturar(TxtFechaIRem.Text, TxtFechaFRem.Text, CveCliente, CveContrato, 1, CveMoneda) Then If ObjVentas.GetRemisionesSinFacturar(TxtFechaIRem.Text, TxtFechaFRem.Text, CveCliente, CveContrato, 1, CveMoneda) Then
If CveContrato = -1 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 Else
DTRemisiones = ObjVentas.DtResultados.FiltraParametros($"CveContrato = {CveContrato}") DTRemisiones = ObjVentas.DtResultados.FiltraParametros($"CveContrato = {CveContrato}")
End If End If