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 @@
+
+