AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

nuevo reporte

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-02-28 18:41:21 -07:00
parent 8253081b9c
commit dce00384d4
4 changed files with 443 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
App_Code/ClsPaginas.vb
View File

@@ -4662,6 +4662,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/RepRemisionesNC.aspx".ToUpper(), 687)
PaginaDict.Add("/Ventas/CatCobranzaEstatus.aspx".ToUpper(), 7003)
PaginaDict.Add("/Ventas/CatCobranzaEstatusTurno.aspx".ToUpper(), 7004)
PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720)
#End Region

22
App_Code/ClsVentas.vb
View File

@@ -4216,6 +4216,28 @@ Public Class ClsVentas
Return retorno
'compila
End Function
Public Function GetRepVentasMensuales(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, Optional CveSubProyecto As Integer = -1, Optional CveClasificacion As Integer = -1,
Optional CveVendedor As Integer = -1, Optional CveMarca As Integer = -1, Optional Modalidad As Integer = 0) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Vta_VentasMensualesGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
.Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@Modalidad", SqlDbType.Int).Value = Modalidad
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return retorno
End Function
#Region "Conciliación emitidas SAT"
Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean

332
Ventas/RepVentasMensuales.aspx Normal file
View File

@@ -0,0 +1,332 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentasMensuales.aspx.vb" Inherits="RepVentasMensuales" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.table-scrollable {
margin-top: 0px !important;
margin-bottom: 0px !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Ventas Mensuales
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server">
<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">Proveedor</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
</div>--%>
<div class="col-md-1 truncate">Fecha Inicio: </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="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div class="col-md-1 truncate">Fecha Fin: </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="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div class="col-md-1 truncate">Sucursal: </div>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
</div>
</div>
<div class="row" style="margin-top:10px">
<div class="col-md-1 truncate" style="width:170px">Clasificación de Productos: </div>
<div class="col-md-2">
<asp:DropDownList ID="DdlClasificacionesPS" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
</div>
<div class="col-md-1 truncate" style="width:170px">Vendedor: </div>
<div class="col-md-2">
<asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
</div>
<div class="col-md-1 truncate" style="width:170px">Marca: </div>
<div class="col-md-2">
<asp:DropDownList ID="DdlMarca" runat="server" CssClass="form-control input-sm select2me" Width="250" DataValueField="CveMarca" DataTextField="Marca"></asp:DropDownList>
</div>
</div>
<div class="row" style="margin-top:10px">
<div class="col-md-1 truncate" style="width:170px">Grupo: </div>
<div class="col-md-2">
<asp:DropDownList ID="DdlModalidad" runat="server" CssClass="form-control input-sm select2me" Width="100px">
<asp:ListItem Value="0">Clientes</asp:ListItem>
<asp:ListItem Value="1">Sucursales</asp:ListItem>
<asp:ListItem Value="2">Productos Servicios</asp:ListItem>
</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="Clave,Nombre,Total"
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="Nombre Cliente" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Nombre").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ene" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Ene").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Feb" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Feb").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Mzo" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Mzo").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Abr" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Abr").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="May" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("May").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Jun" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Jun").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Jul" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Jul").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ago" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Ago").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sep" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Sep").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Oct" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Oct").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Nov" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Nov").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Dic" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Dic").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProveedor" runat="server" Text='<%# Eval("Total").ToString() %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
<%--<script type="text/javascript">
function IrC(v) {
window.open('../Compras/Compras.aspx?CveCompra=' + v, '_blank');
}
function IrO(v) {
window.open('../OC/OC.aspx?OC=' + v, '_blank');
}
function IrP(v) {
window.open('../Compras/Proveedores.aspx?CveProveedor=' + v, '_blank');
}
var dTable;
function pageLoad() {
var Tam = TamañoVentana();
var Alto = Tam.height - 330;
if (Alto < 100) {
Alto = 100;
}
var rows = false;
var cont = 0;
$("#<%=GV.ClientID %> tr").each(function () {
cont++;
});
if (cont > 2) {
var head = $('<thead></thead>');
head.append($('#C_GV tr:nth-child(1)'));
$('#C_GV').prepend(head);
dTable = $('#C_GV').DataTable({
'order': [], 'orderable': true, scrollY: Alto + 'px', scrollCollapse: true, paging: false, searching: false, info: false
});
subHeaders();
}
}
$(window).resize(function () {
subHeaders();
dTable.columns.adjust().draw();
});
function subHeaders() {
$('#dvCa').css('visibility', 'hidden');
$("#<%=GV.ClientID %> tr").each(function() {
if (!this.rowIndex) return;
var celdas = [];
$(this).find('td').each(function (column, td) {
//scrollWidth
//celdas.push($(td).width());
var scrollWidt =0;
scrollWidt = $(td).prop('scrollWidth')
celdas.push($(td).prop('scrollWidth'));
//console.log('this ' + $(this).width());
//console.log('td ' + $(td).width());
});
var ancho = 0
ancho += celdas[0];
//console.log('ancho pro ' + ancho);
$('#dvPro').width(ancho);
ancho = 0;
ancho += celdas[1];
ancho += celdas[2];
ancho += celdas[3];
ancho += celdas[4];
// console.log('ancho req ' + ancho);
$('#dvReq').width(ancho);
ancho = 0;
ancho += celdas[5];
ancho += celdas[6];
ancho += celdas[7];
// console.log('ancho req ' + ancho);
$('#dvOc').width(ancho);
ancho = 0;
ancho += celdas[8];
ancho += celdas[9];
ancho += celdas[10];
// console.log('ancho req ' + ancho);
$('#dvCo').width(ancho);
ancho = 0;
$('#dvCa').css('visibility', 'visible');
return false;
});
}
</script> --%>
</asp:Content>

88
Ventas/RepVentasMensuales.aspx.vb Normal file
View File

@@ -0,0 +1,88 @@
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class RepVentasMensuales
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
InicializarFiltros()
CargaDatos()
End If
End Sub
Private Sub InicializarFiltros()
Dim dNow As Date = Now
TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
dNow = dNow.AddDays(-30)
TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlClasificacionesPS.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacionesPS.DataBind()
DdlClasificacionesPS.Items.Insert(0, New ListItem("Todos", "-1"))
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados
End If
ObjPS.Dispose()
DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaDatos()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then
GV.DataSource = ObjVentas.DtResultados
DtDatos = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
GV.DataBind()
End Sub
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
CargaDatos()
UPDatos.Update()
End Sub
Public 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("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("Modalidad", DdlModalidad.SelectedValue))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
End Sub
Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
End Sub
End Class