Merge branch 'master' of http://192.168.10.111:8383/SIG

Acumuladores/RepRecolecciones.aspx.vb

@@ -42,6 +42,18 @@ Partial Class Acumuladores_RepRecolecciones
             ViewState("Actualizar") = value
         End Set
     End Property
+    Private Property DTPSDefinidos As DataTable
+        Get
+            If ViewState("DTPSDefinidos") Is Nothing Then
+                ViewState("DTPSDefinidos") = New DataTable()
+            End If
+            Return CType(ViewState("DTPSDefinidos"), DataTable)
+        End Get
+        Set(ByVal value As DataTable)
+            ViewState("DTPSDefinidos") = CType(value, DataTable)
+        End Set
+    End Property
+
 
 #End Region
 
@@ -128,15 +140,17 @@ Partial Class Acumuladores_RepRecolecciones
         Dim Str As New StringBuilder
         Str.Append("Productos Definidos <br/>")
         If ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen) Then
-            For Each dr As DataRow In ObjGenerales.DtResultados.Rows
+            DTPSDefinidos = ObjGenerales.DtResultados.Copy()
-                Str.AppendFormat(" {0} - {1}<br/>", dr("Cantidad"), dr("CodigoPS"))
-                HdnPSRecoleccion.Value = dr("CvePS").ToString
-                HdnCantidadRecoleccion.Value = dr("Cantidad").ToString
-            Next
-            LblProductosCargados.Text = Str.ToString
         End If
         ObjGenerales.Dispose()
 
+        For Each dr As DataRow In DTPSDefinidos.Rows
+            Str.AppendFormat(" {0} - {1}<br/>", dr("Cantidad"), dr("CodigoPS"))
+            'HdnPSRecoleccion.Value = dr("CvePS").ToString
+            'HdnCantidadRecoleccion.Value = dr("Cantidad").ToString
+        Next
+        LblProductosCargados.Text = Str.ToString
+
         GvModalPSRecoleccion.DataSource = DTRecoleccion
         GvModalPSRecoleccion.DataBind()
         UpModalRecoleccion.Update()
@@ -204,11 +218,12 @@ Partial Class Acumuladores_RepRecolecciones
 
     Private Sub BtnModalRecoleccionGuardar_Click(sender As Object, e As EventArgs) Handles BtnModalRecoleccionGuardar.Click
 
-        Dim Cantidad As Decimal = HdnCantidadRecoleccion.Value.ToDecimal
+        Dim Cantidad As Decimal = DTPSDefinidos.SUMD("Cantidad")
         Dim CantidadDefinido As Decimal = 0
         For Each gvr As GridViewRow In GvModalPSRecoleccion.Rows
             CantidadDefinido += gvr.DataKey("Cantidad").ToDecimal
         Next
+
         If CantidadDefinido <> Cantidad Then
             Alert("La cantidad definida no es la correcta", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -220,13 +235,19 @@ Partial Class Acumuladores_RepRecolecciones
         Dim ErrorMovInv As Boolean = False
         Dim Fecha As DateTime = NowADS()
         Dim Concepto As String = "Traspaso Recolección"
+
         Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 45, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveEntregaAlmacen:=CveEntregaAlmacen, Modulo:="clasifUsados")
         Dim FolioSalida As Integer = ObjInventario.Folio
+
+        For Each Row As DataRow In DTPSDefinidos.Rows
+            Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=Row("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero
+            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Row("Cantidad").ToString().ToDecimal, CveUM, Row("CvePS").ToString().ToEntero(), 0) Then
+                ErrorMovInv = True
+            End If
+        Next
+
         Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 42, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida, CveEntregaAlmacen:=CveEntregaAlmacen, Modulo:="clasifUsados")
-        Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero
+
-        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then
-            ErrorMovInv = True
-        End If
         'HdnPSRecoleccion
         For Each gvr As GridViewRow In GvModalPSRecoleccion.Rows
             Dim CveMovtoDetalle As Integer

App_Code/ClsClientes.vb

@@ -165,6 +165,7 @@ Public Class ClsClientes
     Public Property EnDemanda As Boolean = False
     Public Property EnQuebranto As Boolean = False
     Public Property GastosEnvio As Decimal = 0
+    Public Property EsFilial As Boolean = False
 
 
 #End Region
@@ -421,7 +422,7 @@ Public Class ClsClientes
                 _EnQuebranto = CBool(Data(0)("EnQuebranto"))
                 _CreditoRegistroFirmas = Data(0)("CreditoRegistroFirmas").ToString
                 _GastosEnvio = Data(0)("GastosEnvio").ToString.ToDecimal
-
+                _EsFilial = CBool(Data(0)("EsFilial"))
             End If
             Retorno = True
         Catch ex As Exception
@@ -539,7 +540,7 @@ Public Class ClsClientes
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0) As Boolean
+                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -675,6 +676,7 @@ Public Class ClsClientes
             .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
             .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas
             .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
+            .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -721,7 +723,7 @@ Public Class ClsClientes
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                 Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0) As Boolean
+                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -867,6 +869,7 @@ Public Class ClsClientes
             .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
             .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas
             .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
+            .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsContPAQi.vb

@@ -7399,7 +7399,7 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
 
-    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, Optional CveEmpresa As Integer = -1) As Boolean
+    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, FolioPoliza As Integer, Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         StrSQL.Clear()
@@ -7411,6 +7411,7 @@ Public Class ClsContPAQi
         StrSQL.Append("		WHERE P.Ejercicio = @Ejercicio ")
         StrSQL.Append("			AND P.Periodo = @Periodo ")
         StrSQL.Append("			AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
+        StrSQL.Append("			AND (@FolioPoliza = -1 OR P.Folio = @FolioPoliza) ")
         StrSQL.Append("			AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
         StrSQL.Append("		GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
         StrSQL.Append("		ORDER BY P.Folio ")
@@ -7423,8 +7424,8 @@ Public Class ClsContPAQi
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
             .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
             .Add("@SegmentoNegocio", SqlDbType.Int).Value = SegmentoNegocio
+            .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsContabilidad.vb

@@ -6529,7 +6529,7 @@ Public Class ClsContabilidad
 
 #End Region
 
-    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, FolioPoliza As Integer, CveEmpresa As Integer) As Boolean
         Dim Respuesta As Boolean = False
 
         DataAdapter("PA_Conta_FiltraPolizasGet")
@@ -6539,15 +6539,15 @@ Public Class ClsContabilidad
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
             .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .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  las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener las Pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Respuesta

App_Code/ClsMovimientos.vb

@@ -1539,6 +1539,7 @@ Public Class ClsMovimientos
                                         Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1, Optional CveMoneda As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
+        SqlAdapter.SelectCommand.CommandTimeout = 0
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable
             .Add("@FechaI", SqlDbType.Date).Value = FechaI

App_Code/ClsOC.vb

@@ -708,7 +708,7 @@ Public Class ClsOC
                                    Optional PorcentajeIVA As Decimal = 0.16D, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1,
                                    Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1,
                                    Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1",
-                                   Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1) As Boolean
+                                   Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1, Optional CveSubProyectoEntrega As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraAdd")
@@ -754,6 +754,7 @@ Public Class ClsOC
             .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision
             .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
             .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito
+            .Add("@CveSubProyectoEntrega", SqlDbType.Int).Value = CveSubProyectoEntrega ' 0 Contado, 1 Credito
 
             .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -917,7 +918,8 @@ Public Class ClsOC
                                       pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "",
                                       Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "",
                                       Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1",
-                                      Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1", Optional MetodoPago As Integer = -1) As Boolean
+                                      Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1", Optional MetodoPago As Integer = -1,
+                                      Optional CveSubProyectoEntrega As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraUpdate")
@@ -953,6 +955,8 @@ Public Class ClsOC
             .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA
             .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision
             .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito
+            .Add("@CveSubProyectoEntrega", SqlDbType.Int).Value = CveSubProyectoEntrega
+
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -88,15 +88,13 @@ Public Class ClsPaginas
 
     Public Shared ReadOnly Property UsuarioActualRutaDB() As String
         Get
-            Try
+
-                If HttpContext.Current.Session("UsuarioSIG") Is Nothing Then
+            If HttpContext.Current IsNot Nothing AndAlso HttpContext.Current.Session IsNot Nothing AndAlso HttpContext.Current.Session("UsuarioSIG") IsNot Nothing Then
-                    Return ""
+                Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).RutaDB
-                Else
+            Else
-                    Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).RutaDB
-                End If
-            Catch ex As Exception
                 Return ""
-            End Try
+            End If
+
         End Get
     End Property
     Public Property CveModulo As Integer
@@ -5087,7 +5085,7 @@ Public Class ClsPaginas
         End If
         Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
         'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA
-        If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") AndAlso Not RutaReporte.Contains("Contabilidad2/Reportes/") AndAlso Not RutaReporte.Contains("AC/Reportes/") Then
+        If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") AndAlso Not RutaReporte.Contains("AC/Reportes/") Then
             bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "")
         End If
         RutaReporte.Replace("/", "\")
@@ -7519,7 +7517,7 @@ Public Class ClsPaginas
         If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
             RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
         End If
-        Dim urlHost As String = "http://localhost:2202/"
+        Dim urlHost As String = "hhttp://sig.adssistemas.mx:7998/"
         If EsProduccion Then
             urlHost = "http://sig.adssistemas.mx:6599/"
         End If
@@ -7607,6 +7605,9 @@ Public Class ClsPaginas
         Dim bytes As Byte() = Nothing
         Dim CveEmpresaActual As Integer
         Dim params As New List(Of ReportParameter)
+
+
+
         Try
             Dim DtDetalle As DataTable = Nothing
             Dim ObjOC As New ClsOC
@@ -7632,8 +7633,81 @@ Public Class ClsPaginas
                     DtDetalle = ObjOC.DtResultados
                 End If
 
-                'Obtenemos la sucursal de la OC  PARA COMPU PROVEEDORES
                 Dim DomicilioSucursal As String = ""
+
+                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta))
+
+                If Not Archivo.Exists Then
+
+                    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                    If Imagen.Exists Then    ''POR EMPRESA
+                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
+                    Else
+                        params.Add(New ReportParameter("LogoPath", ""))
+                    End If
+
+                End If
+
+                If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then
+
+                    Dim SBDomicilioSucursal As New StringBuilder()
+                    Dim CiudadSucursal As String = ""
+                    Dim ObjClientes As New ClsClientes
+
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+
+                    If ObjOC.GetSucursalOC(ObjOC.CveOrdenCompra) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
+
+                        params.Add(New ReportParameter("Proyecto", ObjOC.SucSubProyecto.ToString))
+                        params.Add(New ReportParameter("Telefono", ObjOC.SucTelefono.ToString))
+
+                        CiudadSucursal = String.Format("{0},{1}", ObjOC.SucMunicipio, ObjOC.SucEstado)
+
+                        SBDomicilioSucursal.AppendFormat("{0}", ObjOC.SucCalle)
+                        If ObjOC.SucNoExt.Length > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", ObjOC.SucNoExt)
+                        If ObjOC.SucNoInt.Length > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", ObjOC.SucNoInt)
+                        If ObjOC.SucColonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", ObjOC.SucColonia)
+                        If ObjOC.SucCP.Length > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", ObjOC.SucCP)
+                        If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
+                        If ObjOC.SucPais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", ObjOC.SucPais)
+
+                        DomicilioSucursal = SBDomicilioSucursal.ToString
+
+
+                        Dim DirecconSubProyectoEntrega As String = ""
+                        Dim CveSubProyectoEntrega As Integer = dtOC(0)("CveSubProyectoEntrega").ToString.ToEntero
+
+                        If CveSubProyectoEntrega > 0 Then
+
+                            Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega)
+
+                            params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString))
+
+                            Dim SubProyectoEntregaDir As String = $"Calle {DTSubProyectoEntrega(0)("Calle").ToString}"
+                            SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. {DTSubProyectoEntrega(0)("NoExt").ToString()}"
+
+                            If DTSubProyectoEntrega(0)("NoInt").ToString().Trim.Length > 0 Then
+                                SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. int.{DTSubProyectoEntrega(0)("NoInt").ToString()}"
+                            End If
+
+                            SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{vbCrLf}"
+
+                            SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Colonia").ToString()} C.P. {DTSubProyectoEntrega(0)("CP").ToString()}{vbCrLf}"
+                            SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Municipio").ToString()},{DTSubProyectoEntrega(0)("Estado").ToString()}{vbCrLf}Tel. { DTSubProyectoEntrega(0)("Telefono").ToString()}"
+
+                            params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir))
+
+                        End If
+
+                    End If
+
+
+                End If
+
+
+
+
                 Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero
                 Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero
                 Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC)
@@ -7659,10 +7733,11 @@ Public Class ClsPaginas
                 End If
 
                 Dim nombreautorizo As String = dtOC(0)("UsuarioAutorizo").ToString
-                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta))
+
                 If Not Archivo.Exists OrElse EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 122, 126, 158) Then
                     params.Add(New ReportParameter("Descuento", DtDetalle.SUM("Descuento").ToString.FormatoNumero(2)))
                 End If
+
                 'DATOS PARA DESCUENTO
                 If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 119, 122, 126, 158) Then 'EMPRESAS QUE YA TIENEN EL AJUSTE EN EL FORMATO
                     params.Add(New ReportParameter("SubTotal", ObjOC.SubTotal.ToString))
@@ -7710,7 +7785,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición")))
                 params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI))
 
-                If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Then
+                If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then
                     params.Add(New ReportParameter("FolioAdicional", dtOC(0)("FolioAdicional").ToString))
                     params.Add(New ReportParameter("Vendedor", dtOC(0)("Vendedor").ToString))
                     params.Add(New ReportParameter("Observacion", dtOC(0)("PrioridadObservacion").ToString))
@@ -7723,6 +7798,7 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("ProveedorContacto", ObjOC.ProveedorContacto))
                     params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
                 End If
+
                 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                     'Dim ObjCuentasBancos As New ClsGenerales()
                     'If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then
@@ -7737,6 +7813,7 @@ Public Class ClsPaginas
                     'End If
                     'ObjCuentasBancos.Dispose()
                 End If
+
                 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
                 Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
                 Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))
@@ -7750,7 +7827,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaAut.FullName), Drawing.Imaging.ImageFormat.Png), "")))
 
 
-                If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197 Then
+                If Not Archivo.Exists Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then
 
                     Dim ObjProveedor As New ClsCompProveedores
                     If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ObjOC.CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, EmpresaActual.CveEmpresa) Then
@@ -9907,19 +9984,19 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosAnual.aspx".ToUpper(), 127)
             PaginaDict.Add("/Contabilidad/FiltraPolizas.aspx".ToUpper(), 128)
             PaginaDict.Add("/Contabilidad/RepContabilidadDiaria.aspx".ToUpper(), 504)
-            PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 178)
+            PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 596)
+            PaginaDict.Add("/Contabilidad/CatCuentasCI.aspx".ToUpper(), 596)
             PaginaDict.Add("/Contabilidad/RepOrigenAplicacion.aspx".ToUpper(), 354)
             PaginaDict.Add("/Contabilidad/RepBalanceGeneralProForma.aspx".ToUpper(), 358)
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosProForma.aspx".ToUpper(), 359)
-            PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 362)
+            PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 586)
-            PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 363)
+            PaginaDict.Add("/Contabilidad/RepBalanceGeneralCI.aspx".ToUpper(), 586)
+            PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 583)
             PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127)
             PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380)
-            PaginaDict.Add("/Contabilidad/RegPrePoliza.aspx".ToUpper(), 398)
-            PaginaDict.Add("/Contabilidad/RegPrePoliza1.aspx".ToUpper(), 398)
             PaginaDict.Add("/Contabilidad/RegPrePolizaS.aspx".ToUpper(), 398)
+            PaginaDict.Add("/Contabilidad/RegPrePoliza.aspx".ToUpper(), 398)
             PaginaDict.Add("/Contabilidad/DescargaRespaldos.aspx".ToUpper(), 400)
-            PaginaDict.Add("/Contabilidad/RepBalanceGeneral2.aspx".ToUpper(), -1)
             PaginaDict.Add("/Contabilidad/CatEjercicios.aspx".ToUpper(), 570)
             PaginaDict.Add("/Contabilidad/AnalisisVertical.aspx".ToUpper(), 416)
             PaginaDict.Add("/Contabilidad/FisImpuestos.aspx".ToUpper(), 431)
@@ -9936,39 +10013,36 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosPorSegmento.aspx".ToUpper(), 1317)
             PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMes.aspx".ToUpper(), -1)
             PaginaDict.Add("/Contabilidad/RepAnexoCatalogoSegmento.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 341)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580)
-            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 340)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoCI.aspx".ToUpper(), 580)
-            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 344)
+            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587)
-            PaginaDict.Add("/Contabilidad/CatCuentasSIG.aspx".ToUpper(), 405)
+            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx".ToUpper(), 587)
+            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582)
+            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacionCI.aspx".ToUpper(), 582)
             PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
             PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
             PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
             PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 783)
-#End Region
+
-#Region "Contabilidad2"
+            'PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580)
-            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogo.aspx".ToUpper(), 580)
+            'PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582)
-            PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacion.aspx".ToUpper(), 582)
+            'PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 583)
-            PaginaDict.Add("/Contabilidad2/RepEstadoActividades.aspx".ToUpper(), 583)
+            'PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 584)
-            PaginaDict.Add("/Contabilidad2/RepFlujoEfectivo.aspx".ToUpper(), 584)
+            PaginaDict.Add("/Contabilidad/RepCambiosSituacionFinanciera.aspx".ToUpper(), 585)
-            PaginaDict.Add("/Contabilidad2/RepCambiosSituacionFinanciera.aspx".ToUpper(), 585)
+            'PaginaDict.Add("/Contabilidad/RepSituacionFinanciera.aspx".ToUpper(), 586)
-            PaginaDict.Add("/Contabilidad2/RepSituacionFinanciera.aspx".ToUpper(), 586)
+            'PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587)
-            PaginaDict.Add("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMensual.aspx".ToUpper(), 589)
-            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensual.aspx".ToUpper(), 589)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoAnual.aspx".ToUpper(), 593)
-            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoAnual.aspx".ToUpper(), 593)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoCC.aspx".ToUpper(), 594)
-            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoCC.aspx".ToUpper(), 594)
+            PaginaDict.Add("/Contabilidad/RepVariacionHaciendaPublica.aspx".ToUpper(), 595)
-            PaginaDict.Add("/Contabilidad2/RepVariacionHaciendaPublica.aspx".ToUpper(), 595)
+            'PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 596)
-            PaginaDict.Add("/Contabilidad2/CatCuentas.aspx".ToUpper(), 596)
+            PaginaDict.Add("/Contabilidad/RepLibroDiario.aspx".ToUpper(), 544)
-            PaginaDict.Add("/Contabilidad2/RepLibroDiario.aspx".ToUpper(), 544)
+            PaginaDict.Add("/Contabilidad/MovimientosConProveedores.aspx".ToUpper(), 619)
-            'PaginaDict.Add("/Contabilidad2/RepSituacionFinancieraSAT.aspx".ToUpper(), 615)
+            'PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 530)
-            'PaginaDict.Add("/Contabilidad2/RepEstadoActividadesSAT.aspx".ToUpper(), 616)
+            PaginaDict.Add("/Contabilidad/CatCuentasAsignaciones.aspx".ToUpper(), 724)
-            'PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacionSAT.aspx".ToUpper(), 617)
+            PaginaDict.Add("/Contabilidad/CatContaEjercicios.aspx".ToUpper(), 725)
-            'PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618)
+            PaginaDict.Add("/Contabilidad/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
-            PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
-            'PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530)
-            PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
-            PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725)
-            PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
-            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
 #End Region
 #Region "Contratos"
             '--------------------- C O N T R A T O S - P R E S U P U E S T O S ---------------------
@@ -10656,7 +10730,7 @@ Public Class ClsPaginas
             'PaginaDict.Add("/ZDG/MensajeAutomatico.aspx".ToUpper(), -1)
             PaginaDict.Add("/Planeacion/Presupuestos.aspx".ToUpper(), -1)
             PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contabilidad2/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Contabilidad/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
             PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326)
             PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328)
             PaginaDict.Add("/testApi.aspx".ToUpper(), -1)

App_Code/ClsPuntoVenta.vb

@@ -228,8 +228,38 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
+    Public Function GetVtaCortesActivos(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_CortesActivosGet")
 
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
 
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                With Me
+                    .CveCorte = Data.Rows(0)("CveCorte").ToString.ToEntero
+                    .FechaInicial = Data.Rows(0)("FechaInicial").ToString.ToDateTime
+                    .FechaFinal = Data.Rows(0)("FechaFinal").ToString.ToDateTime
+                    .FechaIng = Data.Rows(0)("FechaIng").ToString.ToDateTime
+                    .ImporteInicial = Data.Rows(0)("ImporteInicial").ToString.ToDouble
+                    .ImporteFinal = Data.Rows(0)("ImporteFinal").ToString.ToDouble
+                    .Descripcion = Data.Rows(0)("Descripcion").ToString
+                    .Estatus = Data.Rows(0)("Estatus").ToString
+                    .Usuario = Data.Rows(0)("Usuario").ToString
+                    .UsuarioNombre = Data.Rows(0)("UsuarioNombre").ToString
+                End With
+            End If
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
     '    Dim Retorno As Boolean = False
 
@@ -269,7 +299,7 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
-    Public Function AddVtaCortes(FechaInicial As DateTime, ImporteInicial As Decimal, CveUsuario As Integer, Descripcion As String, CveEmpresa As Integer) As Boolean
+    Public Function AddVtaCortes(FechaInicial As DateTime, ImporteInicial As Decimal, CveUsuario As Integer, Descripcion As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_CortesAdd")
 
@@ -278,6 +308,7 @@ Public Class ClsPuntoVenta
             .Add("@ImporteInicial", SqlDbType.Money).Value = ImporteInicial
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
         End With

App_Code/ClsVentas.vb

@@ -1669,7 +1669,7 @@ Public Class ClsVentas
                                  CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
                                  Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                 Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean
+                                 Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRep")
 
@@ -1701,6 +1701,7 @@ Public Class ClsVentas
             .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion
             .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
             .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
+            .Add("@EsFilial", SqlDbType.Int).Value = EsFilial
         End With
 
         Try
@@ -1807,7 +1808,7 @@ Public Class ClsVentas
                                         CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
                                         Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                          Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                        Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean
+                                        Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRepDetalle")
 
@@ -1844,6 +1845,7 @@ Public Class ClsVentas
             .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion
             .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
             .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
+            .Add("@EsFilial", SqlDbType.Int).Value = EsFilial
         End With
 
         Try
@@ -3179,7 +3181,8 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean
+    Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer,
+                                                  CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, EsFilial As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepVentasUtilidadGet")
 
@@ -3196,6 +3199,7 @@ Public Class ClsVentas
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
+            .Add("@EsFilial", SqlDbType.Int).Value = EsFilial
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -3528,7 +3532,6 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-
     'Public Function AddVtaCortesDetalles(CveCorte As Integer, CveMetodoPago As Integer, Importe As Double) As Boolean
     '    Dim Retorno As Boolean = False
     '    DataAdapter("PA_Vta_CortesDetallesAdd")

Bancos/DepositosCaja.aspx.vb

@@ -60,7 +60,9 @@ Partial Class Bancos_DepositosCaja
             divFolio.Visible = True
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" _
+                        OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1" _
+                        OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             DivRowCuenta.Visible = True
         End If
 

Bancos/IE.aspx.vb

@@ -1448,11 +1448,33 @@ Partial Class Bancos_IE
         'RecargaCuentas
         CargaCuenta(CveMoneda)
         RecargaCuentasDepositos()
+        ValidaFechaDocumentoDiasPosteriores()
 
         UpDatos.Update()
         BtnGuardar.Enabled = True
     End Sub
 
+    Private Sub ValidaFechaDocumentoDiasPosteriores()
+
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(3).ToShortDateString
+        Calendario.EndDate = NowADS().AddDays(3)
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 días de la fecha actual"
+
+        If DdlTipoTransaccion.SelectedValue.Contiene("1", "16") Then 'cheques, 3meses
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddMonths(3).ToShortDateString
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 meses de la fecha actual"
+            Calendario.EndDate = NowADS().AddMonths(3)
+        End If
+        If DdlTipoTransaccion.SelectedValue = "2" Then 'transfer, 3semanas
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(21).ToShortDateString
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 semanas de la fecha actual"
+            Calendario.EndDate = NowADS().AddDays(21)
+        End If
+        UpDatos.Update()
+        UpGuardar.Update()
+
+    End Sub
+
     Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
         'si solo es de egreso el movimiento debe de generar el siguiente folio.
 

Bancos/PagoAcreedor.aspx

@@ -268,6 +268,7 @@
                                             <asp:DropDownList ID="DdlOtrosPagos" Width="100%" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlOtrosPagos_SelectedIndexChanged">
                                                 <asp:ListItem Value="-1">-</asp:ListItem>
                                                 <asp:ListItem Value="2">Otros Egresos</asp:ListItem>
+                                                <asp:ListItem Value="3">Deudores Diversos</asp:ListItem>
                                             </asp:DropDownList>
                                         </div>
                                     </div>

Bancos/PagoAcreedor.aspx.cs

@@ -348,7 +348,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                         if (ImporteComision != 0 && MsgError == "")
                         {
                             ImporteComisionMN = (ImporteComision * TCPago).RoundSQL();
-                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, ImporteComisionMN,  255, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(),CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
+                            int tTipoConceptoOtro = 255;
+                            if (DdlOtrosPagos.SelectedValue == "3") tTipoConceptoOtro = 43; //deudores diversos
+
+                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, ImporteComisionMN, tTipoConceptoOtro, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(),CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
                             {
                                 MsgError = "No se pudo insertar concepto de pago acreedor";
                                 break;
@@ -394,9 +397,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
 
         if (MsgError.Equals(""))
         {
+            ObjIE.Commit();
             if (Msg.ToString().Equals(""))
             {
-                Msg.AppendFormat("El Documento se guardo correctamente. Folio <b><a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>{1}</a></b> <br/>", CveIE, ObjIE.Folio);
+                Msg.AppendFormat("El Documento se guardo correctamente. <br/> Folio <b><a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>{1}</a></b> <br/>", CveIE, ObjIE.Folio);
 
             }
             //GUARDA COMPROBANTE
@@ -432,11 +436,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
             //    }
             //}
 
-            if (IDPoliza > 0)
+            //if (IDPoliza > 0)
-            {
+            //{
-                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+            //    Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
-            }
+            //}
-            ObjIE.Commit();
+           
+            Msg.AppendFormat(@"<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"">Ver Póliza</a><br/>", CvePrePoliza);
+            Msg.AppendFormat($"<a class='Texto' target='_blank' href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}'>Imprimir</a>");
+            
         }
         else
         {
@@ -616,9 +623,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
 
         if (MsgError.Equals(""))
         {
+            ObjIE.Commit();
             if (Msg.ToString().Equals(""))
             {
-                Msg.Append("El Documento se guardo correctamente");
+                Msg.Append("El Documento se guardo correctamente.<br/>");
             }
             System.IO.FileInfo archivo = null;
 
@@ -648,11 +656,13 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
             //    }
             //}
 
-            if (IDPoliza > 0)
+            //if (IDPoliza > 0)
-            {
+            //{
-                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+            //    Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
-            }
+            //}
-            ObjIE.Commit();
+            Msg.AppendFormat(@"<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"">Ver Póliza</a><br/>", CvePrePoliza);
+            Msg.AppendFormat($"<a class='Texto' target='_blank' href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}'>Imprimir</a>");
+
         }
         else
         {

Bancos/PagoDeudor.aspx.cs

@@ -311,12 +311,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas
  
         if (MsgError.Equals(""))
         {
+            ObjIE.Commit();
             if (Msg.ToString().Equals(""))
             {
-                Msg.Append("El Documento se guardo correctamente");
+                Msg.Append("El Documento se guardo correctamente.<br/>");
             }
             System.IO.FileInfo archivo = null;
-            Msg.AppendFormat("<br/><br/> Folio:  <a class='Texto' target='_blank' href='/Bancos/IE.aspx?CveIE={0}'>{1}</a><br/>", CveIE, TxtFolioPrestamo.Text.Trim());
+            Msg.AppendFormat("Folio:  <a class='Texto' target='_blank' href='/Bancos/IE.aspx?CveIE={0}'>{1}</a><br/>", CveIE, TxtFolioPrestamo.Text.Trim());
 
             if (DdlTipoTransaccionPrestamo.SelectedValue.ToEntero().Contiene(2, 8, 9))
             {
@@ -344,11 +345,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas
             //    }
             //}
 
-            if (IDPoliza > 0)
+            //if (IDPoliza > 0)
-            {
+            //{
-                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+            //    Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
-            }
+            //}
-            ObjIE.Commit();
+            Msg.AppendFormat(@"<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"">Ver Póliza</a><br/>", CvePrePoliza);
+            Msg.AppendFormat($"<a class='Texto' target='_blank' href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}'>Imprimir</a>");
+
         }
         else
         {
@@ -682,12 +685,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas
 
         if (MsgError.Equals(""))
         {
+            ObjIE.Commit();
             if (Msg.ToString().Equals(""))
             {
-                Msg.Append("El Documento se guardo correctamente");
+                Msg.Append("El Documento se guardo correctamente.<br/>");
             }
             System.IO.FileInfo archivo = null;
-            Msg.AppendFormat("<br/><br/> Folio:  <a class='Texto' target='_blank' href='/Bancos/IE.aspx?CveIE={0}'>{1}</a><br/>", CveIE, TxtFolio.Text.Trim());
+            Msg.AppendFormat("Folio:  <a class='Texto' target='_blank' href='/Bancos/IE.aspx?CveIE={0}'>{1}</a><br/>", CveIE, TxtFolio.Text.Trim());
 
             if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(2, 8, 9))
             {
@@ -715,11 +719,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas
             //    }
             //}
 
-            if (IDPoliza > 0)
+            //if (IDPoliza > 0)
-            {
+            //{
-                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+            //    Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
-            }
+            //}
-            ObjIE.Commit();
+            Msg.AppendFormat(@"<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"">Ver Póliza</a><br/>", CvePrePoliza);
+            Msg.AppendFormat($"<a class='Texto' target='_blank' href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}'>Imprimir</a>");
+
         }
         else
         {

Bancos/PopIECompras.aspx.vb

@@ -849,12 +849,11 @@ Partial Class Bancos_PopIECompras
 #Region "DDL'S CHANGED"
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
         Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
-        Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))  'Egs o Ing
+        'Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))  'Egs o Ing
 
         Select Case valor
             Case 1
                 LblPagueseA.Text = "Páguese a"
-
             Case 2
                 LblPagueseA.Text = "Beneficiario"
         End Select
@@ -1723,17 +1722,20 @@ Partial Class Bancos_PopIECompras
 
     Private Sub ValidaFechaDocumentoDiasPosteriores()
 
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(3).ToShortDateString
+        Calendario.EndDate = NowADS().AddDays(3)
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 días de la fecha actual"
 
-        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+        If DdlTipoTransaccion.SelectedValue.Contiene("1", "16") Then 'cheques, 3meses
-        Calendario.EndDate = NowADS().AddDays(2)
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddMonths(3).ToShortDateString
-        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 meses de la fecha actual"
-
+            Calendario.EndDate = NowADS().AddMonths(3)
-        If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then
+        End If
-            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString
+        If DdlTipoTransaccion.SelectedValue = "2" Then 'transfer, 3semanas
-            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(21).ToShortDateString
-            Calendario.EndDate = NowADS().AddDays(30)
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 semanas de la fecha actual"
+            Calendario.EndDate = NowADS().AddDays(21)
         End If
-
         UpDatos.Update()
         UpGuardar.Update()
 

Bancos/PopIEVentas.aspx

@@ -7,10 +7,21 @@
         .row {
             margin: 0 -10px;
         }
-         .calendar-extender-popup {
+         /*.calendar-extender-popup {
         position: absolute;
-        z-index: 10000; /* Asegura que se muestre sobre otros elementos */
+        z-index: 10000;*/ /* Asegura que se muestre sobre otros elementos */
+    /*}*/
+
+        #C_CETxtFechaEmision_popupDiv{
+        z-index: 10000; /* Asegura que el calendario se muestre sobre otros elementos */
+        margin-top:-160px!important;
+        position: absolute; /* Asegura que el calendario no desplace otros elementos */
     }
+        #C_Calendario_popupDiv{
+            z-index: 10000; /* Asegura que el calendario se muestre sobre otros elementos */
+            margin-left:-50px!important;
+            position: absolute; /* Asegura que el calendario no desplace otros elementos */
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -150,7 +161,7 @@
                                                 </div>
                                             </div>
 
-                                            <div class="row" runat="server" id="rowComisiones" visible="false">
+                                            <div class="row" runat="server" id="rowComisiones" >
                                                 <label class="col-xs-4" runat="server" id="lblpagocomisiones">Comisiones:</label>
                                                 <div class="col-xs-8">
                                                     <asp:DropDownList ID="DdlOtrosPagos" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="100%">
@@ -559,7 +570,7 @@
                                                              </span>
                                                          </div>
                                                          <ajax:MaskedEditExtender ID="METxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"  ></ajax:MaskedEditExtender>
-                                                         <ajax:CalendarExtender ID="CETxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" PopupButtonID="LnkImgTxtFechaEmision" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                         <ajax:CalendarExtender ID="CETxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" PopupButtonID="LnkImgTxtFechaEmision" PopupPosition="TopLeft" Enabled="True"></ajax:CalendarExtender>
                                                          <asp:RequiredFieldValidator ID="RfvTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                          <asp:CompareValidator ID="CVTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                          <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>

Bancos/PopIEVentas.aspx.vb

@@ -325,9 +325,7 @@ Partial Class Bancos_PopIEVentas
                 ViewState("CveIE") = -1
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then
+            'rowComisiones.Visible = True
-                rowComisiones.Visible = True
-            End If
 
             'SI USUARIO USA AMORTIZACIÓN CONTABLE
             If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
@@ -547,10 +545,11 @@ Partial Class Bancos_PopIEVentas
                     CargaCorteCaja()
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'toma como proridad el que viene de 
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse (dr("CveCorte").ToString.ToEntero > 0) Then 'toma como proridad el que viene de 
                     CveCorte = dr("CveCorte").ToString.ToEntero
                 End If
 
+
                 If RFCCliente.ToUpper <> "XAXX010101000" Then
                     Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
 
@@ -753,7 +752,7 @@ Partial Class Bancos_PopIEVentas
 #Region "DDL'S CHANGED"
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
         Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
-        Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))  'Egs o Ing
+        'Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))  'Egs o Ing
 
         Select Case valor
             Case 1
@@ -1112,7 +1111,7 @@ Partial Class Bancos_PopIEVentas
 
         Dim FechaEmision As Date = MinFecha
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If ChkComplementoPago.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             FechaEmision = TxtFechaEmision.Text.ToDate
 
             If FechaEmision <= MinFecha Then
@@ -1239,162 +1238,162 @@ Partial Class Bancos_PopIEVentas
                         Pago.CveMonedaPago = CveMoneda
                         Pago.Referencia = VentaActual.SerieFolio
                         If DdlOtrosPagos.SelectedValue = "2" Then
-                            ImportePagado = TxtImporte.Text.Trim.ToDecimal.RoundSQL - TxtComision.Text.ToDecimal
+                            ImportePagado = TxtImporte.Text.Trim.ToDecimal.RoundSQL + TxtComision.Text.ToDecimal
                         Else
                             ImportePagado = TxtImporte.Text.Trim.ToDecimal.RoundSQL
                         End If
 
                         'Tipos de cambio
                         If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
-                            Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
+                                Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
-                        ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
+                            ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
-                            Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                                Pago.TCPago = TxtTipoCambio.Text.ToDecimal
-                        ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
+                            ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
-                            Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                                Pago.TCPago = TxtTipoCambio.Text.ToDecimal
-                            Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                                Pago.TCPago = TxtTipoCambio.Text.ToDecimal
-                        End If
+                            End If
-                        If ChkPagarPesos.Checked Then Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
+                            If ChkPagarPesos.Checked Then Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
-                        If ChkPagarDolares.Checked Then Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                            If ChkPagarDolares.Checked Then Pago.TCPago = TxtTipoCambio.Text.ToDecimal
 
-                        If TxtComision.Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = TxtComision.Text.ToDecimal Else Pago.OtroGastoIngreso = 0
+                            If TxtComision.Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = TxtComision.Text.ToDecimal Else Pago.OtroGastoIngreso = 0
 
-                        Select Case RBLContado.SelectedValue
+                            Select Case RBLContado.SelectedValue
-                            Case "1" ' Banco
+                                Case "1" ' Banco
                                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "",
                                                            True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito,
                                                            Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte, FechaEmision:=FechaEmision)
                                 If CveIE > 0 Then
 
                                     Pago.ImportePago = ImportePagado
-                                    Pago.ImportePagoVenta = ImportePagado
+                                    Pago.ImportePagoVenta = ImportePagado - Pago.OtroGastoIngreso
                                     Pago.CveIE = CveIE
                                     Pago.TipoPago = "B"
 
+                                    If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
+                                            MsgError = "No se pudo insertar la póliza"
+                                        End If
+
+                                    Else
+                                        MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
+                                        Inserta = False
+                                    End If
+                            Case "2" ' FyE 
+
+                                Pago.ImportePago = ImportePagado
+                                Pago.ImportePagoVenta = ImportePagado - Pago.OtroGastoIngreso
+                                Pago.TipoPago = "FyE"
+                                    Pago.CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero
+                                    Pago.Referencia = DdlFuncionarioEmpleado.SelectedItem.ToString
+
                                     If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
                                         MsgError = "No se pudo insertar la póliza"
                                     End If
 
-                                Else
+                                Case "3" 'Ingresos x Comprobar
-                                    MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
-                                    Inserta = False
-                                End If
-                            Case "2" ' FyE
 
-                                Pago.ImportePago = ImportePagado
+                                    CveCliente = DdlIngreso.SelectedValue.ToEntero
-                                Pago.ImportePagoVenta = ImportePagado
+                                    CveIE = -1
-                                Pago.TipoPago = "FyE"
+                                    ImportePagado = TxtImporte.Text.Trim.ToDecimal
-                                Pago.CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero
+                                    Pago.ImportePago = ImportePagado
-                                Pago.Referencia = DdlFuncionarioEmpleado.SelectedItem.ToString
+                                    Pago.TipoPago = "I"
 
-                                If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
+                                    For Each rw As GridViewRow In GvIngresos.Rows
-                                    MsgError = "No se pudo insertar la póliza"
+                                        If rw.FCCheckBox("Chk").Checked Then
-                                End If
+                                            CveIE = rw.DataKey("CveIE").ToEntero
+                                            Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
+                                            Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                            Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                            Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
+                                            Pago.FechaDocumentoRelacionado = rw.DataKey("FechaDocumento").ToDate
+                                            Pago.CveIE = CveIE
+                                            Pago.CveClientePago = rw.DataKey("CveCliente").ToEntero
+                                            If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal
+                                            If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
 
-                            Case "3" 'Ingresos x Comprobar
+                                            If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
-
-                                CveCliente = DdlIngreso.SelectedValue.ToEntero
-                                CveIE = -1
-                                ImportePagado = TxtImporte.Text.Trim.ToDecimal
-                                Pago.ImportePago = ImportePagado
-                                Pago.TipoPago = "I"
-
-                                For Each rw As GridViewRow In GvIngresos.Rows
-                                    If rw.FCCheckBox("Chk").Checked Then
-                                        CveIE = rw.DataKey("CveIE").ToEntero
-                                        Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
-                                        Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                        Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                        Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
-                                        Pago.FechaDocumentoRelacionado = rw.DataKey("FechaDocumento").ToDate
-                                        Pago.CveIE = CveIE
-                                        Pago.CveClientePago = rw.DataKey("CveCliente").ToEntero
-                                        If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal
-                                        If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
-
-                                        If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
-                                            MsgError = "No se pudo insertar la póliza"
-                                        Else
-                                            Exit For
-                                        End If
-                                    End If
-                                Next
-
-                            Case "4" 'Deudores Diversos
-
-                                ImportePagado = TxtImporte.Text.Trim.ToDecimal
-                                'CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
-                                CveIE = -1
-                                If DdlDeudor.SelectedValue.ToEntero <= 0 Then
-                                    Alert("Debe especificar el deudor.", TipoMensaje.MsgAdvertencia)
-                                    Exit Sub
-                                End If
-
-                                For Each rw As GridViewRow In GvDeudores.Rows
-                                    If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
-                                        Pago.CveIE = rw.DataKey("CveIE").ToEntero
-                                        Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
-                                        Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                        Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
-                                        'Pago.CveProveedor = DdlDeudor.SelectedValue.ToEntero
-                                        Pago.TipoPago = "DD"
-                                        If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
-                                            MsgError = "No se pudo insertar la póliza"
-                                        Else
-                                            Exit For
-                                        End If
-                                    End If
-                                Next
-
-                            Case "5" 'Compras
-
-                                ImportePagado = TxtImporte.Text.Trim.ToDecimal
-                                CveIE = -1
-                                For Each rw As GridViewRow In GvCompras.Rows
-                                    If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
-                                        Pago.CveMonedaPago = 1
-                                        Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                        Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                        Pago.TipoPago = "Compra"
-                                        If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
-                                            MsgError = "No se pudo insertar la póliza"
-                                        End If
-                                        If MsgError = "" Then
-                                            Dim CompraActual As New Compra() With {.CveCompra = rw.DataKey("CveCompra").ToEntero, .ProveedorNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveProveedor = rw.DataKey("CveProveedor").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .CveTipoConceptoProveedor = rw.DataKey("CveTipoConcepto").ToEntero}
-                                            Dim PagoCompra As New CompraPago
-
-                                            PagoCompra.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
-                                            PagoCompra.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                            PagoCompra.TCPago = rw.DataKey("TipoCambio").ToDecimal
-                                            PagoCompra.CveProveedor = rw.DataKey("CveProveedor").ToEntero
-                                            PagoCompra.CveVentaRelacionada = CveVenta
-                                            PagoCompra.TipoPago = "Venta"
-                                            If AplicaPrePolizaPagoCompra(CompraActual, PagoCompra, CvePrePoliza, ObjMov) Then
                                                 MsgError = "No se pudo insertar la póliza"
+                                            Else
+                                                Exit For
                                             End If
                                         End If
+                                    Next
 
+                                Case "4" 'Deudores Diversos
+
+                                    ImportePagado = TxtImporte.Text.Trim.ToDecimal
+                                    'CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
+                                    CveIE = -1
+                                    If DdlDeudor.SelectedValue.ToEntero <= 0 Then
+                                        Alert("Debe especificar el deudor.", TipoMensaje.MsgAdvertencia)
+                                        Exit Sub
                                     End If
-                                Next
 
-                            Case Else
+                                    For Each rw As GridViewRow In GvDeudores.Rows
-                                'NO SE HA DEFINIDO PARA FUNCIONARIO Y EMPLEADO
+                                        If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
-                                If RBLContado.SelectedValue <> "2" Then
+                                            Pago.CveIE = rw.DataKey("CveIE").ToEntero
-                                    MsgError = "No se ha especificada opcion."
+                                            Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
-                                End If
+                                            Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                        End Select
+                                            Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
-
+                                            'Pago.CveProveedor = DdlDeudor.SelectedValue.ToEntero
-                        If MsgError = "" Then
+                                            Pago.TipoPago = "DD"
-
+                                            If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
-                            If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
+                                                MsgError = "No se pudo insertar la póliza"
-                                If ObjMov.ValorPolizaDescuadre > 0 Then
+                                            Else
-                                    MsgError = ObjMov.MensajePolizaDescuadre
+                                                Exit For
+                                            End If
+                                        End If
+                                    Next
+
+                                Case "5" 'Compras
+
+                                    ImportePagado = TxtImporte.Text.Trim.ToDecimal
+                                    CveIE = -1
+                                    For Each rw As GridViewRow In GvCompras.Rows
+                                        If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
+                                            Pago.CveMonedaPago = 1
+                                            Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                            Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                            Pago.TipoPago = "Compra"
+                                            If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
+                                                MsgError = "No se pudo insertar la póliza"
+                                            End If
+                                            If MsgError = "" Then
+                                                Dim CompraActual As New Compra() With {.CveCompra = rw.DataKey("CveCompra").ToEntero, .ProveedorNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveProveedor = rw.DataKey("CveProveedor").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .CveTipoConceptoProveedor = rw.DataKey("CveTipoConcepto").ToEntero}
+                                                Dim PagoCompra As New CompraPago
+
+                                                PagoCompra.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
+                                                PagoCompra.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                                PagoCompra.TCPago = rw.DataKey("TipoCambio").ToDecimal
+                                                PagoCompra.CveProveedor = rw.DataKey("CveProveedor").ToEntero
+                                                PagoCompra.CveVentaRelacionada = CveVenta
+                                                PagoCompra.TipoPago = "Venta"
+                                                If AplicaPrePolizaPagoCompra(CompraActual, PagoCompra, CvePrePoliza, ObjMov) Then
+                                                    MsgError = "No se pudo insertar la póliza"
+                                                End If
+                                            End If
+
+                                        End If
+                                    Next
+
+                                Case Else
+                                    'NO SE HA DEFINIDO PARA FUNCIONARIO Y EMPLEADO
+                                    If RBLContado.SelectedValue <> "2" Then
+                                        MsgError = "No se ha especificada opcion."
+                                    End If
+                            End Select
+
+                            If MsgError = "" Then
+
+                                If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
+                                    If ObjMov.ValorPolizaDescuadre > 0 Then
+                                        MsgError = ObjMov.MensajePolizaDescuadre
+                                    End If
                                 End If
+                            Else
+                                MsgError = "No se pudo insertar la poliza detalle"
                             End If
-                        Else
-                            MsgError = "No se pudo insertar la poliza detalle"
                         End If
-                    End If
+                    Else
-                Else
                     MsgError = "venta no identificada"
                 End If
             Else

Bancos/ProveedoresAbonar.aspx.vb

@@ -1627,20 +1627,21 @@ Partial Class Bancos_ProveedoresAbonar
     Private Sub ValidaFechaDocumentoDiasPosteriores()
 
 
-        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(3).ToShortDateString
-        RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString
+        RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(3).ToShortDateString
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 días de la fecha actual"
 
-        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
+        Calendario.EndDate = NowADS().AddDays(3)
 
-        Calendario.EndDate = NowADS().AddDays(2)
+        If DdlTipoTransaccion.SelectedValue.Contiene("1", "16") Then 'cheques, 3meses
-
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddMonths(3).ToShortDateString
-        If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 meses de la fecha actual"
-
+            Calendario.EndDate = NowADS().AddMonths(3)
-            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(182).ToShortDateString
+        End If
-            RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(182).ToShortDateString
+        If DdlTipoTransaccion.SelectedValue = "2" Then 'transfer, 3semanas
-            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 6 meses de la fecha actual"
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(21).ToShortDateString
-
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a 3 semanas de la fecha actual"
-            Calendario.EndDate = NowADS().AddDays(182)
+            Calendario.EndDate = NowADS().AddDays(21)
         End If
 
         UpDatos.Update()

Bancos/RepCortes.aspx.vb

@@ -227,7 +227,7 @@ Partial Class Bancos_RepCortes
                 GvP.DataSource = DtCortesVentasResumen
 
                 'RESUMEN - IVA
-                If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
+                If UsuarioActual.CveEmpresa.Contiene(190, 192) AndAlso DsDatos.Tables.Count > 2 Then
                     DivIVA.Visible = True
                     GvPorIVA.DataSource = DsDatos.Tables(2)
                     Dim tsum As Decimal = DsDatos.Tables(2).SUMD("IVA16") + DsDatos.Tables(2).SUMD("IVA0")

Bancos/RepIngresosPorComprobar.aspx

@@ -271,7 +271,7 @@
         </ajax:TabPanel>
     </ajax:TabContainer>
     <div id="DivModalSaldar" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog modal" runat="server" ID="UPModalCort" UpdateMode="Conditional">
+        <asp:UpdatePanel class="modal-dialog modal" runat="server" ID="UPModalSaldar" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content">
                     <div class="modal-header ">
@@ -282,7 +282,7 @@
                         <div class="row">
                             <div class="col-md-2" style="text-align: left">Fecha:</div>
                             <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
                                     <asp:TextBox ID="TxtFecha" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="LnkCortfecha" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -294,6 +294,13 @@
                                 </div>
                             </div>
                         </div>
+                        <div class="row"> 
+                             <div class="col-md-2" style="text-align: left">SubProyecto:</div>
+                            <div class="col-md-4">
+                                     <asp:DropDownList ID="DdlSubProyectoSaldar" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                                        </asp:DropDownList>                                                                     
+                            </div>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:Button ID="BtnSaldar" OnClick="BtnSaldar_Click" runat="server" Text="Saldar" CssClass="btn btn-primary" ValidationGroup="VgGuardar" />

Bancos/RepIngresosPorComprobar.aspx.vb

@@ -261,6 +261,9 @@ Partial Class Bancos_RepIngresosPorComprobar
                 UPDatos.Update()
             End If
         Next
+        DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoSaldar.DataBind()
+        UPModalSaldar.Update()
     End Sub
 
     Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
@@ -274,17 +277,16 @@ Partial Class Bancos_RepIngresosPorComprobar
         ObjConta.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
+        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, "Saldo de IxC", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         For Each gr As GridViewRow In GvIPC.Rows
             If gr.FCCheckBox("Chk").Checked Then
 
-                CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFecha.Text.ToDate, "Saldo de IxC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC por Sistema", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero) Then
                     MsgError = "Ocurrio un error al saldar el movimiento"
                 End If
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC por Sistema", CveIE:=gr.DataKey("CveIE").ToEntero) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
                     MsgError = "Ocurrio un error al saldar el movimiento"
                 End If
             End If
@@ -293,7 +295,8 @@ Partial Class Bancos_RepIngresosPorComprobar
         If MsgError = "" Then
             ObjConta.Commit()
             CargaDatos()
-            Alert("Los movimientos se saldaron correctamente.")
+
+            Alert(String.Format("Los movimientos se saldaron correctamente.</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjConta.ContaFolio))
         Else
             ObjConta.RollBack()
             Alert(MsgError, TipoMensaje.MsgError)

Compras/Compras.aspx.vb

@@ -6,7 +6,6 @@ Imports System.Xml
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
-Imports System.IO
 Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
@@ -2683,6 +2682,7 @@ Partial Class Compras_Compras
                 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
                 If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
                 LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
+                CveConceptoContableAlmacen = dr("CveConceptoContableAlmacen").ToString.ToEntero
 
                 If UsuarioActual.Empresa.UsaAC Then
                     CambiaEjercicioAC(False)
@@ -6740,7 +6740,7 @@ Partial Class Compras_Compras
                                                                                                 Dim tTipoMovimiento As Boolean
                                                                                                 Dim Diferencia As Decimal = 0
 
-                                                                                                If CompraActual.TC > TCNC Then
+                                                                                                If CompraActual.TC < TCNC Then
                                                                                                     tConceptoContable = 64
                                                                                                     tTipoMovimiento = True
                                                                                                 Else
@@ -13743,7 +13743,7 @@ Partial Class Compras_Compras
                             If dr("CveAlmacen").ToString.ToEntero = CveAlmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then
                                 'hay que restarle descuento
                                 importeconcepto = dr("Total").ToString.ToDecimal
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("CvePS").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("CvePS").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString, Lote:=dr("Lote").ToString, FechaCaducidad:=dr("FechaCaducidad").ToString.ToDate) Then
                                     ErrorCancelar = True
                                     Exit For
                                 End If
@@ -13758,45 +13758,53 @@ Partial Class Compras_Compras
                             Total68 = ObjInventario.DtResultados.SUMD("Total").RoundSQL(2) * -1
                         End If
 
-                        If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            Dim DtPrePolizaAlmacen As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}")
 
-                            If CvePrePolizaNueva > 0 Then
+                        If CvePrePolizaNueva > 0 Then
-                                Dim tTotal As Decimal = 0
+                            Dim tTotal As Decimal = 0
-                                For Each dr As DataRow In DtPrePolizaAlmacen.Rows
-                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), Total68, Total68, dr("CveConceptoContable").ToString.ToEntero,
-                                                                                     dr("Referencia").ToString, dr("Concepto").ToString, dr("CveIE").ToString.ToEntero,
-                                                                                    dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                                    CveMovimientoEntrada,
-                                                                                    dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
-                                                                                    ImporteME:=Total68,
-                                                                                    CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
-                                                                                    PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
-                                                                                    CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
-                                        ErrorCancelar = True
-                                        Exit For
-                                    End If
-                                    tTotal += Total68
-                                Next
 
-                                'si el importe es diferente al subtotal, se deberá generar un ajuste  al costo
+                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, True, Total68, Total68, CveConceptoContableAlmacen,
-                                If Abs(tTotal) <> TxtSubTotal.Text.ToDecimal Then
+                                                                                 TxtFolio.Text, TxtFolio.Text, CveCompra:=CveCompra,
-                                    tTotal = Abs(tTotal) - TxtSubTotal.Text.ToDecimal
+                                                                                    CveMovimientoAlmacen:=CveMovimientoEntrada) Then
-                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, False, tTotal, tTotal, 69, "", "cancelación",
+                                ErrorCancelar = True
+
+                            End If
+                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, False, Total68, Total68, 68, TxtFolio.Text, TxtFolio.Text, CveCompra:=CveCompra,
+                                                                                    CveMovimientoAlmacen:=CveMovimientoEntrada) Then
+                                ErrorCancelar = True
+
+                            End If
+                            'For Each dr As DataRow In DtPrePolizaAlmacen.Rows
+                            '    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), Total68, Total68, dr("CveConceptoContable").ToString.ToEntero,
+                            '                                                     dr("Referencia").ToString, dr("Concepto").ToString, dr("CveIE").ToString.ToEntero,
+                            '                                                    dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
+                            '                                                    CveMovimientoEntrada,
+                            '                                                    dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                            '                                                    ImporteME:=Total68,
+                            '                                                    CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
+                            '                                                    PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
+                            '                                                    CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
+                            '        ErrorCancelar = True
+                            '        Exit For
+                            '    End If
+                            '    tTotal += Total68
+                            'Next
+
+                            'si el importe es diferente al subtotal, se deberá generar un ajuste  al costo
+                            If Abs(Total68) <> TxtSubTotal.Text.ToDecimal Then
+                                tTotal = Abs(Total68) - TxtSubTotal.Text.ToDecimal
+                                If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, False, tTotal, tTotal, 69, "", "cancelación",
                                                                                     CveCompra:=CveCompra, CveSubProyecto:=TmpDT.MAX("CveSubProyecto").ToEntero,
                                                                                     CveMovimientoAlmacen:=CveMovimientoEntrada,
                                                                                     ImporteME:=tTotal,
                                                                                     CveClasificacion:=TmpDT.MAX("CveClasificacion").ToEntero) Then
