From 3ec957fb77e1207a18a5d764b5234cae22e852c3 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 7 Mar 2022 18:28:41 -0700 Subject: [PATCH] RepOrigen Aplicacion , seleimina PolizasImpresion.aspx de contabilidad 2 --- App_Code/ClsContabilidad.vb | 24 +++++ App_Code/ClsPaginas.vb | 1 - Contabilidad/RepOrigenAplicacion.aspx | 10 ++ Contabilidad/RepOrigenAplicacion.aspx.vb | 60 +++++++++--- Contabilidad2/PolizasImpresion.aspx | 116 ----------------------- Contabilidad2/PolizasImpresion.aspx.vb | 111 ---------------------- vwd.webinfo | 2 + 7 files changed, 85 insertions(+), 239 deletions(-) delete mode 100644 Contabilidad2/PolizasImpresion.aspx delete mode 100644 Contabilidad2/PolizasImpresion.aspx.vb diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 1fa789d2c..4add4e889 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6629,6 +6629,30 @@ Public Class ClsContabilidad End Function + Public Function GetRepOrigenAplicacion(FechaFin As Date, CveEmpresa As Integer) As Boolean + Dim Respuesta As Boolean = False + + DataAdapter("PA_Conta_RepOrigenAplicacionGet2") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + + End With + Try + SqlAdapter.Fill(Data) + Respuesta = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el reporte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Respuesta + + End Function + + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d921cbd71..a2c0e9929 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4863,7 +4863,6 @@ Public Class ClsPaginas 'PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530) PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724) PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725) - PaginaDict.Add("/Contabilidad2/PolizasImpresion.aspx".ToUpper(), 726) PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420) PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1) diff --git a/Contabilidad/RepOrigenAplicacion.aspx b/Contabilidad/RepOrigenAplicacion.aspx index a5a43cbde..68b37fb1b 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx +++ b/Contabilidad/RepOrigenAplicacion.aspx @@ -1,6 +1,16 @@ <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOrigenAplicacion.aspx.vb" Inherits="Contabilidad_RepOrigenAplicacion" %> + + +
  • + +
    • +     + + + +     diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb index 8da89fb33..b5b3bf848 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx.vb +++ b/Contabilidad/RepOrigenAplicacion.aspx.vb @@ -81,6 +81,16 @@ Partial Class Contabilidad_RepOrigenAplicacion TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty) + + If UsuarioActual.Empresa.UsaContabilidadSIG Then + + TabMensual.Enabled = False + TabAnual.Enabled = False + TdFI.Visible = False + tdTipoReporte.Visible = False + + End If + End If End Sub @@ -139,23 +149,48 @@ Partial Class Contabilidad_RepOrigenAplicacion #Region " NORMAL " Private Sub CargaDatos() - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) - Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) - If ObjConta.GetOrigenAplicacion(FechaInicio, FechaFin) Then - DtDatos = ObjConta.DtResultados + LnkExcel.Visible = False + + If UsuarioActual.Empresa.UsaContabilidadSIG Then + Dim ObjConta As New ClsContabilidad + + If ObjConta.GetRepOrigenAplicacion(TxtFechaAl.Text.ToDate, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjConta.DtResultados + + If ObjConta.DtResultados.Rows.Count > 0 Then + LnkExcel.Visible = True + End If + Else + GvDatos.DataSource = Nothing + End If + ObjConta.Dispose() + GvDatos.DataBind() + Else - DtDatos = Nothing - Alert("Ocurrio un error al cargar los datos de origen y aplicación", TipoMensaje.MsgError) - End If - ObjConta.Dispose() + + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + + Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) + Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) + + If ObjConta.GetOrigenAplicacion(FechaInicio, FechaFin) Then + DtDatos = ObjConta.DtResultados - If DtDatos IsNot Nothing Then - CargaGrid() + Else + DtDatos = Nothing + Alert("Ocurrio un error al cargar los datos de origen y aplicación", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + + If DtDatos IsNot Nothing Then + CargaGrid() + End If End If + End Sub Private Sub CargaGrid() @@ -334,4 +369,7 @@ Partial Class Contabilidad_RepOrigenAplicacion #End Region + Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) + GvDatos.ExportToExcel2("RepOrigenAplicacion.xlsx") + End Sub End Class diff --git a/Contabilidad2/PolizasImpresion.aspx b/Contabilidad2/PolizasImpresion.aspx deleted file mode 100644 index 7664693c0..000000000 --- a/Contabilidad2/PolizasImpresion.aspx +++ /dev/null @@ -1,116 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PolizasImpresion.aspx.vb" Inherits="Contabilidad2_PolizasImpresion" %> - - - - - - - - - - - - - -
    -
    -
    - -
    -
    -
    - -
    - -
    - - - - - - - - - - -
    -
    - -
    - -
    - - - - - - - - - - -
    -
    - -
    - -
    -
    -
    -
    -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    - -
    -
    - -
    - -
    - -
    - -
    - - - - - - - -
    - - -
    - - - - - -
    - -
    - -
    -
    -     - -     - - - diff --git a/Contabilidad2/PolizasImpresion.aspx.vb b/Contabilidad2/PolizasImpresion.aspx.vb deleted file mode 100644 index 1260c2550..000000000 --- a/Contabilidad2/PolizasImpresion.aspx.vb +++ /dev/null @@ -1,111 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports Extensiones -Imports System.Activities.Statements -Imports Microsoft.Reporting.WebForms - -Partial Class Contabilidad2_PolizasImpresion - Inherits ClsPaginas - - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete - If Not IsPostBack Then - TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString - TxtFechaFin.Text = Now.ToShortDateString - - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) - DdlUsuarioRegistro.DataBind() - cargaddlpolizas() - CargaSubProyectos() - CargaCuentas() - End If - End Sub - Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click - Dim foli As Integer = -1 - Dim folf As Integer = -1 - If Not FolioInicio.Text = "" Then - foli = FolioInicio.Text.ToEntero() - End If - If Not FolioFin.Text = "" Then - folf = FolioFin.Text.ToEntero() - End If - - Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc" - - If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then - ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta) - End If - - Dim ObjConta As New ClsContabilidad - If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli, - FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, - CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero, - CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then - If ObjConta.DtResultados.Rows.Count < 10000 Then - - If ObjConta.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow - dr = ObjConta.DtResultados.Rows(0) - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text)) - params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) - 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) - params.Add(New ReportParameter("Numero", dr("Folio").ToString)) - params.Add(New ReportParameter("Moneda", "")) - params.Add(New ReportParameter("CodigoPostal", "")) - - If UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("UsuarioRegistro", dr("NombreUsuario").ToString)) - End If - - ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params) - - Else - Alert("Los Filtros Actuales no contienen datos") - End If - - Else - Alert("Los Filtros Actuales contienen muchos datos") - End If - End If - ObjConta.Dispose() - - End Sub - Private Sub cargaddlpolizas() - Dim objcont As New ClsContabilidad - If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then - ddlTipoPoliza.DataSource = objcont.DtResultados - ddlTipoPoliza.DataBind() - ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1")) - - End If - objcont.Dispose() - DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - - Private Sub CargaSubProyectos() - DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) - DdlSubProyectos.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectos.Items.Insert(1, New ListItem("Sin Asignar", "-2")) - End Sub - - Private Sub CargaCuentas() - - Dim objconta As New ClsContabilidad - If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then - DdlCuenta.DataSource = objconta.DtResultados - End If - objconta.Dispose() - DdlCuenta.DataBind() - - DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - -End Class diff --git a/vwd.webinfo b/vwd.webinfo index 79e6f2494..3743f868d 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -440,6 +440,8 @@ + +