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

cambios en SeccionesAlmacen,Serie,Lote,Caducidad

Browse Source
This commit is contained in:
rrene
2020-05-13 12:42:30 -07:00
parent 055db33c9c
commit ba4d3b4937
7 changed files with 9333 additions and 13954 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/CatSeccionesAlmacenes.aspx.vb
View File

@@ -29,9 +29,9 @@ Partial Class Inventarios_CatSeccionesAlmacenes
Public Sub CargaDatos()
Dim ObjSeccion As New ClsInventarios
If ObjSeccion.GetSeccionesAlmacenes(-1) Then
If ObjSeccion.GetSeccionesAlmacenes(-1, -1) Then
ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
Else
GvDatos.DataSource = Nothing
End If
@@ -62,7 +62,7 @@ Partial Class Inventarios_CatSeccionesAlmacenes
Alert("La Seccion se guardó correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
@@ -108,7 +108,7 @@ Partial Class Inventarios_CatSeccionesAlmacenes
DdlAlmacen.SelectedIndex = 0
Alert("La Seccion se actualizo correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
End If
ObjSeccion.Dispose()
@@ -134,7 +134,7 @@ Partial Class Inventarios_CatSeccionesAlmacenes
If ObjSeccion.RemoveSeccion(GvRow.DataKey("CveSeccion").ToString.ToEntero) Then
Alert("La Seccion se elimino correctamente.", TipoMensaje.MsgInformacion)
ViewState("DTSeccionesAlmacenes") = ObjSeccion.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSeccionAlmacen(-1) = ObjSeccion.DtResultados
GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = ObjSeccion.DtResultados
End If
ObjSeccion.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then