-                                        ErrorCancelar = True
+                                    ErrorCancelar = True
-                                    End If
                                 End If
-                            Else
-                                ErrorCancelar = True
                             End If
                         Else
-                            ErrorCancelar = True
+                                ErrorCancelar = True
+                            End If
+
                         End If
-                    End If
                 Next
 
             End If
@@ -20748,14 +20756,16 @@ Partial Class Compras_Compras
     Public Function ValidaPresupuesto(Opcion As Integer, Optional ValCveSubProyecto As Integer = -1, Optional ValSubProyecto As String = "", Optional ValCveClasificacion As Integer = -1, Optional ValClasificacion As String = "",
                                       Optional ValCveTipoGasto As Integer = -1, Optional ValTipoGasto As String = "", Optional ValImporte As Decimal = 0) As Boolean
 
+
         Dim respuesta As Boolean = False
 
-        If DdlTipoComprobante.SelectedValue <> "Fac" Then
-            Return True
-        End If
 
         If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
 
+            If Opcion = 1 Or OCVinculada Or DdlTipoComprobante.SelectedValue <> "Fac" Then
+                Return True
+            End If
+
             Dim ObjCon As New ClsContratos
             Dim CvePresupuesto As Integer = 0
             Dim Autorizado As Double = 0

Compras/PopUpVerFactura.aspx.vb

@@ -1679,7 +1679,12 @@ Partial Class PopUpVerFactura
 
                                 Case "VentaTotalIngreso"
                                     rowData("Columna") = "Ventas Ingreso"
-                                    Orden = 5
+                                    If UsuarioActual.CveEmpresa = 193 Then
+                                        Orden = 0
+                                    Else
+                                        Orden = 5
+                                    End If
+
                                     TipoTabla = 1
                                 Case "VentaTotalRemision"
                                     If UsuarioActual.CveEmpresa.Contiene(190, 192) Then

Compras/Proveedores.aspx

@@ -2053,7 +2053,7 @@
                         <asp:UpdatePanel runat="server" ID="UpDocumentos" UpdateMode="Conditional"> 
                             <ContentTemplate>
                                   <asp:GridView ID="GvDocs" AutoGenerateColumns="false" runat="server" GridLines="none" 
-                            DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus,Observacion,Fecha,FechaIng,Usuario,FechaLimite,FechaVigencia,DiasLimite,AplicaDiasLimite,AplicaFechaVencimiento">
+                                    DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus,Observacion,Fecha,FechaIng,Usuario,FechaLimite,FechaVigencia,DiasLimite,AplicaDiasLimite,AplicaFechaVencimiento">
                             <Columns>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="60px">
                                     <ItemTemplate>
@@ -2093,11 +2093,17 @@
                                             CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload' ></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px">
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" Visible="false">
                                     <ItemTemplate>
                                         <asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="LnkDownLoadDoc_Click" runat="server"
+                                            Text="<i class='fa fa-download' style='color:white' title='Descargar Documento'></i>" CausesValidation="False" Visible="false" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" Visible="false">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkGVEliminar" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="LnkGVEliminar_Click"

Compras/Proveedores.aspx.vb

@@ -2526,6 +2526,8 @@ Partial Class Compras_Proveedores
             Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False)
             Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
 
+            Dim LnkDownLoadDoc As LinkButton = e.Row.FCLinkButton("LnkDownLoadDoc")
+
             txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
             ' txtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
 
@@ -2569,19 +2571,25 @@ Partial Class Compras_Proveedores
                 Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
 
                 If File.Exists(linkDescargaArchivo) Then
-                    ImgDownLoad.Visible = True
 
-                    If extencion.Length > 0 Then
+                    'ImgDownLoad.Visible = True
-                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica & "." & extencion)
+
-                    Else
+                    LnkDownLoadDoc.Visible = True
-                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica)
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
-                    End If
+
+                    'If extencion.Length > 0 Then
+                    '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica & "." & extencion)
+                    'Else
+                    '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica)
+                    'End If
+
+
                 Else
-                    ImgDownLoad.Visible = False
+                    'ImgDownLoad.Visible = False
                 End If
 
             Else
-                ImgDownLoad.Visible = False
+                'ImgDownLoad.Visible = False
             End If
 
             If requerido Then
@@ -5835,6 +5843,28 @@ Partial Class Compras_Proveedores
     End Sub
 
 #End Region
+
+    Protected Sub LnkDownLoadDoc_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim Adjunto As String = GvRow.DataKey("Adjunto")
+
+
+        Dim stringDescargaDocumento As String = UsuarioActual.Empresa.Ruta & String.Format("Edoc\\Proveedor\{0}\{1}", CveProveedor, Adjunto)
+
+
+        Dim File As New FileInfo(stringDescargaDocumento)
+
+        If File.Exists Then
+            Response.Clear()
+            Response.AddHeader("Content-Disposition", "attachment; filename=" + File.Name)
+            Response.AddHeader("Content-Length", File.Length.ToString())
+            Response.ContentType = "text/octet-stream"
+            Response.Flush()
+            Response.TransmitFile(File.FullName)
+            Response.End()
+        End If
+
+    End Sub
 End Class
 
 

Compras/RepCxPDetalle.aspx

@@ -552,22 +552,15 @@
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td>                                                                                                        
                                                 </tr>
                                               <tr>
-                                                    <td style="text-align: left;">
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkSubTotalPend" runat="server" Text="&nbsp;SubTotal Pendiente" Checked="false" /></td>
-                                                            <asp:CheckBox ID="ChkSubTotalPend" runat="server" Text="&nbsp;SubTotal Pendiente" Checked="false" /></td>                                                
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkIVAPend" runat="server" Text="&nbsp;IVA Pendiente" Checked="false" /></td>
-                                                    <td style="text-align: left;">
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" Visible="false" /></td>                                           
-                                                        <asp:CheckBox ID="ChkIVAPend" runat="server" Text="&nbsp;IVA Pendiente" Checked="false" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" Visible="false" /></td>                                           
                                                     <td style="text-align: left;"></td>
                                                 </tr>
                                                  <tr>
-                                                        <td style="text-align: left;">
+                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkIEPSP" runat="server" Text="&nbsp; IEPS Pendiente" Checked="False" Visible="false" TextAlign="Right" /></td>
-                                                    <asp:CheckBox ID="ChkIEPSP" runat="server" Text="&nbsp; IEPS Pendiente" Checked="False" Visible="false" TextAlign="Right" />
+                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkRetIVAPendiente" runat="server" Text="&nbsp; Ret IVA Pendiente" Checked="False"  TextAlign="Right" /></td>
-                                                        </td><td style="text-align: left;">
+                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkRetISRPendiente" runat="server" Text="&nbsp; Ret ISR Pendiente" Checked="False"   TextAlign="Right" /></td>
-                                                        <asp:CheckBox ID="ChkRetIVAPendiente" runat="server" Text="&nbsp; Ret IVA Pendiente" Checked="False"  TextAlign="Right" />
-                                                        </td><td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkRetISRPendiente" runat="server" Text="&nbsp; Ret ISR Pendiente" Checked="False"   TextAlign="Right" />
-                                                              </td>
                                                  </tr>
                                             </table>
 

Contabilidad/CatCuentas.aspx

@@ -1,4 +1,4 @@
-<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentas.aspx.vb" Inherits="Contabilidad_CatCuentas" %>
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentas.aspx.vb" Inherits="Contabilidad2_CatCuentas" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -47,26 +47,28 @@
                 font-size: 9px !important;
                 content: "\f040";
             }
+
+            #select2-C_DdlCuentaContable-results{
+                max-width:300px!important
+            }
+
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
-        <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
-    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Catálogo de Cuentas Contables
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+            <li>
+                <asp:LinkButton ID="LnkImprimirExcel" runat="server"  OnClick="LnkImprimirExcel_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Cuentas</asp:LinkButton>
+            </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-
-
     <asp:UpdatePanel ID="upcuentas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
         </ContentTemplate>
     </asp:UpdatePanel>
-
     <asp:UpdatePanel ID="updatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="catcuentascontarbol">
@@ -81,6 +83,8 @@
                 </fieldset>
             </div>
 
+            <%--            <asp:Button ID="BtnCambiaAgrupadorSAT" OnClick="BtnCambiaAgrupadorSAT_Click" ClientIDMode="Static" Style="display: none;" runat="server" />--%>
+
             <div class="catcuentasform">
 
 
@@ -94,8 +98,8 @@
                     <div class="form-line">
                         <div class="catcuentas left">Cuenta</div>
                         <div class="catcuentas right">
-                            <asp:TextBox ID="Tcuenta" runat="server" Enabled="False" MaxLength="30" Width="140px" ClientIDMode="Static"></asp:TextBox>
+                            <asp:TextBox ID="TxtCuenta" Style="width: 200px" runat="server" MaxLength="30"></asp:TextBox>
-                            <ajax:MaskedEditExtender TargetControlID="Tcuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />
+                            <ajax:MaskedEditExtender TargetControlID="TxtCuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />                            
                         </div>
                     </div>
                     <div class="form-line">
@@ -105,20 +109,21 @@
                         </div>
                     </div>
                     <br />
-                    <hr />
                     <div class="form-line">
                         <div class="catcuentas left">Subcuenta de</div>
                         <div class="catcuentas right">
-                            <asp:TextBox ID="Tsubcuenta" runat="server" Width="140px" ClientIDMode="Static"></asp:TextBox>
+                            <asp:TextBox ID="Tsubcuenta" runat="server" Enabled="False" Width="140px" ClientIDMode="Static"></asp:TextBox>
+                            <asp:DropDownList ID="DdlCuentaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" style="max-width:160px" 
+                                DataValueField="Id" Width="160px" Visible="false">
+                                </asp:DropDownList>
                             <br />
                             <asp:Label ID="LblSubCuenta" runat="server" Text="" Font-Italic="True" Font-Size="7pt" ClientIDMode="Static"></asp:Label>
-                            <asp:HiddenField ID="HdnSubCuentaDe" ClientIDMode="Static" Value="0" runat="server" />
                         </div>
                     </div>
                     <div class="form-line">
                         <div class="catcuentas left">Tipo de Cuenta</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DTcuenta" CssClass="form-control input-sm input-small select2me" runat="server">
+                            <asp:DropDownList ID="DTcuenta" CssClass="form-control input-sm input-small select2me"  Width="100%" runat="server">
                                 <asp:ListItem Selected="True" Text="Seleccione " Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Activo Deudora " Value="A"></asp:ListItem>
                                 <asp:ListItem Text="Activo Acreedora " Value="B"></asp:ListItem>
@@ -138,7 +143,7 @@
                     <div class="form-line">
                         <div class="catcuentas left">Cuenta Mayor</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DcuentaMayor" CssClass="form-control input-sm input-small select2me" runat="server">
+                            <asp:DropDownList ID="DcuentaMayor" CssClass="form-control input-sm input-small select2me"  Width="100%" runat="server">
                                 <asp:ListItem Selected="True" Text="Seleccione " Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Mayor " Value="1"></asp:ListItem>
                                 <asp:ListItem Text="No " Value="2"></asp:ListItem>
@@ -150,14 +155,14 @@
                     <div class="form-line">
                         <div class="catcuentas left">Agrupador SAT</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlAgrupadorSAT" DataTextField="CodigoNombre" DataValueField="Id" CssClass="form-control input-sm input-small select2me" Width="100%" runat="server">
+                            <asp:DropDownList ID="DdlAgrupadorSAT" DataTextField="CodigoNombre" DataValueField="CveAgrupadorSAT" CssClass="form-control input-sm input-small select2me" Width="100%" runat="server">
                             </asp:DropDownList>
                         </div>
                     </div>
                     <div class="form-line">
                         <div class="catcuentas left">Moneda</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlMoneda" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm input-small select2me" runat="server">
+                            <asp:DropDownList ID="DdlMoneda" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="form-control input-sm input-small select2me" runat="server">
                             </asp:DropDownList>
                         </div>
                     </div>
@@ -168,14 +173,78 @@
                         </div>
                     </div>
                     <div class="form-line">
-                        <div class="catcuentas left">Nombre en inglés</div>
+                        <div class="catcuentas left">Nombre en ingles</div>
                         <div class="catcuentas right">
                             <asp:TextBox ID="TxtNomIngles" Style="width: 100%;" runat="server"></asp:TextBox>
                         </div>
                     </div>
                     <br />
-                    <asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" tit runat="server" Text="Guardar" />
+                    <div class="form-line">
-                    <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar" />
+                        <div class="catcuentas left">Concepto</div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlConcepto" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true" Width="100%"
+                                OnSelectedIndexChanged="DdlConcepto_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me" runat="server">
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                    <asp:Panel runat="server" ID="PnlOpcion1" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Proveedor:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" data-metodo="getproveedores" UsaWebService="true" Width="100%" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion3" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Clasificación"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion4" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Cuenta Bancaria "></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="ddlBancos" Width="100%" CssClass="select2me"  DataValueField="CveCuenta" DataTextField="NumCuenta" runat="server"></asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion5" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Almacén"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlAlmacen" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen" CssClass="select2me"></asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion6" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Cliente:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Porcentaje Impuesto:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
+                        </div>
+                    </asp:Panel>
+                     <asp:Panel runat="server" ID="pnlOpcion8" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Personal"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="100%">
+                                <asp:ListItem Selected="True" Text="Seleccione el personal (Todas)" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+
+
+                    <br />
+                    <asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" runat="server" Text="Guardar" />
+                    <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar"  />
                     <asp:Button ID="BtnEliminar" CssClass="btn btn-danger" Visible="false" runat="server" Text="Eliminar" OnClientClick="return confirm('Esta seguro de eliminar la cuenta?')" />
                 </fieldset>
             </div>
@@ -220,36 +289,20 @@
             });
         });
 
-        function ValidaGuardar(SubCuentaAnterior) {
+        function Afectable(btn) {
-            $('.popover').remove();
+            debugger;
-            $("#C_Guardar").removeAttr("aria-describedby");
+            $('#C_nuevacuenta').attr('data-toggle', 'confirmation');
-
+            $('#C_nuevacuenta').attr('data-popout', 'true');
-         
+            $('#C_nuevacuenta').attr('data-original-title', '<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar esta cuenta nueva?</center>');
-
+            $('#C_nuevacuenta').attr('data-btn-ok-label', 'si');
-            if ($get('HdnSubCuentaDe').value != $get('Tsubcuenta').value) {
-
-                setTimeout(
-                function () {
-                    ;
-                    var Text = '';
-
-                    debugger;
-                    if ($("#Tsubcuenta").length) {                     
-                        Text += 'La cuenta sera reasignada a la cuenta padre: <b>' + $get('Tsubcuenta').value + '</b> con sus respectivos saldos <br/>';
-                    }
-
-                    $('.popover-title').html(Text);
-                }, 10);
-            }
-            else {
-              
-                $('.popover-title').html('¿Esta seguro de guardar?');
-            }
-
-            
-
-            
         }
 
+        function NoAfectable() {
+            debugger;
+            $('#C_nuevacuenta').attr('data-toggle', '');
+            $('#C_nuevacuenta').attr('data-popout', '');
+            $('#C_nuevacuenta').attr('data-original-title', '');
+            $('#C_nuevacuenta').attr('data-btn-ok-label', '');
+        }
     </script>
 </asp:Content>

Contabilidad/CatCuentas.aspx.vb

@@ -1,7 +1,8 @@
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Partial Class Contabilidad_CatCuentas
+
+Partial Class Contabilidad2_CatCuentas
     Inherits ClsPaginas
 
 #Region "Propiedades"
@@ -14,49 +15,127 @@ Partial Class Contabilidad_CatCuentas
             ViewState("DtDatos") = value
         End Set
     End Property
+
+    Private Property DtConceptosconta As DataTable
+        Get
+            Return CType(ViewState("DtConceptosconta"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtConceptosconta") = value
+        End Set
+    End Property
     Private Property IDSelected As Integer
         Get
-            Return ViewState("idsel").ToString.ToEntero
+            Return ViewState("idsel").ToString.ToEntero()
         End Get
         Set(value As Integer)
             ViewState("idsel") = value
         End Set
     End Property
 
+    Private Property CvePadre As Integer
+        Get
+            Return ViewState("CvePadre").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CvePadre") = value
+        End Set
+    End Property
+
+    Private Property Afectable As Boolean
+        Get
+            Return CBool(ViewState("Afectable").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("Afectable") = value
+        End Set
+    End Property
+#Region "Contabilidadnew"
+    Private Property CveProveedor As Integer
+        Get
+            Return ViewState("CveProveedor").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveProveedor") = value
+        End Set
+    End Property
+    Private Property CveCliente As Integer
+        Get
+            Return ViewState("CveCliente").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveCliente") = value
+        End Set
+    End Property
+    Private Property CveClasificacion As Integer
+        Get
+            Return ViewState("CveClasificacion").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveClasificacion") = value
+        End Set
+    End Property
+
+    Private Property CveBancoCuenta As Integer
+        Get
+            Return ViewState("CveBancoCuenta").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveBancoCuenta") = value
+        End Set
+    End Property
+    Private Property CveAlmacen As Integer
+        Get
+            Return ViewState("CveAlmacen").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveAlmacen") = value
+        End Set
+    End Property
+#End Region
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                Response.Redirect("/Contabilidad2/CatCuentas.aspx")
+            DdlAlmacen.DataBind()
-                Exit Sub
+            DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            End If
+            CargaMonedas()
-
+            CargaAgrupadorSAT()
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            CargaDatos()
-                    CargaMonedas()
+            Using objconta As New ClsContabilidad
-                    CargaAgrupadorSAT()
+                objconta.GetConta_ConceptosContables(1)
-                    CargaDatos()
+                DtConceptosconta = objconta.DtResultados
-                Else
+            End Using
-                    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
+            Using ObjBancos As New ClsBancos
-                    MEECuenta.Enabled = False
+                If ObjBancos.GetBancosCuentas(-1) Then
-                    LnkPdf.Visible = False
+                    ddlBancos.DataSource = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                    ddlBancos.DataBind()
+                    ddlBancos.Items.Insert(0, New ListItem("Seleccione", "-1"))
                 End If
+            End Using
 
-            End If
+
+            DdlConcepto.DataSource = DtConceptosconta
+            DdlConcepto.DataBind()
+            DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            'Else
+            '    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
+            '    MEECuenta.Enabled = False
+            'End If
+        End If
     End Sub
 
     Private Sub CargaMonedas()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        If ObjConta.GetMonedas() Then
+        DdlMoneda.DataSource = GlobalDTMonedas
-            DdlMoneda.DataSource = ObjConta.DtResultados
-        End If
-        ObjConta.Dispose()
         DdlMoneda.DataBind()
     End Sub
+
     Private Sub CargaAgrupadorSAT()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        Dim ObjConta As New ClsContabilidad
 
         If ObjConta.GetAgrupadoresSAT() Then
             DdlAgrupadorSAT.DataSource = ObjConta.DtResultados
@@ -66,40 +145,49 @@ Partial Class Contabilidad_CatCuentas
         DdlAgrupadorSAT.DataBind()
         DdlAgrupadorSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
-    Private Sub CargaDatos()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        If ObjConta.GetCuentas(-1, "-1", -1) Then
+    Private Sub CargaDatos()
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados
         End If
-        'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero
+        ObjConta.Dispose()
-        Dim Mascara As String = "####-####-###"
-        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DtDatos.FiltraParametros("CtaInicial>0").Rows.Count > 0 Then
-            Mascara = DtDatos.FiltraParametros("CtaInicial>0").Rows(0)("CuentaFormato").ToString.Replace("1", "0").Replace("2", "0").Replace("3", "0").Replace("4", "0").Replace("5", "0").Replace("6", "0").Replace("7", "0").Replace("8", "0").Replace("9", "0")
-        End If
 
-        MEECuenta.Mask = Mascara.Replace("0", "9")
+        'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero
+        Dim Mascara As String = UsuarioActual.Empresa.ContaFormatoCuenta.Replace("X", "9")  '"###-##-####"
+        'If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
+        '    Mascara = DtDatos.Rows(0)("Codigo").ToString.Replace("1", "0").Replace("2", "0").Replace("3", "0").Replace("4", "0").Replace("5", "0").Replace("6", "0").Replace("7", "0").Replace("8", "0").Replace("9", "0")
+        'End If
+
+        MEECuenta.Mask = Mascara '.Replace("0", "9")
         MEECuenta.AutoComplete = True
         MEECuenta.AutoCompleteValue = Mascara
 
         ArbolCuentas.DataSource = DtDatos
         ArbolCuentas.nivel = "CtaInicial"
-        ArbolCuentas.nodoid = "id"
+        ArbolCuentas.nodoid = "CveCuenta"
-        ArbolCuentas.padre = "IdPadre"
+        ArbolCuentas.padre = "CvePadre"
-        ArbolCuentas.titulo = "CtaCodigo"
+        ArbolCuentas.titulo = "CuentaFormatoNombre"
-        updatos.Update()
+        ArbolCuentas.DataBind()
-        ObjConta.Dispose()
+
+
     End Sub
 
     'Private Function getNodosHijos(nodo As Integer) As DataTable
     '    Return DtDatos.FiltraParametros(String.Format("IdPadre = {0}", nodo))
     'End Function
     Private Function getNodospadreHijos(nodo As Integer) As DataTable
-        Return DtDatos.FiltraParametros(String.Format("Id = {0}", nodo))
+        Return DtDatos.FiltraParametros(String.Format("CveCuenta = {0}", nodo))
     End Function
     Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick
         LimpiarCampos()
+
+        Tsubcuenta.Visible = True
+        DdlCuentaContable.Visible = False
+
         Dim dt As New DataTable
+
         'IDSelected = HdnID.Value.ToEntero()   "ul" + itempadre.Cve;
         Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
         IDSelected = obj.Cve
@@ -108,178 +196,453 @@ Partial Class Contabilidad_CatCuentas
         dt = getNodospadreHijos(IDSelected)
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             Dim dr As DataRow = dt.Rows(0)
+            'TxtCuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString)
+            'Tcuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString)
             Tsubcuenta.Text = dr("CuentaFormato").ToString()
             DTcuenta.SelectedValue = dr("Tipo").ToString()
             DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
             LblSubCuenta.Text = dr("Nombre").ToString
+            Afectable = CBool(dr("Afectable").ToString)
+            CvePadre = dr("CvePadre").ToString.ToEntero
         End If
 
-        Tcuenta.Enabled = True
+        If Afectable Then
+            RegistraScript(String.Format("Afectable({0});", nuevacuenta.ClientID))
+            Alert("Se va crear una subcuenta en una cuenta afectable", TipoMensaje.MsgAdvertencia)
+        Else
+            RegistraScript("NoAfectable();")
+
+        End If
+        TxtCuenta.Enabled = True
+
+        'Tcuenta.Enabled = True
         nuevacuenta.Visible = True
         updatos.Visible = True
         updatos.Update()
 
     End Sub
+    Private Sub limpiavalorescontables()
+
+
+        DdlConcepto.SelectedValueExist(-1)
+        onconceptochange()
+        CveProveedor = -1
+        DdlProveedores.SelectedText = ""
+        DdlProveedores.SelectedValue = CveProveedor.ToString
+        CveCliente = -1
+        DdlClientesWS.SelectedText = ""
+        DdlClientesWS.SelectedValue = CveCliente.ToString
+        Dim PorcentajeImpuesto As Decimal = -1
+        DdlClasificacion.SelectedValueExist(PorcentajeImpuesto)
+        CveClasificacion = -1
+        DdlClasificacion.SelectedValueExist(CveClasificacion)
+        CveBancoCuenta = -1
+        CveAlmacen = -1
+        DdlAlmacen.SelectedValueExist(CveAlmacen)
+    End Sub
     Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick
         LimpiarCampos()
+        limpiavalorescontables()
+        CargaCuentasContables()
+
+        Tsubcuenta.Visible = False
+        DdlCuentaContable.Visible = True
+
         Dim dt As DataTable
         Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
         IDSelected = obj.Cve
         dt = getNodospadreHijos(IDSelected)
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             Dim dr As DataRow = dt.Rows(0)
-            Tcuenta.Text = dr("CuentaFormato").ToString.Replace("-", "")
+            TxtCuenta.Text = dr("CuentaFormato").ToString.Replace("-", "").ToString
+            'Tcuenta.Text = dr("CuentaFormato").ToString.Replace("-", "").ToString
             Tnombre.Text = dr("Nombre").ToString()
             DTcuenta.SelectedValue = dr("Tipo").ToString()
             DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
-            DdlMoneda.SelectedValueExist(dr("IdMoneda").ToString)
+            DdlMoneda.SelectedValue = If(dr("CveMoneda").ToString = "", "1", dr("CveMoneda").ToString)
+            Using objconta As New ClsContabilidad
+                objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
+                If objconta.DtResultados.Rows.Count > 0 Then
+                    Dim rowcc As DataRow = objconta.DtResultados.Rows(0)
+                    DdlConcepto.SelectedValue = "-1"
+                    DdlConcepto.SelectedValueExist(rowcc("CveConceptoAdmin").ToString().ToEntero())
+                    onconceptochange()
+                    CveProveedor = rowcc("CveProveedor").ToString().ToEntero()
+                    DdlProveedores.SelectedText = rowcc("Proveedor").ToString()
+                    DdlProveedores.SelectedValue = CveProveedor.ToString
+                    CveCliente = rowcc("CveCliente").ToString().ToEntero()
+                    DdlClientesWS.SelectedText = rowcc("Cliente").ToString
+                    DdlClientesWS.SelectedValue = CveCliente.ToString
+                    Dim PorcentajeImpuesto As Decimal = rowcc("PorcentajeImpuesto").ToString().ToDecimal() * 100
+                    TxtPorcentaje.Text = PorcentajeImpuesto.ToString
+                    CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero()
+                    DdlClasificacion.SelectedValueExist(CveClasificacion)
+                    CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                    ddlBancos.SelectedValue = "-1"
+                    ddlBancos.SelectedValueExist(CveBancoCuenta)
+                    CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
+                    DdlAlmacen.SelectedValue = "-1"
+                    DdlAlmacen.SelectedValueExist(CveAlmacen)
+                    DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero())
+                End If
 
-            If dr("IdAgrupadorSAT").ToString.ToEntero = 0 Then
+            End Using
+
+            If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then
                 DdlAgrupadorSAT.SelectedValue = "-1"
             Else
-                DdlAgrupadorSAT.SelectedValue = dr("IdAgrupadorSAT").ToString
+                DdlAgrupadorSAT.SelectedValueExist(dr("CveAgrupadorSAT").ToString)
             End If
 
 
             TxtDigAgrup.Text = dr("DigAgrup").ToString
             TxtNomIngles.Text = dr("NomIdioma").ToString
 
-            Dim Hijos As Integer = DtDatos.FiltraParametros(String.Format("IdPadre = {0}", IDSelected)).Rows.Count
+            Dim Hijos As Integer = DtDatos.FiltraParametros(String.Format("CvePadre = {0}", IDSelected)).Rows.Count
 
             If Hijos = 0 Then BtnEliminar.Visible = True
 
-            dt = getNodospadreHijos(dr("IdPadre").ToString.ToEntero)
+            dt = getNodospadreHijos(dr("CvePadre").ToString.ToEntero)
             If dt.Rows.Count > 0 Then
                 Dim drt As DataRow = dt.Rows(0)
                 Tsubcuenta.Text = drt("Codigo").ToString
+                DdlCuentaContable.SelectedValueExist(drt("CveCuenta").ToString)
                 LblSubCuenta.Text = drt("Nombre").ToString
-                HdnSubCuentaDe.Value = drt("Codigo").ToString
-
-                Guardar.OnClientClick = $"ValidaGuardar('{drt("Codigo").ToString}');"
-                Guardar.Attributes.Add("data-toggle", "confirmation")
-                Guardar.Attributes.Add("data-popout", "true")
-                Guardar.Attributes.Add("data-original-title", "confirmar")
-                Guardar.Attributes.Add("data-btn-ok-label", "Guardar")
-                Guardar.Attributes.Add("data-html", "true")
             End If
 
         End If
 
-
+        TxtCuenta.Enabled = True
         Guardar.Visible = True
         updatos.Visible = True
         updatos.Update()
 
+    End Sub
+
+    Private Sub CargaCuentasContables()
+
+        DdlCuentaContable.ClearSelection()
+        DdlCuentaContable.Items.Clear()
+        DdlCuentaContable.SelectedValue = Nothing
+
+        Dim ObjConta As New ClsContabilidad
+
+        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuentaContable.DataSource = ObjConta.DtResultados
+        End If
+
+        ObjConta.Dispose()
+
+        DdlCuentaContable.DataBind()
+        DdlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
+        DdlCuentaContable.SelectedValueExist("-1")
+
     End Sub
     Protected Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
 
         If Tnombre.Text.Trim = "" Then Alert("Ingrese nombre de la cuenta", TipoMensaje.MsgError) : Exit Sub
 
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+        Dim CveConceptoAdmin As Integer = DdlConcepto.SelectedValue.ToEntero()
+        Dim CveProveedor As Integer = DdlProveedores.SelectedValue.ToEntero()
+        Dim CveCliente As Integer = DdlClientesWS.SelectedValue.ToEntero()
+        Dim CveClasificacion As Integer = DdlClasificacion.SelectedValue.ToEntero()
+        Dim PorcentajeImpuesto As Decimal = TxtPorcentaje.Text.ToDecimal() / 100
+        Dim CveBancoCuenta As Integer = ddlBancos.SelectedValue.ToEntero
+        Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero()
 
+
+
+        If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
+            If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero,
+                                 TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin,
+                                 CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
+                                 CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen, Codigo:=TxtCuenta.Text.Replace("-", ""), CvePadre:=DdlCuentaContable.SelectedValue.ToEntero) Then
+
+                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                '    Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
+                '    If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                '                                        DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                '        ObjContaEmpresa.Dispose()
+                '        ObjConta.Dispose()
+                '        Exit Sub
+                '    End If
+                'End If
+
+                'Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
+
+                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+
+                '    Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+
+                '        If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                '            Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+                '            Dim IdAgrupador As Integer
+
+                '            If ObjConta2.GetAgrupadoresSAT() Then
+                '                IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                '            End If
+                '            If Id > 0 Then
+                '                If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                '                End If
+                '            End If
+                '        End If
+                '    End Using
+                'End If
+
+                Dim customerRow As Data.DataRow
+                customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
+                customerRow("Nombre") = Tnombre.Text
+                DtDatos.AcceptChanges()
+
+                CargaDatos()
+                ArbolCuentas.DataSource = DtDatos
+
+                Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
+                item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text)
+                'updatos.Visible = False
+                'Guardar.Visible = False
+                LimpiarCampos()
+                'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();")
+                updatos.Update()
+                GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
+                Alert("La cuenta se guardo correctamente")
+
+            End If
+        Else
+            Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
         End If
+
+
         ObjConta.Dispose()
 
-
-        Dim customerRow As Data.DataRow
-        customerRow = DtDatos.Select(String.Format("Id = {0}", IDSelected))(0)
-        customerRow("Nombre") = Tnombre.Text
-        DtDatos.AcceptChanges()
-
-        CargaDatos()
-        ArbolCuentas.DataSource = DtDatos
-        ArbolCuentas.DataBind()
-
-        Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
-        item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text)
-        'updatos.Visible = False
-        'Guardar.Visible = False
-        LimpiarCampos()
-        updatos.Update()
-
-        Alert("La cuenta se guardo correctamente")
-
     End Sub
     Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click
 
         If Tnombre.Text.Trim = "" Then Alert("Ingrese nombre de la cuenta", TipoMensaje.MsgError) : Exit Sub
 
