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

-- quitar funcionalidad 563

Browse Source
This commit is contained in:
rrene
2020-07-06 14:18:30 -07:00
parent 78419dc0bb
commit 651ab57c3f
4 changed files with 1 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Inventarios/Apartados.aspx.vb
View File

@@ -132,9 +132,6 @@ Partial Class Inventarios_Apartados
TipoSeccionAlmacen = 0
GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvDatosDesapartado.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
End Sub
Private Sub CargaCombos()
@@ -631,12 +628,6 @@ Partial Class Inventarios_Apartados
Next
Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
' If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
' Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
'End If
Dim ObjInventario As New ClsInventarios
@@ -909,13 +900,6 @@ Partial Class Inventarios_Apartados
End If
Next
'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
' If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
' Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
'End If
'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")