Se agrego accion en RepPedidosSTF para cambiar el horario valido para crear pedidos

This commit is contained in:
RPimienta
2024-09-09 14:02:30 -06:00
parent d553788bc0
commit 8abde5eae5
2 changed files with 233 additions and 143 deletions

View File

@@ -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