diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 0c79bc652..591b8d100 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6631,6 +6631,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/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index a7c6401b3..576b6b90b 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -31,11 +31,22 @@ Public Class ClsEdocumentacion SqlAdapter.SelectCommand.Transaction = SqlTransacc End If Data = New DataTable - End Sub - - + End Sub + + +#End Region +#Region "materialidad" + + Public Function Materialidad_Tablero(cveEmpresa As Int32, anio As Int32, mes As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Materialidad_TableroGET", CommandType.StoredProcedure) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@Anio", SqlDbType.Int, anio) + addParameters("@Mes", SqlDbType.Int, mes) + retorno = RunQuery("Ocurrió un error al obtener el Materialidad_Tablero.") + Return retorno + End Function #End Region - #Region "Propiedades" Public ReadOnly Property DSResultados() As DataSet Get diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d921cbd71..0d33d9c0c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4264,7 +4264,7 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/ChecadorAsistencia.aspx".ToUpper(), 921) PaginaDict.Add("/Nomina/ISRCalculoAnual.aspx".ToUpper(), 918) PaginaDict.Add("/Nomina/MovimientosSUA.aspx".ToUpper(), 919) - 'PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916) + PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916) PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915) PaginaDict.Add("/Inicio.aspx".ToUpper(), -1) PaginaDict.Add("/reporteador.aspx".ToUpper(), -1) @@ -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/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx index b5874d606..69fbb1c06 100644 --- a/Documentacion/TableroMaterialidad.aspx +++ b/Documentacion/TableroMaterialidad.aspx @@ -1,92 +1,19 @@ <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="TableroMaterialidad.aspx.cs" Inherits="Documentacion_TableroMaterialidad" %> - + - - + - - Materialidad + - + - - - - -
  • - -
    • -
  • - Cargar Doctos - <%--Cargar Doctos--%> -
    • -
  • - Cargar XML PDF - <%--Cargar XML PDF--%> -
    • -
  • Enviar
    • -     -     + - + - - - + +
    @@ -98,13 +25,18 @@
    +
    Cliente:
    +
    + +
    Año:
    - +
    +
    MES:
    +
    -
    Mes:
    -
    @@ -130,707 +62,121 @@
    - - -
    - - - - - - - - - - - - - - <%-- class='Modulo5' - - - - - - - - - --%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Cliente><%# DataBinder.Eval(Container.DataItem, "Documentacion") %>
    <%# String.Format("{0:dd/MM/yyyy} - {1:dd/MM/yyyy}", DataBinder.Eval(Container.DataItem, "InicioPeriodo"), DataBinder.Eval(Container.DataItem, "FinPeriodo")) %> <%# DataBinder.Eval(Container.DataItem, "Antiguedad") %> <%# DataBinder.Eval(Container.DataItem, "DiasVacaciones") %> <%# DataBinder.Eval(Container.DataItem, "Dias") %> <%# DataBinder.Eval(Container.DataItem, "DiasDisfrutados") %> <%# DataBinder.Eval(Container.DataItem, "DiasPrima") %>
    XML TimbradosPDF Timbrados - - - - - - -
    <%# string.Format("{1}",DataBinder.Eval(Container.DataItem, "CveCliente"),DataBinder.Eval(Container.DataItem, "NombreComercial")) %><%# - DataBinder.Eval( ((RepeaterItem)Container.Parent.Parent).DataItem ,string.Format("V_{0}",DataBinder.Eval(Container.DataItem, "CveDocumentacion"))).ToString() =="-1" ? "N/A": - string.Format("{0}", - (DataBinder.Eval( ((RepeaterItem)Container.Parent.Parent).DataItem ,string.Format("V_{0}",DataBinder.Eval(Container.DataItem, "CveDocumentacion"))).ToString() =="0"? - - - "No": - - - "Si") - - ,DataBinder.Eval(Container.DataItem, "CveDocumentacion"),DataBinder.Eval(((RepeaterItem)Container.Parent.Parent).DataItem, "CveCliente") - ,DataBinder.Eval(Container.DataItem, "Documentacion"),DataBinder.Eval(((RepeaterItem)Container.Parent.Parent).DataItem, "NombreComercial") - ) - - - %> - <%# string.Format("{1}/{0}",DataBinder.Eval(Container.DataItem, "Personal"),DataBinder.Eval(Container.DataItem, "PersonalXML"),DataBinder.Eval(Container.DataItem, "CveCliente"),anio,mes) %> - - <%# string.Format("{1}/{0}",DataBinder.Eval(Container.DataItem, "Personal"),DataBinder.Eval(Container.DataItem, "PersonalPDF"),DataBinder.Eval(Container.DataItem, "CveCliente"),anio,mes) %> - - - <%-- <%# string.Format("Enviar",DataBinder.Eval(Container.DataItem, "CveCliente"),anio,mes) %>--%> -
    - -
    +
    -
    - - Historial de envio +
    + + Materialidad informacion del periodo
    +
    + +
    +
    +
    +
    +
    +
    + +
    -
    - - - - - - - - - - - - - - - - - - - - - - -
    -
    - - - - - -