-        If Tcuenta.Text.Trim = "" Then Alert("Ingrese la cuenta", TipoMensaje.MsgError) : Exit Sub
+        If TxtCuenta.Text.Trim = "" Then Alert("Ingrese la cuenta", TipoMensaje.MsgError) : Exit Sub
+        'If Tcuenta.Text.Trim = "" Then Alert("Ingrese la cuenta", TipoMensaje.MsgError) : Exit Sub
 
 
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
         Dim CuentaEfectivo As Integer = 0
+        'Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
+        TxtCuenta.Text.Replace("-", "")
+        Dim idnew As Integer = 0
 
+        Dim CveConceptoContable As Integer = DdlConcepto.SelectedValue.ToEntero()
+        Dim row As DataRow = Nothing
+        Dim CveTipoSaldo As Integer = 0
+        Dim PorcentajeIVA As Decimal = -1
+        Dim drt As DataRow
+        Dim CveConceptoAdmin As Integer
+        Dim CveProveedor As Integer
+        Dim CveCliente As Integer
+        Dim CveClasificacion As Integer
+        Dim PorcentajeImpuesto As Decimal
+        Dim CveBancoCuenta As Integer
+        'Dim CveAlmacen As Integer = -1
+        'Dim CvePersonal As Integer = -1
+        Dim NombreCuenta As String
+        Dim TipoCuenta As String
+        Dim CuentaMayor As Integer
+        Dim CveMoneda As Integer
+        Dim DigAgrup As Integer
+        Dim CveAgrupadorSat As Integer
+        Dim NomIdioma As String
+        Dim TieneError As Boolean = False
+        If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
 
-        ' [IPP] VIEJO | COMENTADO 9/MARZO/2018
+            If CveConceptoContable > 0 Then
-        'Dim Afectable As Integer = If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
+                row = DtConceptosconta.FiltroPrimero(String.Format("CveConceptoContable={0}", CveConceptoContable))
-        Dim Afectable = 1
+                CveTipoSaldo = row("CveTipoSaldo").ToString.ToEntero()
-
+            End If
-        Dim idnew = ObjConta.AddCuenta(Tcuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IDSelected.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero)
+            If Not IsNothing(row) Then
-        If idnew > 0 Then
+                If CveTipoSaldo = 3 Then
-
+                    PorcentajeIVA = TxtPorcentaje.Text.ToDecimal / 100D
-            Dim dr As DataRow = DtDatos.NewRow
+                End If
-            dr("id") = idnew
+            End If
-            dr("CuentaFormato") = Tcuenta.Text
+            ObjConta.IniciaTransacSQL()
-            dr("Nombre") = Tnombre.Text
+            If Afectable Then
-            dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
+                If ObjConta.GetCuentas(IDSelected, "-1", -1, UsuarioActual.CveEmpresa) Then
-            dr("Tipo") = DTcuenta.SelectedValue.ToString
+                    drt = ObjConta.DtResultados.FiltroPrimero(String.Format("CveCuenta={0}", IDSelected))
-            dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+                    CveConceptoAdmin = If(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero)
-            dr("IdPadre") = IDSelected
+                    CveProveedor = If(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero)
-            dr("Codigo") = Tnombre.Text
+                    CveCliente = If(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero)
-            dr("IdMoneda") = DdlMoneda.SelectedValue.ToEntero
+                    CveClasificacion = If(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero)
-            dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+                    PorcentajeImpuesto = If(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero)
-            dr("NomIdioma") = TxtNomIngles.Text.Trim
+                    CveBancoCuenta = If(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
-            DtDatos.Rows.Add(dr)
+                    'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero)
-            ArbolCuentas.DataSource = DtDatos
+                    'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero)
-            '.Attributes.Add("data-hijos","0");
+                    NombreCuenta = If(drt("Nombre").ToString = "", "", drt("Nombre").ToString)
-            Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+                    TipoCuenta = If(drt("Tipo").ToString = "", "", drt("Tipo").ToString)
-            item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString
+                    CuentaMayor = If(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
-            Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+                    CveMoneda = If(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
-            If (IsNothing(objul)) Then
+                    DigAgrup = If(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
-                objul = New ADServerControl.DragableUL
+                    CveAgrupadorSat = If(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
-                objul.ID = String.Format("ul{0}", item.Cve)
+                    NomIdioma = If(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString)
-                item.Controls.Add(objul)
+                    idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
+                                        CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
+                    If idnew > 0 Then
+                        If ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
+                            If Not ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda,
+                                     DigAgrup, CveAgrupadorSat, NomIdioma) Then
+                                TieneError = True
+                                ObjConta.RollBack()
+                                ObjConta.Dispose()
+                                Exit Sub
+                            End If
+                        Else
+                            Alert("El traspaso de movimientos en la cuenta tuvo un error.", TipoMensaje.MsgError)
+                            TieneError = True
+                            ObjConta.RollBack()
+                            ObjConta.Dispose()
+                        End If
+                    End If
+                End If
+            Else
+                idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, PorcentajeImpuesto:=PorcentajeIVA)
             End If
-            ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
 
-            'updatos.Visible = False
+        Else
-            'nuevacuenta.Visible = False
+            Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
-            LimpiarCampos()
-            updatos.Update()
-            CargaDatos()
-            Alert("La cuenta se guardo correctamente")
         End If
 
+        If idnew > 0 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+                Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+                If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                    Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
+                    Dim IdAgrupador As Integer
+
+                    If ObjConta2.GetAgrupadoresSAT() Then
+                        IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                    End If
+
+
+                    codigoPadre = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                        ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
+                        ObjConta2.IniciaTransacSQL()
+                        If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                            IdPadre = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
+                            If ObjConta2.GetAgrupadoresSAT() Then
+                                IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                            End If
+
+                            If IdPadre > 0 Then
+                                Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, 1, IdPadre, IdAgrupador)
+
+                                If idnew2 > 0 Then
+                                    If Not ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                                        TieneError = True
+                                        ObjConta2.RollBack()
+                                        ObjConta.RollBack()
+                                        Alert("Ocurrio un error al vincultar la cuenta con SIG y Compaq", TipoMensaje.MsgError)
+                                    Else
+                                        ObjConta2.Commit()
+                                    End If
+
+                                Else
+                                    TieneError = True
+                                    ObjConta2.RollBack()
+                                    Alert("Ocurrio un error al crear la cuenta en Compaq", TipoMensaje.MsgError)
+                                End If
+                            End If
+                        End If
+                        ObjConta2.Dispose()
+                    End If
+                    If Not TieneError Then
+                        Dim dr As DataRow = DtDatos.NewRow
+                        dr("CveCuenta") = idnew
+                        dr("CuentaFormato") = TxtCuenta.Text
+                        'dr("CuentaFormato") = Tcuenta.Text
+                        dr("Nombre") = Tnombre.Text
+                        dr("CuentaFormatoNombre") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
+                        dr("Tipo") = DTcuenta.SelectedValue.ToString
+                        dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+                        dr("CvePadre") = IDSelected
+                        dr("Codigo") = Tnombre.Text
+                        dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
+                        dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+                        dr("NomIdioma") = TxtNomIngles.Text.Trim
+                        DtDatos.Rows.Add(dr)
+                        ArbolCuentas.DataSource = DtDatos
+                        '.Attributes.Add("data-hijos","0");
+                        Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+                        item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString
+                        Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+                        If (IsNothing(objul)) Then
+                            objul = New ADServerControl.DragableUL
+                            objul.ID = String.Format("ul{0}", item.Cve)
+                            item.Controls.Add(objul)
+                        End If
+                        ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
+
+                    End If
+                End If
+                If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
+
+            End If
+
+        Else
+            TieneError = True
+            ObjConta.RollBack()
+            Alert("Ocurrio un error al crear la cuenta", TipoMensaje.MsgError)
+        End If
+
+        If Not TieneError Then
+            ObjConta.Commit()
+            GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
+            CargaDatos()
+            LimpiarCampos()
+            updatos.Update()
+            Alert("La cuenta se guardo correctamente", TipoMensaje.MsgInformacion)
+        End If
         ObjConta.Dispose()
+
+
+
     End Sub
     Private Sub LimpiarCampos()
-        Tcuenta.Text = ""
+        TxtCuenta.Text = ""
+        'Tcuenta.Text = ""
         Tnombre.Text = ""
         DTcuenta.SelectedValue = "-1"
         DcuentaMayor.SelectedValue = "-1"
         DdlAgrupadorSAT.SelectedValue = "-1"
         Tsubcuenta.Text = ""
+        TxtDigAgrup.Text = ""
         Guardar.Visible = False
         nuevacuenta.Visible = False
-        Tcuenta.Enabled = False
+        TxtCuenta.Enabled = False
+        'Tcuenta.Enabled = False
+        DdlCuentaContable.SelectedValueExist(-1)
+        DdlCuentaContable.Visible = False
+        Tsubcuenta.Visible = True
         BtnEliminar.Visible = False
     End Sub
+
     Protected Sub borrar_Click(sender As Object, e As EventArgs) Handles borrar.Click
 
     End Sub
+
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjConta.IniciaTransacSQL()
+        Dim ObjConta As New ClsContabilidad
+        'ObjConta.IniciaTransacSQL()
 
         If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then
-            ObjConta.Commit()
 
             Dim customerRow As Data.DataRow
-            customerRow = DtDatos.Select(String.Format("Id = {0}", IDSelected))(0)
+            customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
-            customerRow("IdPadre") = "-5"
+            customerRow("CvePadre") = "-5"
             DtDatos.AcceptChanges()
 
             ArbolCuentas.DataSource = DtDatos
@@ -289,30 +652,98 @@ Partial Class Contabilidad_CatCuentas
             ArbolCuentas.Controls.Remove(item)
             RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))
 
-            'getNodospadreHijos(IDSelected).Rows(0).Delete()
-            'RegistraScript(String.Format("$('li#{0}').remove();", IDSelected))
             LimpiarCampos()
             upcuentas.Update()
             Alert("La Cuenta ha sido eliminada", TipoMensaje.MsgInformacion)
+
+            Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+                If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                    Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+
+                    If Id > 0 Then
+                        If ObjConta2.RemoveCuenta(Id) Then
+                        End If
+                    End If
+                End If
+                ObjConta2.Dispose()
+
+            End If
+            GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
+
         Else
             Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError)
-            ObjConta.RollBack()
+            '  ObjConta.RollBack()
         End If
 
         ObjConta.Dispose()
 
     End Sub
-    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+    'Protected Sub BtnCambiaAgrupadorSAT_Click(sender As Object, e As EventArgs)
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+    '    CargaAgrupadorSAT()
+    'End Sub
+    Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        onconceptochange()
+    End Sub
+    Private Sub onconceptochange(Optional CveCuenta As Integer = -1)
+        PnlOpcion1.Visible = False
+        pnlOpcion2.Visible = False
+        pnlOpcion3.Visible = False
+        pnlOpcion4.Visible = False
+        pnlOpcion5.Visible = False
+        pnlOpcion6.Visible = False
+        Dim CveConceptoContable As Integer = DdlConcepto.SelectedValue.ToEntero()
+        Dim row As DataRow = Nothing
+        Dim CveTipoSaldo As Integer = 0
+        Dim CveParejaContable As Integer = 0
+        If CveConceptoContable > 0 Then
+            row = DtConceptosconta.FiltroPrimero(String.Format("CveConceptoContable={0}", CveConceptoContable))
+            CveTipoSaldo = row("CveTipoSaldo").ToString.ToEntero()
+            CveParejaContable = row("CveParejaContable").ToString().ToEntero()
+        End If
+        If Not IsNothing(row) Then
+            Select Case CveTipoSaldo
+                Case 1
+                    PnlOpcion1.Visible = True
+                Case 2
+                    pnlOpcion2.Visible = True
+                Case 3
+                    pnlOpcion2.Visible = True
+                    pnlOpcion3.Visible = True
+                    'If DdlClasificacion.Items.Count < 2 Then
+                    DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+                    DdlClasificacion.DataBind()
+                    'End If
+                Case 4
+                    pnlOpcion4.Visible = True
+                Case 5
+                    pnlOpcion5.Visible = True
 
+                Case 6
+                    pnlOpcion6.Visible = True
+                Case 8
+                    pnlOpcion8.Visible = True
+                    DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+                    DdlPersonal.DataBind()
 
-        Dim params As New List(Of ReportParameter)
+            End Select
-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        End If
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+    End Sub
-        params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
+    Protected Sub LnkImprimirExcel_Click(sender As Object, e As EventArgs)
+        Imprime("Excel")
+    End Sub
+    Private Sub Imprime(Formato As String)
+        If DtDatos IsNot Nothing Then
 
-        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
 
-        ImprimirPDF("Empresas/Grales/Formatos/CatCuentas.rdlc", DtDatos.FiltraParametros("", "Orden ASC"), params, String.Format("Catalogo Cuentas-{0}", NowADS().ToDateTime.ToShortDateString))
+            ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
     End Sub
 End Class

Contabilidad/CatCuentasCI.aspx

@@ -1,4 +1,4 @@
-<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentas.aspx.vb" Inherits="Contabilidad2_CatCuentas" %>
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentasCI.aspx.vb" Inherits="Contabilidad_CatCuentas" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -47,28 +47,26 @@
                 font-size: 9px !important;
                 content: "\f040";
             }
-
-            #select2-C_DdlCuentaContable-results{
-                max-width:300px!important
-            }
-
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Catálogo de Cuentas Contables
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-            <li>
-                <asp:LinkButton ID="LnkImprimirExcel" runat="server"  OnClick="LnkImprimirExcel_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Cuentas</asp:LinkButton>
-            </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+
     <asp:UpdatePanel ID="upcuentas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
         </ContentTemplate>
     </asp:UpdatePanel>
+
     <asp:UpdatePanel ID="updatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="catcuentascontarbol">
@@ -83,8 +81,6 @@
                 </fieldset>
             </div>
 
-            <%--            <asp:Button ID="BtnCambiaAgrupadorSAT" OnClick="BtnCambiaAgrupadorSAT_Click" ClientIDMode="Static" Style="display: none;" runat="server" />--%>
-
             <div class="catcuentasform">
 
 
@@ -98,8 +94,8 @@
                     <div class="form-line">
                         <div class="catcuentas left">Cuenta</div>
                         <div class="catcuentas right">
-                            <asp:TextBox ID="TxtCuenta" Style="width: 200px" runat="server" MaxLength="30"></asp:TextBox>
+                            <asp:TextBox ID="Tcuenta" runat="server" Enabled="False" MaxLength="30" Width="140px" ClientIDMode="Static"></asp:TextBox>
-                            <ajax:MaskedEditExtender TargetControlID="TxtCuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />                            
+                            <ajax:MaskedEditExtender TargetControlID="Tcuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />
                         </div>
                     </div>
                     <div class="form-line">
@@ -109,21 +105,20 @@
                         </div>
                     </div>
                     <br />
+                    <hr />
                     <div class="form-line">
                         <div class="catcuentas left">Subcuenta de</div>
                         <div class="catcuentas right">
-                            <asp:TextBox ID="Tsubcuenta" runat="server" Enabled="False" Width="140px" ClientIDMode="Static"></asp:TextBox>
+                            <asp:TextBox ID="Tsubcuenta" runat="server" Width="140px" ClientIDMode="Static"></asp:TextBox>
-                            <asp:DropDownList ID="DdlCuentaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" style="max-width:160px" 
-                                DataValueField="Id" Width="160px" Visible="false">
-                                </asp:DropDownList>
                             <br />
                             <asp:Label ID="LblSubCuenta" runat="server" Text="" Font-Italic="True" Font-Size="7pt" ClientIDMode="Static"></asp:Label>
+                            <asp:HiddenField ID="HdnSubCuentaDe" ClientIDMode="Static" Value="0" runat="server" />
                         </div>
                     </div>
                     <div class="form-line">
                         <div class="catcuentas left">Tipo de Cuenta</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DTcuenta" CssClass="form-control input-sm input-small select2me"  Width="100%" runat="server">
+                            <asp:DropDownList ID="DTcuenta" CssClass="form-control input-sm input-small select2me" runat="server">
                                 <asp:ListItem Selected="True" Text="Seleccione " Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Activo Deudora " Value="A"></asp:ListItem>
                                 <asp:ListItem Text="Activo Acreedora " Value="B"></asp:ListItem>
@@ -143,7 +138,7 @@
                     <div class="form-line">
                         <div class="catcuentas left">Cuenta Mayor</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DcuentaMayor" CssClass="form-control input-sm input-small select2me"  Width="100%" runat="server">
+                            <asp:DropDownList ID="DcuentaMayor" CssClass="form-control input-sm input-small select2me" runat="server">
                                 <asp:ListItem Selected="True" Text="Seleccione " Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Mayor " Value="1"></asp:ListItem>
                                 <asp:ListItem Text="No " Value="2"></asp:ListItem>
@@ -155,14 +150,14 @@
                     <div class="form-line">
                         <div class="catcuentas left">Agrupador SAT</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlAgrupadorSAT" DataTextField="CodigoNombre" DataValueField="CveAgrupadorSAT" CssClass="form-control input-sm input-small select2me" Width="100%" runat="server">
+                            <asp:DropDownList ID="DdlAgrupadorSAT" DataTextField="CodigoNombre" DataValueField="Id" CssClass="form-control input-sm input-small select2me" Width="100%" runat="server">
                             </asp:DropDownList>
                         </div>
                     </div>
                     <div class="form-line">
                         <div class="catcuentas left">Moneda</div>
                         <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlMoneda" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="form-control input-sm input-small select2me" runat="server">
+                            <asp:DropDownList ID="DdlMoneda" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm input-small select2me" runat="server">
                             </asp:DropDownList>
                         </div>
                     </div>
@@ -173,78 +168,14 @@
                         </div>
                     </div>
                     <div class="form-line">
-                        <div class="catcuentas left">Nombre en ingles</div>
+                        <div class="catcuentas left">Nombre en inglés</div>
                         <div class="catcuentas right">
                             <asp:TextBox ID="TxtNomIngles" Style="width: 100%;" runat="server"></asp:TextBox>
                         </div>
                     </div>
                     <br />
-                    <div class="form-line">
+                    <asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" tit runat="server" Text="Guardar" />
-                        <div class="catcuentas left">Concepto</div>
+                    <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar" />
-                        <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlConcepto" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true" Width="100%"
-                                OnSelectedIndexChanged="DdlConcepto_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me" runat="server">
-                            </asp:DropDownList>
-                        </div>
-                    </div>
-                    <asp:Panel runat="server" ID="PnlOpcion1" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Proveedor:"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" data-metodo="getproveedores" UsaWebService="true" Width="100%" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
-                        </div>
-                    </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion3" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Clasificación"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
-                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                    </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion4" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Cuenta Bancaria "></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:DropDownList ID="ddlBancos" Width="100%" CssClass="select2me"  DataValueField="CveCuenta" DataTextField="NumCuenta" runat="server"></asp:DropDownList>
-                        </div>
-                    </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion5" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Almacén"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlAlmacen" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen" CssClass="select2me"></asp:DropDownList>
-                        </div>
-                    </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion6" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Cliente:"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
-                        </div>
-                    </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Porcentaje Impuesto:"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
-                        </div>
-                    </asp:Panel>
-                     <asp:Panel runat="server" ID="pnlOpcion8" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Personal"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="100%">
-                                <asp:ListItem Selected="True" Text="Seleccione el personal (Todas)" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                    </asp:Panel>
-
-
-                    <br />
-                    <asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" runat="server" Text="Guardar" />
-                    <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar"  />
                     <asp:Button ID="BtnEliminar" CssClass="btn btn-danger" Visible="false" runat="server" Text="Eliminar" OnClientClick="return confirm('Esta seguro de eliminar la cuenta?')" />
                 </fieldset>
             </div>
@@ -289,20 +220,36 @@
             });
         });
 
-        function Afectable(btn) {
+        function ValidaGuardar(SubCuentaAnterior) {
-            debugger;
+            $('.popover').remove();
-            $('#C_nuevacuenta').attr('data-toggle', 'confirmation');
+            $("#C_Guardar").removeAttr("aria-describedby");
-            $('#C_nuevacuenta').attr('data-popout', 'true');
+
-            $('#C_nuevacuenta').attr('data-original-title', '<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar esta cuenta nueva?</center>');
+         
-            $('#C_nuevacuenta').attr('data-btn-ok-label', 'si');
+
+            if ($get('HdnSubCuentaDe').value != $get('Tsubcuenta').value) {
+
+                setTimeout(
+                function () {
+                    ;
+                    var Text = '';
+
+                    debugger;
+                    if ($("#Tsubcuenta").length) {                     
+                        Text += 'La cuenta sera reasignada a la cuenta padre: <b>' + $get('Tsubcuenta').value + '</b> con sus respectivos saldos <br/>';
+                    }
+
+                    $('.popover-title').html(Text);
+                }, 10);
+            }
+            else {
+              
+                $('.popover-title').html('¿Esta seguro de guardar?');
+            }
+
+            
+
+            
         }
 
-        function NoAfectable() {
-            debugger;
-            $('#C_nuevacuenta').attr('data-toggle', '');
-            $('#C_nuevacuenta').attr('data-popout', '');
-            $('#C_nuevacuenta').attr('data-original-title', '');
-            $('#C_nuevacuenta').attr('data-btn-ok-label', '');
-        }
     </script>
 </asp:Content>

Contabilidad/CatCuentasCI.aspx.vb

@@ -0,0 +1,318 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Partial Class Contabilidad_CatCuentas
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+
+    Private Property DtDatos As DataTable
+        Get
+            Return CType(ViewState("DtDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property IDSelected As Integer
+        Get
+            Return ViewState("idsel").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("idsel") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                Response.Redirect("/Contabilidad/CatCuentas.aspx")
+                Exit Sub
+            End If
+
+            If UsuarioActual.Empresa.UsaContabilidad Then
+                    CargaMonedas()
+                    CargaAgrupadorSAT()
+                    CargaDatos()
+                Else
+                    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
+                    MEECuenta.Enabled = False
+                    LnkPdf.Visible = False
+                End If
+
+            End If
+    End Sub
+
+    Private Sub CargaMonedas()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjConta.GetMonedas() Then
+            DdlMoneda.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        DdlMoneda.DataBind()
+    End Sub
+    Private Sub CargaAgrupadorSAT()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjConta.GetAgrupadoresSAT() Then
+            DdlAgrupadorSAT.DataSource = ObjConta.DtResultados
+        End If
+
+        ObjConta.Dispose()
+        DdlAgrupadorSAT.DataBind()
+        DdlAgrupadorSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjConta.GetCuentas(-1, "-1", -1) Then
+            DtDatos = ObjConta.DtResultados
+        End If
+        'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero
+        Dim Mascara As String = "####-####-###"
+        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DtDatos.FiltraParametros("CtaInicial>0").Rows.Count > 0 Then
+            Mascara = DtDatos.FiltraParametros("CtaInicial>0").Rows(0)("CuentaFormato").ToString.Replace("1", "0").Replace("2", "0").Replace("3", "0").Replace("4", "0").Replace("5", "0").Replace("6", "0").Replace("7", "0").Replace("8", "0").Replace("9", "0")
+        End If
+
+        MEECuenta.Mask = Mascara.Replace("0", "9")
+        MEECuenta.AutoComplete = True
+        MEECuenta.AutoCompleteValue = Mascara
+
+        ArbolCuentas.DataSource = DtDatos
+        ArbolCuentas.nivel = "CtaInicial"
+        ArbolCuentas.nodoid = "id"
+        ArbolCuentas.padre = "IdPadre"
+        ArbolCuentas.titulo = "CtaCodigo"
+        updatos.Update()
+        ObjConta.Dispose()
+    End Sub
+
+    'Private Function getNodosHijos(nodo As Integer) As DataTable
+    '    Return DtDatos.FiltraParametros(String.Format("IdPadre = {0}", nodo))
+    'End Function
+    Private Function getNodospadreHijos(nodo As Integer) As DataTable
+        Return DtDatos.FiltraParametros(String.Format("Id = {0}", nodo))
+    End Function
+    Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick
+        LimpiarCampos()
+        Dim dt As New DataTable
+        'IDSelected = HdnID.Value.ToEntero()   "ul" + itempadre.Cve;
+        Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
+        IDSelected = obj.Cve
+        'obj.FindControl(String.Format("ul{0}", obj.Cve))
+        'obj.Controls.Add(New TextBox())
+        dt = getNodospadreHijos(IDSelected)
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            Dim dr As DataRow = dt.Rows(0)
+            Tsubcuenta.Text = dr("CuentaFormato").ToString()
+            DTcuenta.SelectedValue = dr("Tipo").ToString()
+            DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
+            LblSubCuenta.Text = dr("Nombre").ToString
+        End If
+
+        Tcuenta.Enabled = True
+        nuevacuenta.Visible = True
+        updatos.Visible = True
+        updatos.Update()
+
+    End Sub
+    Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick
+        LimpiarCampos()
+        Dim dt As DataTable
+        Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
+        IDSelected = obj.Cve
+        dt = getNodospadreHijos(IDSelected)
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            Dim dr As DataRow = dt.Rows(0)
+            Tcuenta.Text = dr("CuentaFormato").ToString.Replace("-", "")
+            Tnombre.Text = dr("Nombre").ToString()
+            DTcuenta.SelectedValue = dr("Tipo").ToString()
+            DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
+            DdlMoneda.SelectedValueExist(dr("IdMoneda").ToString)
+
+            If dr("IdAgrupadorSAT").ToString.ToEntero = 0 Then
+                DdlAgrupadorSAT.SelectedValue = "-1"
+            Else
+                DdlAgrupadorSAT.SelectedValue = dr("IdAgrupadorSAT").ToString
+            End If
+
+
+            TxtDigAgrup.Text = dr("DigAgrup").ToString
+            TxtNomIngles.Text = dr("NomIdioma").ToString
+
+            Dim Hijos As Integer = DtDatos.FiltraParametros(String.Format("IdPadre = {0}", IDSelected)).Rows.Count
+
+            If Hijos = 0 Then BtnEliminar.Visible = True
+
+            dt = getNodospadreHijos(dr("IdPadre").ToString.ToEntero)
+            If dt.Rows.Count > 0 Then
+                Dim drt As DataRow = dt.Rows(0)
+                Tsubcuenta.Text = drt("Codigo").ToString
+                LblSubCuenta.Text = drt("Nombre").ToString
+                HdnSubCuentaDe.Value = drt("Codigo").ToString
+
+                Guardar.OnClientClick = $"ValidaGuardar('{drt("Codigo").ToString}');"
+                Guardar.Attributes.Add("data-toggle", "confirmation")
+                Guardar.Attributes.Add("data-popout", "true")
+                Guardar.Attributes.Add("data-original-title", "confirmar")
+                Guardar.Attributes.Add("data-btn-ok-label", "Guardar")
+                Guardar.Attributes.Add("data-html", "true")
+            End If
+
+        End If
+
+
+        Guardar.Visible = True
+        updatos.Visible = True
+        updatos.Update()
+
+    End Sub
+    Protected Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
+
+        If Tnombre.Text.Trim = "" Then Alert("Ingrese nombre de la cuenta", TipoMensaje.MsgError) : Exit Sub
+
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+
+        End If
+        ObjConta.Dispose()
+
+
+        Dim customerRow As Data.DataRow
+        customerRow = DtDatos.Select(String.Format("Id = {0}", IDSelected))(0)
+        customerRow("Nombre") = Tnombre.Text
+        DtDatos.AcceptChanges()
+
+        CargaDatos()
+        ArbolCuentas.DataSource = DtDatos
+        ArbolCuentas.DataBind()
+
+        Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
+        item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text)
+        'updatos.Visible = False
+        'Guardar.Visible = False
+        LimpiarCampos()
+        updatos.Update()
+
+        Alert("La cuenta se guardo correctamente")
+
+    End Sub
+    Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click
+
+        If Tnombre.Text.Trim = "" Then Alert("Ingrese nombre de la cuenta", TipoMensaje.MsgError) : Exit Sub
+
+        If Tcuenta.Text.Trim = "" Then Alert("Ingrese la cuenta", TipoMensaje.MsgError) : Exit Sub
+
+
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim CuentaEfectivo As Integer = 0
+
+
+        ' [IPP] VIEJO | COMENTADO 9/MARZO/2018
+        'Dim Afectable As Integer = If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
+        Dim Afectable = 1
+
+        Dim idnew = ObjConta.AddCuenta(Tcuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IDSelected.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero)
+        If idnew > 0 Then
+
+            Dim dr As DataRow = DtDatos.NewRow
+            dr("id") = idnew
+            dr("CuentaFormato") = Tcuenta.Text
+            dr("Nombre") = Tnombre.Text
+            dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
+            dr("Tipo") = DTcuenta.SelectedValue.ToString
+            dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+            dr("IdPadre") = IDSelected
+            dr("Codigo") = Tnombre.Text
+            dr("IdMoneda") = DdlMoneda.SelectedValue.ToEntero
+            dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+            dr("NomIdioma") = TxtNomIngles.Text.Trim
+            DtDatos.Rows.Add(dr)
+            ArbolCuentas.DataSource = DtDatos
+            '.Attributes.Add("data-hijos","0");
+            Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+            item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString
+            Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+            If (IsNothing(objul)) Then
+                objul = New ADServerControl.DragableUL
+                objul.ID = String.Format("ul{0}", item.Cve)
+                item.Controls.Add(objul)
+            End If
+            ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
+
+            'updatos.Visible = False
+            'nuevacuenta.Visible = False
+            LimpiarCampos()
+            updatos.Update()
+            CargaDatos()
+            Alert("La cuenta se guardo correctamente")
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+    Private Sub LimpiarCampos()
+        Tcuenta.Text = ""
+        Tnombre.Text = ""
+        DTcuenta.SelectedValue = "-1"
+        DcuentaMayor.SelectedValue = "-1"
+        DdlAgrupadorSAT.SelectedValue = "-1"
+        Tsubcuenta.Text = ""
+        Guardar.Visible = False
+        nuevacuenta.Visible = False
+        Tcuenta.Enabled = False
+        BtnEliminar.Visible = False
+    End Sub
+    Protected Sub borrar_Click(sender As Object, e As EventArgs) Handles borrar.Click
+
+    End Sub
+    Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjConta.IniciaTransacSQL()
+
+        If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then
+            ObjConta.Commit()
+
+            Dim customerRow As Data.DataRow
+            customerRow = DtDatos.Select(String.Format("Id = {0}", IDSelected))(0)
+            customerRow("IdPadre") = "-5"
+            DtDatos.AcceptChanges()
+
+            ArbolCuentas.DataSource = DtDatos
+            Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+            Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem)
+            padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString
+            ArbolCuentas.Controls.Remove(item)
+            RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))
+
+            'getNodospadreHijos(IDSelected).Rows(0).Delete()
+            'RegistraScript(String.Format("$('li#{0}').remove();", IDSelected))
+            LimpiarCampos()
+            upcuentas.Update()
+            Alert("La Cuenta ha sido eliminada", TipoMensaje.MsgInformacion)
+        Else
+            Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError)
+            ObjConta.RollBack()
+        End If
+
+        ObjConta.Dispose()
+
+    End Sub
+    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        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/CatCuentas.rdlc", DtDatos.FiltraParametros("", "Orden ASC"), params, String.Format("Catalogo Cuentas-{0}", NowADS().ToDateTime.ToShortDateString))
+    End Sub
+End Class

Contabilidad/FiltraPolizas.aspx

@@ -38,12 +38,12 @@
                     <div class="titlefiltros caption ">
                         <div class="row">
                             <label class="col-md-1">Ejercicio: </label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="false"></asp:DropDownList>
                             </div>
 
                             <label class="col-md-1">Periodo: </label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlPeriodo" runat="server" CssClass="form-control input-sm" AutoPostBack="false">
                                     <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
@@ -70,6 +70,10 @@
                                     <asp:ListItem Text="Orden" Value="4"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+                             <label class="col-md-1">Folio: </label>
+                             <div class="col-md-1">
+                                 <asp:TextBox ID="TxtFolio" runat="server" CssClass="form-control input-sm" ></asp:TextBox>
+                             </div>
                             <label class="col-md-1">Centro Costo: </label>
                             <div class="col-md-1">
                                 <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>

