diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 20b4b091e..13ed73731 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3975,6 +3975,7 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/RepDocumentacionProveedor.aspx".ToUpper(), 1206) PaginaDict.Add("/Compras/CatPaqueteriasGuiasTipo.aspx".ToUpper(), 753) PaginaDict.Add("/Compras/RepEvaluacionesProveedores.aspx".ToUpper(), 754) + PaginaDict.Add("/Ventas/RepTopCientesVentas.aspx".ToUpper(), 755) #End Region diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8cf504255..e66384a6e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2115,8 +2115,27 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) DtMovimientos = DtMovimientos.FiltraParametros("", "PS") + ElseIf UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("CantidadProductos", "500")) + params.Add(New ReportParameter("CantidadUsados", "500")) + 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) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) + + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) End If + + ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") Else Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 15887b7b5..45e310410 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -19,7 +19,7 @@
  • - Imprimir Reembolso + PDF
    • diff --git a/Empresas/140/Formatos/Traslado.rdlc b/Empresas/140/Formatos/Traslado.rdlc index 8ed80cf00..9cfc9c2ca 100644 --- a/Empresas/140/Formatos/Traslado.rdlc +++ b/Empresas/140/Formatos/Traslado.rdlc @@ -15,7 +15,7 @@ 2.19837cm - 9.27592cm + 8.85259cm 1.41521cm @@ -519,7 +519,7 @@ 0.07056cm 0.00711cm 0.73434cm - 19.56807cm + 19.14474cm @@ -540,10 +540,11 @@ - =Parameters!CantidadProductos.Value + =Sum(Fields!Cantidad.Value, "DsInventarios") @@ -552,7 +553,6 @@ TotalProductos 0.98129cm - 0cm 0.6cm 5.49393cm 1 @@ -580,10 +580,11 @@ - =Parameters!CantidadUsados.Value + =Sum(iif(Fields!Clasificacion.Value = "USADOS",Fields!Cantidad.Value,0),"DsInventarios") @@ -1278,7 +1279,7 @@ - =IIF(Parameters!NombreAccion.Value=-1,"",Parameters!NombreAccion.Value) + =IIF(Parameters!NombreAccion.Value="-1","",Parameters!NombreAccion.Value) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 16.64639cm + 15.93202cm - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + +
  • + PDF +
    • +     + + Reporte de Top de Ventas por Cliente + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + + + + + + + + + + + + + +
    + +
    + + +
    + + +
    + + +
    +
    +
    +
    + +
    +     +     +     + + + diff --git a/Ventas/RepTopClientesVentas.aspx.vb b/Ventas/RepTopClientesVentas.aspx.vb new file mode 100644 index 000000000..ba07c2487 --- /dev/null +++ b/Ventas/RepTopClientesVentas.aspx.vb @@ -0,0 +1,42 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Web.Compilation +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class Ventas_RepTopClientesVentas + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + + End If + End Sub + + Private Sub CargarFiltros() + Dim tablaAños As New DataTable + + Dim idAño As New DataColumn + idAño.ColumnName = "idAño" + idAño.Caption = "idAño" + idAño.DataType = System.Type.GetType("System.Int32") + + Dim Año As New DataColumn + Año.ColumnName = "Año" + Año.Caption = "Año" + Año.DataType = System.Type.GetType("System.Int32") + + tablaAños.Columns.Add(idAño) + tablaAños.Columns.Add(Año) + + Dim añoActual As Integer = DateTime.Now.Year + + For AñoIndex As Integer = añoActual To (añoActual - 10) Step -1 + Dim row As DataRow = tablaAños.NewRow() + 'row["idAño"] = + Next + + End Sub +End Class