-- quitar funcionalidad 563
This commit is contained in:
@@ -132,9 +132,6 @@ Partial Class Inventarios_Apartados
|
|||||||
|
|
||||||
TipoSeccionAlmacen = 0
|
TipoSeccionAlmacen = 0
|
||||||
|
|
||||||
GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
|
|
||||||
GvDatosDesapartado.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CargaCombos()
|
Private Sub CargaCombos()
|
||||||
|
|
||||||
@@ -631,12 +628,6 @@ Partial Class Inventarios_Apartados
|
|||||||
Next
|
Next
|
||||||
|
|
||||||
Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
|
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
|
Dim ObjInventario As New ClsInventarios
|
||||||
|
|
||||||
@@ -909,13 +900,6 @@ Partial Class Inventarios_Apartados
|
|||||||
End If
|
End If
|
||||||
Next
|
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
|
'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
|
||||||
Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
|
Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
|
||||||
'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")
|
'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")
|
||||||
|
|||||||
@@ -234,7 +234,7 @@
|
|||||||
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" 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="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>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
|
|
||||||
|
|||||||
@@ -152,8 +152,6 @@ Partial Class Inventarios_ResguardoMaterial
|
|||||||
CargaCombos()
|
CargaCombos()
|
||||||
TxtFecha.Text = Now.ToShortDateString
|
TxtFecha.Text = Now.ToShortDateString
|
||||||
TxtFechaLiberacion.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()
|
GvM.DataBind()
|
||||||
|
|
||||||
|
|||||||
@@ -195,10 +195,6 @@ Partial Class Inventarios_TraspasoAlmacen
|
|||||||
|
|
||||||
If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then
|
If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then
|
||||||
CargaMovimiento(Request("CveEntrada").ToString.ToEntero)
|
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
|
End If
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||||
|
|||||||
Reference in New Issue
Block a user