Contabilidad/FiltraPolizas.aspx.vb

@@ -75,7 +75,7 @@ Partial Class Contabilidad_FiltraPolizas
 
             Dim ObjConta As New ClsContabilidad
 
-            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), TxtFolio.Text.ToEntero, UsuarioActual.CveEmpresa) Then
                 DtDatos = ObjConta.DtResultados
                 Gv.DataSource = ObjConta.DtResultados
             Else
@@ -87,7 +87,7 @@ Partial Class Contabilidad_FiltraPolizas
         Else
 
             Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), TxtFolio.Text.ToEntero, UsuarioActual.CveEmpresa) Then
                 DtDatos = ObjConta.DtResultados
                 Gv.DataSource = ObjConta.DtResultados
                 'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then

Contabilidad/LibroDiarioCI.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroDiario.aspx.vb" Inherits="Contabilidad_LibroDiario" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroDiarioCI.aspx.vb" Inherits="Contabilidad_LibroDiario" %>
 
 <asp:Content ContentPlaceHolderID="Css" runat="server">
     <style>

Contabilidad/MovimientosconProveedores.aspx.vb

@@ -253,7 +253,7 @@ Partial Class MovimientosconProveedores
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            '            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+            '            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
         End If
     End Sub
 

Contabilidad/RegPrePolizaS.aspx

@@ -1018,8 +1018,8 @@
                     </div>
 
                     <asp:GridView ID="GvComplementoPagos" runat="server"
-                        DataKeyNames="CveComplementoPago,FolioFiscal,SerieFolioPago"
+                        DataKeyNames="CveComplementoPago,FolioFiscal,SerieFolioPago,RFCReceptor,CvePAC"
-                        AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
+                        AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" data-sort="true">
                         <Columns>
 
                             <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolioPago" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
@@ -1029,18 +1029,18 @@
                             <asp:BoundField HeaderText="PDF" ItemStyle-HorizontalAlign="Center" />
                             <asp:BoundField HeaderText="Estatus" Visible="false"  DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
                              
-
+                             <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
-                            <%--   <asp:TemplateField HeaderText="EstatusSAT" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                 <ItemTemplate>
-                                <ItemTemplate>
+                                     <asp:LinkButton ID="LnkCancelarComplemento" OnClick="LnkCancelarComplemento_Click" runat="server" AlternateText="Editar" CausesValidation="False"
-                                    <asp:LinkButton ID="LnkEstatusSAT" OnClick="LnkEstatusSAT_Click" runat="server" AlternateText="Editar" CausesValidation="False"                                              
+                                         data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" 
-                                        CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-question'></i>" />
+                                         CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
-                                </ItemTemplate>
+                                 </ItemTemplate>
-                            </asp:TemplateField>--%>
+                             </asp:TemplateField>
                         </Columns>
                     </asp:GridView>
                 </div>
                 <div class="modal-footer">
-                    <button id="CancelarComplementoPagos" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    <button id="CerrarComplementoPagos" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
 
                 </div>
             </div>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -468,7 +468,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
-                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+                DtMovimientos = ObjContabilidad.DtResultados
 
                 If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial", "Banc/FluctuaAD") Then
                     BtnEliminar.Enabled = False
@@ -2151,7 +2151,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 UpComplementoPagos.Visible = True
                 'GvComplementoPagos.Columns(7).Visible = True
                 ' si tiene el permiso para eliminar IE o editar IE
-                'If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(8).Visible = True
+                If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(6).Visible = True
             Else
                 DVGenerarComplementoModal.Visible = True
             End If
@@ -2164,6 +2164,71 @@ Partial Class ContabilidadC_RegPrePolizaS
 
     End Sub
 
+
+    Protected Sub LnkCancelarComplemento_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+        Dim CveMotivoCancelacion As Integer = 2 'GvRow.FCDropDownList("DdlMotivoCancelacion").SelectedValue.ToEntero
+        Dim CveSATMotivoCancelacion As Integer = 2 'GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
+        If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
+            Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim CveComplementoPagoCancelar As Integer = GvRow.DataKey("CveComplementoPago").ToEntero
+        Dim FolioFiscalCancelar As String = GvRow.DataKey("FolioFiscal").ToString
+        '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
+        Dim RFCReceptorCancelar As String = GvRow.DataKey("RFCReceptor")
+        Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero
+
+        Dim ObjCancelacion As New Timbrado
+        Dim ObjBanco As New ClsBancos
+
+        If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+            If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, NowADS(), "", 1) Then
+                CargaComplementosPago()
+                Alert("El complemento se canceló correctamente.")
+            End If
+
+        Else
+            Dim resp As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
+            If resp.Verificado Then
+
+                If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+
+                Else
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+                End If
+            End If
+        End If
+        ObjBanco.Dispose()
+        CargaComplementosPago()
+
+    End Sub
+
+    Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True)
+
+        If Vigencia IsNot Nothing Then
+            If Vigencia.Estado.ToUpper = "CANCELADO" Then
+                respuesta = True
+            Else
+                respuesta = False
+            End If
+        Else
+            respuesta = False
+        End If
+
+
+
+        Return respuesta
+    End Function
+
     Private Sub GeneraTimbre(CvePrePoliza As Integer)
         Dim Str As New StringBuilder
         Dim Banco As New ClsBancos

Contabilidad/RepAnexoCatalogo.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogo.aspx.vb" Inherits="AC_RepAnexoCatalogo" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogo.aspx.vb" Inherits="AC2_RepAnexoCatalogo" EnableEventValidation="false" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -17,10 +17,10 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 
     <li>
-        <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
     </li>
 
 </asp:Content>
@@ -29,70 +29,71 @@
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
-                <div class="portlet-title portlet-filterT smalltitle magindate">
+                <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" Enabled="false"/>
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="Valida" />
                         <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros  caption ">
-                        <ul class="list-inline text-size-12">
+                        <%--<div class="row">--%>
-                            <li>F. I.</li>
+                        <div class="row">
-
+                            <div class="col-md-1 truncate">
-                            <li style="margin-right: 30px">
+                                Cuenta
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 93px !important; padding: 0px;">
+                            </div>
-                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                            <div class="col-md-3">
-                                    <span class="input-group-btn ">
+                                <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="100%">
-                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                </div>
-                            </li>
-
-                            <li>F. F.
-                            </li>
-
-                            <li style="margin-right: 30px">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 94px !important; padding: 0px;">
-                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                </div>
-                            </li>
-                            <li>Tipo de Cuentas:
-                            </li>
-                            <li>
-                                <asp:DropDownList CssClass="form-control input-sm" Width="150px" ID="DdlTipoCuentas" ClientIDMode="Static" runat="server" DataTextField="Nombre" DataValueField="Id" TabIndex="4" onchange="Enable();">
                                 </asp:DropDownList>
-                            </li>
-                            <li>Cuenta:
-                            </li>
-                            <li>
-                                <asp:HiddenField ID="HdnCveCuenta" runat="server" ClientIDMode="Static" />
-                                <asp:TextBox ID="TxtCuenta" runat="server" Width="150px" ClientIDMode="Static" Enabled="false" TabIndex="5" CssClass="form-control input-sm"></asp:TextBox>
-                            </li>
 
-                            <li runat="server" id="tdTipoReporte" visible="false">Tipo:
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
-                            </li>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
-                            <li runat="server" id="tdTipoReporte2" visible="false">
+                            </div>
-                                <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server" Width="150px">
+
-                                    <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                            <div class="col-md-1 truncate">
-                                    <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                Fecha Inicio:  
-                                    <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                            </div>
-                                </asp:DropDownList>
+                            <div class="col-md-1" style="min-width: 115px">
-                            </li>
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                        </ul>
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">
+                                Fecha Fin: 
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
                     </div>
                 </div>
                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row">
-                        <label class="col-md-1">Cuentas</label>
+                        <div class="col-md-1 truncate">
-                        <div class="col-md-2">
+                            Tipo Movto
-                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" Width="100%">
+                        </div>
+                        <div class="col-md-2 truncate">
+                            <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
                                 <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
@@ -100,16 +101,33 @@
                                 <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                          
+                        <div class="col-md-1 truncate" id="tdTipoReporte" visible="false" runat="server">
-                         <label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
+                            Tipo
-                        <div class="col-md-2">
+                        </div>
-                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
+                        <div class="col-md-2" id="tdTipoReporte2" visible="false" runat="server">
+                            <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm select2me" runat="server" Width="100%">
+                                <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1" id="divProyecto" runat="server">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                            </asp:DropDownList>
+                        </div>
+                         <div class="col-md-1">
                     </div>
-
                 </div>
             </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 
@@ -125,13 +143,13 @@
                         <ItemTemplate>
                             <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Left" Width="160" />
+                        <ItemStyle HorizontalAlign="Left" Width="180" />
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Left" Width="420" />
+                        <ItemStyle HorizontalAlign="Left" Width="320" />
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Saldos Iniciales">
                         <HeaderTemplate>
@@ -151,31 +169,17 @@
                         </ItemTemplate>
                         <ItemStyle Width="145" HorizontalAlign="Right" />
                     </asp:TemplateField>
-                    <asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cargos">
-                        <HeaderTemplate>
-                            <table width="100%" style="margin-left: 35px;">
-                                <tr>
-                                    <td colspan="2">Cargos</td>
-                                </tr>
-                            </table>
-                        </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="120" HorizontalAlign="Right" />
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
                     </asp:TemplateField>
-                    <asp:TemplateField>
+                    <asp:TemplateField HeaderText="Abonos">
-                        <HeaderTemplate>
-                            <table width="100%" style="margin-left: 35px;">
-                                <tr>
-                                    <td colspan="2">Abonos</td>
-                                </tr>
-                            </table>
-                        </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="120" HorizontalAlign="Right" />
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Saldos Actuales">
                         <HeaderTemplate>
@@ -209,94 +213,97 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
 
