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

Econo - en traspasoalmacen. solo mostrar los almacenes del centro de costo origen.

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-02-21 10:32:51 -07:00
parent d793403bd9
commit 3136bf5353
4 changed files with 55 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Ashx/SIGWeb.ashx
View File

@@ -929,33 +929,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero
Dim UsaGlobal As Boolean = True
Dim MostrarTodosAlmacenes As Boolean = False
'verifica existencias
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso usuario.Empresa.Funcionalidad(141) = "1" Then
UsaGlobal = False
'If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then
' AplicaParaVenta = 1
'End If
If (usuario.Empresa.Funcionalidad(558) = "1" OrElse usuario.Empresa.Funcionalidad(531) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then
MostrarTodosAlmacenes = True
End If
Dim objInv As New ClsInventarios
If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then
Try
If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca, MostrarTodosAlmacenes:=MostrarTodosAlmacenes) Then
' limpio los almacenes donde no tiene ningun producto existencia
' limpio los almacenes donde no tiene ningun producto existencia
Dim i As Integer = 0
While i < objInv.DtResultados.Columns.Count
Dim i As Integer = 0
While i < objInv.DtResultados.Columns.Count
If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
objInv.DtResultados.Columns.RemoveAt(i)
Else
i = i + 1
End If
End While
If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
objInv.DtResultados.Columns.RemoveAt(i)
Else
i = i + 1
End If
End While
DtPSRetorno = objInv.DtResultados
DtPSRetorno = objInv.DtResultados
End If
Catch ex As Exception
GuardaLog(ex.ToString())
End Try
End If
objInv.Dispose()