diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 9d36dd399..2d8280cbb 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1540,6 +1540,22 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetRepResumenMovimientosDiario(Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Inv_RepResumenMovimientosDiarioGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + 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 Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index aecba94a2..6cf4c4ce7 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10424,6 +10424,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/RepEntregaAlmacenRuta.aspx".ToUpper(), 1319) PaginaDict.Add("/Inventarios/CartaPorteManual.aspx".ToUpper(), 1321) PaginaDict.Add("/Inventarios/EntradasSalidas.aspx?AL=1".ToUpper(), 1334) + PaginaDict.Add("/Inventarios/RepResumenMovimientosDiario.aspx".ToUpper(), 896) #End Region #Region "MF" PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801) diff --git a/Inventarios/RepResumenMovimientosDiario.aspx b/Inventarios/RepResumenMovimientosDiario.aspx new file mode 100644 index 000000000..f85ba112b --- /dev/null +++ b/Inventarios/RepResumenMovimientosDiario.aspx @@ -0,0 +1,211 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepResumenMovimientosDiario.aspx.vb" Inherits="Inventarios_RepResumenMovimientosDiario" %> + + + + + + + + Resumen de movimientos del cierre del dia + + + + + + +
  • + Exportar a PDF +
    • +     + + + +     +     + + + + + +
    +
    +
    + +
    +
    +
    +
    Fecha del mes:
    +
    +
    + + + + +
    + + +
    +
    +
    +
    +
    +     +     +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + diff --git a/Inventarios/RepResumenMovimientosDiario.aspx.vb b/Inventarios/RepResumenMovimientosDiario.aspx.vb new file mode 100644 index 000000000..772abfb28 --- /dev/null +++ b/Inventarios/RepResumenMovimientosDiario.aspx.vb @@ -0,0 +1,63 @@ +Option Strict On +Option Explicit On + +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms +Partial Class Inventarios_RepResumenMovimientosDiario + 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 + TxtFechaMes.Text = NowADS().ToString("dd/MM/yyyy") + End If + End Sub + + Private Sub CargarDatos() + Dim ObjInventarios As New ClsInventarios + If ObjInventarios.GetRepResumenMovimientosDiario(TxtFechaMes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + DtDatos = ObjInventarios.DtResultados.Copy() + GvDatos.DataSource = DtDatos + End If + ObjInventarios.Dispose() + GvDatos.DataBind() + End Sub + + Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click + CargarDatos() + UPDatos.Update() + End Sub + + Private Sub GenerarPDF(Optional Formato As String = "PDF") + If GvDatos.Rows.Count > 0 Then + If DtDatos IsNot Nothing Then + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 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)) + params.Add(New ReportParameter("Fecha", TxtFechaMes.Text)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString)) + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + ImprimirPDF("Empresas/Grales/Formatos/RepResumenMovimientosDiario.rdlc", DtDatos, params, "Reporte Diario", Formato) + End If + Else + Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia) + End If + + End Sub + + Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) + GenerarPDF("PDF") + End Sub +End Class