Avance en Circular y CircularDetalle

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
 

OI/Circular.aspx

@@ -16,6 +16,9 @@
             <li>
                 <asp:HyperLink ID="LnkAgregar" runat="server" NavigateUrl="/OI/CircularDetalle.aspx?CveCircular=-1"> Agregar Circular</asp:HyperLink>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -30,7 +33,7 @@
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros caption magindate">
-                        <div class="row">
+                        <div class="row" style="width:90%">
                             <div class="col-md-1 truncate text-right">Fecha Inicial: </div>
                             <div class="col-md-3 col-sm-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
@@ -53,6 +56,10 @@
                                 <ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaMes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
+                            <div class="col-md-1 truncate text-right">Usuario: </div>
+                            <div class="col-md-3 col-sm-2">
+                                <asp:DropDownList runat="server" ID="DdlUsuario" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="select2me"/>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -61,15 +68,15 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Motivo de Baja Registrados" 
-                ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Motivo de Baja Registrados"
+                ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
                 <Columns>
-                    <asp:HyperLinkField HeaderText="Asunto" datatextfield="Asunto" datanavigateurlfields="CveCircular" datanavigateurlformatstring="/OI/CircularDetalle.aspx?CveCircular={0}"  />
-                    <asp:HyperLinkField HeaderText="Usuario" datatextfield="Usuario" datanavigateurlfields="CveCircular" datanavigateurlformatstring="/OI/CircularDetalle.aspx?CveCircular={0}"  />
+                    <asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalle.aspx?CveCircular={0}" />
+                    <asp:HyperLinkField HeaderText="Usuario" DataTextField="Usuario" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalle.aspx?CveCircular={0}" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
+</asp:Content>

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

OI/CircularDetalle.aspx

@@ -20,18 +20,13 @@
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UpCliente" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 473px;">
+    <asp:UpdatePanel ID="UpCliente" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 40%;">
         <ContentTemplate>
             <div class="portlet-title">
                 <div class="caption font-green">
 
                     <i class="icon-pin font-green"></i>
-                    <%--<span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact', 800, 547, 'N', 'PopUpBuscar')">Cliente:  </a></span>--%>
-                    <%--<asp:LinkButton ID="LnkAgregarCliente" runat="server" AlternateText="Agregar Cliente" Text="<i class='fa fa-plus-square'></i>" />--%>
-                    <%--<asp:TextBox ID="TxtCodigo" runat="server" AutoPostBack="true" BorderStyle="None" Width="65px"></asp:TextBox>--%>
-                    <%--<asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
-                    <asp:HiddenField ID="HdnIndices" runat="server" ClientIDMode="Static" Value="-1" />
-                    <asp:Button ID="BtnBuscarCliente" runat="server" ClientIDMode="Static" Text="Buscar Cliente" Style="display: none;" class="btn btn-primary" />--%>
+
                 </div>
                 <div class="actions">
                     <div class="btn-group">
@@ -47,37 +42,40 @@
                     <div class="col-md-1" style="width: 100%">
                         <br />
                         <div class="row">
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 30%">
                                 <asp:Label runat="server" ID="LblAsunto">Asunto:</asp:Label>
                             </div>
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 70%">
                                 <asp:TextBox runat="server" ID="TxtAsunto"></asp:TextBox>
                             </div>
                         </div>
                         <br />
                         <div class="row">
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 30%">
                                 <asp:Label runat="server" ID="LblCorreo">Para:</asp:Label>
                             </div>
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 45%">
                                 <textarea runat="server" id="TxtCorreo" class="form-control"></textarea>
                             </div>
+                            <div class="col-md-1" style="width: 15%">
+                                <asp:LinkButton runat="server" ID="LbBuscar">Buscar</asp:LinkButton>
+                            </div>
                         </div>
                         <br />
                         <div class="row">
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 30%">
                                 <asp:Label runat="server" ID="LblCorreoExtra">Correos Adicionales:</asp:Label>
                             </div>
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 70%">
                                 <textarea runat="server" id="TxtCorreoAdicional" class="form-control"></textarea>
                             </div>
                         </div>
                         <br />
                         <div class="row">
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 30%">
                                 <asp:Label runat="server" ID="LblCircular">Circular:</asp:Label>
                             </div>
-                            <div class="col-md-1" style="width: 50%">
+                            <div class="col-md-1" style="width: 70%">
                                 <textarea runat="server" id="TxtCircular" class="form-control"></textarea>
                             </div>
                         </div>
@@ -90,6 +88,64 @@
                     </div>
                 </div>
             </div>
+            <div id="ModalDescuento" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog">
+
+                    <!-- Modal content-->
+                    <div class="modal-content" style="width: 800px">
+                        <div class="modal-header ">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="LblTitulo1" runat="server" ClientIDMode="Static" Text="Descuento:" Style="display: none;"></asp:Label>
+                                <asp:Label ID="LblTitulo2" runat="server" ClientIDMode="Static" Text="Amortización de Anticipos:" Style="display: none;"></asp:Label></h4>
+                            <br />
+                        </div>
+
+                        <div class="modal-body">
+                            <div class="row" style="width: 85%; text-align: center">
+                                <div class="col-md-1 truncate text-right" style="width: 20%; text-align: right">Rol: </div>
+                                <div class="col-md-3 col-sm-2" style="width: 20%; text-align: left">
+                                    <asp:DropDownList runat="server" ID="DdlRolesFiltro" DataValue="CveRol" DataTextField="Rol" CssClass="select2me" />
+                                </div>
+                                <div class="col-md-1 truncate text-right" style="width: 20%; text-align: right">Sucursales: </div>
+                                <div class="col-md-3 col-sm-2" style="width: 20%; text-align: left">
+                                    <asp:DropDownList runat="server" ID="DdlSucursales" DataValue="CveProyecto" DataTextField="SubProyecto" CssClass="select2me" />
+                                </div>
+                                <div class="col-md-3 col-sm-2" style="width: 20%; text-align: right">
+                                    <asp:Button ID="BtnBuscar" runat="server" CssClass="btn btn-primary" Text="Buscar" Visible="true" ValidationGroup="GrpGuardar" />
+                                </div>
+                            </div>
+                            <div class="row" style="margin-top: 30px; ">
+                                <asp:UpdatePanel runat="server" ID="UpUsuarios" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Nombre,Correo" EmptyDataText="No se encontraron Motivo de Baja Registrados"
+                                            ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover ScrollAD" Style="margin-top: 0px; text-align: center; width: 100%" GridLines="None">
+                                            <Columns>
+                                                <asp:BoundField HeaderText="Nombre" DataField="Nombre">
+                                                    <ItemStyle Width="50%" HorizontalAlign="Left" Wrap="true" />
+                                                </asp:BoundField>
+                                                <asp:BoundField HeaderText="Correo" DataField="Correo">
+                                                    <ItemStyle Width="50%" HorizontalAlign="Left" Wrap="true" />
+                                                </asp:BoundField>
+                                            </Columns>
+                                        </asp:GridView>
+
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>
+                                    <%--<asp:Button ID="BtnAplicarDescP" runat="server" ClientIDMode="Static" OnClientClick="$('#ModalDescuento').modal('hide'); event.preventDefault();" Text="Aplicar" ValidationGroup="GrpDescuentoP" Style="display: none;" CssClass="btn btn-primary" />--%>
+                                    <asp:Button ID="BtnAplicarDescG" runat="server" ClientIDMode="Static" Text="Aplicar" ValidationGroup="GrpDescuentoP" CssClass="btn btn-primary" />
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

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