Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsVentas.vb

@@ -4306,6 +4306,29 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
+                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaMesActual", SqlDbType.DateTime).Value = FechaMesActual
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de metas por vendedores", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean

General/SaldosIniciales.aspx.vb

@@ -1378,6 +1378,7 @@ Partial Class General_SaldosIniciales
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
                     Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
                     Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
+                    Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString.ToDecimal, 0)
 
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
@@ -1431,7 +1432,7 @@ Partial Class General_SaldosIniciales
                             End If
                             CveVenta = ObjVentas.CveVenta
 
-                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, "Saldo Inicial", 0, 0, -1, 0) Then
+                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, -1, 0, PorcentajeIVA:=PorcentajeIVA) Then
                                 ErrorVentas = True
                                 Exit For
                             End If

Ventas/MetasVendedores.aspx

@@ -56,6 +56,114 @@
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpFiltros">
+        <ContentTemplate>
+            <div class="portlet solid grey-cascade portlet-filter" style="">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 122px; position: relative;">
+                    <div class="tools">
+                        <asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultar" Text="Consultar" /></td>
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros caption magindate">
+                        <div class="row">
+
+                            <div class="col-md-1 truncate text-right">Fecha del mes: </div>
+                            <div class="col-md-2 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;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaMes" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaMes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaMes" PopupButtonID="ImgFechaMes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                            </div>
+
+                            <div class="col-md-1 truncate text-right">Sucursal: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" CssClass="form-control input-sm select2me" Width="50%" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <div class="row" style="margin-top: 10px">
+                            <label class="col-md-1 text-right">Marca: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 text-right">Vendedor: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlVendedorFiltro" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 text-right">Categoria: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <div class="row" style="margin-top: 10px">
+                            <label class="col-md-1 text-right">Clasificaciones: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 text-right">Sub Clasificaciones: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlClasificacion2" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            </div>
+                        </div>
+
+                    </div>
+                </div>
+                <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                    <div class="row">
+                    </div>
+                    <div class="row">
+                    </div>
+                    <div id="DivFamiliaSubFamilia" class="row" runat="server" visible="false">
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div id="dvCuerpo" style="width: 100%">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Titulo,Etiqueta,RealMes,VtaMesAA,RealAcumulado,RealMesPorcentaje"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="HlkGrupo" runat="server" Target="_blank" Text='<%# Eval("Titulo").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ventata Mes Año Anterior" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVtaMesAA" runat="server" Target="_blank" Text='<%# Eval("VtaMesAA").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Acumulado" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealAcumulado" runat="server" Target="_blank" Text='<%# Eval("RealAcumulado").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes Porcentaje" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMesPorcentaje" runat="server" Target="_blank" Text='<%# Eval("RealMesPorcentaje").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
     <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">

Ventas/MetasVendedores.aspx.vb

@@ -4,12 +4,54 @@ Imports Microsoft.Reporting.WebForms
 
 Partial Class MetasVendedores
     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
             CargaDatosModal()
+            CargaDatosFiltros()
+            CargarDatosReporte()
         End If
     End Sub
+    Private Sub CargaDatosFiltros()
+        Dim dNow As Date = Now
+        TxtFechaMes.Text = dNow.ToString("dd/MM/yyyy")
+
+        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoFiltro.DataBind()
+        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarcaFiltro.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarcaFiltro.DataBind()
+        DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedorFiltro.DataBind()
+        DdlVendedorFiltro.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+        DdlCategoria.DataBind()
+        DdlCategoria.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
     Private Sub CargaDatosModal()
         DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
@@ -25,6 +67,17 @@ Partial Class MetasVendedores
         DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
+    Private Sub CargarDatosReporte()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
     Private Sub ResetDatosSeleccionadosModal()
         DdlVendedores.SelectedValue = "-1"
         TxtFechaI.Text = ""
@@ -53,4 +106,45 @@ Partial Class MetasVendedores
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
         ResetDatosSeleccionadosModal()
     End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargarDatosReporte()
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DataKey("Etiqueta")
+                Case "Categoria"
+                    e.Row.CssClass = "Totales"
+                Case "Clasificacion"
+                    e.Row.CssClass = "SubTotales2"
+                Case "Clasificacion2"
+                    e.Row.CssClass = "SubTotales"
+            End Select
+
+            If e.Row.DataKey("Titulo") = "" Then
+                e.Row.Cells(0).Text = "OTRO"
+            End If
+        End If
+    End Sub
+
+    Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) 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("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
+        params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
+
+        ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
+    End Sub
 End Class