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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-08-18 12:39:39 -07:00
parent 061c317ea7
commit 9aa90bc8c4
5 changed files with 207 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Inventarios/RepMaximoMinimo.aspx.vb
View File

@@ -64,9 +64,9 @@ Partial Class Inventarios_RepMaximoMinimo
DdlAlmacenModal.DataBind()
DdlAlmacenModal.Items.Insert(0, New ListItem("Seleccione Almacén", "-1"))
DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
DdlPSModal.DataBind()
DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
'DdlPSModal.DataBind()
'DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpModalMaximoMinimo.Update()
@@ -195,7 +195,8 @@ Partial Class Inventarios_RepMaximoMinimo
Private Sub LnkDefinir_Click(sender As Object, e As EventArgs) Handles LnkDefinir.Click
HFDefinir.Value = "I"
DdlAlmacenModal.SelectedIndex = 0
DdlPSModal.SelectedIndex = 0
DdlPSModal.SelectedValue = "-1"
DdlPSModal.SelectedText = "Seleccione"
TxtMaximo.Text = ""
TxtMinimo.Text = ""
DdlAlmacenModal.Enabled = True
@@ -206,20 +207,26 @@ Partial Class Inventarios_RepMaximoMinimo
End Sub
Private Sub LbAgregarMaximoMinimo_Click(sender As Object, e As EventArgs) Handles LbAgregarMaximoMinimo.Click
Dim ObjInventario As New ClsInventarios
If HFDefinir.Value = "I" Then
If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HFDefinir.Value = "U" Then
If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
End If
End If
If DdlPSModal.SelectedValue.ToEntero > 0 Then
CargaGrid()
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
ObjInventario.Dispose()
Using ObjInventario As New ClsInventarios
If HFDefinir.Value = "I" Then
If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HFDefinir.Value = "U" Then
If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
End If
End If
End Using
CargaGrid()
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
Else
Alert("Seleccione un producto o servicio", TipoMensaje.ToastAdventencia)
End If
End Sub
Protected Sub UpdateMaximoMinimo(sender As Object, e As EventArgs)