-
@@ -61,15 +68,15 @@
-
+
-
-
+
+
-
\ No newline at end of file
+
diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb
index f9649b090..1a0b342f6 100644
--- a/OI/Circular.aspx.vb
+++ b/OI/Circular.aspx.vb
@@ -1,10 +1,21 @@
Imports System.Data
Imports System.Linq
Imports Extensiones
+Imports Microsoft.Reporting.WebForms
Partial Class OI_Circular
Inherits ClsPaginas
+ Private Property DtDatos As DataTable
+ Get
+ DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+ End Get
+
+ Set(ByVal value As DataTable)
+ ViewState("DtDatos") = value
+ End Set
+ End Property
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
IniciarFiltros()
@@ -16,11 +27,16 @@ Partial Class OI_Circular
Dim FechaF As DateTime = New DateTime(Today.Year, Today.Month, 1).AddMonths(1).AddDays(-1)
TxtFechaI.Text = FechaI.ToString()
TxtFechaF.Text = FechaF.ToString
+
+ DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlUsuario.DataBind()
+ DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Private Sub CargaDatos()
Dim ObjOI As New ClsOIEventos
- If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text) Then
+ If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text, DdlUsuario.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjOI.DtResultados
+ DtDatos = ObjOI.DtResultados
End If
ObjOI.Dispose()
GvDatos.DataBind()
@@ -29,4 +45,22 @@ Partial Class OI_Circular
Protected Sub btConsultar_Click() Handles btConsultar.Click
CargaDatos()
End Sub
+
+ Protected Sub LnkPDF_Click() Handles LnkPDF.Click
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+ params.Add(New ReportParameter("FechaImpresion", Today))
+ params.Add(New ReportParameter("Filtros", String.Format("Fecha Inicial: {0} Fecha Final: {1}", TxtFechaI.Text, TxtFechaF.Text)))
+
+ ImprimirPDF("Empresas/Grales/Formatos/Circulares.rdlc", DtDatos, params, "Circulares", "PDF", RDSName:="DataSet1")
+ End Sub
End Class
diff --git a/OI/CircularDetalle.aspx b/OI/CircularDetalle.aspx
index 61f187fd2..5a2c42c86 100644
--- a/OI/CircularDetalle.aspx
+++ b/OI/CircularDetalle.aspx
@@ -20,18 +20,13 @@
-
+
- <%--
Cliente: --%>
- <%--
--%>
- <%--
--%>
- <%--
-
-
--%>
+
@@ -47,37 +42,40 @@
-
+
-
-
+
-
-
+
+
+
+
+
+
+
+
+
+
Rol:
+
+
Sucursales:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb
index c0f1202c5..fc6b34624 100644
--- a/OI/CircularDetalle.aspx.vb
+++ b/OI/CircularDetalle.aspx.vb
@@ -5,6 +5,15 @@ Imports Extensiones
Partial Class OI_CircularDetalle
Inherits ClsPaginas
+ Private Property DtUsuarios As DataTable
+ Get
+ Return If(IsNothing(ViewState("DtUsuarios")), Nothing, CType(ViewState("DtUsuarios"), DataTable))
+ End Get
+ Set(value As DataTable)
+ ViewState("DtUsuarios") = value
+ End Set
+ End Property
+
Private Property CveCircular As Integer
Get
Return ViewState("CveCircular").ToString.ToEntero
@@ -31,10 +40,10 @@ Partial Class OI_CircularDetalle
Private Sub ConfigurarBotones()
If CveCircular > 0 Then
- BtnGuardar.Text = "Guardar"
+ BtnGuardar.Text = "Actualizar"
BtnEliminar.Visible = True
Else
- BtnGuardar.Text = "Actualizar"
+ BtnGuardar.Text = "Guardar"
End If
End Sub
@@ -53,6 +62,14 @@ Partial Class OI_CircularDetalle
End If
ObjOI.Dispose()
End If
+
+ DdlRolesFiltro.DataSource = GlobalDTRoles(UsuarioActual.CveEmpresa)
+ DdlRolesFiltro.DataBind()
+ DdlRolesFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ DdlSucursales.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+ DdlSucursales.DataBind()
+ DdlSucursales.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub BtnGuardar_Click() Handles BtnGuardar.Click
@@ -76,4 +93,40 @@ Partial Class OI_CircularDetalle
End If
ObjOI.Dispose()
End Sub
+
+ Protected Sub LbBuscar_Click(sender As Object, e As EventArgs) Handles LbBuscar.Click
+ LimpiarModal()
+ RegistraScript("$('#ModalDescuento').modal()")
+ End Sub
+
+ Private Sub LimpiarModal()
+ DdlRolesFiltro.SelectedValue = -1
+ DdlSucursales.SelectedValue = -1
+ GvUsuarios.DataSource = Nothing
+ GvUsuarios.DataBind()
+ UpUsuarios.Update()
+ End Sub
+
+ Protected Sub BtnBuscar_Click() Handles BtnBuscar.Click
+ Dim buscadorQuery As New StringBuilder
+ buscadorQuery.Append(If(DdlRolesFiltro.SelectedValue.ToEntero > 0, String.Format("CveRol = {0}", DdlRolesFiltro.SelectedValue), ""))
+ buscadorQuery.Append(If(DdlSucursales.SelectedValue.ToEntero > 0, String.Format("{0} CveSubProyecto = {1}", If(buscadorQuery.Length > 0, "AND", ""), DdlSucursales.SelectedValue), ""))
+ GvUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+ DtUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+ GvUsuarios.DataBind()
+ UpUsuarios.Update()
+ RegistraScript("$('#ModalDescuento').modal()")
+ End Sub
+
+ Private Sub BtnAplicarDescG_Click() Handles BtnAplicarDescG.Click
+ Dim UsuariosCorreos As String = ""
+ For Each usuario As DataRow In DtUsuarios.Rows
+ If usuario.Item("Correo").ToString.Length > 0 Then
+ UsuariosCorreos = String.Format("{0}{1}" & Environment.NewLine, UsuariosCorreos, usuario.Item("Correo").ToString)
+ End If
+ Next
+ TxtCorreo.Value = UsuariosCorreos
+ RegistraScript("$('#ModalDescuento').modal('hide')")
+ UpCliente.Update()
+ End Sub
End Class