Se agrego accion en RepPedidosSTF para cambiar el horario valido para crear pedidos
This commit is contained in:
@@ -417,4 +417,39 @@ Partial Class Ventas_RepPedidosSTF
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnEditarHorariosPedidos_Click(sender As Object, e As EventArgs)
|
||||
Dim objSisEmpresas As New ClsSisEmpresas
|
||||
If objSisEmpresas.UpdateEmpresaFuncionalidad(546, $"{TxtHorarioDe.Text}|{TxtHorarioA.Text}", UsuarioActual.CveEmpresa) Then
|
||||
If objSisEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
|
||||
Dim dttmp As Data.DataTable = objSisEmpresas.DtResultados
|
||||
Dim EmpresasFuncionalidades As New HybridDictionary
|
||||
For Each Row As Data.DataRow In dttmp.Rows
|
||||
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
||||
Next
|
||||
UsuarioActual.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
||||
End If
|
||||
Alert("Guardado correctamente.")
|
||||
RegistraScript("$('#divHorariosPedidos').modal('hide');")
|
||||
End If
|
||||
objSisEmpresas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnHorariosPedidos_Click(sender As Object, e As EventArgs)
|
||||
Dim objSisEmpresas As New ClsSisEmpresas
|
||||
If objSisEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
|
||||
Dim dttmp As Data.DataTable = objSisEmpresas.DtResultados
|
||||
Dim EmpresasFuncionalidades As New HybridDictionary
|
||||
For Each Row As Data.DataRow In dttmp.Rows
|
||||
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
||||
Next
|
||||
UsuarioActual.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
||||
End If
|
||||
objSisEmpresas.Dispose()
|
||||
|
||||
TxtHorarioDe.Text = UsuarioActual.Empresa.Funcionalidad(546).Split("|"c)(0)
|
||||
TxtHorarioA.Text = UsuarioActual.Empresa.Funcionalidad(546).Split("|"c)(1)
|
||||
UpBodyHorariosPedidos.Update()
|
||||
RegistraScript("$('#divHorariosPedidos').modal({ backdrop: 'static', keyboard: false});")
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user