+
+
-
-
+
-
-
-
-
-
-
- Sucursal
-
-
+
+
-
-
-
-
-
+
+
+
+
+
+
+ Sucursal
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb
index 5b8f96950..66871f51e 100644
--- a/Ventas/RepPedidosSTF.aspx.vb
+++ b/Ventas/RepPedidosSTF.aspx.vb
@@ -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