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")}")

2
Inventarios/RepAnomalias.aspx
View File

@@ -234,7 +234,7 @@
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>

2
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -152,8 +152,6 @@ Partial Class Inventarios_ResguardoMaterial
CargaCombos()
TxtFecha.Text = Now.ToShortDateString
TxtFechaLiberacion.Text = Now.ToShortDateString
GvM.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvMLiberacion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvM.DataBind()

4
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -195,10 +195,6 @@ Partial Class Inventarios_TraspasoAlmacen
If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then
CargaMovimiento(Request("CveEntrada").ToString.ToEntero)
Else
GvDatos.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
GvDatosRecepcion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
ThSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
End If
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then