From 94cdd343379c50dca8231f53b60255fc2695a910 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 17 Apr 2020 19:14:18 -0700 Subject: [PATCH] Avance en Circular y CircularDetalle --- App_Code/ClsOIEventos.vb | 4 +- OI/Circular.aspx | 19 ++++++--- OI/Circular.aspx.vb | 36 +++++++++++++++- OI/CircularDetalle.aspx | 86 +++++++++++++++++++++++++++++++------- OI/CircularDetalle.aspx.vb | 57 ++++++++++++++++++++++++- 5 files changed, 177 insertions(+), 25 deletions(-) diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 54044a384..1f2f3f51c 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -1357,7 +1357,8 @@ Public Class ClsOIEventos #End Region #Region "Circular" - Public Function GetCircular(CveEmpresa As Integer, Optional CveCircular As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1") As Boolean + Public Function GetCircular(CveEmpresa As Integer, Optional CveCircular As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1", + Optional CveUsuario As Integer = -1) As Boolean FechaI = If(FechaI = "-1", Today.AddYears(-1).ToString, FechaI) FechaF = If(FechaF = "-1", Today.AddYears(1).ToString, FechaF) @@ -1371,6 +1372,7 @@ Public Class ClsOIEventos .Add("@CveCircular", SqlDbType.Int).Value = CveCircular .Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With diff --git a/OI/Circular.aspx b/OI/Circular.aspx index a7b7ad95d..1007eefbe 100644 --- a/OI/Circular.aspx +++ b/OI/Circular.aspx @@ -16,6 +16,9 @@
  • Agregar Circular
    • +
  • + PDF +
    • @@ -30,7 +33,7 @@
    -
    +
    Fecha Inicial:
    @@ -53,6 +56,10 @@
    +
    Usuario:
    +
    + +
    @@ -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 @@

    -
    +
    Asunto:
    -
    +

    -
    +
    Para:
    -
    +
    +
    + Buscar +

    -
    +
    Correos Adicionales:
    -
    +

    -
    +
    Circular:
    -
    +
    @@ -90,6 +88,64 @@
    + 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