-    function pageLoad(sender, args) {
+<%--        function pageLoad(sender, args) {
 
-        $(function () {
+            $(function () {
-            //Genero las cuentas en el arreglo
+                //Genero las cuentas en el arreglo
-            var ArrCuentas = [<%= WSCuentas()%>];
+                var ArrCuentas = [<%= WSCuentas()%>];
 
-            $("#TxtCuenta").autocomplete({
+                $("#TxtCuenta").autocomplete({
-                minLength: 0,
+                    minLength: 0,
-                source: ArrCuentas,
+                    source: ArrCuentas,
-                focus: function (event, ui) {
+                    focus: function (event, ui) {
-                    $("#TxtCuenta").val(ui.item.label);
+                        $("#TxtCuenta").val(ui.item.label);
-                    $("#HdnCveCuenta").val(ui.item.value);
+                        $("#HdnCveCuenta").val(ui.item.value);
-                    return false;
+                        return false;
-                },
+                    },
-                select: function (event, ui) {
+                    select: function (event, ui) {
 
-                    $("#TxtCuenta").val(ui.item.label);
+                        $("#TxtCuenta").val(ui.item.label);
-                    $("#HdnCveCuenta").val(ui.item.value);
+                        $("#HdnCveCuenta").val(ui.item.value);
 
-                    //$("#project-description").html(ui.item.desc);
+                        //$("#project-description").html(ui.item.desc);
-                    //$("#project-icon").attr("src", "images/" + ui.item.icon);
+                        //$("#project-icon").attr("src", "images/" + ui.item.icon);
 
-                    return false;
+                        return false;
-                }
+                    }
-            })
+                })
-            //.autocomplete("instance")._renderItem = function (ul, item) {
+                //.autocomplete("instance")._renderItem = function (ul, item) {
-            //    return $("<li>")
+                //    return $("<li>")
-            //      .append("<a>" + item.label + "</a>")
+                //      .append("<a>" + item.label + "</a>")
-            //      .appendTo(ul);
+                //      .appendTo(ul);
-            //};
+                //};
-        });
+            });
 
-        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+            // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
-        $('input[type=text]').on('keydown', function (e) {
+            $('input[type=text]').on('keydown', function (e) {
-            // Si la tecla ENTER es presionada... 
+                // Si la tecla ENTER es presionada... 
-            if (e.keyCode === 13) {
+                if (e.keyCode === 13) {
+
+                    var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                    var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                    var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                    if (nextField.length > 0) { // Si se encontró un elemento:
+                        nextField.focus(); // Hacerle focus / seleccionarlo
+                        nextField.select();
+                        e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                    }
 
-                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
-                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
-                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
-                if (nextField.length > 0) { // Si se encontró un elemento:
-                    nextField.focus(); // Hacerle focus / seleccionarlo
-                    nextField.select();
-                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
                 }
 
+            });
+
+            // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+            $('select').on('keydown', function (e) {
+                // Si la tecla ENTER es presionada... 
+                if (e.keyCode === 13) {
+
+                    var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                    var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                    var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                    if (nextField.length > 0) { // Si se encontró un elemento:
+                        nextField.focus(); // Hacerle focus / seleccionarlo
+                        nextField.select();
+                        e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                    }
+                }
+            });
+
+        }--%>
+
+        function Enable() {
+            var Producto = $get("DdlTipoCuentas").value;
+            if (Producto == "-2") {
+                //document.getElementById("TxtCuenta").disabled = false;
+                document.getElementById("C_DdlCuentas").disabled = false;
+                //document.getElementById("TxtCuenta").focus();
+                //alert(Producto);
             }
-
+            else {
-        });
+                //document.getElementById("TxtCuenta").value = " ";
-
+                //document.getElementById("TxtCuenta").disabled = true;
-        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+                $get("C_DdlCuentas").value = "-1";
-        $('select').on('keydown', function (e) {
+                document.getElementById("C_DdlCuentas").disabled = true;
-            // Si la tecla ENTER es presionada... 
-            if (e.keyCode === 13) {
-
-                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
-                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
-                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
-                if (nextField.length > 0) { // Si se encontró un elemento:
-                    nextField.focus(); // Hacerle focus / seleccionarlo
-                    nextField.select();
-                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
-                }
             }
-        });
-
-    }
-
-    function Enable() {
-        var Producto = $get("DdlTipoCuentas").value;
-        if (Producto == "-2") {
-            document.getElementById("TxtCuenta").disabled = false;
-            //document.getElementById("TxtCuenta").focus();
-            //alert(Producto);
         }
-        else {
-            document.getElementById("TxtCuenta").value = " ";
-            document.getElementById("TxtCuenta").disabled = true;
-        }
-    }
 
-    function Scroll() {
+        function Scroll() {
-        var Tam = TamañoVentana();
+            var Tam = TamañoVentana();
-        var Alto = Tam.height - 360;
+            var Alto = Tam.height - 360;
-        if (Alto < 100) {
+            if (Alto < 100) {
-            Alto = 100;
+                Alto = 100;
-        }
+            }
-        $('#<%=GvDatos.ClientID%>').ADScroll({
+            $('#<%=GvDatos.ClientID%>').ADScroll({
                 height: Alto
             });
         }

Contabilidad/RepAnexoCatalogo.aspx.vb

@@ -5,9 +5,10 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
-Partial Class AC_RepAnexoCatalogo
+Partial Class AC2_RepAnexoCatalogo
     Inherits ClsPaginas
 
+
 #Region "PROPIEDADES"
     Private Property DtDatos As DataTable
         Get
@@ -26,7 +27,8 @@ Partial Class AC_RepAnexoCatalogo
             ViewState("FechaInicio") = value
         End Set
     End Property
-    Private Property FechaFin As DateTime
+
+    Private Property FechaFin As Date
         Get
             FechaFin = ViewState("FechaFin").ToString.ToDate
         End Get
@@ -36,194 +38,165 @@ Partial Class AC_RepAnexoCatalogo
     End Property
     Private Property IdCuenta As Integer
         Get
-            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
+            IdCuenta = ViewState("CveCuenta").ToString.ToEntero
         End Get
         Set(value As Integer)
-            ViewState("IdCuenta") = value
+            ViewState("CveCuenta") = value
         End Set
     End Property
-    Private Property IdSegNeg As Integer
+    'Private Property DTCuentas As DataTable
+    '    Get
+    '        Return CType(ViewState("DTCuentas"), DataTable)
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DTCuentas") = value
+    '    End Set
+    'End Property
+    Private Property CveProyecto As String
         Get
-            IdSegNeg = ViewState("IdSegNeg").ToString.ToEntero
+            CveProyecto = ViewState("CveProyecto").ToString
         End Get
-        Set(value As Integer)
+        Set(value As String)
-            ViewState("IdSegNeg") = value
+            ViewState("CveProyecto") = value
         End Set
     End Property
-    Private Property DTCuentas As DataTable
+    Private Property CveSubProyecto As String
         Get
-            Return CType(ViewState("DTCuentas"), DataTable)
+            CveSubProyecto = ViewState("CveSubProyecto").ToString
         End Get
-        Set(value As DataTable)
+        Set(value As String)
-            ViewState("DTCuentas") = value
+            ViewState("CveSubProyecto") = value
         End Set
     End Property
+
     Private Property TipoReporte As Integer
         Get
-            TipoReporte = ViewState("TipoReporte").ToString.ToEntero
+            TipoReporte = ViewState("TP").ToString.ToEntero
         End Get
         Set(value As Integer)
-            ViewState("TipoReporte") = value
+            ViewState("TP") = value
         End Set
     End Property
 #End Region
 
-
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
-                Response.Redirect($"/Contabilidad2/RepAnexoCatalogo.aspx")
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then Response.Redirect($"/Contabilidad/RepAnexoCatalogoCI.aspx")
+
+            Dim ErrorParametros = True
+            DtDatos = Nothing
+            CargaTipoCuentas()
+
+            FechaInicio = NowADS().FirstDayOfMonth
+            FechaFin = NowADS()
+
+            'If UsuarioActual.Empresa.UsaAC Then
+            '    TipoReporte = -1
+            'Else
+            '    TipoReporte = 1
+            '    tdTipoReporte.Visible = True
+            '    tdTipoReporte2.Visible = True
+            'End If
+
+
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+                'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+                    IdCuenta = Request("CveCuenta").ToEntero
+                    'FechaInicio = Request("FI").ToDate
+                    FechaFin = Request("FF").ToDate
+                    DdlCuentas.SelectedValueExist(IdCuenta)
+
+                    If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                        FechaInicio = Request("FI").ToDate
+                    Else
+                        If Request("ER") IsNot Nothing AndAlso Request("ER").ToString = "1" Then
+                            FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                        Else
+                            FechaInicio = ("1900/01/01").ToDate
+                        End If
+                    End If
+
+
+                    If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then
+                        DdlCuenta.SelectedValueExist(Request("CM").ToString)
+                    End If
+
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        CveProyecto = Request("CveProyecto").ToString
+                        DdlProyecto.SelectedValueExist(CveProyecto)
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
+                    End If
+
+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+                        CveSubProyecto = Request("CveSubProyecto").ToString
+                        DdlSubproyecto.SelectedValueExist(CveSubProyecto)
+                    End If
+
+                    ErrorParametros = False
+
+                    If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
+                        TipoReporte = Request("TP").ToEntero
+
+                        DdlTipoReporte.SelectedValue = TipoReporte.ToString
+                    End If
+                End If
+                'End If
             End If
 
-            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+
-                InicializaValores()
+            txtFechaI.Text = FechaInicio.ToShortDateString
-                CargaURLParametros()
+            txtFechaF.Text = FechaFin.ToShortDateString
-                BtnConsultar.Enabled = True
+
-            Else
+            If Not ErrorParametros Then
-                Alert("La empresa no usa Contabilidad ni Armonización Contable", TipoMensaje.MsgError)
+                CargaDatos()
             End If
+
         End If
     End Sub
 
+#Region "CARGA DATOS Y GRID"
 
-#Region "  INCIALIZA VALORES  "
-    Private Sub InicializaValores()
-        DtDatos = Nothing
-        CargaTipoCuentas()
-        CargaSegmentosNegocio()
-        FechaInicio = DateSerial(Year(NowADS()), Month(NowADS()), 1)
-        FechaFin = NowADS()
-
-        If UsuarioActual.Empresa.UsaAC Then
-            TipoReporte = -1
-        Else
-            TipoReporte = 1
-            tdTipoReporte.Visible = True
-            tdTipoReporte2.Visible = True
-        End If
-    End Sub
-    Public Function WSCuentas() As String
-        Dim Str As New StringBuilder
-        Dim i As Integer = 0
-        Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
-
-        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-
-            For Each dr As DataRow In dt.Rows
-                i += 1
-                Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("Id"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
-            Next
-
-        End If
-
-
-        Return Str.ToString
-    End Function
     Private Sub CargaTipoCuentas()
-        Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjTipoCuenta As New ClsContabilidad
         Dim strGlobal As String = ""
 
-        If ObjTipoCuenta.GetCuentas(-1, "-1", -1) Then
+        If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
-            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+
-            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
-            DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
+            ' DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
-            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
         End If
         ObjTipoCuenta.Dispose()
-        DdlTipoCuentas.DataBind()
+
-        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+        DdlCuentas.DataBind()
-        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
+
-        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto)
-        DdlTipoCuentas.SelectedIndex = 0
 
     End Sub
-    Private Sub CargaSegmentosNegocio()
-        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim strGlobal As String = ""
 
-        If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-            DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
-            DdlSegmentoNegocio.DataBind()
-        End If
-        ObjContpaq.Dispose()
-        DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSegmentoNegocio.SelectedValue = "-1"
     End Sub
-#End Region
 
-
-#Region "CARGA DATOS"
-    Private Sub CargaURLParametros()
-
-        Dim ErrorParametros = True
-
-        If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
-            'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
-            If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
-                IdCuenta = Request("ID").ToEntero
-                'FechaInicio = Request("FI").ToDate
-                FechaFin = Request("FF").ToDate
-
-                If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
-                    FechaInicio = Request("FI").ToDate
-                Else
-                    FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
-                End If
-				DdlTipoCuentas.SelectedValueExist("-2")
-				HdnCveCuenta.Value = IdCuenta.ToString
-				TxtCuenta.Text = DTCuentas.FiltroPrimeroValor("CtaCodigo", $"Id={Request("ID")}")
-
-                If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then
-                    DdlCuenta.SelectedValueExist(Request("CM").ToString)
-                End If
-
-                ErrorParametros = False
-
-
-                If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
-                    TipoReporte = Request("TP").ToEntero
-
-                    DdlTipoReporte.SelectedValue = TipoReporte.ToString
-                End If
-
-                If Request("IdSegNeg") IsNot Nothing AndAlso IsNumeric(Request("IdSegNeg")) AndAlso Request("IdSegNeg").ToEntero > 0 Then
-                    IdSegNeg = Request("IdSegNeg").ToEntero
-
-                    DdlSegmentoNegocio.SelectedValue = IdSegNeg.ToString
-                End If
-            End If
-            'End If
-        End If
-
-        UPFiltros.Update()
-        TxtFechaDel.Text = FechaInicio.ToShortDateString
-        TxtFechaAl.Text = FechaFin.ToShortDateString
-
-        If Not ErrorParametros Then
-            CargaDatos()
-        End If
-    End Sub
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
-
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
-            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
-        Else
-            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
-            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
-            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, HdnCveCuenta.Value.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
-            CargaDatos()
-
-            RegistraScript("Enable();")
-        End If
-    End Sub
     Private Sub CargaDatos()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
 
-        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+        If Request("TipoReporte") IsNot Nothing Then
+            TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+        Else
+            TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+        End If
+        'Dim CveSubProyecto As String
 
-        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
 
-            If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then
+
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                 DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
             Else
                 DtDatos = ObjConta.DtResultados
@@ -232,13 +205,14 @@ Partial Class AC_RepAnexoCatalogo
             CargaGrid()
         Else
             DtDatos = Nothing
-            Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
+            Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo.", TipoMensaje.MsgError)
         End If
 
         ObjConta.Dispose()
     End Sub
     Private Sub CargaGrid()
         GvDatos.DataSource = DtDatos
+        'GvDatos.Dispose()
         GvDatos.DataBind()
         UpDatos.Update()
         If DtDatos.Rows.Count > 0 Then
@@ -248,12 +222,10 @@ Partial Class AC_RepAnexoCatalogo
     End Sub
 #End Region
 
-
-#Region "GV ROW DATA BOUND"
     Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DBCampo("Id").ToEntero = IdCuenta Then
+            If e.Row.DBCampo("CveCuenta").ToEntero = IdCuenta Then
                 e.Row.ControlStyle.Font.Bold = True
                 'e.Row.ControlStyle.Font.Size = 9
                 'e.Row.ControlStyle.Height = 30
@@ -286,26 +258,21 @@ Partial Class AC_RepAnexoCatalogo
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero)
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}&TP={5}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto, TipoReporte)
         End If
     End Sub
-#End Region
 
-
-#Region "  IMPRIMIR  "
     Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
         If Not IsNothing(DtDatos) Then
             ImprimirReporte()
-        Else
-            Alert("Primero debe consultar el Anexo del Catálogo", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
 
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         If Not IsNothing(DtDatos) Then
             ImprimirReporte("Excel")
-        Else
+            'GvDatos.ExportToExcelG("AnexoCatalogo" & NowADS().ToShortDateString & ".xlsx")
-            Alert("Primero debe consultar el Anexo del Catálogo", TipoMensaje.MsgAdvertencia)
+            'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
         End If
     End Sub
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
@@ -317,15 +284,30 @@ Partial Class AC_RepAnexoCatalogo
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
 
         ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
     End Sub
-#End Region
+    Public Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+
+        If DdlCuentas.SelectedValue.ToEntero = -1 Then
+            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+        Else
+            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
+            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
+            IdCuenta = DdlCuentas.SelectedValue.ToEntero
+            CargaDatos()
+        End If
+        'RegistraScript("Enable();")
+    End Sub
 
 
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
 
+    End Sub
 
 End Class

Contabilidad/RepAnexoCatalogoCI.aspx

@@ -0,0 +1,304 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoCI.aspx.vb" Inherits="AC_RepAnexoCatalogo" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-VH {
+            padding-top: 58px;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Label runat="server" ID="LbTitulo" Text="Anexo del Catálogo"></asp:Label>
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+    <li>
+        <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Excel</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle magindate">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" Enabled="false"/>
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <ul class="list-inline text-size-12">
+                            <li>F. I.</li>
+
+                            <li style="margin-right: 30px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 93px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+                            </li>
+
+                            <li>F. F.
+                            </li>
+
+                            <li style="margin-right: 30px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 94px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+                            </li>
+                            <li>Tipo de Cuentas:
+                            </li>
+                            <li>
+                                <asp:DropDownList CssClass="form-control input-sm" Width="150px" ID="DdlTipoCuentas" ClientIDMode="Static" runat="server" DataTextField="Nombre" DataValueField="Id" TabIndex="4" onchange="Enable();">
+                                </asp:DropDownList>
+                            </li>
+                            <li>Cuenta:
+                            </li>
+                            <li>
+                                <asp:HiddenField ID="HdnCveCuenta" runat="server" ClientIDMode="Static" />
+                                <asp:TextBox ID="TxtCuenta" runat="server" Width="150px" ClientIDMode="Static" Enabled="false" TabIndex="5" CssClass="form-control input-sm"></asp:TextBox>
+                            </li>
+
+                            <li runat="server" id="tdTipoReporte" visible="false">Tipo:
+                            </li>
+                            <li runat="server" id="tdTipoReporte2" visible="false">
+                                <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server" Width="150px">
+                                    <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </li>
+                        </ul>
+                    </div>
+                </div>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                    <div class="row">
+                        <label class="col-md-1">Cuentas</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>  
+                          
+                         <label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <br />
+
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None" CssClass="ScrollAD  table table-smallpadding Widthall" data-heighterror="375" data-freezecols="0" data-freezerows="-1"
+                ShowHeader="True" ShowHeaderWhenEmpty="true" AllowPaging="False" ShowFooter="False" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+                <Columns>
+                    <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" Width="160" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" Width="420" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Saldos Iniciales">
+                        <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="2">Saldos Iniciales</td>
+                                </tr>
+                                <tr>
+                                    <td>Deudor</td>
+                                    <td>Acreedor</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                            <asp:Label ID="LbSaldoInicial2" runat="server" Width="30px" Visible="false"></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            <table width="100%" style="margin-left: 35px;">
+                                <tr>
+                                    <td colspan="2">Cargos</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="120" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            <table width="100%" style="margin-left: 35px;">
+                                <tr>
+                                    <td colspan="2">Abonos</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="120" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Saldos Actuales">
+                        <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="2">Saldos Actuales</td>
+                                </tr>
+                                <tr>
+                                    <td>Deudor</td>
+                                    <td>Acreedor</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HLSaldoActual" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                            <%--<asp:Label ID="LbSaldoActual" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>'></asp:Label>--%>
+                            <asp:Label ID="LbSaldoActual" runat="server" Width="30px" Visible="false"></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                </Columns>
+                <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript">
+
+    function pageLoad(sender, args) {
+
+        $(function () {
+            //Genero las cuentas en el arreglo
+            var ArrCuentas = [<%= WSCuentas()%>];
+
+            $("#TxtCuenta").autocomplete({
+                minLength: 0,
+                source: ArrCuentas,
+                focus: function (event, ui) {
+                    $("#TxtCuenta").val(ui.item.label);
+                    $("#HdnCveCuenta").val(ui.item.value);
+                    return false;
+                },
+                select: function (event, ui) {
+
+                    $("#TxtCuenta").val(ui.item.label);
+                    $("#HdnCveCuenta").val(ui.item.value);
+
+                    //$("#project-description").html(ui.item.desc);
+                    //$("#project-icon").attr("src", "images/" + ui.item.icon);
+
+                    return false;
+                }
+            })
+            //.autocomplete("instance")._renderItem = function (ul, item) {
+            //    return $("<li>")
+            //      .append("<a>" + item.label + "</a>")
+            //      .appendTo(ul);
+            //};
+        });
+
+        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+        $('input[type=text]').on('keydown', function (e) {
+            // Si la tecla ENTER es presionada... 
+            if (e.keyCode === 13) {
+
+                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                if (nextField.length > 0) { // Si se encontró un elemento:
+                    nextField.focus(); // Hacerle focus / seleccionarlo
+                    nextField.select();
+                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                }
+
+            }
+
+        });
+
+        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+        $('select').on('keydown', function (e) {
+            // Si la tecla ENTER es presionada... 
+            if (e.keyCode === 13) {
+
+                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                if (nextField.length > 0) { // Si se encontró un elemento:
+                    nextField.focus(); // Hacerle focus / seleccionarlo
+                    nextField.select();
+                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                }
+            }
+        });
+
+    }
+
+    function Enable() {
+        var Producto = $get("DdlTipoCuentas").value;
+        if (Producto == "-2") {
+            document.getElementById("TxtCuenta").disabled = false;
+            //document.getElementById("TxtCuenta").focus();
+            //alert(Producto);
+        }
+        else {
+            document.getElementById("TxtCuenta").value = " ";
+            document.getElementById("TxtCuenta").disabled = true;
+        }
+    }
+
+    function Scroll() {
+        var Tam = TamañoVentana();
+        var Alto = Tam.height - 360;
+        if (Alto < 100) {
+            Alto = 100;
+        }
+        $('#<%=GvDatos.ClientID%>').ADScroll({
+                height: Alto
+            });
+        }
+    </script>
+</asp:Content>

Contabilidad/RepAnexoCatalogoCI.aspx.vb

@@ -0,0 +1,331 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AC_RepAnexoCatalogo
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    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
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+    Private Property FechaFin As DateTime
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+    Private Property IdCuenta As Integer
+        Get
+            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuenta") = value
+        End Set
+    End Property
+    Private Property IdSegNeg As Integer
+        Get
+            IdSegNeg = ViewState("IdSegNeg").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdSegNeg") = value
+        End Set
+    End Property
+    Private Property DTCuentas As DataTable
+        Get
+            Return CType(ViewState("DTCuentas"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCuentas") = value
+        End Set
+    End Property
+    Private Property TipoReporte As Integer
+        Get
+            TipoReporte = ViewState("TipoReporte").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("TipoReporte") = value
+        End Set
+    End Property
+#End Region
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
+            End If
+
+            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+                InicializaValores()
+                CargaURLParametros()
+                BtnConsultar.Enabled = True
+            Else
+                Alert("La empresa no usa Contabilidad ni Armonización Contable", TipoMensaje.MsgError)
+            End If
+        End If
+    End Sub
+
+
+#Region "  INCIALIZA VALORES  "
+    Private Sub InicializaValores()
+        DtDatos = Nothing
+        CargaTipoCuentas()
+        CargaSegmentosNegocio()
+        FechaInicio = DateSerial(Year(NowADS()), Month(NowADS()), 1)
+        FechaFin = NowADS()
+
+        If UsuarioActual.Empresa.UsaAC Then
+            TipoReporte = -1
+        Else
+            TipoReporte = 1
+            tdTipoReporte.Visible = True
+            tdTipoReporte2.Visible = True
+        End If
+    End Sub
+    Public Function WSCuentas() As String
+        Dim Str As New StringBuilder
+        Dim i As Integer = 0
+        Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+            For Each dr As DataRow In dt.Rows
+                i += 1
+                Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("Id"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
+            Next
+
+        End If
+
+
+        Return Str.ToString
+    End Function
+    Private Sub CargaTipoCuentas()
+        Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim strGlobal As String = ""
+
+        If ObjTipoCuenta.GetCuentas(-1, "-1", -1) Then
+            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
+            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+        End If
+        ObjTipoCuenta.Dispose()
+        DdlTipoCuentas.DataBind()
+        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
+        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
+        DdlTipoCuentas.SelectedIndex = 0
+
+    End Sub
+    Private Sub CargaSegmentosNegocio()
+        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim strGlobal As String = ""
+
+        If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
+            DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
+            DdlSegmentoNegocio.DataBind()
+        End If
+        ObjContpaq.Dispose()
+        DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSegmentoNegocio.SelectedValue = "-1"
+    End Sub
+#End Region
+
+
+#Region "CARGA DATOS"
+    Private Sub CargaURLParametros()
+
+        Dim ErrorParametros = True
+
+        If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+            'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+            If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+                IdCuenta = Request("ID").ToEntero
+                'FechaInicio = Request("FI").ToDate
+                FechaFin = Request("FF").ToDate
+
+                If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                    FechaInicio = Request("FI").ToDate
+                Else
+                    FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                End If
+				DdlTipoCuentas.SelectedValueExist("-2")
+				HdnCveCuenta.Value = IdCuenta.ToString
+				TxtCuenta.Text = DTCuentas.FiltroPrimeroValor("CtaCodigo", $"Id={Request("ID")}")
+
+                If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then
+                    DdlCuenta.SelectedValueExist(Request("CM").ToString)
+                End If
+
+                ErrorParametros = False
+
+
+                If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
+                    TipoReporte = Request("TP").ToEntero
+
+                    DdlTipoReporte.SelectedValue = TipoReporte.ToString
+                End If
+
+                If Request("IdSegNeg") IsNot Nothing AndAlso IsNumeric(Request("IdSegNeg")) AndAlso Request("IdSegNeg").ToEntero > 0 Then
+                    IdSegNeg = Request("IdSegNeg").ToEntero
+
+                    DdlSegmentoNegocio.SelectedValue = IdSegNeg.ToString
+                End If
+            End If
+            'End If
+        End If
+
+        UPFiltros.Update()
+        TxtFechaDel.Text = FechaInicio.ToShortDateString
+        TxtFechaAl.Text = FechaFin.ToShortDateString
+
+        If Not ErrorParametros Then
+            CargaDatos()
+        End If
+    End Sub
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
+            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+        Else
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, HdnCveCuenta.Value.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
+            CargaDatos()
+
+            RegistraScript("Enable();")
+        End If
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+
+            If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+                DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
+            Else
+                DtDatos = ObjConta.DtResultados
+            End If
+
+            CargaGrid()
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+        If DtDatos.Rows.Count > 0 Then
+            RegistraScript("Scroll();")
+        End If
+
+    End Sub
+#End Region
+
+
+#Region "GV ROW DATA BOUND"
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("Id").ToEntero = IdCuenta Then
+                e.Row.ControlStyle.Font.Bold = True
+                'e.Row.ControlStyle.Font.Size = 9
+                'e.Row.ControlStyle.Height = 30
+            Else
+                e.Row.ControlStyle.Font.Bold = False
+            End If
+
+            'If e.Row.DBCampo("CtaMayor") = "4" Or e.Row.DBCampo("CtaMayor") = "1" Then
+            '    e.Row.ControlStyle.Font.Bold = True
+            'End If
+
+            'Acomoda Deudor y Acreedor
+            If e.Row.DBCampo("Tipo") <> "D" Then
+                'e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}{1}", e.Row.DBCampo("SaldoInicial").FormatoNumero, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
+                e.Row.FCLabel("LbSaldoInicial2").Visible = True
+                e.Row.FCLabel("LbSaldoActual").Visible = True
+            End If
+
+            'Colorea NEGATIVOS
+            If e.Row.DBCampo("SaldoInicial").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Cargos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Abonos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("SaldoActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
+            End If
+
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero)
+        End If
+    End Sub
+#End Region
+
+
+#Region "  IMPRIMIR  "
+    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+        If Not IsNothing(DtDatos) Then
+            ImprimirReporte()
+        Else
+            Alert("Primero debe consultar el Anexo del Catálogo", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+        If Not IsNothing(DtDatos) Then
+            ImprimirReporte("Excel")
+        Else
+            Alert("Primero debe consultar el Anexo del Catálogo", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        'ubicacion del rdlc
+        Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
+        'nombre del reporte
+        Dim fileName As String = "AnexoCatalogo"
+        'parametros a enviar al reporte                     
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+
+        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+    End Sub
+#End Region
+
+
+
+
+End Class

Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb

@@ -250,7 +250,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
         End If
     End Sub
 

Contabilidad/RepAnexoCatalogoSAT.aspx.vb.exclude

@@ -253,7 +253,7 @@ Partial Class FinanzasSAT_RepAnexoCatalogo
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            '            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+            '            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
         End If
     End Sub
 

Contabilidad/RepBalanceGeneral.aspx.vb.exclude

@@ -527,8 +527,8 @@ Partial Class Contabilidad2_RepBalanceGeneral
                 TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble
                 e.Row.FCLabel("LbNombre").Font.Italic = True
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -551,11 +551,11 @@ Partial Class Contabilidad2_RepBalanceGeneral
 
                 'Cuentas
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
-                'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
 
@@ -583,11 +583,11 @@ Partial Class Contabilidad2_RepBalanceGeneral
                 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 'e.Row.ControlStyle.Font.Bold = True
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
-                'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -691,27 +691,27 @@ Partial Class Contabilidad2_RepBalanceGeneral
     '        If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Then
     '            e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
 
-    '            e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
-    '            e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
-    '            e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-    '            e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
+    '            e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
     '        End If
 
@@ -797,7 +797,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
     '            e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
 
     '            For index = 1 To Anos
-    '                e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte, DdlSubproyecto.SelectedValue)
+    '                e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte, DdlSubproyecto.SelectedValue)
     '            Next
 
     '        End If

Contabilidad/RepBalanceGeneralCI.aspx

@@ -0,0 +1,935 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneralCI.aspx.vb" Inherits="Contabilidad_RepBalanceGeneralCI" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
+        <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp;--%>
+    </li>
+    <li>
+        <asp:LinkButton ID="Imprimir" runat="server" Style="margin-left: 2px"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <%--<asp:ImageButton ID="Imprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;--%>
+    </li>
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="CSS" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="E" runat="Server">
+    BALANCE GENERAL
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" Text="Consultar" runat="server" CssClass="btn btn-default" OnClick="BtnConsultar_Click" Enabled="false" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <label class="col-md-1" style="width: 70px;">Ejercicio:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlEjercicio" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm" runat="server">
+                                    <%-- <asp:ListItem Text="2010" Value="2010"></asp:ListItem>
+                                    <asp:ListItem Text="2011" Value="2011"></asp:ListItem>
+                                    <asp:ListItem Text="2012" Value="2012"></asp:ListItem>
+                                    <asp:ListItem Text="2013" Value="2013"></asp:ListItem>
+                                    <asp:ListItem Text="2014" Value="2014"></asp:ListItem>
+                                    <asp:ListItem Text="2015" Value="2015"></asp:ListItem>--%>
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2" runat="server" id="TdPeriodo" visible="false">
+                                <div class="row">
+                                    <label class="col-md-5 truncate">Periodo:</label>
+                                    <div class="col-md-7">
+                                        <asp:DropDownList ID="DdlPeriodo" CssClass="form-control input-sm" runat="server">
+                                            <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                            <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                            <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                            <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                            <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                            <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                            <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                            <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                            <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                            <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
+                            </div>
+
+                            <div class="col-md-2" runat="server" id="tdTipoReporte" visible="false">
+                                <div class="row">
+                                    <label class="col-md-3 truncate">Tipo:</label>
+                                    <div class="col-md-9">
+                                        <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server">
+                                            <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                            <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="col-md-2" runat="server" id="TdSubTotales" visible="false">
+                                <div class="row">
+                                    <label class="col-md-3 truncate">SubTotales:</label>
+                                    <div class="col-md-9">
+                                        <asp:DropDownList ID="DdlSubtotales" CssClass="form-control input-sm" runat="server">
+                                            <asp:ListItem Text="Sin Subtotales" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Trimestral" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Cuatrimestral" Value="3"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
+                            </div>
+
+                            <label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
+                                </asp:DropDownList>
+                            </div>
+
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <br />
+
+
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
+
+
+            <ajax:TabContainer runat="server" ID="Tabs" AutoPostBack="true" OnActiveTabChanged="TabContainer_ActiveTabChanged">
+
+                <%--NORMAL--%>
+                <ajax:TabPanel HeaderText="Balance General" ID="TabNormal" runat="server" Enabled="false">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel runat="server">
+                            <ContentTemplate>
+
+                                <div class="row">
+
+                                    <div class="col-md-6">
+                                        <table style="width: 100%; float: left; margin-right: 20px;">
+                                            <tr>
+                                                <td width="100%" padding="0">
+                                                    <center>
+                                                        <h3>ACTIVO</h3>
+
+                                                        <asp:UpdatePanel ID="UpActivo" UpdateMode="Conditional" runat="server">
+                                                            <ContentTemplate>
+
+                                                                <asp:GridView ID="GvActivo" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvActivo_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="ACTIVO CIRCULANTE"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                <br />
+                                                                <br />
+                                                                <asp:GridView ID="GvActivoNoCirculante" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvActivo_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="ACTIVO NO CIRCULANTE"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                 <br />
+                                                                <br />
+                                                                <asp:GridView ID="GvActivoDiferido" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvActivo_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="ACTIVO DIFERIDO"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+
+                                                    </center>
+                                                </td>
+                                            </tr>
+                                        </table>
+                                    </div>
+
+                                    <div class="col-md-6">
+                                        <table style="width: 100%; float: left;">
+                                            <tr>
+                                                <td width="100%">
+                                                    <center>
+                                                        <h3>PASIVO</h3>
+                                                        <asp:UpdatePanel ID="UpPasivo" UpdateMode="Conditional" runat="server">
+                                                            <ContentTemplate>
+
+                                                                <asp:GridView ID="GvPasivo" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPasivo_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="PASIVO CIRCULANTE"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                <br />
+                                                                <br />
+                                                                <asp:GridView ID="GvPasivoNoCirculante" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPasivo_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="PASIVO NO CIRCULANTE"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                <br />
+                                                                <br />
+                                                                <asp:GridView ID="GvPasivoDiferido" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPasivo_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="PASIVO DIFERIDO"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+                                                    </center>
+
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>
+                                                    <asp:UpdatePanel runat="server">
+                                                        <ContentTemplate>
+                                                            <table style="max-width: 550px; width: 90%;">
+                                                                <tr>
+                                                                    <td width="275px" align="center">
+                                                                        <h4>Total del Pasivo:</h4>
+                                                                    </td>
+                                                                    <td width="100px" align="right">
+                                                                        <asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoActual"></asp:Label>
+                                                                    </td>
+                                                                    <td runat="server" id="TdTotalPasivo" width="100px" align="right">
+                                                                        <asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoAnterior"></asp:Label>
+                                                                    </td>
+                                                                </tr>
+                                                            </table>
+                                                        </ContentTemplate>
+                                                    </asp:UpdatePanel>
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>
+
+                                                    <center>
+                                                        <h3>
+                                                            <asp:Literal Text="HACIENDA PÚBLICA/PATRIMONIO" ID="LtlTituloHacienda" runat="server" />
+                                                        </h3>
+
+                                                        <asp:UpdatePanel ID="UpPatrimonio" UpdateMode="Conditional" runat="server">
+                                                            <ContentTemplate>
+
+                                                                <asp:GridView ID="GvPatrimonio" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPatrimonio_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="PATRIMONIO CONTRIBUIDO"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                <asp:GridView ID="GvUtilidad" ShowHeader="false" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPatrimonio_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                <br />
+                                                                <br />
+                                                                <asp:GridView ID="GvPatrimonioGenerado" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPatrimonio_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="PATRIMONIO GENERADO"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="25%" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+                                                                <br />
+                                                                <br />
+                                                                <asp:GridView ID="GvPatrimonioActualizacion" Style="max-width: 550px;" Width="90%" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvPatrimonio_RowDataBound">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="50%" HorizontalAlign="Left" />
+                                                                            <HeaderTemplate>
+                                                                                <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="EXCESO O INSUFICIENCIA DE ACTUALIZACION"></asp:Label>
+                                                                            </HeaderTemplate>
+                                                                            <HeaderStyle HorizontalAlign="Left" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                                                <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                                            </ItemTemplate>
+                                                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                    <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                                                                </asp:GridView>
+
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+                                                    </center>
+
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>
+                                                    <asp:UpdatePanel runat="server">
+                                                        <ContentTemplate>
+                                                            <table style="max-width: 550px; width: 90%;">
+                                                                <tr>
+                                                                    <td width="50%" style="text-align: center;">
+                                                                        <h4>
+                                                                            <asp:Literal ID="LtlTotalHacienda" Text="Total Hacienda Pública/Patrimonio:" runat="server" />
+                                                                        </h4>
+                                                                    </td>
+                                                                    <td width="25%" align="right">
+                                                                        <asp:Label Font-Bold="true" runat="server" ID="LbTotalPatrimonioActual"></asp:Label>
+                                                                    </td>
+                                                                    <td runat="server" id="TdTotalPatrimonio" width="25%" align="right">
+                                                                        <asp:Label Font-Bold="true" runat="server" ID="LbTotalPatrimonioAnterior"></asp:Label>
+                                                                    </td>
+                                                                </tr>
+                                                            </table>
+                                                        </ContentTemplate>
+                                                    </asp:UpdatePanel>
+                                                </td>
+                                            </tr>
+                                        </table>
+                                    </div>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-12">
+                                        <br />
+                                    </div>
+                                </div>
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <asp:UpdatePanel runat="server">
+                                            <ContentTemplate>
+                                                <center>
+                                                    <table style="max-width: 550px; width: 90%;">
+                                                        <tr>
+                                                            <td width="50%" style="text-align: center;">
+                                                                <h4>Total del Activo:</h4>
+                                                            </td>
+                                                            <td width="25%" align="right">
+                                                                <asp:Label Font-Bold="true" runat="server" ID="LbTotalActivoActual"></asp:Label>
+                                                            </td>
+                                                            <td runat="server" id="TdTotalActivoAnterior" width="25%" align="right">
+                                                                <asp:Label Font-Bold="true" runat="server" ID="LbTotalActivoAnterior"></asp:Label>
+                                                            </td>
+                                                        </tr>
+                                                    </table>
+                                                </center>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                    </div>
+
+                                    <div class="col-md-6">
+                                        <asp:UpdatePanel runat="server">
+                                            <ContentTemplate>
+                                                <center>
+                                                    <table style="max-width: 550px; width: 90%;">
+                                                        <tr>
+                                                            <td style="text-align: center; width: 50%;">
+                                                                <h4>
+                                                                    <asp:Literal ID="LtlTotalPasivoPatrimonio" Text="Total del Pasivo y Patrimonio:" runat="server" />
+                                                                </h4>
+                                                            </td>
+                                                            <td width="25%" align="right">
+                                                                <asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoPatrimonioActual"></asp:Label>
+                                                            </td>
+                                                            <td runat="server" id="TdTotalPasivoAnterior" width="25%" align="right">
+                                                                <asp:Label Font-Bold="true" runat="server" ID="LbTotalPasivoPatrimonioAnterior"></asp:Label>
+                                                            </td>
+                                                        </tr>
+                                                    </table>
+                                                </center>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                    </div>
+                                </div>
+                                <div class="row">
+
+                                    <div class="col-md-12">
+                                        <asp:Label runat="server" ID="LbDescuadre" ForeColor="Red" Font-Bold="false" Font-Size="Small"></asp:Label>
+                                    </div>
+
+
+                                </div>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+                <%--MENSUAL--%>
+                <ajax:TabPanel HeaderText="Balance General Mensual" ID="TabMensual" runat="server" Enabled="false">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel ID="UpDatosMensual" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <asp:GridView ID="GvDatosMensual" runat="server" AutoGenerateColumns="False" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Concepto">
+                                            <ItemTemplate>
+                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="400" HorizontalAlign="Left" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Enero">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Febrero">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLFebrero" runat="server" Text='<%# Eval("Febrero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Marzo">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLMarzo" runat="server" Text='<%# Eval("Marzo", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 1er Trimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLTrimestral1" runat="server" Text='<%# Eval("Trimestral1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Abril">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAbril" runat="server" Text='<%# Eval("Abril", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 1er Cuatrimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLCuatrimestral1" runat="server" Text='<%# Eval("Cuatrimestral1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Mayo">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLMayo" runat="server" Text='<%# Eval("Mayo", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Junio">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLJunio" runat="server" Text='<%# Eval("Junio", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 2do Trimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLTrimestral2" runat="server" Text='<%# Eval("Trimestral2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Julio">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLJulio" runat="server" Text='<%# Eval("Julio", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Agosto">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAgosto" runat="server" Text='<%# Eval("Agosto", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 2do Cuatrimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLCuatrimestral2" runat="server" Text='<%# Eval("Cuatrimestral2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Septiembre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLSeptiembre" runat="server" Text='<%# Eval("Septiembre", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 3er Trimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLTrimestral3" runat="server" Text='<%# Eval("Trimestral3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Octubre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLOctubre" runat="server" Text='<%# Eval("Octubre", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Noviembre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLNoviembre" runat="server" Text='<%# Eval("Noviembre", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Diciembre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLDiciembre" runat="server" Text='<%# Eval("Diciembre", "{0:N2}")%>' CssClass="Texto" Target="_blank" Style="margin-right: 20px"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 4to Trimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLTrimestral4" runat="server" Text='<%# Eval("Trimestral4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Subtotal 3er Cuatrimestre">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLCuatrimestral3" runat="server" Text='<%# Eval("Cuatrimestral3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                    </Columns>
+                                    <RowStyle CssClass="Texto" />
+                                </asp:GridView>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+                <%--ANUAL--%>
+                <ajax:TabPanel HeaderText="Balance General Anual" ID="TabAnual" runat="server" Enabled="false">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel ID="UpDatosAnual" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <asp:GridView ID="GvDatosAnual" runat="server" AutoGenerateColumns="False" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Concepto">
+                                            <ItemTemplate>
+                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="400" HorizontalAlign="Left" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano1" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno1" runat="server" Text='<%# Eval("Ano1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano2" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno2" runat="server" Text='<%# Eval("Ano2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano3" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno3" runat="server" Text='<%# Eval("Ano3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano4" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno4" runat="server" Text='<%# Eval("Ano4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano5" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno5" runat="server" Text='<%# Eval("Ano5", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano6" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno6" runat="server" Text='<%# Eval("Ano6", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano7" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno7" runat="server" Text='<%# Eval("Ano7", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano8" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno8" runat="server" Text='<%# Eval("Ano8", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano9" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno9" runat="server" Text='<%# Eval("Ano9", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano10" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno10" runat="server" Text='<%# Eval("Ano10", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano11" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno11" runat="server" Text='<%# Eval("Ano11", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano12" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno12" runat="server" Text='<%# Eval("Ano12", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano13" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno13" runat="server" Text='<%# Eval("Ano13", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano14" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno14" runat="server" Text='<%# Eval("Ano14", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano15" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno15" runat="server" Text='<%# Eval("Ano15", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano16" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno16" runat="server" Text='<%# Eval("Ano16", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano17" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno17" runat="server" Text='<%# Eval("Ano17", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano18" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno18" runat="server" Text='<%# Eval("Ano18", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano19" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno19" runat="server" Text='<%# Eval("Ano19", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Ano20" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HLAno20" runat="server" Text='<%# Eval("Ano20", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                            <ItemStyle Width="100" HorizontalAlign="Right" />
+                                        </asp:TemplateField>
+                                    </Columns>
+                                    <RowStyle CssClass="Texto" />
+                                </asp:GridView>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+            </ajax:TabContainer>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+
+<asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server">
+
+    <script type="text/javascript">
+        function pageLoad() {
+            $(document).ready(function () {
+                gridviewScrollMensual();
+                gridviewScrollAnual();
+            });
+
+            function gridviewScrollMensual() {
+                var Tam = TamañoVentana();
+                var Alto = Tam.height - 210;
+
+                $('#<%=GvDatosMensual.ClientID%>').gridviewScroll({
+                    width: 995,
+                    height: Alto,
+                    freezesize: 1,
+                    headerrowcount: 1
+                });
+            }
+
+            function gridviewScrollAnual() {
+                var Tam = TamañoVentana();
+                var Alto = Tam.height - 210;
+
+                $('#<%=GvDatosAnual.ClientID%>').gridviewScroll({
+                    width: 995,
+                    height: Alto,
+                    freezesize: 1,
+                    headerrowcount: 1
+                });
+            }
+        }
+    </script>
+
+</asp:Content>

Contabilidad/RepBalanceGeneralHorizontal.aspx

@@ -1018,31 +1018,31 @@
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
 
-                                          <%--  <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                          <%--  <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />--%>
+                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />--%>
 
 
                                             <%--<asp:TemplateField HeaderText="Período Actual">

Contabilidad/RepBalanceGeneralHorizontal.aspx.vb

@@ -734,8 +734,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
                 e.Row.FCLabel("LbNombre").Font.Bold = True
                 e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -766,8 +766,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
                 e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
                 'Cuentas
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
 
@@ -800,8 +800,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
                 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 'e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CveCuenta") <> "55276" Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -831,7 +831,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         'nombre del archivo a generar
         Dim fileName As String = "EdoSituacionFinanciera"
         'ubicacion del rdlc
-        Dim reportpath As String = "Contabilidad2/Reportes/RepSituacionFinanciera.rdlc"
+        Dim reportpath As String = "Contabilidad/Reportes/RepSituacionFinanciera.rdlc"
 
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
@@ -1282,21 +1282,21 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
 
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
             End If
 
 
@@ -1322,20 +1322,20 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
                 Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
 
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
 
             End If
 

Contabilidad/RepBalanceGeneralVertical.aspx.vb

@@ -296,7 +296,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
 
             'LIGA SOLO EN DETALLE POR CAMPO CVECUENTA - TEMPORAL
             If e.Row.DBCampo("CtaMayor").ToString = "1" Then
-                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogoAnual.aspx?C={e.Row.DBCampo("CveCuenta")}&E={DdlEjercicio.SelectedValue}&S={DdlSubProyecto.SelectedValue}&D={DdlDivisor.SelectedValue}&V=1"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"/Contabilidad/RepAnexoCatalogoAnual.aspx?C={e.Row.DBCampo("CveCuenta")}&E={DdlEjercicio.SelectedValue}&S={DdlSubProyecto.SelectedValue}&D={DdlDivisor.SelectedValue}&V=1"
             End If
 
 

Contabilidad/RepBalanzaComprobacion.aspx

@@ -1,28 +1,15 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanzaComprobacion.aspx.vb" Inherits="Contabilidad_RepBalanzaComprobacion" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanzaComprobacion.aspx.vb" Inherits="Contabilidad2_RepBalanzaComprobacion" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-
-
-
-    <asp:UpdatePanel ID="UpAcciones" runat="server" >
-        <ContentTemplate>
-               <li>
-                    <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
-                    <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp; &nbsp;--%>
-                </li>
-                <li>
-                    <asp:LinkButton ID="BtnImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
-                    <%--<asp:ImageButton ID="BtnImprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px"  Visible="true"  /> &nbsp;--%>
-                </li>
-        </ContentTemplate>
-        <Triggers>
-            <asp:PostBackTrigger ControlID="ImgExcel" />
-            <asp:PostBackTrigger ControlID="BtnImprimir" />
-        </Triggers>
-    </asp:UpdatePanel>
 
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
+        <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp; &nbsp;--%>
+    </li>
+    <li>
+        <asp:LinkButton ID="BtnImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <%--<asp:ImageButton ID="BtnImprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px"  Visible="true"  /> &nbsp;--%>
+    </li>
 
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
@@ -36,123 +23,195 @@
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
+                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsulta"  />
+                         <a href="javascript:;" class="expand"></a>
                     </div>
-                    <div class="titlefiltros  caption" style="margin-left:10px;margin-top:2px">
+                    <div class="titlefiltros  caption">
                         <div class="row">
-                            <label class="col-md-1 truncate">Fecha Inicio:</label>
+                            <label class="col-md-1 ">Fecha Inicio:</label>
                             <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
                                     <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
                                     <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVTxtFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaDel" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
                             </div>
                             <label class="col-md-1 truncate">Fecha Fin:</label>
                             <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
                                     <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
                                     <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVTxtFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaAl" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
                                 </div>
                             </div>
                             <label class="col-md-1 truncate">Cuentas:</label>
                             <div class="col-md-2">
-                                <asp:DropDownList CssClass="form-control input-sm" runat="server" ID="DdlTipoCuentas" Width="150px" Height="28px">
+                                <asp:DropDownList CssClass="form-control input-sm select2me" runat="server" ID="DdlTipoCuentas" Width="150px">
                                     <asp:ListItem Text="Todas" Value="1" />
                                     <asp:ListItem Text="Con Movimientos" Value="2" />
                                     <asp:ListItem Text="Saldo Actual no igual a cero" Value="3" />
                                     <asp:ListItem Text="Con Movimientos y saldo no igual a cero" Value="4" />
                                     <asp:ListItem Text="Con Movimientos o saldo no igual a cero " Value="5" />
                                 </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlTipoCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
                             </div>
+                            
                         </div>
                     </div>
                 </div>
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                            <div class="col-md-1" style="display:none;">
+                                <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                            </div>
+                            <div class="col-md-2" style="display:none;">
+                                <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                                </asp:DropDownList>
+                            </div>
+                            <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                                </asp:DropDownList>
+                            </div>
+                      
+                          <label class="col-md-1 truncate" runat="server" visible="false">Tipo:</label>
+                          <div class="col-md-2" runat="server" visible="false">
+                              <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm select2me" runat="server">
+                                  <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                  <asp:ListItem Text="Contable y Complementarias" Value="2"></asp:ListItem>
+                                  <asp:ListItem Text="Complementarias" Value="3"></asp:ListItem>
+                              </asp:DropDownList>
+                          </div>
+                        
+                         <label class="col-md-1" >Nivel: </label>
+                            <div class="col-md-2 ">
+                                <asp:DropDownList ID="DdlNivel" runat="server" AppendDataBoundItems="true"   CssClass="form-control input-sm select2me"    >
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem  Text="Mayores" Value="1"></asp:ListItem>
+                                    <asp:ListItem  Text="Último nivel" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                        <label class="col-md-1">Vista: </label>
+                       <div class="col-md-2 ">
+                           <asp:DropDownList ID="DdlVista" runat="server" AppendDataBoundItems="true"   CssClass="form-control input-sm select2me"    >
+                               <asp:ListItem Selected="True" Text="Contable" Value="0"></asp:ListItem>
+                               <asp:ListItem  Text="SAT" Value="1"></asp:ListItem> 
+                           </asp:DropDownList>
+                       </div>
+                    </div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 
     <br />
-    <table id="Tbl" runat="server" style="width: 1000px; float: left;">
-        <tr>
-            <td width="100%" padding="0" style="background-color:white!important">
-                <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
-                    <ContentTemplate>
   
-                        <asp:GridView ID="GvDatos" CssClass="table table-advance table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+    
-                            <Columns>
+    <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">
-                                <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+        
-                                    <ItemTemplate>
+        <input type="text" id="TxtBusquedaIndicadores" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                        <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                    </ItemTemplate>
+
-                                    <ItemStyle HorizontalAlign="Left" Width="180" />
+    </div>    
-                                </asp:TemplateField>
+    
-                                <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
+    <div class="row">
-                                    <ItemTemplate>
+        <div class="col-md-12">
-                                        <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+            <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
-                                    </ItemTemplate>
+                <ContentTemplate>
-                                    <ItemStyle HorizontalAlign="Left" Width="320" />
+
-                                </asp:TemplateField>
+                    <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" 
-                                <asp:TemplateField>
+                        runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
-                                    <HeaderTemplate>
+                        <Columns>
-                                        <table width="100%">
+                            <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
-                                            <tr>
+                                <ItemTemplate>
-                                                <td colspan="2">Saldos Iniciales</td>
+                                    <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
-                                            </tr>
+                                </ItemTemplate>
-                                            <tr>
+                                <ItemStyle HorizontalAlign="Left" Width="180" />
-                                                <td>Deudor</td>
+                            </asp:TemplateField>
-                                                <td>Acreedor</td>
+                            <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
-                                            </tr>
+                                <ItemTemplate>
-                                        </table>
+                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                    </HeaderTemplate>
+                                </ItemTemplate>
-                                    <ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" Width="320" />
-                                        <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                            </asp:TemplateField>
-                                    </ItemTemplate>
+                            <asp:TemplateField>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                <HeaderTemplate>
-                                </asp:TemplateField>
+                                    <table width="100%">
-                                <asp:TemplateField HeaderText="Cargos">
+                                        <tr>
-                                    <ItemTemplate>
+                                            <td colspan="2">Saldos Iniciales</td>
-                                        <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
+                                        </tr>
-                                    </ItemTemplate>
+                                        <tr>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                            <td>Deudor</td>
-                                </asp:TemplateField>
+                                            <td>Acreedor</td>
-                                <asp:TemplateField HeaderText="Abonos">
+                                        </tr>
-                                    <ItemTemplate>
+                                    </table>
-                                        <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
+                                </HeaderTemplate>
-                                    </ItemTemplate>
+                                <ItemTemplate>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                    <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
-                                </asp:TemplateField>
+                                </ItemTemplate>
-                                <asp:TemplateField>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
-                                    <HeaderTemplate>
+                            </asp:TemplateField>
-                                        <table width="100%">
+                            <asp:TemplateField HeaderText="Cargos">
-                                            <tr>
+                                <ItemTemplate>
-                                                <td colspan="2">Saldos Actuales</td>
+                                    <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
-                                            </tr>
+                                </ItemTemplate>
-                                            <tr>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
-                                                <td>Deudor</td>
+                            </asp:TemplateField>
-                                                <td>Acreedor</td>
+                            <asp:TemplateField HeaderText="Abonos">
-                                            </tr>
+                                <ItemTemplate>
-                                        </table>
+                                    <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
-                                    </HeaderTemplate>
+                                </ItemTemplate>
-                                    <ItemTemplate>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
-                                        <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                            </asp:TemplateField>
-                                        <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
+                            <asp:TemplateField>
-                                    </ItemTemplate>
+                                <HeaderTemplate>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                    <table width="100%">
-                                </asp:TemplateField>
+                                        <tr>
-                            </Columns>
+                                            <td colspan="2">Saldos Actuales</td>
-                            <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+                                        </tr>
-                        </asp:GridView>
+                                        <tr>
-                    </ContentTemplate>
+                                            <td>Deudor</td>
-                </asp:UpdatePanel>
+                                            <td>Acreedor</td>
-            </td>
+                                        </tr>
-        </tr>
+                                    </table>
-    </table>
+                                </HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                    <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Diferencia" Visible="false">
+                                <ItemTemplate>
+                                    <asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
+                                </ItemTemplate>
+                                <ItemStyle Width="100" HorizontalAlign="Right" />
+                            </asp:TemplateField>
+                        </Columns>
+                        <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+                    </asp:GridView>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+   
+           
 
 </asp:Content>
 

Contabilidad/RepBalanzaComprobacion.aspx.vb

@@ -1,11 +1,12 @@
 Option Explicit On
 Option Strict On
 
+Imports System
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
-Partial Class Contabilidad_RepBalanzaComprobacion
+Partial Class Contabilidad2_RepBalanzaComprobacion
     Inherits ClsPaginas
 
 
@@ -53,58 +54,105 @@ Partial Class Contabilidad_RepBalanzaComprobacion
         End Set
     End Property
 
+    Private Property CveProyecto As Integer
+        Get
+            CveProyecto = ViewState("CveProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProyecto") = value
+        End Set
+    End Property
+    Private Property CveSubProyecto As Integer
+        Get
+            CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+            'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+            '    Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
+            'End If
+
             Dim ErrorParametros = True
             ModoImpresion = False
             TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
             TxtFechaAl.Text = NowADS().ToShortDateString
 
-            If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
-                BtnConsultar.Enabled = True
-                If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
-                    'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
-                    If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
-                        IdCuenta = Request("ID").ToEntero
-                        'FechaInicio = Request("FI").ToDate
-                        FechaFin = Request("FF").ToDate
-                        FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
-                        ErrorParametros = False
-                    End If
-                    'End If
-                End If
 
-                If Not ErrorParametros Then
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
-                    CargaDatos()
+                'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+                    IdCuenta = Request("CveCuenta").ToEntero
+                    'FechaInicio = Request("FI").ToDate
+                    FechaFin = Request("FF").ToDate
+                    FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                    ErrorParametros = False
                 End If
-
+                'End If
-                If IsNothing(DtDatos) Then
-                    FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
-                    FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
-                    CargaDatos()
-                End If
-            Else
-                Alert("La empresa no usa Armonización Contable o Contabilidad.", TipoMensaje.MsgAdvertencia)
             End If
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataBind()
+
+            If Not ErrorParametros Then
+                CargaDatos()
+            End If
+            CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
+
         End If
     End Sub
 
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
 #Region "CARGA DATOS Y GRID"
     Private Sub CargaDatos()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        '        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero) Then
+        Dim ObjConta As New ClsContabilidad
+
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToEntero
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToEntero
+
+        Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+
+        If DdlVista.SelectedValue = "1" Then
+            'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
+
+            If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                Dim dtt As DataTable = ObjConta.DtResultados.FiltraParametros("CveAgrupadorSAT is null and not Codigo like '_%'")
+                If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+                    Dim str As New StringBuilder
+                    For Each dr As DataRow In dtt.Rows
+                        str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
+                    Next
+                    Alert("Cuentas sin clasificador SAT asignado: <br/>" & str.ToString)
+                End If
+            End If
+
+        End If
+
+        If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, DdlVista.SelectedValue.ToEntero, DdlNivel.SelectedValue.ToEntero) Then
             DtDatos = ObjConta.DtResultados
-
-            CargaGrid()
         Else
             DtDatos = Nothing
             Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
         End If
-
         ObjConta.Dispose()
+        If DdlVista.SelectedValue = "1" Then
+            GvDatos.Columns(6).Visible = True
+        Else
+            GvDatos.Columns(6).Visible = False
+        End If
+
+        CargaGrid()
     End Sub
     Private Sub CargaGrid()
         GvDatos.DataSource = DtDatos
@@ -126,7 +174,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion
     Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DBCampo("CtaMayor") = "1" Or e.Row.DBCampo("CtaMayor") = "1" Then
+            If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
@@ -152,6 +200,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion
 
             'Total general
             If e.Row.DBCampo("Id") = "" Then
+
                 e.Row.ControlStyle.Font.Bold = True
                 e.Row.ControlStyle.Font.Size = 9
                 e.Row.ControlStyle.Height = 30
@@ -162,51 +211,19 @@ Partial Class Contabilidad_RepBalanzaComprobacion
                 e.Row.FCLabel("LbSaldoActual").Visible = True
                 e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
             Else
-                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("ID"), FechaFin.ToShortDateString)
+                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
             End If
-
         End If
     End Sub
 
 
     Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
         ModoImpresion = True
-        CargaGrid()
 
-        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        CargaDatos()
-        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
 
-        'RegistraScript("Enable();")
+        ImprimirReporte()
 
-        GenerarPDFCrystal()
-
-        'Using sw As New StringWriter()
-        '    Using hw As New HtmlTextWriter(sw)
-
-        '        Dim style As StringBuilder = New StringBuilder()
-        '        style.Append("<style> ")
-        '        style.Append(File.ReadAllText(ModExtensiones.DirectorioBaseEmpresas & "Styles\EstilosExcel.css"))
-        '        style.Append(" </style> ")
-        '        'To Export all pages
-        '        'Gv.AllowPaging = False
-        '        'Gv.DataBind()
-        '        Tbl.RenderControl(hw)
-        '        Dim sr As New StringReader(sw.ToString())
-        '        Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F)
-        '        Dim htmlparser As New HTMLWorker(pdfDoc)
-        '        PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
-        '        pdfDoc.Open()
-        '        htmlparser.Parse(sr)
-        '        pdfDoc.Close()
-
-        '        Response.ContentType = "application/pdf"
-        '        Response.AddHeader("content-disposition", "attachment;filename=BalanzaComprobacion.pdf")
-        '        Response.Cache.SetCacheability(HttpCacheability.NoCache)
-        '        Response.Write(style.ToString)
-        '        Response.Write(pdfDoc)
-        '        Response.[End]()
-        '    End Using
-        'End Using
 
     End Sub
     'No quitar porque no funciona el exporta PDF
@@ -216,58 +233,25 @@ Partial Class Contabilidad_RepBalanzaComprobacion
 
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        'GvDatos.ExportToExcel("BalanzaComprobacion")
-        ModoImpresion = True
-        CargaGrid()
 
-        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        ImprimirReporte("Excel")
-        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
-
-        'RegistraScript("Enable();")
-
-        GenerarPDFCrystal("EXCEL")
     End Sub
-    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
+
-        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~")))
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        'ubicacion del rdlc
+        Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"
+        'nombre del reporte
+        Dim fileName As String = "BalanzaComprobacion"
+        'parametros a enviar al reporte                     
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         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)
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
+        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
-        'If UsuarioActual.CveUsuario = 100 Then
+        params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
-        ' Alert(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~")))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        ' End If
-        ' Exit Sub
-
-        If Not IsNothing(DtDatos) Then
-            'Dim dr As DataRow = DtCxC.Rows(0)
-            Dim lista = New List(Of CrystalParametro)
-            lista.Add(New CrystalParametro("pEmp", UsuarioActual.Empresa.Empresa))
-            lista.Add(New CrystalParametro("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
-            lista.Add(New CrystalParametro("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
-            lista.Add(New CrystalParametro("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
-            Dim DTTemp As DataTable = DtDatos.Copy
-
-            ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Contabilidad/Reportes/RepBalanzaComprobacion.rpt"), DTTemp, lista, "Balanza de Comprobación", Formato), "Balanza de Comprobación", Formato)
-
-        Else
-            Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
-        End If
 
+        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
     End Sub
-    'Private Sub ImprimirReporte(Optional Formato As String = "PDF")
-	'    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-    '    'ubicacion del rdlc
-    '    Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"
-    '    'nombre del reporte
-    '    Dim fileName As String = "BalanzaComprobacion"
-    '    'parametros a enviar al reporte                     
-    '    Dim params As New List(Of ReportParameter)
-    '    params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-    '    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-    '    params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
-    '    params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
-
-    '    ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
-    'End Sub
 
 End Class

Contabilidad/RepBalanzaComprobacionCI.aspx

@@ -0,0 +1,158 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanzaComprobacionCI.aspx.vb" Inherits="Contabilidad_RepBalanzaComprobacion" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+
+
+
+    <asp:UpdatePanel ID="UpAcciones" runat="server" >
+        <ContentTemplate>
+               <li>
+                    <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
+                    <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp; &nbsp;--%>
+                </li>
+                <li>
+                    <asp:LinkButton ID="BtnImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+                    <%--<asp:ImageButton ID="BtnImprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px"  Visible="true"  /> &nbsp;--%>
+                </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="BtnImprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+  
+
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
+    Balanza de Comprobación
+    <asp:Label runat="server" ID="LbTitulo"></asp:Label>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
+                    </div>
+                    <div class="titlefiltros  caption" style="margin-left:10px;margin-top:2px">
+                        <div class="row">
+                            <label class="col-md-1 truncate">Fecha Inicio:</label>
+                            <div class="col-md-2">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+                            </div>
+                            <label class="col-md-1 truncate">Fecha Fin:</label>
+                            <div class="col-md-2">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+                            </div>
+                            <label class="col-md-1 truncate">Cuentas:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList CssClass="form-control input-sm" runat="server" ID="DdlTipoCuentas" Width="150px" Height="28px">
+                                    <asp:ListItem Text="Todas" Value="1" />
+                                    <asp:ListItem Text="Con Movimientos" Value="2" />
+                                    <asp:ListItem Text="Saldo Actual no igual a cero" Value="3" />
+                                    <asp:ListItem Text="Con Movimientos y saldo no igual a cero" Value="4" />
+                                    <asp:ListItem Text="Con Movimientos o saldo no igual a cero " Value="5" />
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <br />
+    <table id="Tbl" runat="server" style="width: 1000px; float: left;">
+        <tr>
+            <td width="100%" padding="0" style="background-color:white!important">
+                <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+                    <ContentTemplate>
+
+                        <asp:GridView ID="GvDatos" CssClass="table table-advance table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+                            <Columns>
+                                <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" Width="180" />
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" Width="320" />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>
+                                        <table width="100%">
+                                            <tr>
+                                                <td colspan="2">Saldos Iniciales</td>
+                                            </tr>
+                                            <tr>
+                                                <td>Deudor</td>
+                                                <td>Acreedor</td>
+                                            </tr>
+                                        </table>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Cargos">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Abonos">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>
+                                        <table width="100%">
+                                            <tr>
+                                                <td colspan="2">Saldos Actuales</td>
+                                            </tr>
+                                            <tr>
+                                                <td>Deudor</td>
+                                                <td>Acreedor</td>
+                                            </tr>
+                                        </table>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                        <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle Width="120" HorizontalAlign="Right" />
+                                </asp:TemplateField>
+                            </Columns>
+                            <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+                        </asp:GridView>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </td>
+        </tr>
+    </table>
+
+</asp:Content>
+

Contabilidad/RepBalanzaComprobacionCI.aspx.vb

@@ -0,0 +1,273 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contabilidad_RepBalanzaComprobacion
+    Inherits ClsPaginas
+
+
+#Region "PROPIEDADES"
+    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
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+    Private Property FechaFin As Date
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+    Private Property IdCuenta As Integer
+        Get
+            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuenta") = value
+        End Set
+    End Property
+
+    Private Property ModoImpresion As Boolean
+        Get
+            ModoImpresion = CType(ViewState("ModoImpresion"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("ModoImpresion") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            Dim ErrorParametros = True
+            ModoImpresion = False
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            TxtFechaAl.Text = NowADS().ToShortDateString
+
+            If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
+                BtnConsultar.Enabled = True
+                If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+                    'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                    If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+                        IdCuenta = Request("ID").ToEntero
+                        'FechaInicio = Request("FI").ToDate
+                        FechaFin = Request("FF").ToDate
+                        FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                        ErrorParametros = False
+                    End If
+                    'End If
+                End If
+
+                If Not ErrorParametros Then
+                    CargaDatos()
+                End If
+
+                If IsNothing(DtDatos) Then
+                    FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+                    FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+                    CargaDatos()
+                End If
+            Else
+                Alert("La empresa no usa Armonización Contable o Contabilidad.", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+    End Sub
+
+#Region "CARGA DATOS Y GRID"
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero) Then
+            DtDatos = ObjConta.DtResultados
+
+            CargaGrid()
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+#End Region
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+
+        CargaDatos()
+
+        RegistraScript("Enable();")
+    End Sub
+
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CtaMayor") = "1" Or e.Row.DBCampo("CtaMayor") = "1" Then
+                e.Row.ControlStyle.Font.Bold = True
+            End If
+
+            'Acomoda Deudor y Acreedor
+            If e.Row.DBCampo("CveTipo") = "1" Then
+                e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}          ", e.Row.DBCampo("SaldoInicial").FormatoNumero)
+                e.Row.FCLabel("LbSaldoActual").Text = "     "
+            End If
+
+            'Colorea NEGATIVOS
+            If e.Row.DBCampo("SaldoInicial").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Cargos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Abonos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("SaldoActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
+            End If
+
+            'Total general
+            If e.Row.DBCampo("Id") = "" Then
+                e.Row.ControlStyle.Font.Bold = True
+                e.Row.ControlStyle.Font.Size = 9
+                e.Row.ControlStyle.Height = 30
+                e.Row.FCLabel("LbNombre").Text = "Sumas Iguales"
+                e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}          <br/>{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero)
+                e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero
+                e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero
+                e.Row.FCLabel("LbSaldoActual").Visible = True
+                e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
+            Else
+                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("ID"), FechaFin.ToShortDateString)
+            End If
+
+        End If
+    End Sub
+
+
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
+        ModoImpresion = True
+        CargaGrid()
+
+        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+
+        'RegistraScript("Enable();")
+
+        GenerarPDFCrystal()
+
+        'Using sw As New StringWriter()
+        '    Using hw As New HtmlTextWriter(sw)
+
+        '        Dim style As StringBuilder = New StringBuilder()
+        '        style.Append("<style> ")
+        '        style.Append(File.ReadAllText(ModExtensiones.DirectorioBaseEmpresas & "Styles\EstilosExcel.css"))
+        '        style.Append(" </style> ")
+        '        'To Export all pages
+        '        'Gv.AllowPaging = False
+        '        'Gv.DataBind()
+        '        Tbl.RenderControl(hw)
+        '        Dim sr As New StringReader(sw.ToString())
+        '        Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F)
+        '        Dim htmlparser As New HTMLWorker(pdfDoc)
+        '        PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
+        '        pdfDoc.Open()
+        '        htmlparser.Parse(sr)
+        '        pdfDoc.Close()
+
+        '        Response.ContentType = "application/pdf"
+        '        Response.AddHeader("content-disposition", "attachment;filename=BalanzaComprobacion.pdf")
+        '        Response.Cache.SetCacheability(HttpCacheability.NoCache)
+        '        Response.Write(style.ToString)
+        '        Response.Write(pdfDoc)
+        '        Response.[End]()
+        '    End Using
+        'End Using
+
+    End Sub
+    'No quitar porque no funciona el exporta PDF
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+        ' Verifies that the control is rendered 
+    End Sub
+
+
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        'GvDatos.ExportToExcel("BalanzaComprobacion")
+        ModoImpresion = True
+        CargaGrid()
+
+        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+
+        'RegistraScript("Enable();")
+
+        GenerarPDFCrystal("EXCEL")
+    End Sub
+    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
+        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~")))
+        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)
+
+        'If UsuarioActual.CveUsuario = 100 Then
+        ' Alert(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~")))
+        ' End If
+        ' Exit Sub
+
+        If Not IsNothing(DtDatos) Then
+            'Dim dr As DataRow = DtCxC.Rows(0)
+            Dim lista = New List(Of CrystalParametro)
+            lista.Add(New CrystalParametro("pEmp", UsuarioActual.Empresa.Empresa))
+            lista.Add(New CrystalParametro("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+            lista.Add(New CrystalParametro("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
+            lista.Add(New CrystalParametro("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+
+            Dim DTTemp As DataTable = DtDatos.Copy
+
+            ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Contabilidad/Reportes/RepBalanzaComprobacion.rpt"), DTTemp, lista, "Balanza de Comprobación", Formato), "Balanza de Comprobación", Formato)
+
+        Else
+            Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+    'Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+	'    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+    '    'ubicacion del rdlc
+    '    Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"
+    '    'nombre del reporte
+    '    Dim fileName As String = "BalanzaComprobacion"
+    '    'parametros a enviar al reporte                     
+    '    Dim params As New List(Of ReportParameter)
+    '    params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+    '    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+    '    params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+    '    params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
+
+    '    ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+    'End Sub
+
+End Class

Contabilidad/RepEstadoActividades.aspx.vb

@@ -0,0 +1,500 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Drawing
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AC_RepEstadoActividades
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    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
+    Private Property DtIngresos As DataTable
+        Get
+            DtIngresos = DirectCast(ViewState("DtIngresos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtIngresos") = value
+        End Set
+    End Property
+    Private Property DtGastos As DataTable
+        Get
+            DtGastos = DirectCast(ViewState("DtGastos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtGastos") = value
+        End Set
+    End Property
+    Private Property TotalActual As Double
+        Get
+            TotalActual = ViewState("TotalActual").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalActual") = value
+        End Set
+    End Property
+    Private Property TotalAnterior As Double
+        Get
+            TotalAnterior = ViewState("TotalAnterior").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalAnterior") = value
+        End Set
+    End Property
+    Private Property FechaI As String
+        Get
+            Return ViewState("FechaI").ToString
+        End Get
+        Set(value As String)
+            ViewState("FechaI") = value
+        End Set
+    End Property
+    Private Property FechaF As String
+        Get
+            Return ViewState("FechaF").ToString
+        End Get
+        Set(value As String)
+            ViewState("FechaF") = value
+        End Set
+    End Property
+    Private Property ReporteComplementario As Boolean
+        Get
+            ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("ReporteComplementario") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.UsaAC Then
+                ReporteComplementario = False
+            Else
+                ReporteComplementario = False
+                DivTipo1.Visible = False
+                DivTipo2.Visible = False
+                LtTitulo.Text = "Estado de Resultados"
+            End If
+
+            TotalActual = 0
+            TotalAnterior = 0
+            'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString
+            'TxtFechaFin.Text = NowADS().ToShortDateString
+            CargaEjercicios()
+
+            CargaDatos()
+
+
+            If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
+                DVConsolidado1.Visible = True
+                DVConsolidado2.Visible = True
+            End If
+
+            If UsuarioActual.CveRol = 1 Then
+                DVSubtotales1.Visible = True
+                DVSubtotales2.Visible = True
+            End If
+
+
+        End If
+    End Sub
+
+    Private Sub CargaEjercicios()
+        'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ClsConta As New ClsContabilidad
+        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DdlEjercicio.DataSource = ClsConta.DtResultados
+        Else
+            DdlEjercicio.DataSource = Nothing
+        End If
+        ClsConta.Dispose()
+        DdlEjercicio.DataBind()
+
+        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
+        If DdlEjercicio.Items.Count = 0 Then
+            DdlEjercicio.Items.Add(New ListItem(NowADS().Year.ToString, NowADS().Year.ToString))
+        End If
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
+
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
+    Private Sub CargaDatos()
+
+
+        FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
+        FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
+        Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
+
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then
+            DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError)
+        End If
+        ObjConta.Dispose()
+
+        If DtDatos IsNot Nothing Then
+            CargaGrids()
+            SumaTotales()
+        End If
+
+    End Sub
+    Private Sub CargaGrids()
+        DtIngresos = DtDatos.FiltraParametros("Tipo ='H' ")
+        DtGastos = DtDatos.FiltraParametros("Tipo ='G' ")
+        Dim Row As DataRow = DtIngresos.NewRow
+
+
+        Dim TotalActual = 0.0, TotalAnterior = 0.0
+        If DtIngresos.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DtIngresos.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            Row.Item("Nombre") = "TOTAL INGRESOS "
+            Row.Item("ImporteActual") = TotalActual.ToString
+            Row.Item("PorcentajeActual") = "100.00"
+            Row.Item("ImporteAcumulado") = TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = "100.00"
+            Row.Item("CtaMayor") = -1
+            DtIngresos.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL INGRESOS "
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DtIngresos.Rows.Add(Row)
+        End If
+
+        Dim T1 = TotalActual, T2 = TotalAnterior
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        Row = DtGastos.NewRow
+        If DtGastos.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DtGastos.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            Row.Item("Nombre") = "TOTAL GASTOS"
+            Row.Item("ImporteActual") = TotalActual
+            Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
+            Row.Item("ImporteAcumulado") = TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
+            Row.Item("CtaMayor") = -1
+            DtGastos.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL GASTOS"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DtGastos.Rows.Add(Row)
+        End If
+
+        DtGastos.AcceptChanges()
+
+
+        If DdlVerConSubTotales.SelectedValue.ToEntero = 1 Then
+
+            Dim idxUtilidadBruta As Integer = 0
+            Dim idxUtilidadOperacion As Integer = 0
+            Dim idxUtilidadAntesImpuestos As Integer = 0
+
+            Dim IndexActual As Integer = 0
+            For Each dRow As DataRow In DtGastos.Rows
+
+                If dRow("Codigo").ToString.Contains("6000000") Then 'Utilidad Bruta indice que se tomara
+                    idxUtilidadBruta = IndexActual
+                    IndexActual = IndexActual + 2 'Son mas dos por que se esta conciderando el row en blanco
+                End If
+
+                If dRow("Codigo").ToString.Contains("7000000") Then 'Utilidad de Operación
+                    idxUtilidadOperacion = IndexActual
+                    IndexActual = IndexActual + 2 'Son mas dos por que se esta conciderando el row en blanco
+                End If
+
+                If dRow("Nombre").ToString.Contains("TOTAL GASTOS") Then 'Utilidad antes de impuestos
+                    idxUtilidadAntesImpuestos = IndexActual
+                End If
+
+                IndexActual = IndexActual + 1
+            Next
+
+            DtGastos.AcceptChanges()
+
+
+            Dim UtilidadBrutaActual, UtilidadBrutaAcumulada, UtilidadBrutPorcentajeActual, UtilidadBrutPorcentajeAcumulado As Decimal
+
+            Dim UtilidadOperacionActual, UtilidadOperacionAcumulada, UtilidadOperacionPorcentajeActual, UtilidadOperacionPorcentajeAcumulado As Decimal
+
+            Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada, UtilidadAntesImpuestosPorcentajeActual, UtilidadAntesImpuestosPorcentajeAcumulado As Decimal
+
+
+            Dim IngresoActual As Decimal = DtIngresos.SUMD("ImporteActual", "  CtaMayor  = 1 ")
+            Dim IngresoAcumulado As Decimal = DtIngresos.SUMD("ImporteAcumulado", "  CtaMayor  = 1 ")
+
+            Dim CostoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor  = 1 ")
+            Dim CostoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor  = 1")
+
+            Dim GastoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor  = 1 ")
+            Dim GastoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor  = 1 ")
+
+            Dim ResultadoIntegralActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor  = 1 ")
+            Dim ResultadoIntegralAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor  = 1 ")
+
+
+            UtilidadBrutaActual = IngresoActual - CostoActual
+            UtilidadBrutaAcumulada = IngresoAcumulado - CostoAcumulado
+
+            UtilidadOperacionActual = IngresoActual - CostoActual - GastoActual
+            UtilidadOperacionAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado
+
+            UtilidadAntesImpuestosActual = IngresoActual - CostoActual - GastoActual - ResultadoIntegralActual
+            UtilidadAntesImpuestosAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado - ResultadoIntegralAcumulado
+
+
+            UtilidadBrutPorcentajeActual = If(IngresoActual <> 0 And UtilidadBrutaActual <> 0, (UtilidadBrutaActual / IngresoActual * 100), 0)
+            UtilidadBrutPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadBrutaAcumulada <> 0, (UtilidadBrutaAcumulada / IngresoAcumulado * 100), 0)
+
+            UtilidadOperacionPorcentajeActual = If(IngresoActual <> 0 And UtilidadOperacionActual <> 0, (UtilidadOperacionActual / IngresoActual * 100), 0)
+            UtilidadOperacionPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadOperacionAcumulada <> 0, (UtilidadOperacionAcumulada / IngresoAcumulado * 100), 0)
+
+            UtilidadAntesImpuestosPorcentajeActual = If(IngresoActual <> 0 And UtilidadAntesImpuestosActual <> 0, (UtilidadAntesImpuestosActual / IngresoActual * 100), 0)
+            UtilidadAntesImpuestosPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadAntesImpuestosAcumulada <> 0, (UtilidadAntesImpuestosAcumulada / IngresoAcumulado * 100), 0)
+
+
+            Dim dRowUtilidadBruta As DataRow = DtGastos.NewRow
+            Dim dRowUtilidadBrutaVacio As DataRow = DtGastos.NewRow
+
+            Dim dRowUtilidadOperacion As DataRow = DtGastos.NewRow
+            Dim dRowUtilidadOperacionVacio As DataRow = DtGastos.NewRow
+
+            Dim dRowUtilidadAntesImpuestos As DataRow = DtGastos.NewRow
+            Dim dRowUtilidadAntesImpuestosVacio As DataRow = DtGastos.NewRow
+
+
+
+            dRowUtilidadBruta("Nombre") = "Utilidad Bruta"
+            dRowUtilidadBruta("ImporteActual") = UtilidadBrutaActual
+            dRowUtilidadBruta("ImporteAcumulado") = UtilidadBrutaAcumulada
+            dRowUtilidadBruta("CtaMayor") = -1
+            dRowUtilidadBruta("Orden") = "600"
+            dRowUtilidadBruta("PorcentajeActual") = UtilidadBrutPorcentajeActual
+            dRowUtilidadBruta("PorcentajeAcumulado") = UtilidadBrutPorcentajeAcumulado
+            dRowUtilidadBrutaVacio("CtaMayor") = -1
+            dRowUtilidadBrutaVacio("Orden") = "600"
+
+            dRowUtilidadOperacion("Nombre") = "Utilidad de Operación"
+            dRowUtilidadOperacion("ImporteActual") = UtilidadOperacionActual
+            dRowUtilidadOperacion("ImporteAcumulado") = UtilidadOperacionAcumulada
+            dRowUtilidadOperacion("CtaMayor") = -1
+            dRowUtilidadOperacion("Orden") = "700"
+            dRowUtilidadOperacion("PorcentajeActual") = UtilidadOperacionPorcentajeActual
+            dRowUtilidadOperacion("PorcentajeAcumulado") = UtilidadOperacionPorcentajeAcumulado
+            dRowUtilidadOperacionVacio("CtaMayor") = -1
+            dRowUtilidadOperacionVacio("Orden") = "700"
+
+            dRowUtilidadAntesImpuestos("Nombre") = "Utilidad antes de impuestos"
+            dRowUtilidadAntesImpuestos("ImporteActual") = UtilidadAntesImpuestosActual
+            dRowUtilidadAntesImpuestos("ImporteAcumulado") = UtilidadAntesImpuestosAcumulada
+            dRowUtilidadAntesImpuestos("CtaMayor") = -1
+            dRowUtilidadAntesImpuestos("Orden") = "790"
+            dRowUtilidadAntesImpuestos("PorcentajeActual") = UtilidadAntesImpuestosPorcentajeActual
+            dRowUtilidadAntesImpuestos("PorcentajeAcumulado") = UtilidadAntesImpuestosPorcentajeAcumulado
+            dRowUtilidadAntesImpuestosVacio("CtaMayor") = -1
+            dRowUtilidadAntesImpuestosVacio("Orden") = "790"
+
+            'PorcentajeActual
+            'PorcentajeAcumulado
+
+
+            DtGastos.Rows.InsertAt(dRowUtilidadBruta, idxUtilidadBruta)
+            DtGastos.Rows.InsertAt(dRowUtilidadBrutaVacio, idxUtilidadBruta + 1)
+
+            DtGastos.Rows.InsertAt(dRowUtilidadOperacion, idxUtilidadOperacion)
+            DtGastos.Rows.InsertAt(dRowUtilidadOperacionVacio, idxUtilidadOperacion + 1)
+
+
+            DtGastos.Rows.InsertAt(dRowUtilidadAntesImpuestos, idxUtilidadAntesImpuestos)
+            DtGastos.Rows.InsertAt(dRowUtilidadAntesImpuestosVacio, idxUtilidadAntesImpuestos + 1)
+
+            'ImporteActual
+            'ImporteAcumulado
+
+            DtGastos.AcceptChanges()
+        End If
+
+
+        GvIngresos.DataSource = DtIngresos
+        GvIngresos.DataBind()
+
+        GvGastos.DataSource = DtGastos
+        GvGastos.DataBind()
+
+        UpDatos.Update()
+
+    End Sub
+
+    Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
+        ImprimirReporte()
+    End Sub
+
+    Private Sub SumaTotales()
+        'Llena Lb´s Totales
+        LbTotalActual.Text = TotalActual.ToString.FormatoNumero
+        LbTotalAnterior.Text = TotalAnterior.ToString.FormatoNumero
+
+        LbTotalActual.ForeColor = If(TotalActual < 0, Drawing.Color.Red, Color.Black)
+
+        LbTotalAnterior.ForeColor = If(TotalAnterior < 0, Drawing.Color.Red, Color.Black)
+
+
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        TotalActual = 0
+        TotalAnterior = 0
+
+        CargaDatos()
+    End Sub
+
+
+#Region "GV´S ROW DATA BOUND"
+
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then
+                TotalActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalAnterior += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
+                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+                e.Row.ControlStyle.Font.Bold = True
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.Contiene("3", "4") Then
+                'e.Row.CssClass = "SubTotales3"
+                e.Row.ControlStyle.Font.Bold = True
+            End If
+
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+            End If
+
+
+
+            If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+                e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+                e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red
+            End If
+
+            If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then
+                e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin; border-top-color: #000;")
+            End If
+
+        End If
+    End Sub
+
+    Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then
+                TotalActual -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalAnterior -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
+                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+                e.Row.ControlStyle.Font.Bold = True
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.Contiene("3", "4") Then
+                'e.Row.CssClass = "SubTotales"
+                e.Row.ControlStyle.Font.Bold = True
+            End If
+
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+            End If
+
+            If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+                e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+                e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red
+            End If
+
+
+            If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then
+                e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin; border-top-color: #000;")
+            End If
+
+        End If
+    End Sub
+
+#End Region
+
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        ImprimirReporte("Excel")
+    End Sub
+
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource
+        rds.Name = "DataSet1"
+        rds.Value = DtIngresos
+        Dim rds2 As New ReportDataSource
+        rds2.Name = "DataSet2"
+        rds2.Value = DtGastos
+        lrds.Add(rds)
+        lrds.Add(rds2)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("TotalActual", TotalActual.ToString))
+        params.Add(New ReportParameter("TotalAnterior", TotalAnterior.ToString))
+        params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
+        params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("pFirma1", ""))
+        params.Add(New ReportParameter("pFirma2", ""))
+        params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text)))
+        params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
+        ImprimirPDF("AC/Reportes/RepEstadoActividadesConta2.rdlc", lrds, params, "EstadoActividades", Formato)
+        ' UsuarioActual.Empresa.GrupoEmpresa
+
+    End Sub
+
+End Class
+

Contabilidad/RepEstadoActividadesSAT.aspx.vb.exclude

@@ -251,8 +251,8 @@ Partial Class AC_RepEstadoActividades
             'End If
 
             'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
             'End If
 
 
@@ -280,8 +280,8 @@ Partial Class AC_RepEstadoActividades
             'End If
 
             'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
             'End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then

Contabilidad/RepEstadoResultados.aspx.vb

@@ -4,10 +4,7 @@ Option Strict On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Imports GemBox.Spreadsheet
+Partial Class Contabilidad2_RepEstadoResultados
-Imports System.IO
-
-Partial Class Contabilidad_RepEstadoResultados
     Inherits ClsPaginas
 
 
@@ -55,22 +52,6 @@ Partial Class Contabilidad_RepEstadoResultados
             ViewState("TotalAnterior") = value
         End Set
     End Property
-    Private Property PorcentajeActual As String
-        Get
-            PorcentajeActual = ViewState("PorcentajeActual").ToString
-        End Get
-        Set(value As String)
-            ViewState("PorcentajeActual") = value
-        End Set
-    End Property
-    Private Property PorcentajeAcumulado As String
-        Get
-            PorcentajeAcumulado = ViewState("PorcentajeAcumulado").ToString
-        End Get
-        Set(value As String)
-            ViewState("PorcentajeAcumulado") = value
-        End Set
-    End Property
     Private Property FechaI As String
         Get
             Return ViewState("FechaI").ToString
@@ -145,71 +126,46 @@ Partial Class Contabilidad_RepEstadoResultados
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-                Response.Redirect($"/Contabilidad2/RepEstadoActividades.aspx")
-            End If
 
-            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then Response.Redirect($"/Contabilidad/RepEstadoResultadosCI.aspx")
 
-                BtnConsultar.Enabled = True
-                TabNormal.Enabled = True
-                TabMensual.Enabled = True
-                TabAnual.Enabled = True
-                CargaSegmentosNegocio()
 
-                If UsuarioActual.Empresa.UsaAC Then
+            'tdTipoReporte.Visible = True
-                    TipoReporte = -1
+            TipoReporte = 1
-                Else
-                    TipoReporte = 1
-                    tdTipoReporte.Visible = True
-                End If
 
-                CargaDatosGenerales()
 
-                DdlEjercicio.SelectedValue = NowADS().Year.ToString
+            CargaDatosGenerales()
 
-                Anos = 0
+            DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
-                'Normal
+            Anos = 0
-                TotalActual = 0
-                TotalAnterior = 0
-                DdlPeriodo.SelectedValue = NowADS().Month.ToString
 
-                TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
+            'Normal
-            Else
+            TotalActual = 0
-                Alert("La empresa no usa Contabilidad ni Armonización Contable", TipoMensaje.MsgError)
+            TotalAnterior = 0
-            End If
+            DdlPeriodo.SelectedValue = NowADS().Month.ToString
 
+            TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
         End If
     End Sub
 
     Private Sub CargaDatosGenerales()
-        Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ClsConta As New ClsContabilidad
 
-        If ClsConta.GetEjercicios() Then
+        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = ClsConta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
         End If
 
         ClsConta.Dispose()
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataBind()
 
         DdlEjercicio.DataBind()
     End Sub
 
-    Private Sub CargaSegmentosNegocio()
-        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim strGlobal As String = ""
-
-        If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
-            DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
-            DdlSegmentoNegocio.DataBind()
-        End If
-        ObjContpaq.Dispose()
-        DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSegmentoNegocio.SelectedValue = "-1"
-    End Sub
-
 #Region "   NORMAL   "
 
     Private Sub CargaDatos()
@@ -217,8 +173,11 @@ Partial Class Contabilidad_RepEstadoResultados
         FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, UsuarioActual.Empresa.UsaAC, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
@@ -250,9 +209,9 @@ Partial Class Contabilidad_RepEstadoResultados
 
             Row.Item("Nombre") = "TOTAL INGRESOS "
             Row.Item("ImporteActual") = TotalActualLocal.ToString
-            Row.Item("PorcentajeActual") = If(TotalActualLocal > 0, (TotalActualLocal * 100 / TotalActualLocal).ToString, "0").FormatoNumero
+            Row.Item("PorcentajeActual") = "100"
             Row.Item("ImporteAcumulado") = TotalAnteriorLocal.ToString
-            Row.Item("PorcentajeAcumulado") = If(TotalAnteriorLocal > 0, (TotalAnteriorLocal * 100 / TotalAnteriorLocal).ToString, "0").FormatoNumero
+            Row.Item("PorcentajeAcumulado") = "100"
             Row.Item("CtaMayor") = -1
             DtIngresos.Rows.Add(Row)
         Else
@@ -317,10 +276,6 @@ Partial Class Contabilidad_RepEstadoResultados
 
         UpDatos.Update()
 
-        PorcentajeActual = Row.Item("PorcentajeActual").ToString
-        PorcentajeAcumulado = Row.Item("PorcentajeAcumulado").ToString
-        DtGastos.Rows.Remove(Row)
-
     End Sub
 
     Private Sub SumaTotales()
@@ -337,64 +292,38 @@ Partial Class Contabilidad_RepEstadoResultados
 
 #Region "GV´S ROW DATA BOUND"
 
-    Protected Sub GvNormal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-        If e.Row.RowType = DataControlRowType.Header Then
-
-            e.Row.ControlStyle.Font.Bold = True
-            e.Row.Attributes.Add("style", "border-top:2px solid black;")
-
-
-
-        End If
         If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
 
-            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
+                'METODO ANTERIOR
+                'TotalActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnterior += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
+                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
+                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+                e.Row.ControlStyle.Font.Bold = True
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 'e.Row.CssClass = "SubTotales3"
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&CM=1", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&CM=1&CveSubProyecto={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&CM=1&FI=01/01/{2}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaFActual").ToDate.Year)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&CM=1&CveSubProyecto={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
             End If
 
+
+
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
             End If
-
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
-
-
-            'UTILIDAD
-            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
-                e.Row.ControlStyle.Font.Bold = True
-                e.Row.Cells(0).Attributes.Add("style", "padding-top:50px;")
-                e.Row.Cells(1).Attributes.Add("style", "padding-top:50px;")
-                e.Row.Cells(2).Attributes.Add("style", "padding-top:50px;")
-                e.Row.Cells(3).Attributes.Add("style", "padding-top:50px;")
-                e.Row.Cells(4).Attributes.Add("style", "padding-top:50px;")
-                e.Row.Font.Size = 12
-            End If
-
-            'TOTALES
-            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
-                e.Row.ControlStyle.Font.Bold = True
-                e.Row.Attributes.Add("style", "border-top:2px solid black;")
-
-            End If
         End If
-
-        'If e.Row.DBCampo("Nombre").ToString.Contiene("INGRESOS", "EGRESOS") Then
-        '    e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-        '    e.Row.ControlStyle.Font.Bold = True
-        '    asdasdasdsadasd
-        'End If
-
     End Sub
 
-
     Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
@@ -420,8 +349,8 @@ Partial Class Contabilidad_RepEstadoResultados
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&CM=1", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&CM=1&CveSubProyecto={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&CM=1", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&CM=1&CveSubProyecto={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -441,10 +370,11 @@ Partial Class Contabilidad_RepEstadoResultados
 #Region "   MENSUAL   "
 
     Private Sub CargaDatosMensual()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
-
+        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
-        If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+        If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatosMensual = ObjConta.DtResultados
         Else
             DtDatosMensual = Nothing
@@ -496,89 +426,17 @@ Partial Class Contabilidad_RepEstadoResultados
             GvDatosMensual.Columns(38).Visible = True
         End If
 
-
-
-
-        'Esconde Trimestral
-        GvDatosMensual2.Columns(7).Visible = False
-        GvDatosMensual2.Columns(8).Visible = False
-        GvDatosMensual2.Columns(17).Visible = False
-        GvDatosMensual2.Columns(18).Visible = False
-        GvDatosMensual2.Columns(27).Visible = False
-        GvDatosMensual2.Columns(28).Visible = False
-        GvDatosMensual2.Columns(35).Visible = False
-        GvDatosMensual2.Columns(36).Visible = False
-
-        'Esconde Cuatrimestral
-        GvDatosMensual2.Columns(11).Visible = False
-        GvDatosMensual2.Columns(12).Visible = False
-        GvDatosMensual2.Columns(23).Visible = False
-        GvDatosMensual2.Columns(24).Visible = False
-        GvDatosMensual2.Columns(37).Visible = False
-        GvDatosMensual2.Columns(38).Visible = False
-
-        If DdlSubtotales.SelectedValue = "2" Then
-            GvDatosMensual2.Columns(7).Visible = True
-            GvDatosMensual2.Columns(8).Visible = True
-            GvDatosMensual2.Columns(17).Visible = True
-            GvDatosMensual2.Columns(18).Visible = True
-            GvDatosMensual2.Columns(27).Visible = True
-            GvDatosMensual2.Columns(28).Visible = True
-            GvDatosMensual2.Columns(35).Visible = True
-            GvDatosMensual2.Columns(36).Visible = True
-        ElseIf DdlSubtotales.SelectedValue = "3" Then
-            GvDatosMensual2.Columns(11).Visible = True
-            GvDatosMensual2.Columns(12).Visible = True
-            GvDatosMensual2.Columns(23).Visible = True
-            GvDatosMensual2.Columns(24).Visible = True
-            GvDatosMensual2.Columns(37).Visible = True
-            GvDatosMensual2.Columns(38).Visible = True
-        End If
     End Sub
     Private Sub CargaGridMensual()
-
         GvDatosMensual.DataSource = DtDatosMensual
-        GvDatosMensual2.DataSource = DtDatosMensual
-
-
         GvDatosMensual.DataBind()
-        GvDatosMensual2.DataBind()
-
-        FechasReporte()
-
-        For Each GVRow As GridViewRow In GvDatosMensual.Rows
-
-            If GVRow.DataKey("IntSubOrden").ToEntero = 2 Then
-                GVRow.Attributes.Add("style", "border-top:2px solid black")
-            End If
-
-        Next
-
         UpDatosMensual.Update()
-        UpDatosExelRederMensualidad.Update()
-        'Fix visual   tabla GvDatosMensual   
-        RegistraScript("setTimeout(function() {
-
-                             $('.adsCol > div').height(29); $('.ADSRow').height(0); 
-						     $('#C_TabContainer_TabMensual_GvDatosMensual > tbody > tr.ADSRow > td.adsCol > div').height(0); 
-						     $('#C_TabContainer_TabMensual_GvDatosMensual > tbody > tr:nth-child(2) > td.adsCol > div').height(0);
-						     $('#ADColC_TabContainer_TabMensual_GvDatosMensual > tbody > tr.ADSRow').height(1); 						  
-						     $('#ADColC_TabContainer_TabMensual_GvDatosMensual > tbody > tr.ADSRow > td:nth-child(1) > div').height(0); 						
-						     $('#ADColC_TabContainer_TabMensual_GvDatosMensual > tbody > tr.ADSRow > td.adsCol > div').height(0);
-
-                             $('.UtilidadPerdida').parent().attr('align', 'right'); 	
-                             $('#ADColC_TabContainer_TabMensual_GvDatosMensual > tbody > tr:nth-child(35) > td:nth-child(1)').attr('align', 'center');	
-		  
-			             }, 1000); ", "FixTables")
     End Sub
 
     Protected Sub GvDatosMensual_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosMensual.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-
-
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 4 Then
-
                 e.Row.FCHyperLink("HLEnero").Text = ""
                 e.Row.FCHyperLink("HLFebrero").Text = ""
                 e.Row.FCHyperLink("HLMarzo").Text = ""
@@ -603,213 +461,56 @@ Partial Class Contabilidad_RepEstadoResultados
                 e.Row.Cells(20).Text = ""
                 e.Row.Cells(22).Text = ""
                 e.Row.Cells(24).Text = ""
-
             End If
 
             'AGRUPADOR DE CUENTAS
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 4 Then
-                e.Row.FCHyperLink("HlNombre").Font.Bold = True
+                e.Row.FCLabel("LbNombre").Font.Bold = True
             End If
 
             'TITULO DE CUENTAS
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                e.Row.FCHyperLink("HlNombre").Attributes.Add("style", "padding-left: 10px;")
+                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 10px;")
             End If
 
             'CUENTAS
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Then
-                e.Row.FCHyperLink("HlNombre").Attributes.Add("style", "padding-left: 20px;")
+                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
-                e.Row.FCHyperLink("HlNombre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogoMes.aspx?ID={0}&Ejercicio={1}", e.Row.DBCampo("Id"), DdlEjercicio.SelectedValue)
             End If
 
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Or e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}&CM=1", e.Row.DBCampo("Id"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
-                e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
-                e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue)
 
             End If
 
-
+            'TOTALES
-
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 5 Then
-            ''TOTALES
+                e.Row.Attributes.Add("style", "border-top: 1px solid;")
-            If e.Row.DBCampo("IntSubOrden").ToString.ToEntero.Contiene(0, 3) And e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+                e.Row.FCLabel("LbNombre").Font.Italic = True
-
-                e.Row.Attributes.Add("style", "Height:29px")
-                e.Row.Cells(1).Text = ""
-                e.Row.Cells(2).Text = ""
-                e.Row.Cells(3).Text = ""
-                e.Row.Cells(4).Text = ""
-                e.Row.Cells(5).Text = ""
-                e.Row.Cells(6).Text = ""
-                e.Row.Cells(7).Text = ""
-                e.Row.Cells(8).Text = ""
-                e.Row.Cells(9).Text = ""
-                e.Row.Cells(10).Text = ""
-                e.Row.Cells(11).Text = ""
-                e.Row.Cells(12).Text = ""
-                e.Row.Cells(13).Text = ""
-                e.Row.Cells(14).Text = ""
-                e.Row.Cells(15).Text = ""
-                e.Row.Cells(16).Text = ""
-                e.Row.Cells(17).Text = ""
-                e.Row.Cells(18).Text = ""
-                e.Row.Cells(19).Text = ""
-                e.Row.Cells(20).Text = ""
-                e.Row.Cells(21).Text = ""
-                e.Row.Cells(22).Text = ""
-                e.Row.Cells(23).Text = ""
-                e.Row.Cells(24).Text = ""
-                e.Row.Cells(25).Text = ""
-                e.Row.Cells(26).Text = ""
-                e.Row.Cells(27).Text = ""
-                e.Row.Cells(28).Text = ""
-                e.Row.Cells(29).Text = ""
-                e.Row.Cells(30).Text = ""
-                e.Row.Cells(31).Text = ""
-                e.Row.Cells(32).Text = ""
-                e.Row.Cells(33).Text = ""
-                e.Row.Cells(34).Text = ""
-
             End If
 
-
-            If e.Row.DBCampo("IntSubOrden").ToString.ToEntero.Contiene(2, 0) Then
-                e.Row.Font.Bold = True
-            End If
-
-
-
-            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then
-
-                e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-
-            End If
-        End If
-
-
-        If e.Row.RowType = DataControlRowType.Footer Then
-
-            e.Row.Font.Bold = True
-            e.Row.Font.Size = 12
-
-            e.Row.FCLabel("LblUtiEnero").Text = (DtDatosMensual.SUM("Enero", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Enero", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiFebrero").Text = (DtDatosMensual.SUM("Febrero", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Febrero", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiMarzo").Text = (DtDatosMensual.SUM("Marzo", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Marzo", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiAbril").Text = (DtDatosMensual.SUM("Abril", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Abril", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiMayo").Text = (DtDatosMensual.SUM("Mayo", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Mayo", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiJunio").Text = (DtDatosMensual.SUM("Junio", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Junio", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiJulio").Text = (DtDatosMensual.SUM("Julio", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Julio", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiAgosto").Text = (DtDatosMensual.SUM("Agosto", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Agosto", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiSeptiembre").Text = (DtDatosMensual.SUM("Septiembre", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Septiembre", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiOctubre").Text = (DtDatosMensual.SUM("Octubre", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Octubre", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiNoviembre").Text = (DtDatosMensual.SUM("Noviembre", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Noviembre", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-            e.Row.FCLabel("LblUtiDiciembre").Text = (DtDatosMensual.SUM("Diciembre", "CtaMayor = 1 AND  Tipo = 'H' ") - DtDatosMensual.SUM("Diciembre", "CtaMayor = 1 AND  Tipo = 'G' ")).ToString("###,###,###.00")
-
-
-
-
         End If
-
-
-
-    End Sub
-
-
-
-
-    Private Sub FechasReporte()
-        Dim FechaInicio As Date
-        Dim FechaFin As Date
-
-        '' If DdlTipoConsulta.SelectedValue.ToEntero = 1 Then
-        'FechaInicio = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1)
-        '    FechaFin = FechaInicio.LastDayOfMonth()
-        ''Else
-        'FechaInicio = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
-        '    FechaFin = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth
-        'End If
-
-        Dim UrlImagen = $"http://{ HttpContext.Current.Request.Url.Host}:{HttpContext.Current.Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png"
-
-        If File.Exists($"{UsuarioActual.Empresa.Ruta}Logo.png") Then
-            ImgLogoReporte.Attributes.Add("src", UrlImagen)
-        Else
-            ImgLogoReporte.Attributes.Add("src", "")
-        End If
-
-
-        LblTituloAniosRango.Text = $"{ UsuarioActual.Empresa.Empresa }"
-        LblFechas.Text = $"{FechaInicio.ToString("dd/MMMM/yyyy")} al {FechaFin.ToString("dd/MMMM/yyyy")}"
-        LblFechaReporte.Text = NowADS().ToString("dd/MMMM/yyyy")
-    End Sub
-
-    Protected Sub LnkDescarPersonalizados_Click(sender As Object, e As EventArgs)
-
-
-        DescargaReporte()
-
-    End Sub
-
-
-    Private Sub DescargaReporte()
-        Dim htmlFuente As String = txtDatos.Text
-
-        Dim RutaLogo As String = $"{Server.MapPath("~")}\Empresas\{UsuarioActual.CveEmpresa}\logo.png"
-
-
-        htmlFuente = htmlFuente.Replace("<table ", "<table border='1' ")
-        htmlFuente = htmlFuente.Replace("<a ", "<label ")
-        htmlFuente = htmlFuente.Replace("</a ", "</label ")
-        htmlFuente = htmlFuente.Replace("<th ", "<th style='background-color:#ddd!important'; ")
-        ' htmlFuente = Cabera + htmlFuente
-        'Dim buffer As Byte()
-        'Dim memoryStream = New System.IO.MemoryStream()
-
-
-        SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet)
-        Dim excel As ExcelFile
-        Dim options = LoadOptions.HtmlDefault
-        Using htmlStream = New MemoryStream(options.Encoding.GetBytes(htmlFuente))
-            excel = ExcelFile.Load(htmlStream, options)
-        End Using
-
-        Dim ws = excel.Worksheets(0)
-
-        ws.Name = "Estado Resultado por Segmento"
-
-        Dim columnCount = ws.CalculateMaxUsedColumns()
-        For i As Integer = 0 To columnCount - 1
-            If i = 0 Then
-                ws.Columns(i).Width = 10000
-            Else
-                ws.Columns(i).Width = 6000
-            End If
-
-        Next
-
-
-        excel.Save(Me.Response, $"RepEstadoResultadosMensual_{NowADS().ToString("yyyyMMddhhmmss")}.xlsx")
-
-
     End Sub
 
 #End Region
@@ -818,10 +519,12 @@ Partial Class Contabilidad_RepEstadoResultados
 #Region "   ANUAL   "
 
     Private Sub CargaDatosAnual()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
-        If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatosAnual = ObjConta.DtResultados
         Else
             DtDatosAnual = Nothing
@@ -885,7 +588,7 @@ Partial Class Contabilidad_RepEstadoResultados
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Or e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 For index = 1 To Anos
-                    e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}&CM=1", e.Row.DBCampo("Id"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte)
+                    e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CM=1&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte, DdlSubproyecto.SelectedValue)
                 Next
             End If
 
@@ -917,217 +620,19 @@ Partial Class Contabilidad_RepEstadoResultados
         If TabContainer.ActiveTabIndex = 0 Then
 
             CargaDatos()
-            ImgExcel.Visible = True
-            Imprimir.Visible = True
-            liLnkDescarPersonalizado.Visible = False
 
         ElseIf TabContainer.ActiveTabIndex = 1 Then
 
             CargaDatosMensual()
 
-
-            ImgExcel.Visible = False
-            Imprimir.Visible = False
-            liLnkDescarPersonalizado.Visible = True
-
         ElseIf TabContainer.ActiveTabIndex = 2 Then
 
             CargaDatosAnual()
 
-            ImgExcel.Visible = True
-            Imprimir.Visible = True
-            liLnkDescarPersonalizado.Visible = False
-        End If
-
-        UpAcciones.Update()
-
-    End Sub
-#Region "  IMPRESION  "
-    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-
-        If TabContainer.ActiveTabIndex = 0 Then
-            If Not IsNothing(DtDatos) Then
-                CargaDatos()
-                ImprimirReporte("Excel")
-            Else
-                Alert("No se encontró información para el reporte.", TipoMensaje.MsgAdvertencia)
-            End If
-
-        ElseIf TabContainer.ActiveTabIndex = 1 Then
-            If Not IsNothing(DtDatosMensual) Then
-                CargaDatosMensual()
-                ImprimirReporteMensual("Excel")
-            Else
-                Alert("No se encontró información para el reporte.", TipoMensaje.MsgAdvertencia)
-            End If
-
-        ElseIf TabContainer.ActiveTabIndex = 2 Then
-            If Not IsNothing(DtDatosAnual) Then
-                CargaDatosAnual()
-                ImprimirReporteAnual("Excel")
-            Else
-                Alert("No se encontró información para el reporte.", TipoMensaje.MsgAdvertencia)
-            End If
         End If
 
     End Sub
 
-    Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
-
-        If TabContainer.ActiveTabIndex = 0 Then
-            If Not IsNothing(DtDatos) Then
-                CargaDatos()
-                ImprimirReporte()
-            Else
-                Alert("No se encontró información para el reporte.", TipoMensaje.MsgAdvertencia)
-            End If
-
-        ElseIf TabContainer.ActiveTabIndex = 1 Then
-            If Not IsNothing(DtDatosMensual) Then
-                CargaDatosMensual()
-                ImprimirReporteMensual()
-            Else
-                Alert("No se encontró información para el reporte.", TipoMensaje.MsgAdvertencia)
-            End If
-
-        ElseIf TabContainer.ActiveTabIndex = 2 Then
-            If Not IsNothing(DtDatosAnual) Then
-                CargaDatosAnual()
-                ImprimirReporteAnual()
-            Else
-                Alert("No se encontró información para el reporte.", TipoMensaje.MsgAdvertencia)
-            End If
-        End If
-
-    End Sub
-    Private Sub ProcesaImpresion()
-        Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), If(DdlEjercicio.SelectedValue.Length = 0, NowADS().Year.ToString, DdlEjercicio.SelectedValue)).ToDate
-        Dim FechaF = FechaI.ToDate.LastDayOfMonth
-        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
-        Dim IdCuentaAhorroDesahorro = If(UsuarioActual.CveEmpresa = 48, 87, 9999)
-
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, UsuarioActual.Empresa.UsaAC) Then
-            DtDatos = ObjConta.DtResultados
-        Else
-            DtDatos = Nothing
-            Alert("Ocurrio un error al cargar los datos del estado de resultados", TipoMensaje.MsgError)
-        End If
-        ObjConta.Dispose()
-
-
-        If DtDatos Is Nothing Then
-            Exit Sub
-        End If
-
-        'ProcesaDTImprimir(FiltroActivoCirculante, "AC", DtDatos)
-        'ProcesaDTImprimir(FiltroActivoNoCirculante, "ANC", DtDatos)
-        'ProcesaDTImprimir(FiltroActivoDiferido, "AD", DtDatos)
-
-        'ProcesaDTImprimir(FiltroPasivoCirculante, "PC", DtDatos)
-        'ProcesaDTImprimir(FiltroPasivoNoCirculante, "PNC", DtDatos)
-        'ProcesaDTImprimir(FiltroPasivoDiferido, "PD", DtDatos)
-
-        'ProcesaDTImprimir(FiltroCapital, "C", DtDatos)
-        'ProcesaDTImprimir(FiltroUtilidad, "C", DtDatos)
-
-        For Each Row As DataRow In DtDatos.Select("CtaMayor=3")
-            DtDatos.Rows.Remove(Row)
-        Next
-    End Sub
-
-    Private Sub ProcesaDTImprimir(Filtro As String, Sup As String, ByRef Dt As DataTable)
-        For Each Row As DataRow In Dt.Select(Filtro)
-            Row("Sup") = Sup
-        Next
-        Dt.AcceptChanges()
-    End Sub
-
-    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
-
-        ProcesaImpresion()
-
-        'nombre del archivo a generar
-        Dim fileName As String = "EstadoResultados"
-        'ubicacion del rdlc
-        Dim reportpath As String = "Contabilidad/Reportes/RepEstadoResultados.rdlc"
-
-        Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
-        Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
-
-        'parametros a enviar al reporte                     
-        Dim params As New List(Of ReportParameter)
-        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        params.Add(New ReportParameter("pFirma1", ""))
-        params.Add(New ReportParameter("pFirma2", ""))
-        params.Add(New ReportParameter("pFechaFin", FechaF))
-
-        params.Add(New ReportParameter("lbTotalActual", TotalActual.ToString))
-        params.Add(New ReportParameter("lbTotalAcumulado", TotalAnterior.ToString))
-
-        params.Add(New ReportParameter("TPorcentajeActual", PorcentajeActual))
-        params.Add(New ReportParameter("TPorcentajeAcumulado", PorcentajeAcumulado))
-
-        Dim lrds As New List(Of ReportDataSource)
-        Dim rds1 As New ReportDataSource With {.Name = "DataSet1", .Value = If(DtIngresos IsNot Nothing, DtIngresos, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
-        Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = If(DtGastos IsNot Nothing, DtGastos, New DataTable)}
-
-        lrds.Add(rds1)
-        lrds.Add(rds2)
-
-        ImprimirPDF(reportpath, lrds, params, fileName, Formato)
-    End Sub
-    Private Sub ImprimirReporteMensual(Optional Formato As String = "PDF")
-
-        ProcesaImpresion()
-
-        'nombre del archivo a generar
-        Dim fileName As String = "EstadoResultadosMensual"
-        'ubicacion del rdlc
-        Dim reportpath As String = Server.MapPath("~/Empresas/Grales/Formatos/RepEstadoResultadosMensual.rdlc")
-
-        'Dim FechaI = String.Format("01/{0}/{1}", 12, DdlEjercicio.SelectedValue)
-        Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(String.Format("01/{0}/{1}", 12, DdlEjercicio.SelectedValue)))).ToString("dd/MM/yyyy")
-
-        'parametros a enviar al reporte                     
-        Dim params As New List(Of ReportParameter)
-        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        params.Add(New ReportParameter("pFechaFin", FechaF))
-        params.Add(New ReportParameter("pSubtotal", DdlSubtotales.SelectedValue.ToString))
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
-
-        ImprimirPDF(reportpath, DtDatosMensual, params, fileName, Formato)
-    End Sub
-    Private Sub ImprimirReporteAnual(Optional Formato As String = "PDF")
-
-        ProcesaImpresion()
-
-        'nombre del archivo a generar
-        Dim fileName As String = "EstadoResultadosAnual"
-        'ubicacion del rdlc
-        Dim reportpath As String = Server.MapPath("~/Empresas/Grales/Formatos/RepEstadoResultadosAnual.rdlc")
-
-        'Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
-        'Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
-
-        'parametros a enviar al reporte                     
-        Dim params As New List(Of ReportParameter)
-        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        params.Add(New ReportParameter("pFechaI", DdlEjercicio.SelectedValue))
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-        params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
-
-        ImprimirPDF(reportpath, DtDatosAnual, params, fileName, Formato)
-    End Sub
-#End Region
-
     Protected Sub TabContainer_ActiveTabChanged(sender As Object, e As EventArgs)
 
         'Nota:

Contabilidad/RepEstadoResultadosHorizontal.aspx.vb

@@ -700,8 +700,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
 
                 If DdlDivisor.SelectedValue.ToEntero > 1 Then
@@ -738,8 +738,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
             End If
 
             If DdlDivisor.SelectedValue.ToEntero > 1 Then
@@ -1312,30 +1312,30 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
 
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
 
-                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
@@ -1420,29 +1420,29 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
                 e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
 
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
+                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
 
             End If

Contabilidad/RepFlujoEfectivo.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="Reporte Flujo de Efectivo" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepFlujoEfectivo.aspx.vb" Inherits="Contabilidad_RepFlujoEfectivo" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepFlujoEfectivo.aspx.vb" Inherits="AC2_RepFlujoEfectivo" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -7,15 +7,22 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Reporte Flujo de Efectivo
+    Estado de Flujo de Efectivo
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 
     <li>
         <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
     </li>
+    <li>
+        <asp:LinkButton ID="BtnImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>
 
-  
+    <%--<img src="/Imagenes/separador02.gif" alt="" />&nbsp;--%>
+    <%--<img src="/Imagenes/separador02.gif" alt="" />&nbsp;    
+    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp;
+    <img src="/Imagenes/separador02.gif" alt="" />&nbsp; 
+   <asp:ImageButton ID="BtnImprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px"   />&nbsp;--%>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -24,25 +31,25 @@
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-default" CssClass="btn btn-default" Enabled="false" />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
                     </div>
                     <div class="titlefiltros  caption ">
                         <div class="row">
-                          <%--  <div class="col-md-1 "><span>Fecha Inicio:</span></div>
+                            <div class="col-md-1 "><span>Fecha Inicio:</span></div>
-                            <div class="col-md-2 ">
+                            <div class="col-md-1 ">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
-                                    <asp:TextBox Width="80%" ID="TxtFechaDel" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox Width="80px" ID="TxtFechaDel" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
                                     <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                 </div>
-                            </div>--%>
+                            </div>
                             <div class="col-md-1 "><span>Fecha Fin:</span></div>
-                            <div class="col-md-2 ">
+                            <div class="col-md-1 ">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
-                                    <asp:TextBox Width="80%" ID="TxtFechaAl" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox Width="80px" ID="TxtFechaAl" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
@@ -50,13 +57,33 @@
                                     <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                 </div>
                             </div>
-                            <div class="col-md-1 "><span>Tipo:</span></div>
+                            <div class="col-md-1 "><span>Divisor:</span></div>
-                            <div class="col-md-2 ">
+                            <div class="col-md-1 ">
-                                <asp:DropDownList runat="server" ID="DdlTipo" CssClass="form-control input-sm">
+                                <asp:DropDownList runat="server" ID="DdlUnidad" CssClass="form-control input-sm selec2me">
-                                    <asp:ListItem Text="Tipo 1" Value="1" Selected="True" />                                    
+                                    <asp:ListItem Text="1" Value="1" Selected="True" />
-                                    <asp:ListItem Text="Tipo 2" Value="1" />                                    
+                                    <asp:ListItem Text="1,000" Value="1000" />
+                                    <asp:ListItem Text="1,000,000" Value="1000000" />
                                 </asp:DropDownList>
                             </div>
+                            <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
+                            <div class="col-md-2 ">
+                                <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2" runat="server" id="tdTipoReporte" visible="true">
+                                <div class="row">
+                                    <label class="col-md-3 truncate">Tipo:</label>
+                                    <div class="col-md-9">
+                                        <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server">
+                                            <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Contable y Complementarias" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Complementarias" Value="3"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
+                            </div>
+
                         </div>
                     </div>
                 </div>
@@ -64,51 +91,63 @@
         </ContentTemplate>
     </asp:UpdatePanel>
     
-             
+    <div class="row">
-                <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+        <div class="col-md-12">
+                            <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
                     <ContentTemplate>
 
-                        <div class="row">
+                        <asp:GridView ID="GvDatos" runat="server" CssClass="table table-advance table-hover tablenobottomborder" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound" ShowFooter="True">
-                            <div class="col-md-12">
+                            <Columns>
-                                <asp:GridView ID="GvDatos" runat="server" CssClass="table table-advance table-hover tablenobottomborder" AutoGenerateColumns="False" GridLines="None" DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound" ShowFooter="True">
+                                <asp:TemplateField HeaderText="Concepto">
-                                    <Columns>
+                                    <ItemTemplate>
-                                        <asp:TemplateField HeaderText="Concepto">
+                                        <div id="Concepto" runat="server">
-                                            <ItemTemplate>
+                                            <asp:Literal ID="LtNombre" Text='<%# Eval("Nombre", "{0:N2}")%>' runat="server" />
-                                                <div id="Concepto" runat="server">
+                                        </div>
-                                                    <asp:Literal ID="LtNombre" Text='<%# Eval("Nombre", "{0:N2}")%>' runat="server" />
+                                    </ItemTemplate>
-                                                </div>
+                                    <ItemStyle Width="500px" HorizontalAlign="Left" />
-                                            </ItemTemplate>
+                                </asp:TemplateField>
-                                            <ItemStyle Width="500px" HorizontalAlign="Left" />
+                                <asp:TemplateField>
-                                        </asp:TemplateField>
+                                    <ItemTemplate>
-                                        <asp:TemplateField>
+                                        <asp:Label ID="LbActual" Text='<%# Eval("ImporteActual", "{0:N2}")%>' runat="server" />
-                                            <ItemTemplate>
+                                    </ItemTemplate>
-                                                <asp:Label ID="LbActual" Text='<%# Eval("ImporteActual", "{0:N2}")%>' runat="server" />
+                                    <ItemStyle Width="100px" HorizontalAlign="Right" />
-                                            </ItemTemplate>
+                                    <HeaderTemplate>
-                                            <ItemStyle Width="100px" HorizontalAlign="Right" />
+                                        <asp:Label ID="LbPeriodoActual" runat="server" />
-                                            <HeaderTemplate>
+                                    </HeaderTemplate>
-                                                <asp:Label ID="LbPeriodoActual" runat="server" />
+                                </asp:TemplateField>
-                                            </HeaderTemplate>
+                                <asp:TemplateField>
-                                        </asp:TemplateField>
+                                    <ItemTemplate>
-                                        <asp:TemplateField>
+                                        <asp:Label ID="LbAnterior" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' runat="server" />
-                                            <ItemTemplate>
+                                    </ItemTemplate>
-                                                <asp:Label ID="LbAnterior" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>' runat="server" />
+                                    <ItemStyle Width="100px" HorizontalAlign="Right" />
-                                            </ItemTemplate>
+                                    <HeaderTemplate>
-                                            <ItemStyle Width="100px" HorizontalAlign="Right" />
+                                        <asp:Label ID="LbPeriodoAnterior" runat="server" />
-                                            <HeaderTemplate>
+                                    </HeaderTemplate>
-                                                <asp:Label ID="LbPeriodoAnterior" runat="server" />
+                                </asp:TemplateField>
-                                            </HeaderTemplate>
-                                        </asp:TemplateField>
-
-                                    </Columns>
-                                </asp:GridView>
-                            </div>
-                        </div>
-
 
 
+                                <%--  <asp:BoundField DataField="Nombre" HeaderText="Cuenta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="300px"/>
+                                <asp:BoundField DataField="ImporteActual" DataFormatString="{0:N2}" HeaderText="ImporteActual" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="150px"/>
+                                <asp:BoundField DataField="ImporteAnterior" DataFormatString="{0:N2}" HeaderText="ImporteAnterior" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="150px"/>--%>
+                            </Columns>
+                            <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                        </asp:GridView>
+                        <br />
+                        <br />
 
                     </ContentTemplate>
                 </asp:UpdatePanel>
+        </div>
+
+    </div>
+
+
+
+
+
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Contabilidad/RepFlujoEfectivo.aspx.vb

@@ -9,7 +9,7 @@ Imports iTextSharp.text
 Imports iTextSharp.text.html.simpleparser
 Imports iTextSharp.text.pdf
 
-Partial Class Contabilidad_RepFlujoEfectivo
+Partial Class AC2_RepFlujoEfectivo
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
@@ -52,28 +52,27 @@ Partial Class Contabilidad_RepFlujoEfectivo
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
-            'TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
             TxtFechaAl.Text = NowADS().ToShortDateString
 
             CargaDatos()
-
-            BtnConsultar.Enabled = True
-
         End If
-
     End Sub
 
 #Region "CARGA DATOS Y GRID"
     Private Sub CargaDatos()
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
 
-        'Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataBind()
+
+        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
         Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
-
         FechaAl = TxtFechaAl.Text
-
+        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
-        If ObjConta.GetFlujoEfectivo2(FechaFin, DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+        If ObjConta.GetFlujoEfectivo(FechaInicio, FechaFin, DdlUnidad.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados
         Else
             DtDatos = Nothing
@@ -82,12 +81,28 @@ Partial Class Contabilidad_RepFlujoEfectivo
 
         ObjConta.Dispose()
 
+        'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO
+        If DtDatos IsNot Nothing Then
+            If UsuarioActual.CveEmpresa.Contiene(120) Then
+                TotalActual = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble
+                TotalAnterior = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
+            Else
+                TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble
+                TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
+            End If
+        End If
+
+        CargaGrid()
+
+    End Sub
+    Private Sub CargaGrid()
         GvDatos.DataSource = DtDatos
         GvDatos.DataBind()
         UpDatos.Update()
 
-    End Sub
+        ' GvDatos.Caption = String.Format("<div class='Titulos' style='width:100%; height:45px;'>{0}<br/>Estado de Flujo de Efectivo<br/>Al {1}</div>", UsuarioActual.Empresa.Empresa, TxtFechaAl.Text)
 
+    End Sub
 #End Region
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -110,13 +125,13 @@ Partial Class Contabilidad_RepFlujoEfectivo
                 e.Row.Font.Bold = True
 
                 'CABCERA
-                If e.Row.DBCampo("Id") = "12" Then
+                If e.Row.DBCampo("CveCuenta") = "12" Then
                     e.Row.FCLabel("LbActual").Text = ""
                     e.Row.FCLabel("LbAnterior").Text = ""
                 End If
 
                 'TOTAL OPERACIONES
-                If e.Row.DBCampo("Id") = "123" Then
+                If e.Row.DBCampo("CveCuenta") = "123" Then
                     e.Row.FCLabel("LbActual").Text = TotalActual.ToString.FormatoNumero
                     e.Row.FCLabel("LbAnterior").Text = TotalAnterior.ToString.FormatoNumero
                 End If
@@ -161,18 +176,60 @@ Partial Class Contabilidad_RepFlujoEfectivo
         End If
     End Sub
 
-
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
+        ImprimirReporte()
+    End Sub
+    'No quitar porque no funciona el exporta PDF
     Public Overrides Sub VerifyRenderingInServerForm(control As Control)
-
+        ' Verifies that the control is rendered 
     End Sub
 
+    'Protected Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
+    '    If (e.Row.RowType = DataControlRowType.Header) Then
+    '        Dim HeaderGrid As GridView = DirectCast(sender, GridView)
+    '        Dim HeaderGridRow As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert)
+    '        Dim HeaderCell As TableCell = New TableCell()
+    '        HeaderCell.Text = String.Format("<div class='Titulos' style='width:100%; height:45px;'>{0}<br/>Estado de Flujo de Efectivo<br/>Al {1}</div>", UsuarioActual.Empresa.Empresa, FechaAl)
+    '        HeaderCell.ColumnSpan = GvDatos.Columns.Count
+    '        HeaderCell.HorizontalAlign = HorizontalAlign.Center
+    '        HeaderGridRow.Cells.Add(HeaderCell)
 
 
+    '        GvDatos.Controls(0).Controls.AddAt(0, HeaderGridRow)
+    '    End If
+
+    '    If (e.Row.RowType = DataControlRowType.Footer) Then
+    '        Dim HeaderGrid As GridView = DirectCast(sender, GridView)
+    '        Dim HeaderGridRow As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Footer, DataControlRowState.Insert)
+    '        Dim HeaderCell As TableCell = New TableCell()
+    '        HeaderCell.Text = "<table><tr> <td colspan='3' style='height:30px;'> <br/><br/><br/><br/></td></tr><tr><td  >_________________________________<br/>C.P. Izelda Angulo Peraza</td><td style='width:75px'>   </td><td > _________________________________<br/>Lic. Juan Fortino Leon Robinson</td></tr><tr><td>Subdirector de Contabilidad</td><td style='width:75px'>   </td><td>Director General</td></table>"
+    '        HeaderCell.ColumnSpan = GvDatos.Columns.Count
+    '        HeaderCell.HorizontalAlign = HorizontalAlign.Center
+    '        HeaderGridRow.Cells.Add(HeaderCell)
+
+    '        e.Row.Cells.Clear()
+    '        e.Row.Cells.Add(HeaderCell)
+
+    '    End If
+
+    'End Sub
+
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-
+        'GvDatos.ExportToExcel("ReporteFlujoEfectivo" & NowADS().ToShortDateString)
-        GvDatos.ExportToExcel2("RepFlujosDeEfectivo.xlsx")
+        ImprimirReporte("Excel")
     End Sub
 
-
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("pAl", FechaAl))
+        params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero))
+        params.Add(New ReportParameter("pTotalAnterior", TotalAnterior.ToString.FormatoNumero))
+        params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
+        params.Add(New ReportParameter("pFirma2", String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf)))
+        ImprimirPDF("AC/Reportes/RepFlujoEfectivo.rdlc", DtDatos, params, "EdoFlujoEfectivo", Formato)
+    End Sub
 
 End Class

Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepMovimientosAuxiliaresCatalogo.aspx.vb" Inherits="AC_RepMovimientosAuxiliaresCatalogo" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepMovimientosAuxiliaresCatalogo.aspx.vb" Inherits="Conta_RepMovimientosAuxiliaresCatalogo" EnableEventValidation="false" %>
 
 <asp:Content ContentPlaceHolderID="Css" runat="server">
     <style>
@@ -8,6 +8,18 @@
             overflow: hidden;
             text-overflow: ellipsis;
         }
+
+        table {
+            border: none !important;
+        }
+
+        tr {
+            border: none !important;
+        }
+
+        td {
+            border: none !important;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
@@ -16,7 +28,7 @@
         <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar EXCEL</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="Imprimir" runat="server" style="margin-left:2%;"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="Imprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
     </li>
 
 </asp:Content>
@@ -25,109 +37,124 @@
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
 
-
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-
             <div class="portlet solid  grey-cascade portlet-filter">
-                <div class="portlet-title portlet-filterT smalltitle magindate">
+                <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-default" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="Valida" />
                         <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros  caption ">
                         <div class="row">
-                            <label class="col-md-1" style="margin-left:10px; width: 90px;">Fecha Inicio:</label>
+                            <div class="col-md-1">
-                            <div class="col-md-2" style="width: 140px;">
+                                Cuenta: 
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
-                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-
-                                    <asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
-
-                                </div>
                             </div>
-                            <label class="col-md-1" style="width: 80px; padding-right: 2px;">Fecha Fin:</label>
-                            <div class="col-md-2" style="width: 140px;">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
-                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-
-                                    <asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
-
-                                </div>
-                            </div>
-                            <label class="col-md-1">Tipo de Cuentas:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlTipoCuentas" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="Id" TabIndex="4" onchange="Enable();" ClientIDMode="Static">
-                                </asp:DropDownList>
-                            </div>
-                            <label class="col-md-2" style="width: 60px;">Cuenta:</label>
                             <div class="col-md-3">
-                                <asp:HiddenField ID="HdnCveCuenta" runat="server" ClientIDMode="Static" />
+                                <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="false">
-                                <asp:TextBox ID="TxtCuenta" CssClass="form-control-input" runat="server" ClientIDMode="Static" Enabled="false" TabIndex="5" onclick="this.setSelectionRange(0, this.value.length)"></asp:TextBox>
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1">
+                                Fecha Inicio:  
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1">
+                                Fecha Fin: 
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>                                                        
                         </div>
                     </div>
                 </div>
                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row">
-                        <label class="col-md-1" style="margin-left:10px; width: 90px;">Moneda:</label>
+                        <div class="col-md-1 truncate">
-                        <div class="col-md-1">
+                            Tipo Movto
-                            <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" style="margin-top:10%">
+                        </div>
+                        <div class="col-md-2 truncate">
+                            <asp:DropDownList ID="DdlOpcionCuentas" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1 truncate" id="tdTipoReporte" visible="false" runat="server">
+                            Tipo
+                        </div>
+                        <div class="col-md-2" id="tdTipoReporte2" visible="false" runat="server">
+                            <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm select2me" runat="server" Width="100%">
+                                <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1" id="divProyecto" runat="server">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                             </asp:DropDownList>
                         </div>
                         
-                          <label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
-                            </asp:DropDownList>
-                        </div>
-                     </div>
                 </div>
             </div>
-
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>     
-
+    <div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
-<%--    <br />
+        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-    <div class="text-right">
+        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-        Buscar :
+    </div>
-        <input type="text" id="Buscar" style="margin-right: 30px;" />
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
-    </div>--%>
-
-
-<%--            <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
-                <div style="margin-right: 15px">
-                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", TbDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", TbDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                </div>
-            </div>--%>
-
-    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
         <ContentTemplate>
-
+            <asp:GridView ID="GvDatos" runat="server"
-            <asp:GridView ID="GvDatos" runat="server" CssClass="ScrollAD  table table-smallpadding Widthall" data-heighterror="375" data-freezecols="0" data-freezerows="-1"
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False"
-                ShowHeader="True" ShowHeaderWhenEmpty="true" AllowPaging="False" ShowFooter="False" GridLines="None" EmptyDataText="No se encontrarios movimientos." AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
+                EmptyDataText="No se encontrarios movimientos."
+                DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
                 <Columns>
                     <asp:TemplateField ControlStyle-CssClass="Widthall">
                         <HeaderTemplate>
-                            <table width="100%">
+                            <table width="100%" style="border: none">
                                 <tr>
                                     <td colspan="3"><font size="2">Cuenta</font></td>
                                     <td colspan="1"><font size="2">Nombre</font></td>
-                                    <td colspan="3"></td>
+                                    <td colspan="4"></td>
                                     <td><font size="2">Saldo Inicial</font></td>
                                 </tr>
                                 <tr>
@@ -136,16 +163,16 @@
                                     <td width="60px" align="center">Número</td>
                                     <td width="300px" align="left">Concepto</td>
                                     <td width="100px" align="center">Referencia</td>
+                                    <td width="100px" align="center">Referencia Movto</td>
+                                    <td width="100px" align="center">SubProyecto</td>
                                     <td width="100px" align="center">Cargos</td>
                                     <td width="100px" align="center">Abonos</td>
                                     <td width="100px" align="center">Saldo</td>
                                 </tr>
                             </table>
-                            <%--<hr />--%>
                         </HeaderTemplate>
-                        <%--   <HeaderStyle />--%>
                         <ItemTemplate>
-                            <table width="100%" border="0" style="border-spacing: 0px;">
+                            <table width="100%" style="border: none">
                                 <tr runat="server" id="tr1">
                                     <td colspan="3" align="left" width="180px">
                                         <asp:Label ID="LbCuenta" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
@@ -169,16 +196,22 @@
                                     </td>
                                     <td width="60px" style="border: 0px;" align="center">
                                         <asp:HyperLink ID="HLPoliza" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                        <%--<asp:Label ID="LbNumero" runat="server" Text='<%# Eval("Folio")%>'></asp:Label>--%>
                                     </td>
+
                                     <td width="300px" align="left">
                                         <div class="truncate" style="width: 300px;">
-                                            <asp:Label ID="LbConcepto" runat="server" CssClass="truncate" Text='<%# Eval("Concepto")%>'></asp:Label>
+                                            <asp:Label ID="LbConcepto" runat="server" CssClass="truncate" Text='<%# Eval("Concepto")%>' title='<%# Eval("Concepto")%>'></asp:Label>
                                         </div>
                                     </td>
-                                    <td width="100px" align="center">
+                                    <td width="100px">
                                         <asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
                                     </td>
+                                    <td width="60px" style="border: 0px;" align="center">
+                                        <asp:Literal ID="LtlRefMovto" runat="server" Text='<%# Eval("ReferenciaAdmin")%>'></asp:Literal>
+                                    </td>
+                                    <td width="100px">
+                                        <asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Label>
+                                    </td>
                                     <td width="100px" align="right">
                                         <asp:Label ID="LbCargos" runat="server"></asp:Label>
                                     </td>
@@ -194,7 +227,6 @@
                         <ItemStyle />
                     </asp:TemplateField>
                 </Columns>
-                <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
             </asp:GridView>
 
         </ContentTemplate>
@@ -203,117 +235,12 @@
 
 
 
+
 </asp:Content>
 
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
 
-        $(document).on('mouseenter', ".truncate", function () {
+</script>
-            var $this = $(this);
-            if (this.offsetWidth < this.scrollWidth && !$this.attr('title')) {
-                $this.tooltip({
-                    title: $this.text(),
-                    placement: "top"
-                });
-                $this.tooltip('show');
-            }
-        });
-
-        function pageLoad(sender, args) {
-
-
-
-        }
-
-
-        $(function () {
-            //Genero las cuentas en el arreglo
-            var ArrCuentas = [<%= WSCuentas()%>];
-
-
-            $("#TxtCuenta").autocomplete({
-                minLength: 0,
-                source: ArrCuentas,
-                focus: function (event, ui) {
-                    $("#TxtCuenta").val(ui.item.label);
-                    $("#HdnCveCuenta").val(ui.item.value);
-                    return false;
-                },
-                select: function (event, ui) {
-
-                    $("#TxtCuenta").val(ui.item.label);
-                    $("#HdnCveCuenta").val(ui.item.value);
-
-                    //$("#project-description").html(ui.item.desc);
-                    //$("#project-icon").attr("src", "images/" + ui.item.icon);
-
-                    return false;
-                }
-            })
-            //.autocomplete("instance")._renderItem = function (ul, item) {
-            //    return $("<li>")
-            //      .append("<a>" + item.label + "</a>")
-            //      .appendTo(ul);
-            //};
-        });
-
-        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
-        $('input[type=text]').on('keydown', function (e) {
-            // Si la tecla ENTER es presionada... 
-            if (e.keyCode === 13) {
-
-                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
-                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
-                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
-                if (nextField.length > 0) { // Si se encontró un elemento:
-                    nextField.focus(); // Hacerle focus / seleccionarlo
-                    nextField.select();
-                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
-                }
-
-            }
-
-        });
-
-        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
-        $('select').on('keydown', function (e) {
-            // Si la tecla ENTER es presionada... 
-            if (e.keyCode === 13) {
-
-                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
-                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
-                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
-                if (nextField.length > 0) { // Si se encontró un elemento:
-                    nextField.focus(); // Hacerle focus / seleccionarlo
-                    nextField.select();
-                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
-                }
-            }
-        });
-
-
-
-<%--        $('#Buscar').keyup(function () {
-            var texto = $('#Buscar').val();
-            $('#<%=GvDatos.ClientID%> > tbody > tr').css({ 'display': 'none' });
-            $("#<%=GvDatos.ClientID%> > tbody > tr:contains('" + texto + "')").css({ 'display': '' });
-
-            $('#<%=GvDatos.ClientID%> > tbody > tr:nth-child(1)').css({ 'display': 'none' });
-        });--%>
-
-        function Enable() {
-            var Producto = $get("DdlTipoCuentas").value;
-            if (Producto == "-2") {
-                document.getElementById("TxtCuenta").disabled = false;
-                //document.getElementById("TxtCuenta").focus();
-                //alert(Producto);
-            }
-            else {
-                document.getElementById("TxtCuenta").value = " ";
-                document.getElementById("TxtCuenta").disabled = true;
-            }
-        }
-
-    </script>
 
 </asp:Content>

Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -5,7 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
-Partial Class AC_RepMovimientosAuxiliaresCatalogo
+Partial Class Conta_RepMovimientosAuxiliaresCatalogo
     Inherits ClsPaginas
 
 
@@ -44,28 +44,6 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
             ViewState("FechaFin") = value
         End Set
     End Property
-    Private Property IdCuenta As Integer
-        Get
-            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("IdCuenta") = value
-        End Set
-    End Property
-
-    Private Property IdSegNeg As Integer
-        Get
-            If ViewState("IdSegNeg") Is Nothing Then
-                ViewState("IdSegNeg") = -1
-            End If
-
-            Return ViewState("IdSegNeg").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("IdSegNeg") = value
-        End Set
-    End Property
-
 
     Private Property TotalPadre As Boolean
         Get
@@ -83,104 +61,110 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
             ViewState("DTCuentas") = value
         End Set
     End Property
+    Private Property TipoReporte As String
+        Get
+            TipoReporte = ViewState("TP").ToString
+        End Get
+        Set(value As String)
+            ViewState("TP") = value
+        End Set
+    End Property
+    Private Property Cuenta As String
+        Get
+            Return ViewState("Cuenta").ToString
+        End Get
+        Set(value As String)
+            ViewState("Cuenta") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
 
-                BtnConsultar.Enabled = True
+            'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa <> 119 Then
-                Dim ErrorParametros As Boolean = True
+            '    Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
+            'End If
 
-                CargaTipoCuentas()
+            Dim ErrorParametros As Boolean = True
-                CargaMoneda()
-                CargaSegmentosNegocio()
 
-                TxtCuenta.Enabled = False
+            CargaTipoCuentas()
+            'TxtCuenta.Enabled = False
 
-                If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+            txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
-                    If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+            txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
 
 
-                        IdCuenta = Request("ID").ToEntero
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+                If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
 
-                        IdSegNeg = If(Request("IdSegNeg") IsNot Nothing AndAlso Request("IdSegNeg").ToString.ToEntero > 0, Request("IdSegNeg").ToString.ToEntero, -1)
+                    FechaFin = Request("FF").ToDate
+                    txtFechaF.Text = FechaFin.ToShortDateString
 
-                        HdnCveCuenta.Value = IdCuenta.ToString
+                    DdlCuentas.SelectedValueExist(Request("CveCuenta").ToEntero)
-
-                        FechaFin = Request("FF").ToDate
-                        TxtFechaAl.Text = FechaFin.ToShortDateString
-
-                        If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
-                            FechaInicio = Request("FI").ToDate
-                            TxtFechaDel.Text = FechaInicio.ToShortDateString
-                        Else
-                            FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
-                            TxtFechaDel.Text = FechaInicio.ToShortDateString
-                        End If
-
-                        ErrorParametros = False
 
 
-                        If DdlTipoCuentas.Items.FindByValue(IdCuenta.ToString) IsNot Nothing Then
+                    If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
-                            DdlTipoCuentas.SelectedValue = IdCuenta.ToString
+                        FechaInicio = Request("FI").ToDate
-                        Else
+                        txtFechaI.Text = FechaInicio.ToShortDateString
-                            DdlTipoCuentas.SelectedValue = "-2"
+                    Else
-                            TxtCuenta.Enabled = True
+                        FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
-
+                        TxtFechaF.Text = FechaInicio.ToShortDateString
-                            If DTCuentas.FiltraParametros(String.Format("Id = {0}", IdCuenta)).Rows.Count > 0 Then
-                                TxtCuenta.Text = DTCuentas.FiltraParametros(String.Format("Id = {0}", IdCuenta)).Rows(0)("CtaCodigo").ToString
-                            End If
-                        End If
-
-                        DdlSegmentoNegocio.SelectedValueExist(IdSegNeg)
-
                     End If
-                End If
 
-                If Not ErrorParametros Then
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
-                    TotalPadre = True
+                        DdlProyecto.SelectedValueExist(Request("CveProyecto"))
-                    CargaDatos()
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
-                End If
+                    End If
 
-            Else
+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-                Alert("La empresa no usa Contabilidad ni Armonización Contable", TipoMensaje.MsgError)
+                        DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
+                    End If
+
+                    ErrorParametros = False
+
+                    If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
+                        TipoReporte = Request("TP").ToString
+
+                        ' DdlTipoReporte.SelectedValue = TipoReporte.ToString
+                    End If
+
+
+                    ''If DdlTipoCuentas.Items.FindByValue(IdCuenta.ToString) IsNot Nothing Then
+                    ''    DdlTipoCuentas.SelectedValue = IdCuenta.ToString
+                    ''Else
+                    ''    DdlTipoCuentas.SelectedValue = "-2"
+                    ''    TxtCuenta.Enabled = True
+
+                    ''    If DTCuentas.FiltraParametros(String.Format("Cvecuenta = {0}", IdCuenta)).Rows.Count > 0 Then
+                    ''        TxtCuenta.Text = DTCuentas.FiltraParametros(String.Format("CveCuenta = {0}", IdCuenta)).Rows(0)("Codigo").ToString
+                    ''    End If
+                    ''End If
+
+                End If
+            End If
+
+
+            If Not ErrorParametros Then
+                TotalPadre = True
+                TipoReporte = "1"
+                CargaDatos()
             End If
 
         End If
     End Sub
 
-
-    Private Sub CargaSegmentosNegocio()
-        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim strGlobal As String = ""
-
-        If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
-            DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
-            DdlSegmentoNegocio.DataBind()
-        End If
-        ObjContpaq.Dispose()
-        DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSegmentoNegocio.SelectedValue = "-1"
-    End Sub
-
-
-    Private Sub CargaMoneda()
-        DdlMoneda.DataSource = GlobalDTMonedas
-        DdlMoneda.DataBind()
-
-    End Sub
-
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        If DdlCuentas.SelectedValue.ToEntero = -1 Then
+            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+        Else
+            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
+            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
 
-        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            CargaDatos()
-        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+        End If
-        IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero <> -2, DdlTipoCuentas.SelectedValue.ToEntero, HdnCveCuenta.Value.ToEntero)
-
-        CargaDatos()
-
         ' Imprimir_click(sender, e)
-        RegistraScript("Enable();")
+        'RegistraScript("Enable();")
     End Sub
 
 #Region "C A R G A - D A T O S"
@@ -189,45 +173,50 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
         Dim i As Integer = 0
         Dim dt As DataTable = DTCuentas
 
-
+        For Each dr As DataRow In dt.Rows
-        If dt IsNot Nothing Then
+            i += 1
-            For Each dr As DataRow In dt.Rows
+            Str.AppendFormat("{{value:""{0}"",label:""{1}""}}{2}", dr("CveCuenta"), dr("Codigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""))
-                i += 1
+        Next
-                Str.AppendFormat("{{value:""{0}"",label:""{1}""}}{2}", dr("Id"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""))
-            Next
-        End If
 
         Return Str.ToString
     End Function
     Private Sub CargaTipoCuentas()
-        Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim strGlobal As String = ""
 
-        If ObjTipoCuenta.GetCuentas(-1, "-1", -1) Then
+        Dim ObjTipoCuenta As New ClsContabilidad
-            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+        DdlCuentas.Enabled = True
-            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+
+        If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
             DTCuentas = ObjTipoCuenta.DtResultados
-            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+
         End If
         ObjTipoCuenta.Dispose()
-        DdlTipoCuentas.DataBind()
+        DdlCuentas.DataBind()
-        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+
-        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto)
-        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
-        DdlTipoCuentas.SelectedIndex = 0
 
     End Sub
 
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
     Private Sub CargaDatos()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa, 60)
 
-        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
-            'DtTotales = DtDatos.Clone
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        TipoReporte = DdlTipoReporte.SelectedValue.ToString
+        If TipoReporte = "1" And DdlCuentas.SelectedValue.ToEntero < 0 Then
+            Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Cuenta = DdlCuentas.SelectedItem.ToString
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(DdlCuentas.SelectedValue.ToEntero, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then
             DtDatos = ObjConta.DtResultados
+            DtTotales = DtDatos.Clone
+
             CargaGrid()
-
-
-            'InsertaTotales()
         Else
             DtDatos = Nothing
         End If
@@ -237,20 +226,20 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
 #End Region
 
     Private Sub InsertaTotales()
-        Dim i = 0
+        Dim i As Integer = 0
-        Dim Aumento = 0
+        Dim Aumento As Integer = 0
         Dim Row As DataRow
         Dim Row2 As DataRow
 
         'Llena DtTotales
         For Each dr As DataRow In DtDatos.Rows
-            If dr("Fecha").ToString = "" Then
+            If dr("Concepto").ToString = "" Then
 
                 Row = DtTotales.NewRow
 
-                Row("ID") = -1
+                Row("CveCuenta") = -1
-                Row("CargosMovto") = If(DdlMoneda.SelectedValue = "1", dr("Cargos"), dr("CargosME"))
+                Row("CargosMovto") = If("1" = "1", dr("Cargos"), dr("CargosME"))
-                Row("AbonosMovto") = If(DdlMoneda.SelectedValue = "1", dr("Abonos"), dr("AbonosME"))
+                Row("AbonosMovto") = If("1" = "1", dr("Abonos"), dr("AbonosME"))
                 Row("Saldo") = dr("SaldoActual")
                 Row("CtaMayor") = dr("CtaMayor")
                 Row("Concepto") = String.Format("Total {0}:", dr("Nombre"))
@@ -271,7 +260,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
             End If
 
             If dr("CtaMayor").ToString = "2" Then
-                For index = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
+                For index As Integer = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
                     If DtDatos.Rows(index)("Nombre").ToString <> dr("Nombre").ToString Then
                         i = index
                         Exit For
@@ -293,14 +282,14 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
 #Region "G R I D - GV DATOS"
     Private Sub CargaGrid()
         GvDatos.DataSource = DtDatos
+        'GvDatos.Dispose()
         GvDatos.DataBind()
         UpDatos.Update()
-
     End Sub
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DBCampo("Fecha") = "" Then
+            If e.Row.DBCampo("Concepto") = "" Then
                 e.Row.ControlStyle.Font.Bold = True
                 e.Row.ControlStyle.Height = 35
 
@@ -321,7 +310,8 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
                     'End If
 
                     If TotalPadre Then
-                        CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells.Remove(CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3))
+                        CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "1px"
+                        'CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells.Remove(CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3))
                         CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Align = "Right"
                         CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "400px"
                         If e.Row.RowIndex + 1 = DtDatos.Rows.Count Then
@@ -340,21 +330,20 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
                     End If
 
                     'e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", If(e.Row.DBCampo("CtaMayor").ToString = "2", "", e.Row.DBCampo("Nombre").ToString))
-                    e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                    e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").ToString.FormatoNumero(If("1" = "1", 2, 4))
-                    e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                    e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").ToString.FormatoNumero(If("1" = "1", 2, 4))
-                    e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("SaldoActual").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                    e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("SaldoActual").ToString.FormatoNumero(If("1" = "1", 2, 4))
                 End If
 
             Else
                 TotalPadre = False
-                e.Row.Width = 200
                 e.Row.ControlStyle.Font.Bold = False
                 CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
-                e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
+                e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", e.Row.DBCampo("CvePoliza"))
 
-                If e.Row.DBCampo("CargosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("CargosMovto").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                If e.Row.DBCampo("CargosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("CargosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
-                If e.Row.DBCampo("AbonosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("AbonosMovto").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                If e.Row.DBCampo("AbonosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("AbonosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
-                If e.Row.DBCampo("Saldo").ToDouble <> 0 Then e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("Saldo").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                If e.Row.DBCampo("Saldo").ToDouble <> 0 Then e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("Saldo").ToString.FormatoNumero(If("1" = "1", 2, 4))
 
             End If
 
@@ -390,36 +379,60 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
 #End Region
 
     Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
+        If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
-            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
-            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero <> -1, DdlTipoCuentas.SelectedValue.ToEntero, HdnCveCuenta.Value.ToEntero)
 
-            'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-
-            'If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin) Then
-            'DtDatos = ObjConta.DtResultados
             DtDatos = DtDatos
-            If Not IsNothing(DtDatos) Then
+            ImprimirReporte()
-                ImprimirReporte()
-            Else
-                Alert("No se encontró información para el reporte", TipoMensaje.MsgAdvertencia)
-            End If
         End If
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12) Then
+        ImprimirReporte("Excel")
-            GvDatos.ExportToExcel("MovimientosAuxiliares")
+
-        Else
+        'Dim htmlTabe As New HtmlTable
-            If Not IsNothing(DtDatos) Then
+        'Dim RutaLogo As String = $"{UsuarioActual.Empresa.Ruta}Logo.png"
-                ImprimirReporte("Excel")
+        'Dim strinLiteral As String = ""
-            Else
+
-                Alert("No se encontró información para el reporte", TipoMensaje.MsgAdvertencia)
+        'Dim EncabezadoLiteral As New LiteralControl
-            End If
+
-        End If
+
+
+        'If System.IO.File.Exists(RutaLogo) Then
+        '    RutaLogo = $"http://{Request.Url.Host }/Empresas/{UsuarioActual.CveEmpresa}/Logo.png"
+
+        '    strinLiteral = $"<table style='width:{ GvDatos.Width }px'><tr> 
+        '                            <td colspan='3'  style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'><img  width='200px' height='150px' style='max-height:150px!important;max-width:200px!important'   src='{RutaLogo}' /> </td> 
+        '                            <td colspan='3' style='width:70%;height:150px; text-align:center; vertical-align:middle;font-weight: bold; display: block;'><p><span>{UsuarioActual.Empresa.Empresa} </span><br><span> Movimientos Auxiliares del Catálogo<p></td> 
+        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> Fecha:{NowADS().ToString("dd/MM/yyyy")}</td> 
+        '                    </tr>
+        '                            <tr>
+        '                            <td  style='text-align:left;' colspan='6'>
+        '                                <b>Filtros Cuenta:</b> {DdlCuentas.SelectedItem.Text} <b>Fecha inicio: </b>{ TxtFechaDel.Text}  <b>Fecha Fin:</b> {TxtFechaAl.Text}
+        '                            <td>      
+        '                            </tr>                              
+        '                            </table>"
+        'Else
+        '    strinLiteral = $"<table style='width:{ GvDatos.Width }px'><tr> 
+        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> </td> 
+        '                            <td colspan='3' style='width:70%;height:150px; text-align:center; vertical-align:middle;font-weight: bold; display: block;'><p><span>{UsuarioActual.Empresa.Empresa} </span><br><span> Movimientos Auxiliares del Catálogo<p></td> 
+        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> Fecha:{NowADS().ToString("dd/MM/yyyy")}</td> 
+        '                    </tr>
+        '                             <tr>
+        '                            <td  style='text-align:left;' colspan='9'>
+        '                               <b>Filtros  Cuenta:</b> {DdlCuentas.SelectedItem.Text} <b>Fecha inicio: </b>{ TxtFechaDel.Text}  <b>Fecha Fin:</b> {TxtFechaAl.Text}
+        '                            <td>
+
+        '                            <tr>
+        '                            </table>"
+        'End If
+
+        'EncabezadoLiteral.Text = strinLiteral
+        'GvDatos.ExportToExcel($"MovimientosAuxiliares_{NowADS().ToString("yyyyMMddmmss")}", Encabezado2:=EncabezadoLiteral)
+
     End Sub
 
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
@@ -429,8 +442,15 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
-        params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue))
+        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
-        ImprimirPDF("Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
+        params.Add(New ReportParameter("CveMoneda", "1"))
+        params.Add(New ReportParameter("Cuenta", Cuenta))
+        ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
+
+    End Sub
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+
     End Sub
 
+
 End Class

Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx

@@ -0,0 +1,319 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepMovimientosAuxiliaresCatalogoCI.aspx.vb" Inherits="AC_RepMovimientosAuxiliaresCatalogo" %>
+
+<asp:Content ContentPlaceHolderID="Css" runat="server">
+    <style>
+        .truncate {
+            width: 300px;
+            white-space: nowrap;
+            overflow: hidden;
+            text-overflow: ellipsis;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
+
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar EXCEL</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="Imprimir" runat="server" style="margin-left:2%;"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>
+
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
+    Movimientos Auxiliares del Catálogo
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
+
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle magindate">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-default" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <label class="col-md-1" style="margin-left:10px; width: 90px;">Fecha Inicio:</label>
+                            <div class="col-md-2" style="width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                            <label class="col-md-1" style="width: 80px; padding-right: 2px;">Fecha Fin:</label>
+                            <div class="col-md-2" style="width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                            <label class="col-md-1">Tipo de Cuentas:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlTipoCuentas" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="Id" TabIndex="4" onchange="Enable();" ClientIDMode="Static">
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-2" style="width: 60px;">Cuenta:</label>
+                            <div class="col-md-3">
+                                <asp:HiddenField ID="HdnCveCuenta" runat="server" ClientIDMode="Static" />
+                                <asp:TextBox ID="TxtCuenta" CssClass="form-control-input" runat="server" ClientIDMode="Static" Enabled="false" TabIndex="5" onclick="this.setSelectionRange(0, this.value.length)"></asp:TextBox>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                    <div class="row">
+                        <label class="col-md-1" style="margin-left:10px; width: 90px;">Moneda:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" style="margin-top:10%">
+                            </asp:DropDownList>
+                        </div>
+
+                          <label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
+                            </asp:DropDownList>
+                        </div>
+                     </div>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+<%--    <br />
+    <div class="text-right">
+        Buscar :
+        <input type="text" id="Buscar" style="margin-right: 30px;" />
+    </div>--%>
+
+
+<%--            <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
+                <div style="margin-right: 15px">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", TbDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", TbDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+            </div>--%>
+
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" runat="server" CssClass="ScrollAD  table table-smallpadding Widthall" data-heighterror="375" data-freezecols="0" data-freezerows="-1"
+                ShowHeader="True" ShowHeaderWhenEmpty="true" AllowPaging="False" ShowFooter="False" GridLines="None" EmptyDataText="No se encontrarios movimientos." AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
+                <Columns>
+                    <asp:TemplateField ControlStyle-CssClass="Widthall">
+                        <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="3"><font size="2">Cuenta</font></td>
+                                    <td colspan="1"><font size="2">Nombre</font></td>
+                                    <td colspan="3"></td>
+                                    <td><font size="2">Saldo Inicial</font></td>
+                                </tr>
+                                <tr>
+                                    <td width="60px" align="center">Fecha</td>
+                                    <td width="60px" align="center">Tipo</td>
+                                    <td width="60px" align="center">Número</td>
+                                    <td width="300px" align="left">Concepto</td>
+                                    <td width="100px" align="center">Referencia</td>
+                                    <td width="100px" align="center">Cargos</td>
+                                    <td width="100px" align="center">Abonos</td>
+                                    <td width="100px" align="center">Saldo</td>
+                                </tr>
+                            </table>
+                            <%--<hr />--%>
+                        </HeaderTemplate>
+                        <%--   <HeaderStyle />--%>
+                        <ItemTemplate>
+                            <table width="100%" border="0" style="border-spacing: 0px;">
+                                <tr runat="server" id="tr1">
+                                    <td colspan="3" align="left" width="180px">
+                                        <asp:Label ID="LbCuenta" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+                                    </td>
+                                    <td colspan="1" align="left" width="300px">
+                                        <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                    </td>
+                                    <td colspan="2" width="200px"></td>
+                                    <td style="font-weight: normal;" align="right" width="100px">Saldo Inicial:
+                                    </td>
+                                    <td style="font-weight: normal;" align="right" width="100px">
+                                        <asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                                    </td>
+                                </tr>
+                                <tr runat="server" id="tr2">
+                                    <td width="60px" style="border: 0px;" align="center">
+                                        <asp:Literal ID="LbFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
+                                    </td>
+                                    <td width="60px" style="border: 0px;" align="center">
+                                        <asp:Literal ID="LbTipo" runat="server" Text='<%# Eval("TipoPoliza")%>'></asp:Literal>
+                                    </td>
+                                    <td width="60px" style="border: 0px;" align="center">
+                                        <asp:HyperLink ID="HLPoliza" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                        <%--<asp:Label ID="LbNumero" runat="server" Text='<%# Eval("Folio")%>'></asp:Label>--%>
+                                    </td>
+                                    <td width="300px" align="left">
+                                        <div class="truncate" style="width: 300px;">
+                                            <asp:Label ID="LbConcepto" runat="server" CssClass="truncate" Text='<%# Eval("Concepto")%>'></asp:Label>
+                                        </div>
+                                    </td>
+                                    <td width="100px" align="center">
+                                        <asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
+                                    </td>
+                                    <td width="100px" align="right">
+                                        <asp:Label ID="LbCargos" runat="server"></asp:Label>
+                                    </td>
+                                    <td width="100px" align="right">
+                                        <asp:Label ID="LbAbonos" runat="server"></asp:Label>
+                                    </td>
+                                    <td width="100px" align="right">
+                                        <asp:Label ID="LbSaldo" runat="server"></asp:Label>
+                                    </td>
+                                </tr>
+                            </table>
+                        </ItemTemplate>
+                        <ItemStyle />
+                    </asp:TemplateField>
+                </Columns>
+                <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
+
+</asp:Content>
+
+<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript">
+
+        $(document).on('mouseenter', ".truncate", function () {
+            var $this = $(this);
+            if (this.offsetWidth < this.scrollWidth && !$this.attr('title')) {
+                $this.tooltip({
+                    title: $this.text(),
+                    placement: "top"
+                });
+                $this.tooltip('show');
+            }
+        });
+
+        function pageLoad(sender, args) {
+
+
+
+        }
+
+
+        $(function () {
+            //Genero las cuentas en el arreglo
+            var ArrCuentas = [<%= WSCuentas()%>];
+
+
+            $("#TxtCuenta").autocomplete({
+                minLength: 0,
+                source: ArrCuentas,
+                focus: function (event, ui) {
+                    $("#TxtCuenta").val(ui.item.label);
+                    $("#HdnCveCuenta").val(ui.item.value);
+                    return false;
+                },
+                select: function (event, ui) {
+
+                    $("#TxtCuenta").val(ui.item.label);
+                    $("#HdnCveCuenta").val(ui.item.value);
+
+                    //$("#project-description").html(ui.item.desc);
+                    //$("#project-icon").attr("src", "images/" + ui.item.icon);
+
+                    return false;
+                }
+            })
+            //.autocomplete("instance")._renderItem = function (ul, item) {
+            //    return $("<li>")
+            //      .append("<a>" + item.label + "</a>")
+            //      .appendTo(ul);
+            //};
+        });
+
+        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+        $('input[type=text]').on('keydown', function (e) {
+            // Si la tecla ENTER es presionada... 
+            if (e.keyCode === 13) {
+
+                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                if (nextField.length > 0) { // Si se encontró un elemento:
+                    nextField.focus(); // Hacerle focus / seleccionarlo
+                    nextField.select();
+                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                }
+
+            }
+
+        });
+
+        // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+        $('select').on('keydown', function (e) {
+            // Si la tecla ENTER es presionada... 
+            if (e.keyCode === 13) {
+
+                var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                if (nextField.length > 0) { // Si se encontró un elemento:
+                    nextField.focus(); // Hacerle focus / seleccionarlo
+                    nextField.select();
+                    e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                }
+            }
+        });
+
+
+
+<%--        $('#Buscar').keyup(function () {
+            var texto = $('#Buscar').val();
+            $('#<%=GvDatos.ClientID%> > tbody > tr').css({ 'display': 'none' });
+            $("#<%=GvDatos.ClientID%> > tbody > tr:contains('" + texto + "')").css({ 'display': '' });
+
+            $('#<%=GvDatos.ClientID%> > tbody > tr:nth-child(1)').css({ 'display': 'none' });
+        });--%>
+
+        function Enable() {
+            var Producto = $get("DdlTipoCuentas").value;
+            if (Producto == "-2") {
+                document.getElementById("TxtCuenta").disabled = false;
+                //document.getElementById("TxtCuenta").focus();
+                //alert(Producto);
+            }
+            else {
+                document.getElementById("TxtCuenta").value = " ";
+                document.getElementById("TxtCuenta").disabled = true;
+            }
+        }
+
+    </script>
+
+</asp:Content>

Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx.vb

@@ -0,0 +1,436 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AC_RepMovimientosAuxiliaresCatalogo
+    Inherits ClsPaginas
+
+
+#Region "PROPIEDADES"
+    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
+    Private Property DtTotales As DataTable
+        Get
+            DtTotales = DirectCast(ViewState("DtTotales"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtTotales") = value
+        End Set
+    End Property
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+    Private Property FechaFin As Date
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+    Private Property IdCuenta As Integer
+        Get
+            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuenta") = value
+        End Set
+    End Property
+
+    Private Property IdSegNeg As Integer
+        Get
+            If ViewState("IdSegNeg") Is Nothing Then
+                ViewState("IdSegNeg") = -1
+            End If
+
+            Return ViewState("IdSegNeg").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdSegNeg") = value
+        End Set
+    End Property
+
+
+    Private Property TotalPadre As Boolean
+        Get
+            TotalPadre = CBool(ViewState("TotalPadre"))
+        End Get
+        Set(value As Boolean)
+            ViewState("TotalPadre") = value
+        End Set
+    End Property
+    Private Property DTCuentas As DataTable
+        Get
+            Return CType(ViewState("DTCuentas"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCuentas") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+
+                BtnConsultar.Enabled = True
+                Dim ErrorParametros As Boolean = True
+
+                CargaTipoCuentas()
+                CargaMoneda()
+                CargaSegmentosNegocio()
+
+                TxtCuenta.Enabled = False
+
+                If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+                    If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+
+
+                        IdCuenta = Request("ID").ToEntero
+
+                        IdSegNeg = If(Request("IdSegNeg") IsNot Nothing AndAlso Request("IdSegNeg").ToString.ToEntero > 0, Request("IdSegNeg").ToString.ToEntero, -1)
+
+                        HdnCveCuenta.Value = IdCuenta.ToString
+
+                        FechaFin = Request("FF").ToDate
+                        TxtFechaAl.Text = FechaFin.ToShortDateString
+
+                        If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                            FechaInicio = Request("FI").ToDate
+                            TxtFechaDel.Text = FechaInicio.ToShortDateString
+                        Else
+                            FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                            TxtFechaDel.Text = FechaInicio.ToShortDateString
+                        End If
+
+                        ErrorParametros = False
+
+
+                        If DdlTipoCuentas.Items.FindByValue(IdCuenta.ToString) IsNot Nothing Then
+                            DdlTipoCuentas.SelectedValue = IdCuenta.ToString
+                        Else
+                            DdlTipoCuentas.SelectedValue = "-2"
+                            TxtCuenta.Enabled = True
+
+                            If DTCuentas.FiltraParametros(String.Format("Id = {0}", IdCuenta)).Rows.Count > 0 Then
+                                TxtCuenta.Text = DTCuentas.FiltraParametros(String.Format("Id = {0}", IdCuenta)).Rows(0)("CtaCodigo").ToString
+                            End If
+                        End If
+
+                        DdlSegmentoNegocio.SelectedValueExist(IdSegNeg)
+
+                    End If
+                End If
+
+                If Not ErrorParametros Then
+                    TotalPadre = True
+                    CargaDatos()
+                End If
+
+            Else
+                Alert("La empresa no usa Contabilidad ni Armonización Contable", TipoMensaje.MsgError)
+            End If
+
+        End If
+    End Sub
+
+
+    Private Sub CargaSegmentosNegocio()
+        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim strGlobal As String = ""
+
+        If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
+            DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
+            DdlSegmentoNegocio.DataBind()
+        End If
+        ObjContpaq.Dispose()
+        DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSegmentoNegocio.SelectedValue = "-1"
+    End Sub
+
+
+    Private Sub CargaMoneda()
+        DdlMoneda.DataSource = GlobalDTMonedas
+        DdlMoneda.DataBind()
+
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+        IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero <> -2, DdlTipoCuentas.SelectedValue.ToEntero, HdnCveCuenta.Value.ToEntero)
+
+        CargaDatos()
+
+        ' Imprimir_click(sender, e)
+        RegistraScript("Enable();")
+    End Sub
+
+#Region "C A R G A - D A T O S"
+    Public Function WSCuentas() As String
+        Dim Str As New StringBuilder
+        Dim i As Integer = 0
+        Dim dt As DataTable = DTCuentas
+
+
+        If dt IsNot Nothing Then
+            For Each dr As DataRow In dt.Rows
+                i += 1
+                Str.AppendFormat("{{value:""{0}"",label:""{1}""}}{2}", dr("Id"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""))
+            Next
+        End If
+
+        Return Str.ToString
+    End Function
+    Private Sub CargaTipoCuentas()
+        Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim strGlobal As String = ""
+
+        If ObjTipoCuenta.GetCuentas(-1, "-1", -1) Then
+            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            DTCuentas = ObjTipoCuenta.DtResultados
+            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+        End If
+        ObjTipoCuenta.Dispose()
+        DdlTipoCuentas.DataBind()
+        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
+        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
+        DdlTipoCuentas.SelectedIndex = 0
+
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa, 60)
+
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+            'DtTotales = DtDatos.Clone
+            DtDatos = ObjConta.DtResultados
+            CargaGrid()
+
+
+            'InsertaTotales()
+        Else
+            DtDatos = Nothing
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+#End Region
+
+    Private Sub InsertaTotales()
+        Dim i = 0
+        Dim Aumento = 0
+        Dim Row As DataRow
+        Dim Row2 As DataRow
+
+        'Llena DtTotales
+        For Each dr As DataRow In DtDatos.Rows
+            If dr("Fecha").ToString = "" Then
+
+                Row = DtTotales.NewRow
+
+                Row("ID") = -1
+                Row("CargosMovto") = If(DdlMoneda.SelectedValue = "1", dr("Cargos"), dr("CargosME"))
+                Row("AbonosMovto") = If(DdlMoneda.SelectedValue = "1", dr("Abonos"), dr("AbonosME"))
+                Row("Saldo") = dr("SaldoActual")
+                Row("CtaMayor") = dr("CtaMayor")
+                Row("Concepto") = String.Format("Total {0}:", dr("Nombre"))
+                Row("Nombre") = dr("Nombre")
+                DtTotales.Rows.Add(Row)
+                Row("Clasificacion") = i
+            End If
+
+            i += 1
+        Next
+
+        'Inserta Totales en DtDatos
+        For Each dr As DataRow In DtTotales.Rows
+            i = 0
+
+            If dr("CtaMayor").ToString = "1" Then
+                DtDatos.ImportRow(dr)
+            End If
+
+            If dr("CtaMayor").ToString = "2" Then
+                For index = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
+                    If DtDatos.Rows(index)("Nombre").ToString <> dr("Nombre").ToString Then
+                        i = index
+                        Exit For
+                    End If
+                Next
+
+                Row2 = DtDatos.NewRow
+                Row2.ItemArray = dr.ItemArray
+
+                DtDatos.Rows.InsertAt(Row2, i + Aumento)
+                Aumento += 1
+            End If
+
+        Next
+
+    End Sub
+
+
+#Region "G R I D - GV DATOS"
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("Fecha") = "" Then
+                e.Row.ControlStyle.Font.Bold = True
+                e.Row.ControlStyle.Height = 35
+
+                'Cuando es Titulo
+                If e.Row.DBCampo("SaldoActual") = "" Then
+                    CType(e.Row.FindControl("tr2"), HtmlTableRow).Visible = False
+
+
+                    'Cuando Es Total
+                Else
+                    CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
+
+                    'Anterior para TotalPadre
+                    'If e.Row.DBCampo("CtaMayor").ToString = "2" And (e.Row.DBCampo("Nivel3").ToString <> "" Xor e.Row.DBCampo("Orden").ToString.Length = 18) Then
+                    '    e.Row.FCLabel("LbReferencia").Text = "Total:"
+                    'Else
+                    '    e.Row.FCLabel("LbConcepto").Text = String.Format("Total {0}:", e.Row.DBCampo("Nombre").ToString)
+                    'End If
+
+                    If TotalPadre Then
+                        CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells.Remove(CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3))
+                        CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Align = "Right"
+                        CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "400px"
+                        If e.Row.RowIndex + 1 = DtDatos.Rows.Count Then
+                            CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(4).Attributes.Add("style", "border-top: 1px solid black;")
+                            CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(5).Attributes.Add("style", "border-top: 1px solid black;")
+                            CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(6).Attributes.Add("style", "border-top: 1px solid black;")
+                        End If
+                        e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", e.Row.DBCampo("Nombre").ToString)
+
+
+                    Else
+                        TotalPadre = True
+                        e.Row.FCLabel("LbReferencia").Font.Bold = False
+                        e.Row.FCLabel("LbReferencia").Text = "Total:"
+                        CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(4).Align = "Right"
+                    End If
+
+                    'e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", If(e.Row.DBCampo("CtaMayor").ToString = "2", "", e.Row.DBCampo("Nombre").ToString))
+                    e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                    e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                    e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("SaldoActual").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                End If
+
+            Else
+                TotalPadre = False
+                e.Row.Width = 200
+                e.Row.ControlStyle.Font.Bold = False
+                CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
+                e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
+
+                If e.Row.DBCampo("CargosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("CargosMovto").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                If e.Row.DBCampo("AbonosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("AbonosMovto").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+                If e.Row.DBCampo("Saldo").ToDouble <> 0 Then e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("Saldo").ToString.FormatoNumero(If(DdlMoneda.SelectedValue = "1", 2, 4))
+
+            End If
+
+
+            'COLOREA NEGATIVOS
+            If e.Row.FCLabel("LbCargos").Text.ToDouble < 0 Then
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+            Else
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Black
+            End If
+
+            If e.Row.FCLabel("LbAbonos").Text.ToDouble < 0 Then
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+            Else
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Black
+            End If
+
+            If e.Row.FCLabel("LbSaldo").Text.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldo").ForeColor = Drawing.Color.Red
+            Else
+                e.Row.FCLabel("LbSaldo").ForeColor = Drawing.Color.Black
+            End If
+
+            If e.Row.FCLabel("LbSaldoInicial").Text.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+            Else
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Black
+            End If
+
+        End If
+    End Sub
+
+#End Region
+
+    Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
+        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
+            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+        Else
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero <> -1, DdlTipoCuentas.SelectedValue.ToEntero, HdnCveCuenta.Value.ToEntero)
+
+            'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+            'If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin) Then
+            'DtDatos = ObjConta.DtResultados
+            DtDatos = DtDatos
+            If Not IsNothing(DtDatos) Then
+                ImprimirReporte()
+            Else
+                Alert("No se encontró información para el reporte", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+    End Sub
+
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12) Then
+            GvDatos.ExportToExcel("MovimientosAuxiliares")
+        Else
+            If Not IsNothing(DtDatos) Then
+                ImprimirReporte("Excel")
+            Else
+                Alert("No se encontró información para el reporte", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+    End Sub
+
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+        params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue))
+        ImprimirPDF("Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
+    End Sub
+
+End Class

Contabilidad/RepOrigenAplicacion.aspx

@@ -1,16 +1,6 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOrigenAplicacion.aspx.vb" Inherits="Contabilidad_RepOrigenAplicacion" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOrigenAplicacion.aspx.vb" Inherits="Contabilidad2_RepOrigenAplicacion" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-        <asp:UpdatePanel runat="server" ID="UpAcciones">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton runat="server" ID="LnkExcel" data-toggle="tooltip" OnClick="LnkExcel_Click" data-placement="left" title="Excel" Text="<i class='fa fa-file-excel-o'></i> Excel" Visible="false"></asp:LinkButton>
-            </li>
-        </ContentTemplate>
-            <Triggers>
-                <asp:PostBackTrigger ControlID="LnkExcel" />
-            </Triggers>
-    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -76,9 +66,9 @@
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
-                <div class="portlet-title portlet-filterT smalltitl magindate">
+                <div class="portlet-title portlet-filterT smalltitle magindate">
-                    <div class="tools" style="margin-top:5px">
+                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" Text="Consultar" runat="server" OnClick="BtnConsultar_Click" />
+                        <asp:Button ID="BtnConsultar" Text="Consultar" runat="server" OnClick="BtnConsultar_Click" />
                     </div>
                     <div class="titlefiltros  caption ">
                         <ul class="list-inline text-size-12">
@@ -88,7 +78,7 @@
                                         <td>Fecha Inicio:</td>
                                         <td>
                                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 93px !important; padding: 0px;">
-                                                <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="25px"></asp:TextBox>
+                                                <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
                                                 <span class="input-group-btn ">
                                                     <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
                                                 </span>
@@ -105,7 +95,7 @@
                                         <td>Fecha Fin:</td>
                                         <td>
                                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 94px !important; padding: 0px;">
-                                                <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="25px"></asp:TextBox>
+                                                <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
                                                 <span class="input-group-btn ">
                                                     <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
                                                 </span>
@@ -116,37 +106,46 @@
                                     </tr>
                                 </table>
                             </li>
-                            <li style="margin-right: 30px" runat="server" id="TdEjercicio" visible="false">
+                            <li style="margin-right: 30px" runat="server" id="TdEjercicio" visible="true" class="col-md-1">
+<%--                            <label class="col-md-1" style="width: 60px;">Ejercicio:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="DdlEjercicio" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm" runat="server" Width="70px">
+
+                                </asp:DropDownList>
+                            </div>--%>
                                 <table>
                                     <tr>
                                         <td>Ejercicio:</td>
                                         <td>
-                                            <div class="input-group input-sm input-small date date-picker " style="width: 94px !important; padding: 0px;">
+                                    <asp:DropDownList ID="DdlEjercicio" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm" runat="server" Width="100px" Visible="true" >
-                                            <asp:DropDownList ID="DdlEjercicio" runat="server" Width="100px" Height="25px">
+
-                                                <asp:ListItem Text="2010" Value="2010"></asp:ListItem>
+                                    </asp:DropDownList>
-                                                <asp:ListItem Text="2011" Value="2011"></asp:ListItem>
+
-                                                <asp:ListItem Text="2012" Value="2012"></asp:ListItem>
+
-                                                <asp:ListItem Text="2013" Value="2013"></asp:ListItem>
+<%--                                            <asp:DropDownList ID="DdlEjercicio1" runat="server" Width="100px">
-                                                <asp:ListItem Text="2014" Value="2014"></asp:ListItem>
+                                            </asp:DropDownList>--%>
-                                                <asp:ListItem Text="2015" Value="2015"></asp:ListItem>
-                                            </asp:DropDownList>
-                                            </div>
                                         </td>
                                     </tr>
                                 </table>
                             </li>
-                            <li style="margin-right: 30px" runat="server" id="tdTipoReporte" visible="false">
+                            <li>
+                            <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
+                            <div class="col-md-7 ">
+                                <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </li>
+                            <li style="margin-right: 30px" runat="server" id="tdTipoReporte" visible="true">
                                 <table>
                                     <tr>
                                         <td>Tipo:</td>
                                         <td>
-                                            <div class="input-group input-sm input-small date date-picker " style="width: 94px !important; padding: 0px;">
+                                            <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="100px">
-                                            <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="120px" Height="25px">
                                                 <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
-                                                <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                                <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
-                                                <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                                                <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
                                             </asp:DropDownList>
-                                            </div>
                                         </td>
                                     </tr>
                                 </table>
@@ -156,13 +155,11 @@
                                     <tr>
                                         <td>SubTotales:</td>
                                         <td>
-                                            <div class="input-group input-sm input-small date date-picker " style="width: 94px !important; padding: 0px;">
+                                            <asp:DropDownList ID="DdlSubtotales" runat="server" Width="100px">
-                                            <asp:DropDownList ID="DdlSubtotales" runat="server" Width="120px" Height="25px">
                                                 <asp:ListItem Text="Sin Subtotales" Value="1"></asp:ListItem>
                                                 <asp:ListItem Text="Trimestral" Value="2"></asp:ListItem>
                                                 <asp:ListItem Text="Cuatrimestral" Value="3"></asp:ListItem>
                                             </asp:DropDownList>
-                                            </div>
                                         </td>
                                     </tr>
                                 </table>
@@ -235,9 +232,7 @@
                         <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
 
-
+                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None">
-
-                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta"> 
                                     <Columns>
                                         <asp:TemplateField HeaderText="Concepto">
                                             <ItemTemplate>
@@ -245,22 +240,6 @@
                                             </ItemTemplate>
                                             <ItemStyle Width="400" HorizontalAlign="Left" />
                                         </asp:TemplateField>
-
-                                         <asp:TemplateField HeaderText="" Visible="false">
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HLlImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="100" HorizontalAlign="Right" />
-                                        </asp:TemplateField>
-
-                                         <asp:TemplateField HeaderText="" Visible="false">
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HLImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"  ></asp:HyperLink>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="100" HorizontalAlign="Right" />
-                                        </asp:TemplateField>
-
-
                                         <asp:TemplateField HeaderText="Origen">
                                             <ItemTemplate>
                                                 <asp:HyperLink ID="HLOrigen" runat="server" Text='<%# Eval("Origen", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -277,52 +256,6 @@
                                     <RowStyle CssClass="Texto" />
                                 </asp:GridView>
 
-
-
-                                 <asp:GridView ID="GvOrigenAplicacionSIG" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta" Visible="false"> 
-                                    <Columns>
-                                        <asp:TemplateField HeaderText="Concepto">
-                                            <ItemTemplate>
-                                                <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="400" HorizontalAlign="Left" />
-                                        </asp:TemplateField>
-
-                                         <asp:TemplateField HeaderText="" Visible="false">
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HLlImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="100" HorizontalAlign="Right" />
-                                        </asp:TemplateField>
-
-                                         <asp:TemplateField HeaderText="" Visible="false">
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HLImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"  ></asp:HyperLink>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="100" HorizontalAlign="Right" />
-                                        </asp:TemplateField>
-
-
-                                        <asp:TemplateField HeaderText="Origen">
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HLOrigen" runat="server" Text='<%# Eval("Origen", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="100" HorizontalAlign="Right" />
-                                        </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Aplicación">
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HLAplicacion" runat="server" Text='<%# Eval("Aplicacion", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="100" HorizontalAlign="Right" />
-                                        </asp:TemplateField>
-                                    </Columns>
-                                    <RowStyle CssClass="Texto" />
-                                </asp:GridView>
-
-
-
-
-
                             </ContentTemplate>
                         </asp:UpdatePanel>
 

Contabilidad/RepOrigenAplicacion.aspx.vb

@@ -4,7 +4,7 @@ Option Strict On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Partial Class Contabilidad_RepOrigenAplicacion
+Partial Class Contabilidad2_RepOrigenAplicacion
     Inherits ClsPaginas
 
 
@@ -64,12 +64,12 @@ Partial Class Contabilidad_RepOrigenAplicacion
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            If UsuarioActual.Empresa.UsaAC Then
+            'If UsuarioActual.Empresa.UsaAC Then
-                TipoReporte = -1
+            '    TipoReporte = -1
-            Else
+            'Else
-                TipoReporte = 1
+            TipoReporte = 1
-                tdTipoReporte.Visible = True
+            tdTipoReporte.Visible = True
-            End If
+            'End If
 
             'Normal
             TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
@@ -77,23 +77,20 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
             'Anual
             Anos = 0
+            Dim ClsConta As New ClsContabilidad
+            If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+                DdlEjercicio.DataSource = ClsConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataBind()
+
             DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
             TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
 
-
-            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
-                TabMensual.Visible = False
-                TabAnual.Visible = False
-                TdFI.Visible = False
-                tdTipoReporte.Visible = False
-
-                GvOrigenAplicacionSIG.Visible = True
-                GvDatos.Visible = False
-
-            End If
-
         End If
     End Sub
 
@@ -152,63 +149,32 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
 #Region "   NORMAL   "
     Private Sub CargaDatos()
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
 
+        '        Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), Anio)
+        '       Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
 
-        LnkExcel.Visible = False
+        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
-
+        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
-
+        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
-
+        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
-
-        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
-            Dim AnioActual As Integer = TxtFechaAl.Text.ToDate.Year
-            Dim AnioAnteior As Integer = AnioActual - 1
-
-
-            GvOrigenAplicacionSIG.Columns(1).Visible = True
-            GvOrigenAplicacionSIG.Columns(2).Visible = True
-
-            GvOrigenAplicacionSIG.Columns(1).HeaderText = AnioAnteior.ToString
-            GvOrigenAplicacionSIG.Columns(2).HeaderText = AnioActual.ToString
-
-            Dim ObjConta As New ClsContabilidad
-            'GvOrigenAplicacionSIG
-            If ObjConta.GetRepOrigenAplicacion(TxtFechaAl.Text.ToDate, UsuarioActual.CveEmpresa) Then
-                GvOrigenAplicacionSIG.DataSource = ObjConta.DtResultados
-
-                If ObjConta.DtResultados.Rows.Count > 0 Then
-                    LnkExcel.Visible = True
-                End If
-            Else
-                GvOrigenAplicacionSIG.DataSource = Nothing
-            End If
-            ObjConta.Dispose()
-            GvOrigenAplicacionSIG.DataBind()
 
+        Dim FechaI = String.Format("{0}/{1}/{2}", FechaInicio.Day, FechaInicio.Month, FechaInicio.Year)
+        Dim FechaF = String.Format("{0}/{1}/{2}", FechaFin.Day, FechaFin.Month, FechaFin.Year)
 
+        If ObjConta.GetOrigenAplicacion(FechaI, FechaF, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+            DtDatos = ObjConta.DtResultados
         Else
-
+            DtDatos = Nothing
-            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            Alert("Ocurrio un error al cargar los datos de origen y aplicación", TipoMensaje.MsgError)
-
-            Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
-            Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
-
-            If ObjConta.GetOrigenAplicacion(FechaInicio, FechaFin) Then
-                DtDatos = ObjConta.DtResultados
-
-
-            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
+        ObjConta.Dispose()
 
+
+        If DtDatos IsNot Nothing Then
+            CargaGrid()
+        End If
     End Sub
 
     Private Sub CargaGrid()
@@ -220,15 +186,15 @@ Partial Class Contabilidad_RepOrigenAplicacion
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            'Titulo y Sumatoria de cambios
+            ''Titulo y Sumatoria de cambios
-            If e.Row.DBCampo("Orden3").ToString.ToEntero = 10 Or e.Row.DBCampo("Orden3").ToString.ToEntero = 30 Then
+            'If e.Row.DBCampo("Orden3").ToString.ToEntero = 10 Or e.Row.DBCampo("Orden3").ToString.ToEntero = 30 Then
-                e.Row.FCLabel("LbNombre").Font.Bold = True
+            '    e.Row.FCLabel("LbNombre").Font.Bold = True
-            End If
+            'End If
 
-            'CUENTAS
+            ''CUENTAS
-            If e.Row.DBCampo("Orden3").ToString.ToEntero = 20 Then
+            'If e.Row.DBCampo("Orden3").ToString.ToEntero = 20 Then
-                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
+            '    e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
-            End If
+            'End If
 
             'TOTAL
             If e.Row.DBCampo("Nombre").ToString.Trim = "" Then
@@ -240,62 +206,17 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
         End If
     End Sub
-
-
-    Protected Sub GvOrigenAplicacionSIG_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOrigenAplicacionSIG.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            'Titulo y Sumatoria de cambios
-            If e.Row.DBCampo("Orden3").ToString.ToEntero = 10 Or e.Row.DBCampo("Orden3").ToString.ToEntero = 30 Then
-                e.Row.FCLabel("LbNombre").Font.Bold = True
-            End If
-
-            'CUENTAS
-            If e.Row.DBCampo("Orden3").ToString.ToEntero = 20 Then
-                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
-            End If
-
-            'TOTAL
-            If e.Row.DBCampo("Nombre").ToString.Trim = "" Then
-                e.Row.Attributes.Add("style", "border-top: 1px solid; margin-top:10px;")
-                e.Row.FCLabel("LbNombre").Font.Bold = True
-                e.Row.FCLabel("LbNombre").Font.Italic = True
-                e.Row.FCLabel("LbNombre").Text = "TOTAL"
-            End If
-
-
-            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
-                'Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta=55274&FF=31/12/2021
-                Dim FechaFinBase As Date = New Date(TxtFechaAl.Text.ToDate.Year - 1, 12, 31)
-
-                If e.Row.DataKey("CveCuenta").ToEntero > 0 Then
-                    e.Row.FCHyperLink("HLlImporteBase").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={FechaFinBase.ToString("dd/MM/yyyy")}"
-                    e.Row.FCHyperLink("HLImporteActual").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
-                    e.Row.FCHyperLink("HLOrigen").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
-                    e.Row.FCHyperLink("HLAplicacion").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
-                End If
-
-            End If
-
-        End If
-    End Sub
-
-
-
-
-
-
 #End Region
 
 
 #Region "   MENSUAL   "
     Private Sub CargaDatosMensual()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        ''Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
 
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
-
+        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
-        If ObjConta.GetOrigenAplicacionMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then
+        If ObjConta.GetOrigenAplicacionMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatosMensual = ObjConta.DtResultados
         Else
             DtDatosMensual = Nothing
@@ -370,11 +291,14 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
 #Region "   ANUAL   "
     Private Sub CargaDatosAnual()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
 
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
 
-        If ObjConta.GetOrigenAplicacionAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then
+        If ObjConta.GetOrigenAplicacionAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatosAnual = ObjConta.DtResultados
         Else
             DtDatosAnual = Nothing
@@ -382,7 +306,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
         End If
         ObjConta.Dispose()
 
-        Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
+
 
         If DtDatosAnual IsNot Nothing Then
             CargaGridAnual()
@@ -433,7 +357,4 @@ Partial Class Contabilidad_RepOrigenAplicacion
 #End Region
 
 
-    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs)
-        GvDatos.ExportToExcel2("RepOrigenAplicacion.xlsx")
-    End Sub
 End Class

Contabilidad/RepSituacionFinanciera.aspx.vb_old

@@ -487,8 +487,8 @@ Partial Class AC2_SituacionFinanciera
                 e.Row.FCLabel("LbNombre").Font.Bold = True
                 e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -519,8 +519,8 @@ Partial Class AC2_SituacionFinanciera
                 e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
                 'Cuentas
             Else
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
 
@@ -553,8 +553,8 @@ Partial Class AC2_SituacionFinanciera
                 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 'e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CveCuenta") <> "55276" Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then

Contabilidad/RepSituacionFinancieraSAT.aspx.vb.exclude

@@ -485,8 +485,8 @@ Partial Class AC2_SituacionFinanciera
                 e.Row.FCLabel("LbNombre").Font.Bold = True
                 e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
             Else
-                ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
+                ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte)
-                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
+                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -517,8 +517,8 @@ Partial Class AC2_SituacionFinanciera
                 e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
                 'Cuentas
             Else
-                'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
 
@@ -551,8 +551,8 @@ Partial Class AC2_SituacionFinanciera
                 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 'e.Row.ControlStyle.Font.Bold = True
             Else
-                ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
+                ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString)
-                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
+                ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then