diff --git a/AC/CatPresupuestoEgresos.aspx.vb b/AC/CatPresupuestoEgresos.aspx.vb
index 8a12fe595..7f3ada4ab 100644
--- a/AC/CatPresupuestoEgresos.aspx.vb
+++ b/AC/CatPresupuestoEgresos.aspx.vb
@@ -100,10 +100,17 @@ Partial Class AC_CatPresupuestoEgresos
 
                 Else
                     'si es anteproyecto
-                    If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then
-                        'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual
-                        BtnPresupuesto.Visible = True
-                    End If
+                    Dim Bloqueado As Boolean = True
+                    For Each dbRow As DataRow In DtPresupuestoEgresos.Rows
+                        If dbRow("Bloqueado").ToString() = "0" Then Bloqueado = False
+                    Next
+
+                    BtnPresupuesto.Visible = True
+
+                    'If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then
+                    '    'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual
+                    '    BtnPresupuesto.Visible = True
+                    'End If
                     '                If Ejercicio = UsuarioActual.Empresa.EjercicioActual Then
                 End If
 
diff --git a/AC/PresupuestoEgresos.aspx.vb b/AC/PresupuestoEgresos.aspx.vb
index 32ed41325..7ccb57d04 100644
--- a/AC/PresupuestoEgresos.aspx.vb
+++ b/AC/PresupuestoEgresos.aspx.vb
@@ -202,7 +202,7 @@ Partial Class AC_PresupuestoEgresos2
         'Valida Ejercicio
         If objAC.GetEjerciciosPresupuestoEgresos(UsuarioActual.CveEmpresa) AndAlso objAC.DtResultados.Rows.Count > -1 Then
             Dim DtEjercicios = objAC.DtResultados.FiltraParametros(String.Format("Ejercicio = {0}", DdlEjercicio.SelectedValue))
-            If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" AndAlso txtTotal.Text.ToDecimal > 0 Then
+            If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" Then
                 Alert("El Presupuesto de Egresos del ejercicio seleccionado ya esta bloqueado, solo puede generar Presupuestos en ceros.", TipoMensaje.MsgAdvertencia)
                 objAC.Dispose()
                 Exit Sub
@@ -234,6 +234,10 @@ Partial Class AC_PresupuestoEgresos2
         Dim CveUnidadAdministrativa As Integer = CboUnidadAdministrativa.SelectedValue.ToString.ToEntero
         Dim CveClasificacionOG As Integer = CboClasificacionOG.SelectedValue.ToString.ToEntero
 
+        'If txtTotal.Text.ToDecimal > 0 Then
+        '    Alert("El Presupuesto de Egresos del ejercicio seleccionado se generaro proyecto. Después de este proceso se tendrá que autorizar el presupuesto de esta partida.", TipoMensaje.MsgAdvertencia)
+        'Else
+
         If CvePresupuestoEgresos = 0 Then
             If objAC.AddPresupuestoEgresos(DdlEjercicio.SelectedValue.ToEntero, CveProgramaOperativo, CveFuenteFinanciamiento, CveTipoGasto, CveUnidadAdministrativa, CveClasificacionOG, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
                 Alert("El Presupuesto de Egreso se guardo Correctamente como Anteproyecto", TipoMensaje.MsgInformacion) '"document.location.href=""/AC/CatPresupuestoEgresos.aspx"""
diff --git a/AC/RegEgresosModificaciones.aspx b/AC/RegEgresosModificaciones.aspx
index 92445fc60..67f0dab0e 100644
--- a/AC/RegEgresosModificaciones.aspx
+++ b/AC/RegEgresosModificaciones.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegEgresosModificaciones.aspx.vb" Inherits="AC_RegPEAmpRed" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" EnableEventValidation="true" CodeFile="RegEgresosModificaciones.aspx.vb" Inherits="AC_RegPEAmpRed" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -235,7 +235,7 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar">
         <ContentTemplate>
             <div id="DivAddPE" class="modal fade" role="dialog">
                 <div class="modal-dialog">
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index d394db9b6..1cfd182a5 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -212,6 +212,8 @@ Public Class ClsContabilidad
 
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex.Message.Contains("CK_Conta_PrePolizas_Concepto") Then
+                OnError("Ocurrio un error al registrar la póliza, el concepto o descripción no puede ir vacio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If
@@ -2681,7 +2683,10 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer,
+                                                       IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                                       CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1,
+                                                       Optional PorcentajeImpuesto As Decimal = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PlantillasPolizasDetalleAdd")
@@ -2697,6 +2702,7 @@ Public Class ClsContabilidad
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
         End With
 
         Try
@@ -2713,7 +2719,9 @@ Public Class ClsContabilidad
         End Try
         Return Retorno
     End Function
-    Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer,
+                                                         CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer,
+                                                         Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean
         Dim retorno As Boolean = False
 
         DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate")
@@ -2727,6 +2735,7 @@ Public Class ClsContabilidad
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
         End With
 
         Try
@@ -3732,6 +3741,126 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+
+    Public Function GetSituacionFinanciera2(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+
+        Dim Retorno = False
+
+        'SqlAdapter.SelectCommand.t
+
+        DataAdapter("PA_Conta2_SituacionFinancieraGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+        End With
+
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Estado de Situaci?n de Financiera", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetSituacionFinancieraMensuallHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+        Dim Retorno = False
+
+        'SqlAdapter.SelectCommand.t
+
+        DataAdapter("PA_Conta2_SituacionFinancieraMensualHorizontalGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener la situacion financiera mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetSituacionFinancieraAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+        Dim Retorno = False
+
+        'SqlAdapter.SelectCommand.t
+
+        DataAdapter("PA_Conta2_SituacionFinancieraAnualHorizontalGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+        End With
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener la situacion financiera anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetSituacionFinancieraSubProyectolHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+        Dim Retorno = False
+
+        'SqlAdapter.SelectCommand.t
+
+        DataAdapter("PA_Conta2_SituacionFinancieraSubproyectoHorizontalGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(DSet)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener la situacion financiera por Sub Proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 00a12c0b7..fcd8bcd3f 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1272,7 +1272,7 @@ Public Class ClsInventarios
             .Add("@CveUM", SqlDbType.Int).Value = CveUM
             .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
             .Add("@PU", SqlDbType.Decimal).Value = PU
-            .Add("@PUTC", SqlDbType.Money).Value = PUTC
+            .Add("@PUTC", SqlDbType.Decimal).Value = PUTC
             .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveAF", SqlDbType.Int).Value = CveAF
diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 7b6bf94c7..4404872e7 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -1416,7 +1416,7 @@ Public Class ClsOIEventos
         Return Retorno
     End Function
 
-    Public Function UpdateCircular(CveCircular As Integer, Asunto As String, Circular As String, CorreosInternos As String, CorreosExternos As String, CveUsuario As Integer) As Boolean
+    Public Function UpdateCircular(CveCircular As Integer, Asunto As String, Circular As String, CorreosInternos As String, CorreosExternos As String, Optional Adjunto As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1428,8 +1428,7 @@ Public Class ClsOIEventos
             .Add("@Circular", SqlDbType.VarChar).Value = Circular
             .Add("@CorreosInternos", SqlDbType.VarChar).Value = CorreosInternos
             .Add("@CorreosExternos", SqlDbType.VarChar).Value = CorreosExternos
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
         End With
 
         Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index c8d07a432..f2783bffd 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4811,6 +4811,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/Compras/RepCxPCaudillo.aspx".ToUpper(), -1)
 
             PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Contabilidad2/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
+
+
 
             'ECOMMERCE
             PaginaDict.Add("/Ecommerce/Insignias.aspx".ToUpper(), 7002)
@@ -5161,7 +5164,11 @@ Public Class ClsPaginas
         Dim ds As New DataSet
         For Each rpds As ReportDataSource In DataSource
             Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable)
-            dt = dt.Copy()
+            If dt Is Nothing Then
+                dt = New DataTable
+            Else
+                dt = dt.Copy()
+            End If
             dt.TableName = rpds.Name
             ds.Tables.Add(dt)
         Next
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 46f49aa46..a9e28e571 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -600,12 +600,13 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateVentaPrePoliza(IDPoliza As Integer, CvePrePoliza As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
+    Public Function UpdateVentaPrePoliza(IDPoliza As Integer, FolioPoliza As Integer, CvePrePoliza As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentaPrePolizaUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@IDPoliza", SqlDbType.Int).Value = IDPoliza
+            .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index fe34cf4be..6b853e4f4 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -128,6 +128,10 @@ Namespace Modelos
         Public Property Tick As DateTime
     End Class
 
+    Public Class RetornoPolizaConta
+        Public Property IdPoliza As Integer = -1
+        Public Property FolioPoliza As Integer = -1
+    End Class
     Public Class OrdenCompra
         Public Sub New()
             CveOrdenCompra = -1
@@ -3748,11 +3752,11 @@ Namespace Modelos
                 If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
                     'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
-                    Dim IDPoliza As Integer = GenerarPolizaAC(factura, ObjAC)
+                    Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(factura, ObjAC)
 
-                    If IDPoliza > 0 Then
+                    If IDPoliza.IdPoliza > 0 Then
 
-                        If ObjVentas.UpdateVentaPrePoliza(IDPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then
+                        If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then
 
                             'Si se facturó la cotización hay que vincular la venta
                             Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
@@ -4636,7 +4640,8 @@ Namespace Modelos
                     'POLIZA DE CANCELACION
                     If Not ErrorCancelar Then
                         If UsuarioActual.Empresa.UsaAC Then
-                            IDPoliza = GenerarPolizaAC(ObjFactura, ObjAC, True)
+                            Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjFactura, ObjAC, True)
+                            IDPoliza = Pol.IdPoliza
                             If IDPoliza <= 0 Then
                                 ErrorCancelar = True
                                 MensajeError = "Ocurrió un error al generar la poliza de cancelación."
@@ -5108,7 +5113,9 @@ Namespace Modelos
                 If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
                     'falta verificar traer el acuse y reenviarlo 
                     If UsuarioActual.Empresa.UsaAC Then
-                        IDPoliza = GenerarPolizaAC(Me, ObjAC, True)
+                        Dim Pol As Modelos.RetornoPolizaConta = GenerarPolizaAC(Me, ObjAC, True)
+                        IDPoliza = Pol.IdPoliza
+
                         If IDPoliza <= 0 Then
                             Mensaje = "No se pudo generar la poliza"
                             ErrorCancelar = True
@@ -5144,8 +5151,11 @@ Namespace Modelos
 
             Return ProcesoCorrecto
         End Function
-        Private Function GenerarPolizaAC(ObjFactura As Modelos.Factura, ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer
-            Dim Retorno As Integer = 0
+
+
+
+        Private Function GenerarPolizaAC(ObjFactura As Modelos.Factura, ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta
+            Dim Retorno As New RetornoPolizaConta
             Dim IDPoliza As Integer = 0
 
             Dim ErrorAC As Boolean = False
@@ -5172,7 +5182,8 @@ Namespace Modelos
 
 
             If IDPoliza > 0 Then
-
+                Retorno.IdPoliza = IDPoliza
+                Retorno.FolioPoliza = ObjAC.Folio
                 'Orden de PAGO 
                 If ObjFactura.TipoDocto = "OP" Then
                     'ORDEN DE PAGO
@@ -5239,9 +5250,9 @@ Namespace Modelos
             If Not ErrorAC Then
                 ObjAC.AjustaPoliza(IDPoliza)
 
-                Retorno = IDPoliza
+                ' Retorno = IDPoliza
             Else
-                Retorno = -1
+                'Retorno = -1
                 'Alert("Error al Agregar la Póliza de AC.", TipoMensaje.MsgError)
             End If
 
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index 451c90e33..bebd16b8c 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -370,8 +370,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
         }
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransanccion.SelectedValue == "1"))
-            FolioFijo = TxtFolio.Text.ToEntero();
+        if ( DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero();
         CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  Devoluciones", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransanccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccion.SelectedValue, "-1", UsuarioActual.CveEmpresa));
 
         if (CvePrePoliza > 0)
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index 874e91841..535b52b64 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -299,8 +299,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
         AsignaCuentaProveedor(DdlProveedores.SelectedValue.ToEntero());
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransaccion.SelectedValue == "1"))
-            FolioFijo = TxtFolio.Text.ToEntero();
+        if ( DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero();
+
         CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa));
 
         if (CvePrePoliza > 0)
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index e2d5b27ef..0a066a52f 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -339,9 +339,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
         }
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransaccionPrestamo.SelectedValue == "1"))
-            FolioFijo = TxtFolioPrestamo.Text.ToEntero();
-        CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  PRESTAMO DEUDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMonedaPrestamo, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa));
+        if (DdlTipoTransaccionPrestamo.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolioPrestamo.Text.ToEntero();
+        CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PRESTAMO DEUDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMonedaPrestamo, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa));
 
         if (CvePrePoliza > 0)
         {
@@ -674,8 +673,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas
         }
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransaccion.SelectedValue == "1"))
-            FolioFijo = TxtFolio.Text.ToEntero();
+        if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero();
+
         CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  PAGO DEUDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa));
 
         if (CvePrePoliza > 0)
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index 60cd167ef..fc10b964d 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -250,8 +250,8 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
         AsignaCuentaPersonal(DdlFuncionarioEmpleadoPago.SelectedValue.ToEntero(), CveMoneda);
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransaccion.SelectedValue == "1"))
-            FolioFijo = TxtFolio.Text.ToEntero();
+        if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero();
+
         CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlFuncionarioEmpleadoPago.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa));
 
         if (CvePrePoliza > 0)
@@ -539,9 +539,9 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
         AsignaCuentaPersonal(DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), CveMoneda);
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransanccionPrestamo.SelectedValue == "1"))
-            FolioFijo = TxtFolioPrestamo.Text.ToEntero();
-        CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  PRESTAMO PERSONAL", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMoneda, TxtFechaPrestamo.Text.ToDate(), DdlFuncionarioEmpleadoPrestamo.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa));
+        if (DdlTipoTransanccionPrestamo.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119 ) FolioFijo = TxtFolioPrestamo.Text.ToEntero();
+
+        CvePrePoliza = ObjMov.AddPrePolizas("Bancos/PRESTAMO PERSONAL", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMoneda, TxtFechaPrestamo.Text.ToDate(), DdlFuncionarioEmpleadoPrestamo.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa));
 
         if (CvePrePoliza > 0)
         {
diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb
index 00fb880dc..fccebada4 100644
--- a/Bancos/ProductosFinancieros.aspx.vb
+++ b/Bancos/ProductosFinancieros.aspx.vb
@@ -307,7 +307,7 @@ Partial Class Bancos_ProductosFinancieros
         Dim FolioPoliza As Integer = -1
         Dim CveIE As Integer = -1
 
-        CvePrePoliza = ObjMov.AddPrePolizas("ProductosFinancieros/Registrar", DdlTipoMovimiento.SelectedValue.ToEntero, Importe, Importe, CveMoneda, TxtFecha.Text.ToDate, TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        CvePrePoliza = ObjMov.AddPrePolizas("ProductosFinancieros/Registrar", DdlTipoMovimiento.SelectedValue.ToEntero, Importe, Importe, CveMoneda, TxtFecha.Text.ToDate, DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         If Not DdlTarjeta.Visible OrElse DdlTarjeta.SelectedValue.ToEntero < 1 Then
             CveIE = ObjBancos.AddBancos_IE(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtFolio.Text, "", Importe, CveMoneda, If(CveMoneda = 2, GlobalTipoCambio(TxtFecha.Text.Trim.ToDate).ToString.ToDouble, 0), TxtObservacion.Text.Trim, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         End If
@@ -366,7 +366,7 @@ Partial Class Bancos_ProductosFinancieros
                             idCuentaContabilizacion = 0
                         End If
 
-                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), TxtConcepto.Text, FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then
+                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then
                             ErrorTransaccion = True
                         End If
                     End If
@@ -405,7 +405,7 @@ Partial Class Bancos_ProductosFinancieros
             If DdlTipoMovimiento.SelectedValue = "15" Or DdlTipoMovimiento.SelectedValue = "17" Or DdlTipoMovimiento.SelectedValue = "50" Then
                 'PRESUPUESTO EGRESOS
                 IdPoliza = ObjContaAC.AddPoliza(3, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
-
+                FolioPoliza = ObjContaAC.Folio
                 If IdPoliza > 0 Then
                     FolioPoliza = ObjContaAC.Folio
                     Dim DtPresupuestosTemp As DataTable
@@ -493,7 +493,7 @@ Partial Class Bancos_ProductosFinancieros
             If DdlTipoMovimiento.SelectedValue = "16" Then
                 'PRESUPUESTO INGRESOS
                 IdPoliza = ObjContaAC.AddPoliza(1, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, Fecha)
-
+                FolioPoliza = ObjContaAC.Folio
                 If IdPoliza > 0 Then
                     FolioPoliza = ObjContaAC.Folio
                     Dim DtPresupuestosTemp As DataTable
diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx
index 59f188c36..16ad716a1 100644
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
@@ -358,7 +358,7 @@
     <asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" 
-                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto" 
+                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal" 
                 Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 7ed2ecc68..9bfc2c3e8 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -709,7 +709,7 @@ Partial Class Bancos_ProveedoresAbonar
 
 
 
-                        Valida.Verificar(gvr.DataKey("UUID"), gvr.DataKey("RFC"), UsuarioActual.Empresa.RFC, gvr.DataKey("Original").ToDecimal)
+                        Valida.Verificar(gvr.DataKey("UUID"), gvr.DataKey("RFC"), UsuarioActual.Empresa.RFC, gvr.DataKey("TotalOriginal").ToDecimal)
 
                         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa < 2 Then
                             Valida.EsValida = 1
diff --git a/Bancos/ProveedoresCreditos.aspx.vb b/Bancos/ProveedoresCreditos.aspx.vb
index 26580af8b..145376793 100644
--- a/Bancos/ProveedoresCreditos.aspx.vb
+++ b/Bancos/ProveedoresCreditos.aspx.vb
@@ -912,7 +912,7 @@ Partial Class Bancos_ProveedoresCreditos
             Dim tImporteMonedaExtranjera As Decimal = 0
             If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal
             'cheque
-            If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
+            If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = TxtFolio.Text.ToEntero
 
             CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProvCred", CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, TxtPagueseA.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 
diff --git a/CRM/CatEtapasProceso.aspx.cs b/CRM/CatEtapasProceso.aspx.cs
index cd11d8942..6bcb487ca 100644
--- a/CRM/CatEtapasProceso.aspx.cs
+++ b/CRM/CatEtapasProceso.aspx.cs
@@ -156,6 +156,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
         DdlTipoProceso.SelectedValueExist(-1);
 
         DdlTipoProceso.DataBind();
+        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlFiltroProceso.DataBind();
 
         UPFiltros.Update();
diff --git a/CRM/CatRechazoMotivo.aspx.cs b/CRM/CatRechazoMotivo.aspx.cs
index 7bcac024f..230664a97 100644
--- a/CRM/CatRechazoMotivo.aspx.cs
+++ b/CRM/CatRechazoMotivo.aspx.cs
@@ -95,6 +95,7 @@ public partial class CRM_CatRechazoMotivo : ClsPaginas
         }
         ObjCRM.Dispose();
         DdlTipoProceso.DataBind();
+        DdlTipoProceso.Items.Insert(0,new ListItem("Seleccione","-1"));
     }
 
     protected void limpiarCamposModal(string NombreRechazo = "")
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ad6fb43de..25b4c4132 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4335,7 +4335,7 @@ Partial Class Compras_Compras
             Try
                 Dim FolioFijo As Integer = 0
                 'cheque
-                 If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
+                If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
 
                 CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
 
@@ -6454,6 +6454,7 @@ Partial Class Compras_Compras
                                                                     Select Case ConceptoContabilizacion
                                                                         Case 176
                                                                             Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D
+                                                                            Dim SumatoriaInventario As Decimal = 0
                                                                             For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").Rows
                                                                                 If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count >= 1 Then
                                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}"
@@ -6467,6 +6468,7 @@ Partial Class Compras_Compras
                                                                                     If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
                                                                                         ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
                                                                                         CostoIndirectoAcum176 += ImporteCI176
+                                                                                        SumatoriaInventario += Importe228 + Importe229
                                                                                         'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
                                                                                         SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176)
                                                                                         If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then
@@ -6480,6 +6482,7 @@ Partial Class Compras_Compras
                                                                                         End If
                                                                                     Else
                                                                                         CostoIndirectoAcum176 += ImporteCI176
+                                                                                        SumatoriaInventario += Importe176
                                                                                         'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
                                                                                         SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
                                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then
@@ -6493,9 +6496,13 @@ Partial Class Compras_Compras
                                                                                     Exit For
                                                                                 End If
                                                                             Next
+
+                                                                            'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra
+                                                                            SumatoriaOCINV = SumatoriaInventario - TmpDT.SUMD("Total") 'sumatoria de la factura
                                                                             If SumatoriaOCINV.RoundSQL <> 0 Then
                                                                                 ' se abona el costo, cambiamos su naturaleza
-                                                                                SumatoriaOCINV = -SumatoriaOCINV
+                                                                                'SumatoriaOCINV = -SumatoriaOCINV
+
                                                                                 Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
                                                                                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
                                                                                 CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
@@ -7361,8 +7368,8 @@ Partial Class Compras_Compras
                                                     If ErrorPrepoliza Then
                                                         Exit For
                                                     End If
-
-                                                    If importeMovimiento <> 0 Or (ConceptoContable.Contiene(5, 305, 306, 311) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
+                                                    ', 305, 306, 311
+                                                    If importeMovimiento <> 0 Or (ConceptoContable.Contiene(5) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
                                                         'Conta ContPAQ
                                                         If IdCtaContable = 0 Then
                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
@@ -7384,7 +7391,7 @@ Partial Class Compras_Compras
                                                 Next
 
                                                 'EMPIEZA REFACTURACION
-                                                If CveCompraRefacturacion > 0 Then
+                                                If Not ErrorPrepoliza AndAlso CveCompraRefacturacion > 0 Then
                                                     ErrorBitacora = GuardaRefacturacion(ObjCompras, ObjEventos, CvePrePoliza)
                                                     If ErrorBitacora Then
                                                         Alert("Ocurrió un error al hacer la Refacturación", TipoMensaje.MsgError)
@@ -7392,13 +7399,13 @@ Partial Class Compras_Compras
                                                 End If
 
                                                 'Simplificacion de PrePolizas
-                                                If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                                                If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
                                                     If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                                                         ErrorPrepolizaDescuadre = True
                                                     End If
                                                 End If
 
-                                                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+                                                If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
                                                     If ObjConta.ValorPolizaDescuadre > 0 Then
                                                         GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                                         ErrorPrepolizaDescuadre = True
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index e66384a6e..131a8528e 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3572,7 +3572,7 @@ Partial Class PopUpVerFactura
 #Region "OP = 'CAN' - CANCELACION"
     Public Sub ImprimeCancelacion(CveVenta As Integer)
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
             Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
             Dim FolioFiscal = drv("FolioFiscal").ToString
             Dim SelloCancelacion = drv("SelloCancelacion").ToString
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx
index 6a946c6b3..c4351d6ed 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx
@@ -160,7 +160,7 @@
     
        <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePlantillaPolizaDetalle, TipoMovimiento, CveSubProyecto, CveProveedor, CvePersonal, CveConcepto, IdCtaContable, Orden" EmptyDataText="No se encontraron Plantilla de Pólizas Registradas" ToolTip="Listado de Plantilla de Pólizas" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePlantillaPolizaDetalle, TipoMovimiento, CveSubProyecto, CveProveedor, CvePersonal, CveConcepto, IdCtaContable, Orden,PorcentajeImpuesto" EmptyDataText="No se encontraron Plantilla de Pólizas Registradas" ToolTip="Listado de Plantilla de Pólizas" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="Concepto Contable">
                         <ItemTemplate>
@@ -283,7 +283,13 @@
                                      <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
                                 </div>
 
-
+                                 <div class="form-group form-md-line-input input-iconright">
+                                     <asp:DropDownList ID="DdlPorcentajeImpuesto" CssClass="form-control input-sm select2me js-referencia-programmatic" runat="server" Visible="false" AppendDataBoundItems="true" Width="240px" ValidationGroup="GrpAgregar">
+                                         <asp:ListItem Text="8%" Value="0.08"></asp:ListItem>
+                                         <asp:ListItem Text="16%" Value="0.16"></asp:ListItem>
+                                     </asp:DropDownList>
+                                     <label id="LblPorcentajeImpuesto" runat="server" for="<%= DdlPorcentajeImpuesto.ClientID.ToString()%>">Tasa:</label>
+                                </div>
                                  <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me js-referencia-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
                                      <label ID="LblPersonal" runat="server" for="<%= DdlPersonal.ClientID.ToString()%>">Personal:</label>
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index e778a21ea..282658576 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -158,6 +158,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
         DTDetalle.Columns.Add("IdCtaContable", GetType(Integer))
         DTDetalle.Columns.Add("Orden", GetType(String))
         DTDetalle.Columns.Add("Usuario", GetType(String))
+        DTDetalle.Columns.Add("PorcentajeImpuesto", GetType(Decimal))
     End Sub
 #End Region
 
@@ -172,7 +173,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                 CvePlantilla = ObjPlantillaPoliza.CvePlantillaPoliza
                 If DTDetalle.Rows.Count > 0 Then
                     For Each Row As DataRow In DTDetalle.Rows
-                        If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
+                        If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
                             ErrorPlantilla = True
                             Exit For
                         End If
@@ -228,7 +229,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         If HdnModalidad.Value = "I" Then
             If CvePlantillaPoliza > 0 Then
-                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
+                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
                     TxtOrden.Text = ""
                     updatatos()
                     Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
@@ -260,7 +261,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             If HdnID.Value.ToEntero <> -1 Then
                 If CvePlantillaPoliza > 0 Then
                     If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
-                                                                                     HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
+                                                                                     HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
                         Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
                         updatatos()
                     Else
@@ -352,6 +353,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             DdlPersonal.Visible = False
             LblPersonal.Visible = False
         End If
+        If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado
+            DdlPorcentajeImpuesto.Visible = True
+            LblPorcentajeImpuesto.Visible = True
+        Else
+            DdlPorcentajeImpuesto.Visible = False
+            LblPorcentajeImpuesto.Visible = False
+        End If
     End Sub
 
 
@@ -392,6 +400,15 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             DdlPersonal.Visible = False
             LblPersonal.Visible = False
         End If
+        If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado
+            DdlPorcentajeImpuesto.SelectedValueExist(GvRow.DataKey("PorcentajeImpuesto"))
+            DdlPorcentajeImpuesto.Visible = True
+            LblPorcentajeImpuesto.Visible = True
+        Else
+            DdlPorcentajeImpuesto.Visible = False
+            LblPorcentajeImpuesto.Visible = False
+        End If
+
         UpModal.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
         CargaDatos()
diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx
index 88e35e479..691ac28d4 100644
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -302,7 +302,7 @@
             </table>
 
             <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                     <Columns>
                         <asp:TemplateField>
                             <HeaderTemplate>Cuenta</HeaderTemplate>
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 5b8d34dd4..06f7207db 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -296,8 +296,8 @@ Partial Class ContabilidadC_RegPrePoliza
             .Add("Cuenta", Type.GetType("System.String"))
             .Add("Referencia", Type.GetType("System.String"))
             .Add("Concepto", Type.GetType("System.String"))
-            .Add("Cargo", Type.GetType("System.Double"))
-            .Add("Abono", Type.GetType("System.Double"))
+            .Add("Cargo", Type.GetType("System.Decimal"))
+            .Add("Abono", Type.GetType("System.Decimal"))
             .Add("TipoMovto", Type.GetType("System.Int32"))
             .Add("EsComodin", Type.GetType("System.Int32"))
             .Add("CveConcepto", Type.GetType("System.Int32"))
@@ -316,7 +316,8 @@ Partial Class ContabilidadC_RegPrePoliza
             .Add("IdCtaContable", Type.GetType("System.Int32"))
             .Add("CveOC", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
-            .Add("TC", Type.GetType("System.Double"))
+            .Add("TC", Type.GetType("System.Decimal"))
+            .Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
         End With
     End Sub
 
@@ -714,7 +715,8 @@ Partial Class ContabilidadC_RegPrePoliza
             dr("CveProveedor") = drt("CveProveedor")
             dr("CvePersonal") = drt("CvePersonal")
             dr("CveClasificacion") = -1
-            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
+            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
+            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
             DtMovimientos.Rows.Add(dr)
         Next
 
@@ -861,6 +863,7 @@ Partial Class ContabilidadC_RegPrePoliza
                     Dim Importe As Double = 0
                     Dim TipoMovto As Boolean = False
                     Dim IdCtaContable As Integer = 0
+                    Dim PorcentajeImpuesto As Decimal = 0
 
                     'Registra movimieno bancario
                     If CveConcepto = 30 Then
@@ -877,7 +880,8 @@ Partial Class ContabilidadC_RegPrePoliza
                     Dim CveCompra As Integer = -1
 
                     'inserto las compras que voy a pagarDdlSaldos
-                    For Each gvr As GridViewRow In GvMov.Rows
+                    For Each gvr As GridViewRow In GvMov.Rows
+
                         If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                             IdCtaContable = gvr.DataKey("IDCuenta")
                         End If
@@ -919,8 +923,9 @@ Partial Class ContabilidadC_RegPrePoliza
                                                            CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
-                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1),
-                                                           ImporteME:=If(gvr.DataKey("TC").ToString.ToDouble > 0, (Importe / (gvr.DataKey("TC").ToString.ToDouble - 1)).RoundSQL, 0)) Then
+                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, gvr.DataKey("TC").ToString.ToDecimal, 1),
+                                                           ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0),
+                                                            PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
                             Else
                                 MsgError = "No se pudo insertar el detalle de la póliza2"
                                 Exit For
diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx b/Contabilidad2/RepBalanceGeneralHorizontal.aspx
index e60c714aa..d43ed39fe 100644
--- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx
+++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx
@@ -1,30 +1,37 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneralHorizontal.aspx.vb" Inherits="Contabilidad_RepBalanceGeneralHorizontal" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    <asp:Literal ID="LtTitulo" Text="Estado de Resultados" runat="server" />
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-
-
-
-</asp:Content>
-<asp:Content ID="Content6" 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" CssClass="btn btn-primary" runat="server" OnClick="BtnConsultar_Click" />
-                    </div>
-                    <div class="titlefiltros  caption ">
-                        <div class="row">
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneralHorizontal.aspx.vb" Inherits="Contabilidad_RepBalanceGeneralHorizontal" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Literal ID="LtTitulo" Text="Estado de Situación Financiera" runat="server" />
+</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="Imprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>        
+    </li>--%>
+
+</asp:Content>
+<asp:Content ID="Content6" 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" CssClass="btn btn-default" Text="Consultar" runat="server" OnClick="BtnConsultar_Click" />
+                        <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">
                             <ul class="list-inline text-size-12">
 
                                 <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl"  >Ejercicio: </label>
@@ -33,12 +40,12 @@
                                     </asp:DropDownList>
                                 </div>                             
 
-                                <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl2" visible="false" >Ejercicio Final: </label>
+                              <%--  <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl2" visible="false" >Ejercicio Final: </label>
                                 <div class="col-md-1 " runat="server" id="LiEjercicioDdl2" visible="false" >
                                       <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
                                     </asp:DropDownList>
-                                </div>                                  
-                                
+                                </div>     --%>                             
+                                
                                  <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
                                 <div class="col-md-2 " runat="server" id="LiPeriodoDdl">
                                     <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
@@ -75,112 +82,541 @@
 
                                  </div>
                             </ul>
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-     <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
+                        </div>
+                        
+                        
+
+                    </div>
+                </div>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                      
+                              <div class="row">
+                                <div class="col-md-3" runat="server" id="tdTipoReporte" visible="true">
+                              
+                                    <label class="col-md-1 truncate">Tipo:</label>
+                                    <div class="col-md-2">
+                                        <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="130px" CssClass="form-control input-sm">
+                                            <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                               
+                            </div>
+                            <label class="col-md-1 truncate">Con Firma:</label>
+                            <div class="col-md-1">
+                                <asp:CheckBox ID="ChkFirma" CssClass="make-switchsd" data-size="small" runat="server" />
+                            </div>
+                            <label class="col-md-1 truncate">Nivel 2:</label>
+                            <div class="col-md-1">
+                                <asp:CheckBox ID="ChkNivel" CssClass="make-switchsd" data-size="small" runat="server" />
+                            </div>
+                             </div>
+                              
+</div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <br />
+
+         <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
         
          <ajax:TabPanel ID="TabMes" runat="server" HeaderText="Mensual">
-            <ContentTemplate>
+            <ContentTemplate> 
+			
+  <rvweb:ReportViewer ID="rvReporteador" Visible="false" runat="server" Width="100%" Height="600"></rvweb:ReportViewer>
+
+
+    <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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" visible="false">
+                                                    <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="CAPITAL" 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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 visible="false">
+                                                        <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 Capital:" 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" visible="false">
+                                                    <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" visible="false">
+                                            <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 Capital:" 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" visible="false">
+                                            <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>
+ 
 
-            
-
-              
-
-                <table style="width: 100%;" class="table table-striped table-advance table-hover">
-                    <tr>
-                        <td width="100%" padding="0">
-                            <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
-                                <ContentTemplate>
-                                    <asp:GridView ID="GvIngresosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
-                                        <Columns>
-                                            <asp:TemplateField>
-                                                <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                                </ItemTemplate>
-                                                <ItemStyle HorizontalAlign="Left" />
-                                                <HeaderTemplate>
-                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
-                                                </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Período Actual">
-                                                <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="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
-                                            <asp:TemplateField HeaderText="Período Acumulado">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                                    <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
-                                        </Columns>                            
-                                    </asp:GridView>
-                                    <br />
-                                    <br />
-                                    <asp:GridView ID="GvGastosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
-                                        <Columns>
-                                            <asp:TemplateField>
-                                                <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                                </ItemTemplate>
-                                                <ItemStyle HorizontalAlign="Left" />
-                                                <HeaderTemplate>
-                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
-                                                </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
-                                            <asp:TemplateField HeaderText="Período Acumulado">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
-                                        </Columns>
-                                    
-                                    </asp:GridView>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </td>
-                    </tr>
-                </table>
-
-                <asp:UpdatePanel ID="UPPTotal" runat="server">
-                    <ContentTemplate>
-                        <table class="table table-striped table-hover Widthall">
-                            <tr>
-                                <td align="center">
-                                    <h4>Resultados del Ejercicio:</h4>
-                                </td>
-                                <td width="30%" align="right">
-                                    <asp:Label runat="server" Font-Bold="true" ID="LbTotalActual"></asp:Label>
-                                </td>
-                                <td width="30%" align="right">
-                                    <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
-                                </td>
-                                <td width="12%" align="right"></td>
-                            </tr>
-                        </table>
-                    </ContentTemplate>
-                </asp:UpdatePanel>
+                
 
             </ContentTemplate>
         </ajax:TabPanel>
@@ -283,21 +719,14 @@
                                             </asp:TemplateField>
 
 
-                                            <%--<asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>--%>
-
-                                            <%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
+                                            
                                             <asp:TemplateField HeaderText="Acumulado">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" Visible="false" />
                                         </Columns>
                                     </asp:GridView>
                                     <br />
@@ -409,7 +838,7 @@
                                     </asp:GridView>
                                       <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None" >
+                               <%--     <asp:GridView ID="GvTotalesMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None" >
                                         <Columns>
                                             
                                             <asp:TemplateField>
@@ -496,14 +925,6 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                          <%--  <asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>--%>
-
-                                           <%-- <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
                                             <asp:TemplateField HeaderText="Acumulado">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -513,7 +934,7 @@
                                             <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
                                         </Columns>
 
-                                    </asp:GridView>
+                                    </asp:GridView>--%>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
                         </td>
@@ -760,7 +1181,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" visible="false" />
                                         </Columns>
 
                                     </asp:GridView>
@@ -778,10 +1199,10 @@
                                     <h4>Resultados del Ejercicio:</h4>
                                 </td>
                                 <td width="30%" align="right">
-                                    <asp:Label runat="server" Font-Bold="true" ID="Label1"></asp:Label>
+                                    <asp:Label runat="server" Font-Bold="true" ID="Label18"></asp:Label>
                                 </td>
                                 <td width="30%" align="right">
-                                    <asp:Label runat="server" Font-Bold="true" ID="Label2"></asp:Label>
+                                    <asp:Label runat="server" Font-Bold="true" ID="Label19"></asp:Label>
                                 </td>
                                 <td width="12%" align="right"></td>
                             </tr>
@@ -799,19 +1220,20 @@
                       <asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
 
-                                    <asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" 
+                                    <asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" Width="100%" 
                                         CssClass="ADSCROLLER2  table table-striped table-advance table-hover"   data-cols="1" data-heightmenos="300"                                           
                                         Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
-                                            <asp:TemplateField>
+                                            <asp:TemplateField >
                                                 <ItemTemplate>
                                                     <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
                                                 </ItemTemplate>
-                                                <ItemStyle HorizontalAlign="Left" />
-                                                <HeaderTemplate>
+                                                <ItemStyle HorizontalAlign="Left"  Width="246px" />
+                                                <HeaderTemplate  >
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
                                                 </HeaderTemplate>
-                                               <HeaderStyle HorizontalAlign="Left" Width="291px" />
+                                                <HeaderStyle HorizontalAlign="Left" Width="246" />
+                                               
                                             </asp:TemplateField>
 
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -870,6 +1292,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
+
                                     <asp:GridView ID="GvGastosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvGastosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
@@ -1014,11 +1437,9 @@
 
             </ContentTemplate>
         </ajax:TabPanel>
-    </ajax:TabContainer>
-    
-
-
-
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
+    </ajax:TabContainer>
+
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
index 468e527ce..27be0dd30 100644
--- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
+++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
@@ -2,59 +2,127 @@
 Option Strict On
 
 Imports System.Data
-Imports System.Drawing
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-
 Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-
-
-    Private Property DtDatosMes As DataTable
+    Private Property DtDatos As DataTable
         Get
-            DtDatosMes = DirectCast(ViewState("DtDatosMes"), DataTable)
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
         End Get
 
         Set(ByVal value As DataTable)
-            ViewState("DtDatosMes") = value
+            ViewState("DtDatos") = value
         End Set
     End Property
-    Private Property DtIngresosMes As DataTable
+    Private Property TotalActivoActual As Double
         Get
-            DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable)
-        End Get
-
-        Set(ByVal value As DataTable)
-            ViewState("DtIngresosMes") = value
-        End Set
-    End Property
-    Private Property DtGastosMes As DataTable
-        Get
-            DtGastosMes = DirectCast(ViewState("DtGastosMes"), DataTable)
-        End Get
-
-        Set(ByVal value As DataTable)
-            ViewState("DtGastosMes") = value
-        End Set
-    End Property
-    Private Property TotalActualMes As Double
-        Get
-            TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble
+            TotalActivoActual = ViewState("TotalActivoActual").ToString.ToDouble
         End Get
         Set(value As Double)
-            ViewState("TotalActualMes") = value
+            ViewState("TotalActivoActual") = value
         End Set
     End Property
-    Private Property TotalAnteriorMes As Double
+    Private Property TotalActivoAnterior As Double
         Get
-            TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble
+            TotalActivoAnterior = ViewState("TotalActivoAnterior").ToString.ToDouble
         End Get
         Set(value As Double)
-            ViewState("TotalAnteriorMes") = value
+            ViewState("TotalActivoAnterior") = value
         End Set
     End Property
+    Private Property TotalPasivoActual As Double
+        Get
+            TotalPasivoActual = ViewState("TotalPasivoActual").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalPasivoActual") = value
+        End Set
+    End Property
+    Private Property TotalPasivoAnterior As Double
+        Get
+            TotalPasivoAnterior = ViewState("TotalPasivoAnterior").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalPasivoAnterior") = value
+        End Set
+    End Property
+    Private Property TotalPatrimonioActual As Double
+        Get
+            TotalPatrimonioActual = ViewState("TotalPatrimonioActual").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalPatrimonioActual") = value
+        End Set
+    End Property
+    Private Property TotalPatrimonioAnterior As Double
+        Get
+            TotalPatrimonioAnterior = ViewState("TotalPatrimonioAnterior").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalPatrimonioAnterior") = value
+        End Set
+    End Property
+    Private Property TotalPasivoPatrimonioActual As Double
+        Get
+            TotalPasivoPatrimonioActual = ViewState("TotalPasivoPatrimonioActual").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalPasivoPatrimonioActual") = value
+        End Set
+    End Property
+    Private Property TotalPasivoPatrimonioAnterior As Double
+        Get
+            TotalPasivoPatrimonioAnterior = ViewState("TotalPasivoPatrimonioAnterior").ToString.ToDouble
+        End Get
+        Set(value As Double)
+            ViewState("TotalPasivoPatrimonioAnterior") = value
+        End Set
+    End Property
+
+    Private Property FechaInicioActual As Date
+        Get
+            FechaInicioActual = ViewState("FechaInicioActual").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicioActual") = value
+        End Set
+    End Property
+    Private Property FechaFinActual As Date
+        Get
+            FechaFinActual = ViewState("FechaFinActual").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFinActual") = value
+        End Set
+    End Property
+    Private Property FechaInicioAnterior As Date
+        Get
+            FechaInicioAnterior = ViewState("FechaInicioAnterior").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicioAnterior") = value
+        End Set
+    End Property
+    Private Property FechaFinAnterior As Date
+        Get
+            FechaFinAnterior = ViewState("FechaFinAnterior").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFinAnterior") = 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
+
     Private Property FechaIMes As String
         Get
             Return ViewState("FechaIMes").ToString
@@ -72,15 +140,6 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         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
 
 
@@ -231,26 +290,35 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
-
-
-            TotalActualMes = 0
-            TotalAnteriorMes = 0
-
-            'TotalActualMes = 0
-            'TotalAnteriorMes = 0
+        If Not Page.IsPostBack Then
 
-            'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString
-            'TxtFechaFin.Text = Date.Now.ToShortDateString
+            If UsuarioActual.Empresa.UsaAC Then
+                TipoReporte = -1
+            Else
+                TipoReporte = 1
+                tdTipoReporte.Visible = True
+                LtTitulo.Text = "Balance General"
+            End If
+
+            TotalActivoActual = 0
+            TotalActivoAnterior = 0
+            TotalPasivoActual = 0
+            TotalPasivoAnterior = 0
+            TotalPatrimonioActual = 0
+            TotalPatrimonioAnterior = 0
+            TotalPasivoPatrimonioActual = 0
+            TotalPasivoPatrimonioAnterior = 0
+
             CargaEjercicios()
 
             DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-            DdlSubproyecto.DataBind()
-
-            ' CargaDatos()
+            DdlSubproyecto.DataBind()
+            'CargaDatos()
         End If
     End Sub
 
+
+
     Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
 
         If Tab.ActiveTabIndex = 0 Then
@@ -260,8 +328,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
 
-            LiEjercicioDdl2.Visible = False
-            LiEjercicioLbl2.Visible = False
+            'LiEjercicioDdl2.Visible = False
+            'LiEjercicioLbl2.Visible = False
 
             LiPeriodoDdl.Visible = True
             LiPeriodoLbl.Visible = True
@@ -278,8 +346,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
 
-            LiEjercicioDdl2.Visible = False
-            LiEjercicioLbl2.Visible = False
+            'LiEjercicioDdl2.Visible = False
+            'LiEjercicioLbl2.Visible = False
 
             LiPeriodoDdl.Visible = False
             LiPeriodoLbl.Visible = False
@@ -298,8 +366,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
 
-            LiEjercicioDdl2.Visible = True
-            LiEjercicioLbl2.Visible = True
+            'LiEjercicioDdl2.Visible = True
+            'LiEjercicioLbl2.Visible = True
 
             LiPeriodoDdl.Visible = False
             LiPeriodoLbl.Visible = False
@@ -316,8 +384,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
 
-            LiEjercicioDdl2.Visible = False
-            LiEjercicioLbl2.Visible = False
+            'LiEjercicioDdl2.Visible = False
+            'LiEjercicioLbl2.Visible = False
 
             LiPeriodoDdl.Visible = True
             LiPeriodoLbl.Visible = True
@@ -331,32 +399,306 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
     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
-            DdlEjercicio2.DataSource = ClsConta.DtResultados
+        Dim Clsconta As New ClsContabilidad
+        If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DdlEjercicio.DataSource = Clsconta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
-            DdlEjercicio2.DataSource = Nothing
         End If
-        ClsConta.Dispose()
+        Clsconta.Dispose()
         DdlEjercicio.DataBind()
-        DdlEjercicio2.DataBind()
 
-        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        If DdlEjercicio.Items.Count = 0 Then
-            DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
-        End If
+        DdlEjercicio.SelectedValue = Now.Year.ToString
+
+
+
+
+        'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
         DdlPeriodo.SelectedValue = Now.Month.ToString
+    End Sub
+
+
+    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, CChar("0")), DdlEjercicio.SelectedValue)
+        Dim FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString
+        TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+
+        GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
+        GvActivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString
+
+        GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
+        GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString
+
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+
+        If ObjConta.GetSituacionFinanciera2("01/01/1900".ToDate, FechaF.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TipoReporte) Then
+            DtDatos = ObjConta.DtResultados
+
+            CargaGrids()
+
+            If GvPatrimonio.HeaderRow IsNot Nothing Then
+                GvPatrimonio.HeaderRow.FCLabel("LbTitulo").Text = "CAPITAL CONTABLE"
+            End If
+
+            SumaTotales()
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del estado de situación financiera", TipoMensaje.MsgError)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+    Private Sub CargaGrids()
+
+        If Not ChkNivel.Checked Then
+            DtDatos = DtDatos.FiltraParametros("Level < 3")
+        End If
+
+        Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=1")
+        Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=2 ")
+        Dim DtActivoDiferido = DtDatos.FiltraParametros("  TipoCuenta=9 ")
+
+        '        Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND Orden LIKE '%/00011%' ")
+        '       Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND Orden LIKE '%/00012%' ")
+        Dim Row As DataRow = DtActivoCirculante.NewRow
+
+        If DtActivoCirculante.Rows.Count > 0 Then
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DtActivoCirculante.SUM("ImporteActual").ToString
+            Row.Item("ImporteAnterior") = DtActivoCirculante.SUM("ImporteAnterior").ToString
+            Row.Item("CtaMayor") = -1
+            'DtActivoCirculante.Rows.RemoveAt(0)
+        Else
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAnterior") = "0.00"
+            Row.Item("CtaMayor") = -1
+        End If
+        DtActivoCirculante.Rows.Add(Row)
+
+
+        Row = DtActivoNoCirculante.NewRow
+        If DtActivoNoCirculante.Rows.Count > 0 Then
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL ACTIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = DtActivoNoCirculante.SUM("ImporteActual").ToString
+            Row.Item("ImporteAnterior") = DtActivoNoCirculante.SUM("ImporteAnterior").ToString
+            Row.Item("CtaMayor") = -1
+            'DtActivoNoCirculante.Rows.RemoveAt(0)
+        Else
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL ACTIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAnterior") = "0.00"
+            Row.Item("CtaMayor") = -1
+        End If
+        DtActivoNoCirculante.Rows.Add(Row)
+
+        Row = DtActivoDiferido.NewRow
+        If DtActivoDiferido.Rows.Count > 0 Then
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL ACTIVO DIFERIDO"
+            Row.Item("ImporteActual") = DtActivoDiferido.SUM("ImporteActual").ToString
+            Row.Item("ImporteAnterior") = DtActivoDiferido.SUM("ImporteAnterior").ToString
+            Row.Item("CtaMayor") = -1
+            'DtActivoDiferido.Rows.RemoveAt(0)
+        Else
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL ACTIVO DIFERIDO"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAnterior") = "0.00"
+            Row.Item("CtaMayor") = -1
+        End If
+        DtActivoDiferido.Rows.Add(Row)
+
+        GvActivo.DataSource = DtActivoCirculante
+        GvActivo.DataBind()
+        GvActivoNoCirculante.DataSource = DtActivoNoCirculante
+        GvActivoNoCirculante.DataBind()
+
+        GvActivoDiferido.DataSource = DtActivoDiferido
+        GvActivoDiferido.DataBind()
+        UpActivo.Update()
+
+
+        'PASIVO
+        Dim DtPasivoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=3")
+        Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=4")
+
+        'Dim DtPasivoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND Orden LIKE '%/00021%' ")
+        'Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND Orden LIKE '%/00022%' ")
+
+        Row = DtPasivoCirculante.NewRow
+        If DtPasivoCirculante.Rows.Count > 0 Then
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL PASIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DtPasivoCirculante.SUM("ImporteActual").ToString
+            Row.Item("ImporteAnterior") = DtPasivoCirculante.SUM("ImporteAnterior").ToString
+            Row.Item("CtaMayor") = -1
+            'DtPasivoCirculante.Rows.RemoveAt(0)
+        Else
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL PASIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAnterior") = "0.00"
+            Row.Item("CtaMayor") = -1
+        End If
+        DtPasivoCirculante.Rows.Add(Row)
+
+        Row = DtPasivoNoCirculante.NewRow
+        If DtPasivoNoCirculante.Rows.Count > 0 Then
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL PASIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = DtPasivoNoCirculante.SUM("ImporteActual").ToString
+            Row.Item("ImporteAnterior") = DtPasivoNoCirculante.SUM("ImporteAnterior").ToString
+            Row.Item("CtaMayor") = -1
+            'DtPasivoNoCirculante.Rows.RemoveAt(0)
+        Else
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL PASIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAnterior") = "0.00"
+            Row.Item("CtaMayor") = -1
+        End If
+        DtPasivoNoCirculante.Rows.Add(Row)
+
+
+        GvPasivo.DataSource = DtPasivoCirculante
+        GvPasivo.DataBind()
+        GvPasivoNoCirculante.DataSource = DtPasivoNoCirculante
+        GvPasivoNoCirculante.DataBind()
+        UpPasivo.Update()
+
+
+        'PATRIMONIO
+        Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)")
+        Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)")
+        Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7")
+        Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5")
+
+        'Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00031%' ")
+        'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00032%' ")
+        'Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00033%' ")
+
+        Row = DtPatrimonioContribuido.NewRow
+        If DtPatrimonioContribuido.Rows.Count > 0 Then
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL CAPITAL"
+            Row.Item("ImporteActual") = DtPatrimonioContribuido.SUM("ImporteActual").ToString
+            Row.Item("ImporteAnterior") = DtPatrimonioContribuido.SUM("ImporteAnterior").ToString
+            Row.Item("CtaMayor") = -1
+            'DtPatrimonioContribuido.Rows.RemoveAt(0)
+        Else
+            Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL CAPITAL"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAnterior") = "0.00"
+            Row.Item("CtaMayor") = -1
+        End If
+        DtPatrimonioContribuido.Rows.Add(Row)
+
+        ''Row = DtPatrimonioGenerado.NewRow
+        ''If DtPatrimonioGenerado.Rows.Count > 0 Then
+        ''    Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL PATRIMONIO GENERADO"
+        ''    'El id = 87 es el id de la cuenta "RESULTADOS DEL EJERCICIO:(AHORRO/DESAHORRO)"
+        ''    Row.Item("ImporteActual") = DtPatrimonioGenerado.SUM("ImporteActual").ToString
+        ''    Row.Item("ImporteAnterior") = DtPatrimonioGenerado.SUM("ImporteAnterior").ToString
+        ''    Row.Item("CtaMayor") = -1
+        ''    'DtPatrimonioGenerado.Rows.RemoveAt(0)
+        ''Else
+        ''    Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL PATRIMONIO GENERADO"
+        ''    Row.Item("ImporteActual") = "0.00"
+        ''    Row.Item("ImporteAnterior") = "0.00"
+        ''    Row.Item("CtaMayor") = -1
+        ''End If
+        ''DtPatrimonioGenerado.Rows.Add(Row)
+
+        ''Row = DtPatrimonioActualizacion.NewRow
+        ''If DtPatrimonioActualizacion.Rows.Count > 0 Then
+        ''    Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION"
+        ''    Row.Item("ImporteActual") = DtPatrimonioActualizacion.SUM("ImporteActual").ToString
+        ''    Row.Item("ImporteAnterior") = DtPatrimonioActualizacion.SUM("ImporteAnterior").ToString
+        ''    Row.Item("CtaMayor") = -1
+        ''    'DtPatrimonioActualizacion.Rows.RemoveAt(0)
+        ''Else
+        ''    Row.Item("Nombre") = "&nbsp;&nbsp;&nbsp;TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION"
+        ''    Row.Item("ImporteActual") = "0.00"
+        ''    Row.Item("ImporteAnterior") = "0.00"
+        ''    Row.Item("CtaMayor") = -1
+        ''End If
+        ''DtPatrimonioActualizacion.Rows.Add(Row)
+
+
+        GvPatrimonio.DataSource = DtPatrimonioContribuido
+        GvPatrimonio.DataBind()
+        'GvPatrimonioGenerado.DataSource = DtPatrimonioGenerado
+        'GvPatrimonioGenerado.DataBind()
+        'GvPatrimonioActualizacion.DataSource = DtPatrimonioActualizacion
+        'GvPatrimonioActualizacion.DataBind()
+
+        'GvUtilidad.DataSource = DtUtilidad
+        'GvUtilidad.DataBind()
+
+        UpPatrimonio.Update()
     End Sub
 
+    Private Sub SumaTotales()
+        TotalPasivoPatrimonioActual = TotalPasivoActual + TotalPatrimonioActual
+        TotalPasivoPatrimonioAnterior = TotalPasivoAnterior + TotalPatrimonioAnterior
+
+        'Llena Lb´s Totales
+        LbTotalActivoActual.Text = TotalActivoActual.ToString.FormatoNumero
+        LbTotalActivoAnterior.Text = TotalActivoAnterior.ToString.FormatoNumero
+
+        LbTotalPasivoActual.Text = TotalPasivoActual.ToString.FormatoNumero
+        LbTotalPasivoAnterior.Text = TotalPasivoAnterior.ToString.FormatoNumero
+
+        LbTotalPatrimonioActual.Text = TotalPatrimonioActual.ToString.FormatoNumero
+        LbTotalPatrimonioAnterior.Text = TotalPatrimonioAnterior.ToString.FormatoNumero
+
+        LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero
+        LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero
+
+
+        Dim Descuadre = False
+        'COLOREA ROJO SI NO CUADRAN TOTALES
+        If Math.Round(TotalActivoActual, 2) <> Math.Round(TotalPasivoPatrimonioActual, 2) Then
+            LbTotalActivoActual.ForeColor = Drawing.Color.Red
+            LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Red
+            Descuadre = True
+        Else
+            LbTotalActivoActual.ForeColor = Drawing.Color.Black
+            LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Black
+        End If
+
+        'If Math.Round(TotalActivoAnterior, 2) <> Math.Round(TotalPasivoPatrimonioAnterior, 2) Then
+        '    LbTotalActivoAnterior.ForeColor = Drawing.Color.Red
+        '    LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Red
+        '    Descuadre = True
+        'Else
+        '    LbTotalActivoAnterior.ForeColor = Drawing.Color.Black
+        '    LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Black
+        'End If
+
+        If Descuadre Then
+            LbDescuadre.Text = "Las sumas de los totales están descuadradas."
+        Else
+            LbDescuadre.Text = ""
+        End If
+
+
+    End Sub
+
+
+
+
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
-        TotalActualMes = 0
-        TotalAnteriorMes = 0
+        TotalActivoActual = 0
+        TotalActivoAnterior = 0
+        TotalPasivoActual = 0
+        TotalPasivoAnterior = 0
+        TotalPatrimonioActual = 0
+        TotalPatrimonioAnterior = 0
+        TotalPasivoPatrimonioActual = 0
+        TotalPasivoPatrimonioAnterior = 0
+
 
         'Mes
         If Tab.ActiveTabIndex = 0 Then
-            CargaDatosMes()
+            CargaDatos()
         End If
 
         'MES HORIZONTAL
@@ -378,174 +720,100 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     End Sub
 
 
-#Region "MES"
-
-
-
-
-
-    Private Sub CargaDatosMes()
-
-
-        FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
-        FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy")
-        'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
-        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
-
-        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
-            DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
-        Else
-            DtDatosMes = Nothing
-            Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError)
-        End If
-        ObjConta.Dispose()
-
-        If DtDatosMes IsNot Nothing Then
-            CargaGridsMes()
-            SumaTotales()
-        End If
-
-    End Sub
-    Private Sub CargaGridsMes()
-        DtIngresosMes = DtDatosMes.FiltraParametros("Tipo ='H' ")
-        DtGastosMes = DtDatosMes.FiltraParametros("Tipo ='G' ")
-        Dim Row As DataRow = DtIngresosMes.NewRow
-
-
-        Dim TotalActual = 0.0, TotalAnterior = 0.0
-        If DtIngresosMes.Rows.Count > 0 Then
-
-            For Each dr As DataRow In DtIngresosMes.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
-            DtIngresosMes.Rows.Add(Row)
-        Else
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtIngresosMes.Rows.Add(Row)
-        End If
-
-        Dim T1 = TotalActual, T2 = TotalAnterior
-
-        TotalActual = 0
-        TotalAnterior = 0
-
-        Row = DtGastosMes.NewRow
-        If DtGastosMes.Rows.Count > 0 Then
-
-            For Each dr As DataRow In DtGastosMes.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
-            DtGastosMes.Rows.Add(Row)
-        Else
-            Row.Item("Nombre") = "TOTAL GASTOS"
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtGastosMes.Rows.Add(Row)
-        End If
-
-
-        GvIngresosMes.DataSource = DtIngresosMes
-        GvIngresosMes.DataBind()
-
-        GvGastosMes.DataSource = DtGastosMes
-        GvGastosMes.DataBind()
-
-        UpDatos.Update()
-
-    End Sub
-
-
-
-    Private Sub SumaTotales()
-        'Llena Lb´s Totales
-        LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-
-        LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
-
-        LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-
-        LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
-
-
-    End Sub
-
 #Region "GV´S ROW DATA BOUND"
 
-    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GvActivo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes += 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
+                TotalActivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble
+                e.Row.FCLabel("LbNombre").Font.Italic = True
+                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("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/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("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").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("/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)
-            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
+            If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
+
+            If e.Row.DBCampo("Level").ToString = "2" Then
+                e.Row.FCLabel("LbNombre").Text = String.Format("&nbsp;&nbsp;&nbsp;{0}", e.Row.DBCampo("Nombre").ToString)
+            ElseIf e.Row.DBCampo("Level").ToString = "1" Then
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+            End If
+
         End If
     End Sub
 
-    Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GvPasivo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
+
+            'Totales
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes -= 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 = "SubTotales"
-                e.Row.ControlStyle.Font.Bold = True
+                TotalPasivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalPasivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble
+                e.Row.FCLabel("LbNombre").Font.Italic = True
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+                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("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString)
             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", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").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)
+
+            'Colorea NEGATIVOS
+            If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+            End If
+
+            If e.Row.DBCampo("Level").ToString = "2" Then
+                e.Row.FCLabel("LbNombre").Text = String.Format("&nbsp;&nbsp;&nbsp;{0}", e.Row.DBCampo("Nombre").ToString)
+            ElseIf e.Row.DBCampo("Level").ToString = "1" Then
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+            End If
+
+        End If
+    End Sub
+
+    Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
+                TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalPatrimonioAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble
+                e.Row.FCLabel("LbNombre").Font.Italic = True
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+                e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;")
+                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
+                '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("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/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
                 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
             End If
-            If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+            If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
+
+            If e.Row.DBCampo("Level").ToString = "2" Then
+                e.Row.FCLabel("LbNombre").Text = String.Format("&nbsp;&nbsp;&nbsp;{0}", e.Row.DBCampo("Nombre").ToString)
+            ElseIf e.Row.DBCampo("Level").ToString = "1" Then
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+            End If
+
         End If
     End Sub
 
@@ -554,7 +822,25 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
 
 
-#End Region
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        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")
+        'nombre del archivo a generar
+        Dim fileName As String = "EdoSituacionFinanciera"
+        'ubicacion del rdlc
+        Dim reportpath As String = "Contabilidad2/Reportes/RepSituacionFinanciera.rdlc"
+
+        '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", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("{0}", vbCrLf), "")))
+        params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("{0}l", vbCrLf), "")))
+        params.Add(New ReportParameter("pFechaFin", FechaF))
+        params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.ToString, DdlEjercicio.SelectedItem.ToString)))
+        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+    End Sub
+
 
 
 
@@ -563,14 +849,14 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Private Sub CargaDatosMesH()
 
 
-        FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
+        FechaIMes = $"01/01/1900"
         FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}"
 
         Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetSituacionFinancieraMensuallHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosMesH = Nothing
@@ -579,8 +865,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         ObjConta.Dispose()
 
         If DtDatosMesH IsNot Nothing Then
-            CargaGridsMesH()
-            SumaTotalesMesH()
+            CargaGridsMesH()
+
         Else
 
         End If
@@ -588,152 +874,402 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     End Sub
 
     Private Sub CargaGridsMesH()
-        DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ")
-        DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ")
+        'DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo IN ('A', 'D', 'F')")
+        'DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ")
+
         DTTotalesMesH = DtDatosMesH.Clone()
 
-        Dim Row As DataRow = DtIngresosMesH.NewRow
-
+        Dim DT_ACTIVO As DataTable = DtDatosMesH.Clone()
+        Dim DT_PASIVO As DataTable = DtDatosMesH.Clone()
+        Dim DT_TOTALES As DataTable = DtDatosMesH.Clone()
+
+        Dim DT_ACTIVO_CIRCULANTE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'ACTIVO CIRCULANTE' ")
+        Dim DT_ACTIVO_FIJO As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'ACTIVO FIJO' ")
+        Dim DT_ACTIVO_DIFERIDO As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'ACTIVO DIFERIDO' ")
+
+        Dim DT_PASIVO_CIRCULANTE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'PASIVO CIRCULANTE' ")
+        Dim DT_PASIVO_NO_CIRCULANTE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'PASIVO NO CIRCULANTE' ")
+
+        Dim DT_CAPITAL_CONTABLE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'CAPITAL CONTABLE' ")
+
+
         Dim TotalActual = 0.0, TotalAnterior = 0.0
 
-        If DtIngresosMesH.Rows.Count > 0 Then
+        Dim RowAF As DataRow = DT_ACTIVO_CIRCULANTE.NewRow
+        If DT_ACTIVO_CIRCULANTE.Rows.Count > 0 Then
 
-            For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+            For Each dr As DataRow In DT_ACTIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
-            Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Enero") = DT_ACTIVO_CIRCULANTE.SUM("Enero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Febrero") = DT_ACTIVO_CIRCULANTE.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Marzo") = DT_ACTIVO_CIRCULANTE.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Abril") = DT_ACTIVO_CIRCULANTE.SUM("Abril", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Mayo") = DT_ACTIVO_CIRCULANTE.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Junio") = DT_ACTIVO_CIRCULANTE.SUM("Junio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Julio") = DT_ACTIVO_CIRCULANTE.SUM("Julio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Agosto") = DT_ACTIVO_CIRCULANTE.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Septiembre") = DT_ACTIVO_CIRCULANTE.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Octubre") = DT_ACTIVO_CIRCULANTE.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Noviembre") = DT_ACTIVO_CIRCULANTE.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Diciembre") = DT_ACTIVO_CIRCULANTE.SUM("Diciembre", "NOT CtaMayor in (3,4)")
 
-            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
-            DtIngresosMesH.Rows.Add(Row)
+            RowAF.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO_CIRCULANTE.Rows.Add(RowAF)
         Else
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtIngresosMesH.Rows.Add(Row)
+            RowAF.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO_CIRCULANTE.Rows.Add(RowAF)
         End If
 
-        Dim T1 = TotalActual, T2 = TotalAnterior
+        TotalActual = 0
+        TotalAnterior = 0
+
+
+        RowAF = DT_ACTIVO_FIJO.NewRow
+        If DT_ACTIVO_FIJO.Rows.Count > 0 Then
 
+            For Each dr As DataRow In DT_ACTIVO_FIJO.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            RowAF.Item("Enero") = DT_ACTIVO_FIJO.SUM("Enero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Febrero") = DT_ACTIVO_FIJO.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Marzo") = DT_ACTIVO_FIJO.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Abril") = DT_ACTIVO_FIJO.SUM("Abril", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Mayo") = DT_ACTIVO_FIJO.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Junio") = DT_ACTIVO_FIJO.SUM("Junio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Julio") = DT_ACTIVO_FIJO.SUM("Julio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Agosto") = DT_ACTIVO_FIJO.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Septiembre") = DT_ACTIVO_FIJO.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Octubre") = DT_ACTIVO_FIJO.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Noviembre") = DT_ACTIVO_FIJO.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Diciembre") = DT_ACTIVO_FIJO.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO_FIJO.Rows.Add(RowAF)
+
+        Else
+
+            RowAF.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO_FIJO.Rows.Add(RowAF)
+
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        RowAF = DT_ACTIVO_DIFERIDO.NewRow
+        If DT_ACTIVO_DIFERIDO.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_ACTIVO_DIFERIDO.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            RowAF.Item("Enero") = DT_ACTIVO_DIFERIDO.SUM("Enero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Febrero") = DT_ACTIVO_DIFERIDO.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Marzo") = DT_ACTIVO_DIFERIDO.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Abril") = DT_ACTIVO_DIFERIDO.SUM("Abril", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Mayo") = DT_ACTIVO_DIFERIDO.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Junio") = DT_ACTIVO_DIFERIDO.SUM("Junio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Julio") = DT_ACTIVO_DIFERIDO.SUM("Julio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Agosto") = DT_ACTIVO_DIFERIDO.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Septiembre") = DT_ACTIVO_DIFERIDO.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Octubre") = DT_ACTIVO_DIFERIDO.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Noviembre") = DT_ACTIVO_DIFERIDO.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Diciembre") = DT_ACTIVO_DIFERIDO.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL ACTIVO DIFERIDO"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO_DIFERIDO.Rows.Add(RowAF)
+        Else
+            RowAF.Item("Nombre") = "TOTAL ACTIVO DIFERIDO"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO_DIFERIDO.Rows.Add(RowAF)
+        End If
+
         TotalActual = 0
         TotalAnterior = 0
 
-        Row = DtGastosMesH.NewRow
-        If DtGastosMesH.Rows.Count > 0 Then
+        RowAF = DT_PASIVO_CIRCULANTE.NewRow
+        If DT_PASIVO_CIRCULANTE.Rows.Count > 0 Then
 
-            For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+            For Each dr As DataRow In DT_PASIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
-            Next
-
-
-            Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
-            Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
-            Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
-            Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
-            Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
-            Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
-            Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
-            Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
-            Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
-            Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
-            Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
-            Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            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
-            DtGastosMesH.Rows.Add(Row)
+            RowAF.Item("Enero") = DT_PASIVO_CIRCULANTE.SUM("Enero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Febrero") = DT_PASIVO_CIRCULANTE.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Marzo") = DT_PASIVO_CIRCULANTE.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Abril") = DT_PASIVO_CIRCULANTE.SUM("Abril", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Mayo") = DT_PASIVO_CIRCULANTE.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Junio") = DT_PASIVO_CIRCULANTE.SUM("Junio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Julio") = DT_PASIVO_CIRCULANTE.SUM("Julio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Agosto") = DT_PASIVO_CIRCULANTE.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Septiembre") = DT_PASIVO_CIRCULANTE.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Octubre") = DT_PASIVO_CIRCULANTE.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Noviembre") = DT_PASIVO_CIRCULANTE.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Diciembre") = DT_PASIVO_CIRCULANTE.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL PASIVO CIRCULANTE"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_PASIVO_CIRCULANTE.Rows.Add(RowAF)
         Else
-            Row.Item("Nombre") = "TOTAL GASTOS"
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtGastosMesH.Rows.Add(Row)
+            RowAF.Item("Nombre") = "TOTAL PASIVO CIRCULANTE"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_PASIVO_CIRCULANTE.Rows.Add(RowAF)
         End If
 
-        If DtIngresosMesH.Rows.Count > 0 Then
+        TotalActual = 0
+        TotalAnterior = 0
 
-            Row = DTTotalesMesH.NewRow
+        RowAF = DT_PASIVO_NO_CIRCULANTE.NewRow
+        If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_PASIVO_NO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            RowAF.Item("Enero") = DT_PASIVO_NO_CIRCULANTE.SUM("Enero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Febrero") = DT_PASIVO_NO_CIRCULANTE.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Marzo") = DT_PASIVO_NO_CIRCULANTE.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Abril") = DT_PASIVO_NO_CIRCULANTE.SUM("Abril", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Mayo") = DT_PASIVO_NO_CIRCULANTE.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Junio") = DT_PASIVO_NO_CIRCULANTE.SUM("Junio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Julio") = DT_PASIVO_NO_CIRCULANTE.SUM("Julio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Agosto") = DT_PASIVO_NO_CIRCULANTE.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Septiembre") = DT_PASIVO_NO_CIRCULANTE.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Octubre") = DT_PASIVO_NO_CIRCULANTE.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Noviembre") = DT_PASIVO_NO_CIRCULANTE.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Diciembre") = DT_PASIVO_NO_CIRCULANTE.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_PASIVO_NO_CIRCULANTE.Rows.Add(RowAF)
+        Else
+            RowAF.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_PASIVO_NO_CIRCULANTE.Rows.Add(RowAF)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
 
-            Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
+        RowAF = DT_CAPITAL_CONTABLE.NewRow
+        If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then
 
-            Row.Item("Nombre") = "Resultados del Ejercicio:"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString
-            'Row.Item("PorcentajeAcumulado") = "100.00"
-            'Row.Item("CtaMayor") = -1
+            For Each dr As DataRow In DT_CAPITAL_CONTABLE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
 
-            DTTotalesMesH.Rows.Add(Row)
+            RowAF.Item("Enero") = DT_CAPITAL_CONTABLE.SUM("Enero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Febrero") = DT_CAPITAL_CONTABLE.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Marzo") = DT_CAPITAL_CONTABLE.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Abril") = DT_CAPITAL_CONTABLE.SUM("Abril", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Mayo") = DT_CAPITAL_CONTABLE.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Junio") = DT_CAPITAL_CONTABLE.SUM("Junio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Julio") = DT_CAPITAL_CONTABLE.SUM("Julio", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Agosto") = DT_CAPITAL_CONTABLE.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Septiembre") = DT_CAPITAL_CONTABLE.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Octubre") = DT_CAPITAL_CONTABLE.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Noviembre") = DT_CAPITAL_CONTABLE.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            RowAF.Item("Diciembre") = DT_CAPITAL_CONTABLE.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL CAPITAL CONTABLE"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_CAPITAL_CONTABLE.Rows.Add(RowAF)
+        Else
+            RowAF.Item("Nombre") = "TOTAL CAPITAL CONTABLE"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_CAPITAL_CONTABLE.Rows.Add(RowAF)
+        End If
+
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        DT_ACTIVO.Merge(DT_ACTIVO_CIRCULANTE)
+        DT_ACTIVO.Merge(DT_ACTIVO_FIJO)
+        DT_ACTIVO.Merge(DT_ACTIVO_DIFERIDO)
+
+        DT_PASIVO.Merge(DT_PASIVO_CIRCULANTE)
+        DT_PASIVO.Merge(DT_PASIVO_NO_CIRCULANTE)
+
+
+
+        RowAF = DT_ACTIVO.NewRow
+        If DT_ACTIVO.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_ACTIVO.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            RowAF.Item("Enero") = DT_ACTIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Febrero") = DT_ACTIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Marzo") = DT_ACTIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Abril") = DT_ACTIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Mayo") = DT_ACTIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Junio") = DT_ACTIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Julio") = DT_ACTIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Agosto") = DT_ACTIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Septiembre") = DT_ACTIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Octubre") = DT_ACTIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Noviembre") = DT_ACTIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Diciembre") = DT_ACTIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL ACTIVO"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO.Rows.Add(RowAF)
+        Else
+            RowAF.Item("Nombre") = "TOTAL ACTIVO"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_ACTIVO.Rows.Add(RowAF)
+        End If
+
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        RowAF = DT_PASIVO.NewRow
+        If DT_PASIVO.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_PASIVO.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            RowAF.Item("Enero") = DT_PASIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Febrero") = DT_PASIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Marzo") = DT_PASIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Abril") = DT_PASIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Mayo") = DT_PASIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Junio") = DT_PASIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Julio") = DT_PASIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Agosto") = DT_PASIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Septiembre") = DT_PASIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Octubre") = DT_PASIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Noviembre") = DT_PASIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Diciembre") = DT_PASIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
+
+            RowAF.Item("Nombre") = "TOTAL PASIVO"
+            RowAF.Item("ImporteActual") = TotalActual.ToString
+            RowAF.Item("PorcentajeActual") = 100.0
+            RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString
+            RowAF.Item("PorcentajeAcumulado") = 100.0
+            RowAF.Item("CtaMayor") = -1
+            DT_PASIVO.Rows.Add(RowAF)
+        Else
+            RowAF.Item("Nombre") = "TOTAL PASIVO"
+            RowAF.Item("ImporteActual") = 0.00
+            RowAF.Item("ImporteAcumulado") = 0.00
+            RowAF.Item("CtaMayor") = -1
+            DT_PASIVO.Rows.Add(RowAF)
+        End If
+
+        DT_TOTALES.Merge(DT_ACTIVO)
+        DT_TOTALES.Merge(DT_PASIVO)
+        DT_TOTALES.Merge(DT_CAPITAL_CONTABLE)
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        RowAF = DT_TOTALES.NewRow
+
+        If DT_ACTIVO.Rows.Count > 0 Then
+
+            RowAF.Item("Enero") = DT_ACTIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Febrero") = DT_ACTIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Marzo") = DT_ACTIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Abril") = DT_ACTIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Mayo") = DT_ACTIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Junio") = DT_ACTIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Julio") = DT_ACTIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Agosto") = DT_ACTIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Septiembre") = DT_ACTIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Octubre") = DT_ACTIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Noviembre") = DT_ACTIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
+            RowAF.Item("Diciembre") = DT_ACTIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
+
+            RowAF.Item("Nombre") = "Resultados del Ejercicio:"
+            RowAF.Item("CtaMayor") = -1
+            RowAF.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString
+            DT_TOTALES.Rows.Add(RowAF)
 
         End If
 
-        GvIngresosMesH.DataSource = DtIngresosMesH
-        GvIngresosMesH.DataBind()
 
-        GvGastosMesH.DataSource = DtGastosMesH
-        GvGastosMesH.DataBind()
 
-        GvTotalesMesH.DataSource = DTTotalesMesH
-        GvTotalesMesH.DataBind()
 
+        GvIngresosMesH.DataSource = DT_TOTALES
+        GvIngresosMesH.DataBind()
+
         UpDatosMesH.Update()
 
     End Sub
 
-    Private Sub SumaTotalesMesH()
-        ''Llena Lb´s Totales
-        ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
-
-        'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-        'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
-
-
-    End Sub
+
 
     Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
+
+                'TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
                 e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 'e.Row.CssClass = "SubTotales3"
@@ -759,9 +1295,6 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
                 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)
             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
@@ -772,13 +1305,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+
+                'TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
                 e.Row.ControlStyle.Font.Bold = True
-            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                'e.Row.CssClass = "SubTotales"
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
@@ -809,18 +1341,17 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         End If
     End Sub
 
-    Protected Sub GvTotalesMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    'Protected Sub GvTotalesMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
-        If e.Row.RowType = DataControlRowType.Header Then
-            e.Row.Attributes.Add("style", "display:none")
-        End If
+    '    If e.Row.RowType = DataControlRowType.Header Then
+    '        e.Row.Attributes.Add("style", "display:none")
+    '    End If
 
-        If e.Row.RowType = DataControlRowType.DataRow Then
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '        e.Row.Attributes.Add("style", "Font-weight: bold")
+    '    End If
 
-            e.Row.Attributes.Add("style", "Font-weight: bold")
-        End If
-
-    End Sub
+    'End Sub
 
 #End Region
 
@@ -831,14 +1362,14 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Private Sub CargaDatosAnualH()
 
 
-        FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
-        FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}"
+        FechaIMes = $"01/01/1900"
+        FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}"
 
         Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
-        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetSituacionFinancieraAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosAnualH = Nothing
@@ -859,183 +1390,333 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         DtGastosAnualH = DtDatosAnualH.FiltraParametros("Tipo ='G' ")
         DTTotalesAnualH = DtDatosAnualH.Clone()
 
-        Dim Row As DataRow = DtIngresosAnualH.NewRow
+
+
+        Dim DT_ACTIVO As DataTable = DtDatosAnualH.Clone()
+        Dim DT_PASIVO As DataTable = DtDatosAnualH.Clone()
+        Dim DT_TOTALES As DataTable = DtDatosAnualH.Clone()
+
+        Dim DT_ACTIVO_CIRCULANTE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'ACTIVO CIRCULANTE' ")
+        Dim DT_ACTIVO_FIJO As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'ACTIVO FIJO' ")
+        Dim DT_ACTIVO_DIFERIDO As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'ACTIVO DIFERIDO' ")
+
+        Dim DT_PASIVO_CIRCULANTE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'PASIVO CIRCULANTE' ")
+        Dim DT_PASIVO_NO_CIRCULANTE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'PASIVO NO CIRCULANTE' ")
+
+        Dim DT_CAPITAL_CONTABLE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'CAPITAL CONTABLE' ")
+
+
+
 
         Dim TotalActual = 0.0, TotalAnterior = 0.0
 
 
         Dim IndexData As Integer = 0
         Dim IndexGv As Integer = 1
-        Dim IndexMax As Integer = 1
+        Dim IndexMax As Integer = 11
 
-        If DtIngresosAnualH.Rows.Count > 0 Then
+        For Each dCoumn As DataColumn In DtDatosAnualH.Columns
 
+            If IndexData >= 11 Then
 
+                If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio.SelectedValue.ToEntero Then
 
+                    CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                    CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
 
-            For Each dCoumn As DataColumn In DtIngresosAnualH.Columns
+                    GvIngresosAnualH.Columns(IndexGv).Visible = True
 
-                If IndexData >= 13 Then
+                    GvTotalesAnualH.Columns(IndexGv).Visible = True
 
-                    If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
-
-                        CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-
-
-                        'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-                        GvIngresosAnualH.Columns(IndexGv).Visible = True
-
-
-                        CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-                        'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-                        GvTotalesAnualH.Columns(IndexGv).Visible = True
-
-                        IndexMax = IndexData
-                    Else
-                        GvIngresosAnualH.Columns(IndexGv).Visible = False
-                        GvTotalesAnualH.Columns(IndexGv).Visible = False
-                    End If
-
-
-
-                    IndexGv = IndexGv + 1
+                    IndexMax = IndexData
+                Else
+                    GvIngresosAnualH.Columns(IndexGv).Visible = False
+                    GvTotalesAnualH.Columns(IndexGv).Visible = False
                 End If
 
-                IndexData = IndexData + 1
+                IndexGv = IndexGv + 1
 
-            Next
+            End If
 
+            IndexData = IndexData + 1
+        Next
 
-            For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+        'IndexData = 14
+        'Dim Row As DataRow = DT_ACTIVO_CIRCULANTE.NewRow
+        'If DtDatosAnualH.Rows.Count > 0 Then
 
-                TotalActual += dr("ImporteActual").ToString.ToDouble
-                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+        '    For IndexData = 13 To IndexMax
+        '        Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+        '    Next
 
-            Next
+        '    Row.Item("Nombre") = "TOTAL INGRESOS "
+        '    Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+        '    Row.Item("PorcentajeActual") = 100.0
+        '    Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+        '    Row.Item("PorcentajeAcumulado") = 100.0
+        '    Row.Item("CtaMayor") = -1
+        '    DtIngresosAnualH.Rows.Add(Row)
+        'Else
+        '    Row.Item("Nombre") = "TOTAL INGRESOS "
+        '    Row.Item("ImporteActual") = "0.00"
+        '    Row.Item("ImporteAcumulado") = "0.00"
+        '    Row.Item("CtaMayor") = -1
+        '    DtIngresosAnualH.Rows.Add(Row)
+        'End If
 
-            IndexData = 13
-            For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
-            Next
-
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
-            Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
-            Row.Item("PorcentajeAcumulado") = "100.00"
-            Row.Item("CtaMayor") = -1
-            DtIngresosAnualH.Rows.Add(Row)
-        Else
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtIngresosAnualH.Rows.Add(Row)
-        End If
-
-        Dim T1 = TotalActual, T2 = TotalAnterior
+        'Dim T1 = TotalActual, T2 = TotalAnterior
 
         TotalActual = 0
         TotalAnterior = 0
 
-        Row = DtGastosAnualH.NewRow
-
-        If DtGastosAnualH.Rows.Count > 0 Then
-
-
-            IndexData = 0
-            IndexGv = 1
-            IndexMax = 0
-
-            For Each dCoumn As DataColumn In DtGastosAnualH.Columns
-
-                If IndexData >= 13 Then
-
-                    If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
-                        'HyperLinkField
-
-                        CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-                        'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"}
-                        'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"
-
-                        'CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        'CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-
-                        GvGastosAnualH.Columns(IndexGv).Visible = True
-                        IndexMax = IndexData
-                    Else
-                        GvGastosAnualH.Columns(IndexGv).Visible = False
-                    End If
-
-
-
-                    IndexGv = IndexGv + 1
-                End If
-
-                IndexData = IndexData + 1
+        IndexData = 11
+        Dim Row As DataRow = DT_ACTIVO_CIRCULANTE.NewRow
+        'Row = DT_ACTIVO_CIRCULANTE.NewRow
+        If DT_ACTIVO_CIRCULANTE.Rows.Count > 0 Then
 
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_ACTIVO_CIRCULANTE.SUM($"[{DT_ACTIVO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
             Next
 
-
-            For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows
-                TotalActual += dr("ImporteActual").ToString.ToDouble
-                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
-            Next
-
-            IndexData = 13
-            For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
-            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("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO_CIRCULANTE.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
             Row.Item("CtaMayor") = -1
-            DtGastosAnualH.Rows.Add(Row)
+            DT_ACTIVO_CIRCULANTE.Rows.Add(Row)
         Else
-            Row.Item("Nombre") = "TOTAL GASTOS"
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
             Row.Item("ImporteActual") = "0.00"
             Row.Item("ImporteAcumulado") = "0.00"
             Row.Item("CtaMayor") = -1
-            DtGastosAnualH.Rows.Add(Row)
+            DT_ACTIVO_CIRCULANTE.Rows.Add(Row)
         End If
 
-        If DtIngresosAnualH.Rows.Count > 0 Then
+        TotalActual = 0
+        TotalAnterior = 0
+
+        IndexData = 11
+        Row = DT_ACTIVO_FIJO.NewRow
+        If DT_ACTIVO_FIJO.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_ACTIVO_FIJO.SUM($"[{DT_ACTIVO_FIJO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO_FIJO.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO_FIJO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO_FIJO.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+
+        IndexData = 11
+        Row = DT_ACTIVO_DIFERIDO.NewRow
+        If DT_ACTIVO_DIFERIDO.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_ACTIVO_DIFERIDO.SUM($"[{DT_ACTIVO_DIFERIDO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO_DIFERIDO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO_DIFERIDO.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        IndexData = 11
+        Row = DT_PASIVO_CIRCULANTE.NewRow
+        If DT_PASIVO_CIRCULANTE.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_PASIVO_CIRCULANTE.SUM($"[{DT_PASIVO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_CIRCULANTE.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_CIRCULANTE.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        IndexData = 11
+        Row = DT_PASIVO_NO_CIRCULANTE.NewRow
+        If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_PASIVO_NO_CIRCULANTE.SUM($"[{DT_PASIVO_NO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        IndexData = 11
+        Row = DT_CAPITAL_CONTABLE.NewRow
+        If DT_CAPITAL_CONTABLE.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_CAPITAL_CONTABLE.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_CAPITAL_CONTABLE.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+
+
+
+        DT_ACTIVO.Merge(DT_ACTIVO_CIRCULANTE)
+        DT_ACTIVO.Merge(DT_ACTIVO_FIJO)
+        DT_ACTIVO.Merge(DT_ACTIVO_DIFERIDO)
+
+        DT_PASIVO.Merge(DT_PASIVO_CIRCULANTE)
+        DT_PASIVO.Merge(DT_PASIVO_NO_CIRCULANTE)
+
+        IndexData = 11
+        Row = DT_ACTIVO.NewRow
+        If DT_ACTIVO.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO"
+            Row.Item("ImporteActual") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO.Rows.Add(Row)
+        End If
+
+
+
+        IndexData = 11
+        Row = DT_PASIVO.NewRow
+        If DT_PASIVO.Rows.Count > 0 Then
+
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL PASIVO"
+            Row.Item("ImporteActual") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_PASIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL PASIVO"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO.Rows.Add(Row)
+        End If
+
+        DT_TOTALES.Merge(DT_ACTIVO)
+        DT_TOTALES.Merge(DT_PASIVO)
+        DT_TOTALES.Merge(DT_CAPITAL_CONTABLE)
+
+        Row = DT_TOTALES.NewRow
+
+        If DT_TOTALES.Rows.Count > 0 Then
 
             Row = DTTotalesAnualH.NewRow
 
 
-            IndexData = 13
-            For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
+            IndexData = 11
+            For IndexData = 11 To IndexMax
+                Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
             Next
 
             Row.Item("Nombre") = "Resultados del Ejercicio"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)")
-            'Row.Item("PorcentajeAcumulado") = "100.00"
-            'Row.Item("CtaMayor") = -1
+            Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)")
+
 
             DTTotalesAnualH.Rows.Add(Row)
 
         End If
 
-        GvIngresosAnualH.DataSource = DtIngresosAnualH
+        GvIngresosAnualH.DataSource = DT_TOTALES
         GvIngresosAnualH.DataBind()
 
-        GvGastosAnualH.DataSource = DtGastosAnualH
-        GvGastosAnualH.DataBind()
+        'GvGastosAnualH.DataSource = DtGastosAnualH
+        'GvGastosAnualH.DataBind()
 
-        GvTotalesAnualH.DataSource = DTTotalesAnualH
-        GvTotalesAnualH.DataBind()
+        'GvTotalesAnualH.DataSource = DTTotalesAnualH
+        'GvTotalesAnualH.DataBind()
 
         UpDatosAnualH.Update()
 
@@ -1049,13 +1730,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+
+                'TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
                 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
 
@@ -1068,13 +1748,17 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
+
                 For IndiceInicio = 1 To IndiceMax
-                    Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
+
+                    Dim Anio As String = CType(GvIngresosAnualH.Columns(IndiceInicio), BoundField).DataField
                     Dim Importe As String = e.Row.Cells(IndiceInicio).Text
                     e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+
                 Next IndiceInicio
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/1900&ER=1&CveSubProyecto={CveSubProyecto}"
+
             End If
 
 
@@ -1088,13 +1772,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+
+                'TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
                 e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                'e.Row.CssClass = "SubTotales"
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
@@ -1112,7 +1795,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
                     e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
                 Next IndiceInicio
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/1900&ER=1&CveSubProyecto={CveSubProyecto}"
             End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
@@ -1142,15 +1825,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Private Sub CargaDatosSubProyectoH()
 
 
-        FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
-        FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
-        FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy")
+        FechaIMes = $"01/01/1900"
+        FechaFMes = $"01/12/{DdlEjercicio.SelectedValue}"
+        'FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy")
 
         Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetSituacionFinancieraSubProyectolHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
             DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
@@ -1161,7 +1844,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
         If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then
             CargaGridsSubProyectoH()
-            SumaTotalesSubProyectoH()
+            'SumaTotalesSubProyectoH()
         End If
 
     End Sub
@@ -1172,7 +1855,23 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ")
         DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone()
 
-        Dim Row As DataRow = DtIngresosSubProyectoH.NewRow
+
+
+        Dim DT_ACTIVO As DataTable = DtDatosSubProyectoH.Clone()
+        Dim DT_PASIVO As DataTable = DtDatosSubProyectoH.Clone()
+        Dim DT_TOTALES As DataTable = DtDatosSubProyectoH.Clone()
+
+        Dim DT_ACTIVO_CIRCULANTE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'ACTIVO CIRCULANTE' ")
+        Dim DT_ACTIVO_FIJO As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'ACTIVO FIJO' ")
+        Dim DT_ACTIVO_DIFERIDO As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'ACTIVO DIFERIDO' ")
+
+        Dim DT_PASIVO_CIRCULANTE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'PASIVO CIRCULANTE' ")
+        Dim DT_PASIVO_NO_CIRCULANTE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'PASIVO NO CIRCULANTE' ")
+
+        Dim DT_CAPITAL_CONTABLE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'CAPITAL CONTABLE' ")
+
+
+        Dim Row As DataRow
 
         Dim TotalActual = 0.0, TotalAnterior = 0.0
 
@@ -1182,192 +1881,345 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         Dim IndexMax As Integer = 1
         Dim IndexSubProyecto = 0
         Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
-        Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx
-
-        If DtIngresosSubProyectoH.Rows.Count > 0 Then
+        Dim IndexTotatles As Integer = 11 + IndexSubProyectoMAx
 
 
+        For Each dCoumn As DataColumn In DT_ACTIVO_CIRCULANTE.Columns
 
+            If IndexData >= 11 Then
 
-            For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
+                If IndexSubProyecto <= IndexSubProyectoMAx Then
 
-                If IndexData >= 13 Then
+                    CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                    GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
+
+                    CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                    GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
 
                     If IndexSubProyecto <= IndexSubProyectoMAx Then
-
-                        CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
-
-                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
-
-                        If IndexSubProyecto <= IndexSubProyectoMAx Then
-                            CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
-                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
-                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
-                        End If
-
-                    Else
-                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                        CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                        CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
                     End If
 
-                    IndexGv = IndexGv + 1
-                    IndexSubProyecto = IndexSubProyecto + 1
-                    IndexMax = IndexMax + 1
-
+                Else
+                    GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                    GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
                 End If
-                IndexData = IndexData + 1
-            Next
 
+                IndexGv = IndexGv + 1
+                IndexSubProyecto = IndexSubProyecto + 1
+                IndexMax = IndexMax + 1
 
-            For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+            End If
+            IndexData = IndexData + 1
+        Next
+
+        Row = DT_ACTIVO_CIRCULANTE.NewRow
+        If DT_ACTIVO_CIRCULANTE.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_ACTIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
-            IndexData = 13
-            For IndexData = 13 To IndexTotatles
-                Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_ACTIVO_CIRCULANTE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
             Next
 
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
-            Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
-            Row.Item("PorcentajeAcumulado") = "100.00"
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
             Row.Item("CtaMayor") = -1
-            DtIngresosSubProyectoH.Rows.Add(Row)
+            DT_ACTIVO_CIRCULANTE.Rows.Add(Row)
         Else
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
             Row.Item("CtaMayor") = -1
-            DtIngresosSubProyectoH.Rows.Add(Row)
+            DT_ACTIVO_CIRCULANTE.Rows.Add(Row)
         End If
 
-        Dim T1 = TotalActual, T2 = TotalAnterior
-
         TotalActual = 0
         TotalAnterior = 0
 
-        Row = DtGastosSubProyectoH.NewRow
+        Row = DT_ACTIVO_FIJO.NewRow
+        If DT_ACTIVO_FIJO.Rows.Count > 0 Then
 
-        If DtGastosSubProyectoH.Rows.Count > 0 Then
-
-
-            IndexData = 0
-            IndexGv = 1
-            IndexMax = 0
-            IndexSubProyecto = 0
-
-            For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
-                If IndexData >= 13 Then
-                    If IndexSubProyecto <= IndexSubProyectoMAx Then
-                        CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        GvGastosSubProyectoH.Columns(IndexGv).Visible = True
-                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
-                    Else
-                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
-                    End If
-
-                    IndexGv = IndexGv + 1
-                    IndexSubProyecto = IndexSubProyecto + 1
-                End If
-                IndexData = IndexData + 1
-            Next
-
-
-
-            For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+            For Each dr As DataRow In DT_ACTIVO_FIJO.FiltraParametros("NOT CtaMayor in (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
-            IndexData = 13
-            For IndexData = 13 To IndexTotatles
-                Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_ACTIVO_FIJO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
             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("Nombre") = "TOTAL ACTIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
             Row.Item("CtaMayor") = -1
-            DtGastosSubProyectoH.Rows.Add(Row)
+            DT_ACTIVO_FIJO.Rows.Add(Row)
         Else
-            Row.Item("Nombre") = "TOTAL GASTOS"
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
             Row.Item("CtaMayor") = -1
-            DtGastosSubProyectoH.Rows.Add(Row)
+            DT_ACTIVO_FIJO.Rows.Add(Row)
         End If
 
-        If DtIngresosSubProyectoH.Rows.Count > 0 Then
+        TotalActual = 0
+        TotalAnterior = 0
 
-            Row = DTTotalesSubProyectoH.NewRow
+        Row = DT_ACTIVO_DIFERIDO.NewRow
+        If DT_ACTIVO_DIFERIDO.Rows.Count > 0 Then
 
-
-
-            IndexData = 13
-            For IndexData = 13 To IndexTotatles
-                Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            For Each dr As DataRow In DT_ACTIVO_DIFERIDO.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
-            Row.Item("Nombre") = "Totales:"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
-            'Row.Item("PorcentajeAcumulado") = "100.00"
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_ACTIVO_DIFERIDO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO"
+            Row.Item("ImporteActual") = DT_ACTIVO_DIFERIDO.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO_DIFERIDO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO_DIFERIDO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO_DIFERIDO.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        Row = DT_PASIVO_CIRCULANTE.NewRow
+        If DT_PASIVO_CIRCULANTE.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_PASIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_PASIVO_CIRCULANTE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE"
+            Row.Item("ImporteActual") = DT_PASIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_PASIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_CIRCULANTE.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_CIRCULANTE.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        Row = DT_PASIVO_NO_CIRCULANTE.NewRow
+        If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_PASIVO_NO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_PASIVO_NO_CIRCULANTE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = DT_PASIVO_NO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_PASIVO_NO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+
+        Row = DT_CAPITAL_CONTABLE.NewRow
+        If DT_CAPITAL_CONTABLE.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_CAPITAL_CONTABLE.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_CAPITAL_CONTABLE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE"
+            Row.Item("ImporteActual") = DT_CAPITAL_CONTABLE.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_CAPITAL_CONTABLE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_CAPITAL_CONTABLE.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
+            Row.Item("CtaMayor") = -1
+            DT_CAPITAL_CONTABLE.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        DT_ACTIVO.Merge(DT_ACTIVO_CIRCULANTE)
+        DT_ACTIVO.Merge(DT_ACTIVO_FIJO)
+        DT_ACTIVO.Merge(DT_ACTIVO_DIFERIDO)
+
+        DT_PASIVO.Merge(DT_PASIVO_CIRCULANTE)
+        DT_PASIVO.Merge(DT_PASIVO_NO_CIRCULANTE)
+
+
+        Row = DT_ACTIVO.NewRow
+        If DT_ACTIVO.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_ACTIVO.FiltraParametros("NOT CtaMayor in (-1,3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL ACTIVO"
+            Row.Item("ImporteActual") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL ACTIVO"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
+            Row.Item("CtaMayor") = -1
+            DT_ACTIVO.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        Row = DT_PASIVO.NewRow
+        If DT_PASIVO.Rows.Count > 0 Then
+
+            For Each dr As DataRow In DT_PASIVO.FiltraParametros("NOT CtaMayor in (-1,3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_PASIVO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL PASIVO"
+            Row.Item("ImporteActual") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = 100.0
+            Row.Item("ImporteAcumulado") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = 100.0
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL PASIVO"
+            Row.Item("ImporteActual") = 0.00
+            Row.Item("ImporteAcumulado") = 0.00
+            Row.Item("CtaMayor") = -1
+            DT_PASIVO.Rows.Add(Row)
+        End If
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+
+        DT_TOTALES.Merge(DT_ACTIVO)
+        DT_TOTALES.Merge(DT_PASIVO)
+        DT_TOTALES.Merge(DT_CAPITAL_CONTABLE)
+
+        If DT_TOTALES.Rows.Count > 0 Then
+
+            Row = DT_TOTALES.NewRow
+
+
+            IndexData = 11
+            For IndexData = 11 To IndexTotatles
+                Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTALES:"
+
+            Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+
             Row.Item("CtaMayor") = -2
 
-            DTTotalesSubProyectoH.Rows.Add(Row)
+            DT_TOTALES.Rows.Add(Row)
 
         End If
 
-        DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH)
-        DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH)
+        'DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH)
+        'DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH)
 
 
-        GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
+        GvIngresosSubProyectoH.DataSource = DT_TOTALES
         GvIngresosSubProyectoH.DataBind()
 
-        'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
-        'GvGastosSubProyectoH.DataBind()
-
-        'GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
-        'GvTotalesSubProyectoH.DataBind()
-
         UpDatosSubProyectoH.Update()
 
     End Sub
 
-    Private Sub SumaTotalesSubProyectoH()
-        ''Llena Lb´s Totales
-        ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
 
-        'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-        'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
-
-
-    End Sub
 
     Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
-                TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+
+                'TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
                 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
 
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
@@ -1378,7 +2230,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
 
             Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
-            'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
+
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
 
@@ -1390,15 +2242,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 
                 For IndiceInicio = 1 To IndiceMax
 
-                    Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
+                    Dim CveSubProyectoIntermo As String = CType(GvIngresosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
                     Dim Importe As String = e.Row.Cells(IndiceInicio).Text
 
 
 
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{Importe}</a>"
+                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/1900&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{Importe}</a>"
                 Next IndiceInicio
 
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}"
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/1900&ER=1&CveSubProyecto={-1}"
 
             End If
 
@@ -1412,24 +2264,17 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
-                TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+
+                'TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                'TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+
                 e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 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("/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("/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)
-            '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
@@ -1440,7 +2285,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
     Protected Sub GvTotalesSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.Header Then
-            '  e.Row.Attributes.Add("style", "display:none")
+
         End If
 
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -1453,4 +2298,5 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
 #End Region
 
 
+
 End Class
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 137f024d4..80ddf6def 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -85,11 +85,7 @@
      <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
         
          <ajax:TabPanel ID="TabMes" runat="server" HeaderText="Mensual">
-            <ContentTemplate>
-
-            
-
-              
+            <ContentTemplate> 
 
                 <table style="width: 100%;" class="table table-striped table-advance table-hover">
                     <tr>
diff --git a/Empresas/140/Formatos/Traslado.rdlc b/Empresas/140/Formatos/Traslado.rdlc
index 9cfc9c2ca..a7dbec927 100644
--- a/Empresas/140/Formatos/Traslado.rdlc
+++ b/Empresas/140/Formatos/Traslado.rdlc
@@ -540,7 +540,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Sum(Fields!Cantidad.Value, "DsInventarios")</Value>
+                <Value>=Sum(iif(Not Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios")</Value>
                 <Style>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Normal</FontWeight>
@@ -580,7 +580,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Sum(iif(Fields!Clasificacion.Value = "USADOS",Fields!Cantidad.Value,0),"DsInventarios")</Value>
+                <Value>=Sum(iif(Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios")</Value>
                 <Style>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Normal</FontWeight>
@@ -809,39 +809,6 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-        <Textbox Name="Textbox10">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>=Parameters!SubProyecto.Value</Value>
-                  <Style>
-                    <FontSize>12pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox2</rd:DefaultName>
-          <Top>3.24566cm</Top>
-          <Left>0.00711cm</Left>
-          <Height>0.6cm</Height>
-          <Width>14.27979cm</Width>
-          <ZIndex>6</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
         <Textbox Name="Textbox11">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
@@ -849,7 +816,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Origen 2: </Value>
+                  <Value>Origen: </Value>
                   <Style>
                     <FontSize>12pt</FontSize>
                     <FontWeight>Bold</FontWeight>
@@ -871,7 +838,7 @@
           <Left>0.00711cm</Left>
           <Height>0.6cm</Height>
           <Width>14.27979cm</Width>
-          <ZIndex>7</ZIndex>
+          <ZIndex>6</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -911,7 +878,7 @@
           <Left>0.00711cm</Left>
           <Height>0.6cm</Height>
           <Width>14.27979cm</Width>
-          <ZIndex>8</ZIndex>
+          <ZIndex>7</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -930,7 +897,7 @@
           <Left>0.1121cm</Left>
           <Height>2.53711cm</Height>
           <Width>4.08574cm</Width>
-          <ZIndex>9</ZIndex>
+          <ZIndex>8</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc
index c16252ec5..ca6ada751 100644
--- a/Empresas/141/Formatos/Factura.rdlc
+++ b/Empresas/141/Formatos/Factura.rdlc
@@ -1546,7 +1546,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>FACTURA</Value>
+                    <Value>=UCase(Parameters!TipoDocumento.Value)</Value>
                     <Style>
                       <FontWeight>Bold</FontWeight>
                       <Color>White</Color>
@@ -1560,7 +1560,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
             <Left>18.23008cm</Left>
-            <Height>0.6cm</Height>
+            <Height>0.96018cm</Height>
             <Width>2.79101cm</Width>
             <ZIndex>7</ZIndex>
             <Style>
@@ -1594,7 +1594,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
-            <Top>0.59682cm</Top>
+            <Top>0.97782cm</Top>
             <Left>18.23008cm</Left>
             <Height>0.6cm</Height>
             <Width>2.79101cm</Width>
@@ -1645,7 +1645,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
-            <Top>1.19682cm</Top>
+            <Top>1.57782cm</Top>
             <Left>18.23008cm</Left>
             <Height>0.86903cm</Height>
             <Width>2.79101cm</Width>
diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb
index 33b9f89ba..d17b63a42 100644
--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -134,7 +134,7 @@ Partial Class Inventarios_PrestamosdeProveedor
 
             'AGREGAMOS LA SALIDA
             CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 29, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                              Observaciones:=TxtObservacionesEntrega.Text.Trim, CveProveedor:=tCveProveedor)
+                                                              Observaciones:=TxtObservacionesEntrega.Text.Trim, CveProveedor:=tCveProveedor, Modulo:="PresP")
             Folio = ObjInventario.Folio
 
             If CveMovimientoSalida <= 0 Then
diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb
index 18d66033f..a18df471b 100644
--- a/Inventarios/RecepcionEntrega.aspx.vb
+++ b/Inventarios/RecepcionEntrega.aspx.vb
@@ -2161,49 +2161,57 @@ Partial Class Inventarios_RecepcionEntrega
 
                                 Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                                 'Se agrega movimiento separado por la cuenta de ventas (ER)
-                                For Each RowInv As DataRow In tmpCostos.Rows
-                                    ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
-                                    TotalCostoAcumulado += ValorInventario
 
-                                    'cuando es el último movimiento y hay diferencias en los importes
-                                    If cont = DtCostos.FiltraParametros("", "", {"CveClasificacion"}).Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
-                                        ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
-                                    End If
+                                If CvePrePoliza > 0 Then
 
-                                    'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
-                                    IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                    CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                                    For Each RowInv As DataRow In tmpCostos.Rows
+                                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
+                                        TotalCostoAcumulado += ValorInventario
 
-                                    If Not ErrorMovInv Then
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorMultiplicador * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
-                                            ErrorMovInv = True
+                                        'cuando es el último movimiento y hay diferencias en los importes
+                                        If cont = DtCostos.FiltraParametros("", "", {"CveClasificacion"}).Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
+                                            ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
                                         End If
+
+                                        'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
+                                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                                        CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+
+                                        If Not ErrorMovInv Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorMultiplicador * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
+                                                ErrorMovInv = True
+                                            End If
+                                        End If
+
+                                        cont += 1
+                                    Next
+
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorMultiplicador * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+                                        ErrorMovInv = True
                                     End If
 
-                                    cont += 1
-                                Next
+                                    'AutoConta - El movimiento 1 es el de Venta
+                                    Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorMultiplicador * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+                                    If AutoConta And Not ErrorMovInv Then
+                                        Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
+
+                                        If IdCtaContable > 0 Then
+                                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                                                Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
+                                                ErrorMovInv = True
+                                                TextoError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico"
+                                            End If
+                                        Else
+                                            Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
+                                        End If
+
+                                        ObjContPaq.Dispose()
+                                    End If
+                                Else
                                     ErrorMovInv = True
+                                    TextoError = "Ocurrió un Error al ingresar la prepoliza"
                                 End If
-
-                                'AutoConta - El movimiento 1 es el de Venta
-                                Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
-
-                                If AutoConta And Not ErrorMovInv Then
-                                    Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
-
-                                    If IdCtaContable > 0 Then
-                                        If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
-                                            Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
-                                        End If
-                                    Else
-                                        Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
-                                    End If
-
-                                    ObjContPaq.Dispose()
-                                End If
-
                             Else
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un Error al ingresar las prepolizas"
diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css
index 480722787..992599c9a 100644
--- a/Metronic/assets/admin/layout/css/custom.css
+++ b/Metronic/assets/admin/layout/css/custom.css
@@ -1838,7 +1838,7 @@ div.md-checkbox {
         position: relative;
     }
 
-    .form-group.form-md-line-input .form-control ~ label {
+    .form-group.form-md-line-input .form-control:not(textarea) ~ label {
         bottom: auto;
         padding-bottom: 28px;
     }
diff --git a/OI/Circular.aspx b/OI/Circular.aspx
index 1007eefbe..d3954852f 100644
--- a/OI/Circular.aspx
+++ b/OI/Circular.aspx
@@ -68,7 +68,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Motivo de Baja Registrados"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Circulares"
                 ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
                 <Columns>
                     <asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalle.aspx?CveCircular={0}" />
diff --git a/OI/CircularDetalle.aspx b/OI/CircularDetalle.aspx
index 1d9bbdec7..6d09a8b9e 100644
--- a/OI/CircularDetalle.aspx
+++ b/OI/CircularDetalle.aspx
@@ -14,7 +14,7 @@
     <asp:UpdatePanel runat="server" ID="UpAgregar">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-plus'></i> Agregar Documento"></asp:LinkButton>
+                <asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-envelope'></i> Enviar Correo"></asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -58,7 +58,7 @@
                                 <textarea runat="server" id="TxtCorreo" class="form-control"></textarea>
                             </div>
                             <div class="col-md-1" style="width: 15%">
-                                <asp:LinkButton runat="server" ID="LbBuscar" >Buscar</asp:LinkButton>
+                                <asp:LinkButton runat="server" ID="LbBuscar" Style="color: #23527c;">Buscar</asp:LinkButton>
                             </div>
                         </div>
                         <br />
@@ -76,19 +76,70 @@
                                 <asp:Label runat="server" ID="LblCircular">Circular:</asp:Label>
                             </div>
                             <div class="col-md-1" style="width: 70%">
-                                <textarea runat="server" id="TxtCircular" class="form-control" style="height:150px"></textarea>
+                                <%--<textarea runat="server" id="TxtCircular" class="form-control" style="height: 150px"></textarea>--%>
+                                <asp:TextBox ID="TxtCircular" ClientIDMode="Static" runat="server" MaxLength="5000" TextMode="MultiLine" Height="200px" Width="100%"></asp:TextBox>
+                                <ajax:HtmlEditorExtender
+                                    ID="htmlEdDescripcion"
+                                    TargetControlID="TxtCircular"
+                                    DisplaySourceTab="True"
+                                    EnableSanitization="false"
+                                    runat="server">
+                                    <Toolbar>
+                                        <ajax:Undo />
+                                        <ajax:Redo />
+                                        <ajax:Bold />
+                                        <ajax:Italic />
+                                        <ajax:Underline />
+                                        <ajax:StrikeThrough />
+                                        <ajax:Subscript />
+                                        <ajax:Superscript />
+                                        <ajax:JustifyLeft />
+                                        <ajax:JustifyCenter />
+                                        <ajax:JustifyRight />
+                                        <ajax:JustifyFull />
+                                        <ajax:InsertOrderedList />
+                                        <ajax:InsertUnorderedList />
+                                        <ajax:CreateLink />
+                                        <ajax:UnLink />
+                                        <ajax:RemoveFormat />
+                                        <ajax:SelectAll />
+                                        <ajax:UnSelect />
+                                        <ajax:Delete />
+                                        <ajax:Cut />
+                                        <ajax:Copy />
+                                        <ajax:Paste />
+                                        <ajax:BackgroundColorSelector />
+                                        <ajax:ForeColorSelector />
+                                        <ajax:FontNameSelector />
+                                        <ajax:FontSizeSelector />
+                                        <ajax:Indent />
+                                        <ajax:Outdent />
+                                        <ajax:InsertHorizontalRule />
+                                        <ajax:HorizontalSeparator />
+                                        <%--<ajax:InsertImage />--%>
+                                    </Toolbar>
+                                </ajax:HtmlEditorExtender>
                             </div>
                         </div>
                         <br />
                         <div class="row">
-                            <div class="col-md-1" style="width:30%">
+                            <div class="col-md-1" style="width: 30%">
                                 <asp:Label runat="server" ID="LblAdjunto">Adjuntar archivo:</asp:Label>
                             </div>
-                            <div class="col-md-1" style="width:70%">
+                            <div class="col-md-1" style="width: 70%">
                                 <asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
                             </div>
                         </div>
                         <br />
+                        <div id="archivosDiv" runat="server" class="row" visible="false">
+                            <div class="col-md-1" style="width: 30%">
+                                <asp:Label runat="server" ID="Label1">Archivo cargado:</asp:Label>
+                            </div>
+                            <div class="col-md-1" style="width: 70%">
+                                <asp:HyperLink runat="server" ID="HkArchivo" Style="color: #23527c;"></asp:HyperLink>
+                            </div>
+                        </div>
+                        <br />
                         <div class="row" style="text-align: center">
                             <asp:Button ID="BtnGuardar" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpGuardar" />
                             <asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb
index c231670a5..d5e97c8ab 100644
--- a/OI/CircularDetalle.aspx.vb
+++ b/OI/CircularDetalle.aspx.vb
@@ -2,6 +2,7 @@
 Imports System.Linq
 Imports Extensiones
 Imports System.IO
+Imports System.Text.RegularExpressions
 
 Partial Class OI_CircularDetalle
     Inherits ClsPaginas
@@ -57,7 +58,13 @@ Partial Class OI_CircularDetalle
                 TxtAsunto.Text = Circular.Item("Asunto")
                 TxtCorreo.Value = Circular.Item("CorreosInternos")
                 TxtCorreoAdicional.Value = Circular.Item("CorreosExternos")
-                TxtCircular.Value = Circular.Item("Circular")
+                TxtCircular.Text = Circular.Item("Circular")
+
+                If Circular.Item("ArchivoAdjunto") <> "" Then
+                    archivosDiv.Visible = True
+                    HkArchivo.NavigateUrl = $"~/Empresas/{UsuarioActual.CveEmpresa}/Formatos/{Circular.Item("ArchivoAdjunto")}"
+                    HkArchivo.Text = Circular.Item("ArchivoAdjunto")
+                End If
 
                 UpCliente.Update()
             End If
@@ -76,17 +83,25 @@ Partial Class OI_CircularDetalle
     Private Sub BtnGuardar_Click() Handles BtnGuardar.Click
         Dim ObjOI As New ClsOIEventos
         If CveCircular > 0 Then
-            If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, UsuarioActual.CveUsuario) Then
+
+            Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
+
+            If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text, TxtCorreo.Value, TxtCorreoAdicional.Value, AdjuntoValidate) Then
+                GuardarArchivo(CveCircular)
                 Alert("Actualizado correctamente")
             End If
         Else
             Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value)
-            Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra)
+
+            Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
+            Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Text, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario,
+                                                                 UsuarioActual.CveEmpresa, CorreoExtra, AdjuntoValidate)
             If CircularInsertado > 0 Then
                 GuardarArchivo(CircularInsertado)
                 Alert("Ingresado correctamente")
             End If
         End If
+        CargaDatos()
     End Sub
 
     Private Sub BtnEliminar_Click() Handles BtnEliminar.Click
@@ -133,10 +148,35 @@ Partial Class OI_CircularDetalle
         UpCliente.Update()
     End Sub
 
+    Private Function NombreArchivo() As String
+        Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
+        Dim Filename As String = "-1"
+        For Each fileItem As Archivo In Filesgral
+            Try
+                Filename = fileItem.filename
+            Catch ex As Exception
+                Filename = "-1"
+            End Try
+        Next
+        Return Filename
+    End Function
+
+    Private Function TituloAnterior() As String
+        Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa))
+        Dim ArchivosArreglo As IO.FileInfo() = Directorio.GetFiles()
+        Dim patronRegEx As String = String.Format("^{0}_.*", CveCircular)
+        Dim archivoEncontrado As String = ""
+        For Each file As IO.FileInfo In ArchivosArreglo
+            If Regex.IsMatch(file.Name, patronRegEx) Then
+                archivoEncontrado = file.Name
+            End If
+        Next
+        Return archivoEncontrado
+    End Function
+
     Private Function GuardarArchivo(CircularInsertado As Integer) As String
 
         Dim respuesta As String = ""
-
         Dim FileExtension As String = "-1"
         Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
         Dim Filename As String = ""
@@ -149,13 +189,15 @@ Partial Class OI_CircularDetalle
                 tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
 
                 Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Formatos\" & CircularInsertado & "_" & fileItem.filenameO
-                'Dim docAnterior As String = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & DocumentacionFormato
 
-                'If DocumentacionFormato.Trim.Length > 0 Then
-                '    If File.Exists(docAnterior) Then
-                '        File.Delete(docAnterior)
-                '    End If
-                'End If
+                Dim ArchivoAnterior As String = TituloAnterior()
+
+                If ArchivoAnterior.Length > 0 Then
+                    Dim docAnterior As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoAnterior)
+                    If File.Exists(docAnterior) Then
+                        File.Delete(docAnterior)
+                    End If
+                End If
 
                 If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "\Formatos") Then
                     Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "\Formatos")
@@ -181,10 +223,21 @@ Partial Class OI_CircularDetalle
     Protected Sub LnkMandarCorreo_Click() Handles LnkMandarCorreo.Click
         Dim correos() As String
         correos = TxtCorreo.Value.Split(Environment.NewLine)
-        'MandaCorreo()
+        Dim ArchivoBytes As Byte() = ArchivoBytesArrya(HkArchivo.Text)
+
+        Dim Contador As Integer = 0
+        Try
+            For Each Correo As String In correos
+                MandaCorreo(TxtAsunto.Text, Correo, If(Contador > 0, "", TxtCorreoAdicional.Value), TxtCircular.Text, ArchivoBytes, HkArchivo.Text)
+                Contador += 1
+            Next
+            Alert("El correo se envió correctamente")
+        Catch ex As Exception
+            Alert("Error al enviar correo", TipoMensaje.MsgError)
+        End Try
     End Sub
 
-    Private Sub MandaCorreo(Asunto As String, Para As String, ArrayCC As String, body As String, ArchivoBinario As Byte())
+    Private Sub MandaCorreo(Asunto As String, Para As String, ArrayCC As String, body As String, ArchivoBinario As Byte(), NombreArchivo As String)
 
         Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, Para, ArrayCC)
         a.GuardaLog()
@@ -195,7 +248,7 @@ Partial Class OI_CircularDetalle
 
         With itemMail
             itemMail.ArchivoBinario = ArchivoBinario
-            itemMail.NombreArchivo = "Invitación.pdf"
+            itemMail.NombreArchivo = NombreArchivo
 
         End With
 
@@ -205,4 +258,19 @@ Partial Class OI_CircularDetalle
         Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail)
         Mail = Nothing
     End Sub
+
+    Private Function ArchivoBytesArrya(ArchivoNombre As String) As Byte()
+        Dim ArchivoEnviar As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoNombre)
+        If File.Exists(ArchivoEnviar) Then
+            Dim fs As System.IO.FileStream = System.IO.File.Open(ArchivoEnviar, IO.FileMode.Open, IO.FileAccess.Read)
+            Dim buff(fs.Length) As Byte
+            If fs.Length > 0 Then
+                fs.Read(buff, 0, fs.Length - 1)
+                fs.Close()
+            End If
+            Return buff
+        End If
+
+        Return New Byte() {}
+    End Function
 End Class
diff --git a/OI/RepTareas2.aspx b/OI/RepTareas2.aspx
new file mode 100644
index 000000000..b49be0b16
--- /dev/null
+++ b/OI/RepTareas2.aspx
@@ -0,0 +1,384 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepTareas2.aspx.cs" Inherits="OI_RepTareas2" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .btn.btnCalendar {
+            padding: 5px 10px;
+        }
+
+        .btn.btn-circle.btn-icon-only.btnsmalli {
+            padding: 5px 7px 5px;
+            height: 27px;
+            width: 27px;
+            line-height: 1;
+        }
+
+        .btn.btnsmalli > i {
+            font-size: 10px;
+        }
+
+        .titletable {
+            background-color: #e1e5ec;
+        }
+
+        #Gvmiembros tr > td:nth-child(2) {
+            width: 30px;
+            text-align: right;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkAddEvento" OnClick="LnkAddEvento_Click" runat="server"><i class="fa fa-plus"></i> Agregar Tarea</asp:LinkButton>
+    </li>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+
+
+    <div id='<%= iddivAgregar %>' class="modal ADS fade" role="dialog">
+        <div class="modal-dialog modal-lg">
+            <asp:UpdatePanel ID="UpAgregarConductor" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span> </button>
+                        <h4 class="modal-title" style="text-align: left">
+                            <asp:Literal ID="LtleventoTitle" runat="server">Agregar Tarea</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-7">
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Tarea</span>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body rowpadding">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConductor"></asp:RequiredFieldValidator>
+                                            <asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtAsunto"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input">
+                                            <asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="3"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RfvDescripcion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConductor"></asp:RequiredFieldValidator>
+                                            <asp:Label runat="server" Text="Descripción" AssociatedControlID="TxtDescripcion"></asp:Label>
+                                        </div>
+                                        <div class="row">
+                                            <div class="col-sm-6">
+                                                <div class="input-group form-group form-md-line-input  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                                    <asp:TextBox ID="txtFechaI" runat="server" autocomplete="false" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                                    <asp:RequiredFieldValidator ID="RFVtxtFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
+                                                    <asp:Label AssociatedControlID="txtFechaI" runat="server" Text="Fecha Inicio"></asp:Label>
+                                                    <%--<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999 99:99" MaskType="DateTime" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
+                                                    <ajax:ValidatorCalloutExtender ID="VcoFechaI" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
+                                            <div class="col-sm-6">
+                                                <div class="input-group form-group form-md-line-input  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                                    <asp:TextBox ID="txtFechaF" runat="server" autocomplete="false" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px " placeholder=""></asp:TextBox>
+                                                    <asp:RequiredFieldValidator ID="RFVtxtFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
+                                                    <asp:Label AssociatedControlID="txtFechaF" runat="server" Text="Fecha Fin"></asp:Label>
+                                                    <%--<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999 99:99" MaskType="DateTime" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
+                                                    <ajax:ValidatorCalloutExtender ID="VcoFechaF" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <div class="row">
+                                            <div class="col-sm-6">
+                                                <div class="form-group form-md-line-input">
+                                                    <asp:DropDownList ID="DdlPrioridad" runat="server" CssClass="form-control select2me input-sm" Width="100%">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        <asp:ListItem Text="Baja" Value="1" style="color: #00CC00;"></asp:ListItem>
+                                                        <asp:ListItem Text="Media" Value="2" style="color: #000000;"></asp:ListItem>
+                                                        <asp:ListItem Text="Alta" Value="3" style="color: #FF0000;"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="Guarda"></asp:RequiredFieldValidator>
+                                                    <asp:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label>
+                                                    <ajax:ValidatorCalloutExtender ID="VCOPrio" runat="server" TargetControlID="RFVPrioridad" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
+                                            <div class="col-sm-6">
+                                                <div class="form-group form-md-line-input">
+                                                    <asp:DropDownList ID="DdlRevision" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveRevision" DataTextField="Revision" Width="100%">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <asp:Label runat="server" AssociatedControlID="DdlRevision">Revisión:</asp:Label>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="fa fa-check-square-o font-green"></i>
+                                            <span class="caption-subject bold uppercase">CheckList  (2/5)</span>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body rowpadding">
+                                        <div class="row">
+                                            <div class="col-md-8">
+                                                <div class="form-group form-md-line-input">
+                                                    <asp:TextBox ID="TxtActividad" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox>
+                                                    <asp:Label runat="server" Text="Agregar Actividad" AssociatedControlID="TxtActividad"></asp:Label>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-4">
+                                                <a class="btn btn-default">Agregar</a>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+
+
+                            </div>
+                            <div class="col-md-5">
+
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Estatus</span>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body rowpadding">
+
+
+                                        <div class="form-group form-md-line-input">
+                                            <asp:DropDownList ID="DdlEventoEstatus" Visible="true" runat="server" DataValueField="CveEventoEstatus" CssClass="form-control select2me input-sm" Width="100%" DataTextField="EventoEstatus">
+                                            </asp:DropDownList>
+                                            <asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label>
+                                        </div>
+                                    </div>
+                                </div>
+
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="fa fa-user-plus font-green"></i>
+                                            <span class="caption-subject bold uppercase">Miembros</span>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body rowpadding">
+                                        <div class="row">
+                                            <div class="col-md-10">
+                                                <div class="form-group form-md-line-input">
+                                                    <asp:DropDownList ID="DdlUsuario" Visible="true" runat="server" CssClass="form-control select2me input-sm" Width="100%" DataValueField="CveUsuario" DataTextField="Usuario">
+                                                    </asp:DropDownList>
+                                                    <asp:Label runat="server" AssociatedControlID="DdlUsuario">Usuario:</asp:Label>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-2" style="direction: rtl; padding-top: 15px;">
+                                                <a class="btn btn-default"><i class="fa fa-plus"></i></a>
+                                            </div>
+                                        </div>
+                                        <table id="Gvmiembros" class="Widthall">
+                                            <tr class="titletable">
+                                                <td colspan="2">Para</td>
+                                            </tr>
+                                            <tr>
+                                                <td>jorge caudillo</td>
+                                                <td><a class="btn btn-circle btn-icon-only red btnsmalli"><i class='icon-trash'></i></a></td>
+                                            </tr>
+                                            <tr class="titletable">
+                                                <td colspan="2">Con copia para</td>
+                                            </tr>
+                                            <tr>
+                                                <td>Julian Moreno</td>
+                                                <td><a class="btn btn-circle btn-icon-only red btnsmalli"><i class='icon-trash'></i></a></td>
+                                            </tr>
+                                        </table>
+                                    </div>
+                                </div>
+
+                            </div>
+                        </div>
+
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-bars font-green"></i>
+                                    <span class="caption-subject bold uppercase">Registro de actividades</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding" style="display: none;">
+                                <div class="row">
+                                    <div class="col-md-8">
+                                        <div class="form-group form-md-line-input">
+                                            <asp:TextBox ID="TxtComentario" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox>
+                                            <asp:Label runat="server" Text="Agregar Comentario" AssociatedControlID="TxtComentario"></asp:Label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <a class="btn btn-default">Agregar</a>
+                                    </div>
+                                </div>
+                                <table class="Widthall table ">
+                                    <tbody>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>comentario con archivo</td>
+                                            <td><a><i class="fa fa-download"></i></a></td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>comentario</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se termino la activada y del checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se termino la activada x del checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se agrego la activada p al checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se agrego la activada w al checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se agrego la activada z al checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se agrego la activada y al checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se agrego la activada x al checklist</td>
+                                        </tr>
+                                        <tr>
+                                            <td>19/04/2020 </td>
+                                            <td>Se registro la tarea oi</td>
+                                        </tr>
+                                    </tbody>
+                                </table>
+                            </div>
+                        </div>
+
+                        <%--<div class="row" style="margin-top: 10px; margin-bottom: 10px;">
+                            <div class="col-md-2">Vencimiento de Licencia:</div>
+                            <div class="col-md-4">
+                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                    <asp:TextBox ID="TxtFechaVenc" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></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="TxtFechaVenc" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="TxtFechaVenc" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="TxtFechaVenc" Display="None" ErrorMessage="El campo <b>''Fecha Vencimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="TxtFechaVenc" Display="None" ErrorMessage="El campo <b>''Fecha Vencimiento''</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>
+                            </div>
+                            <div class="col-md-2">Fecha de Nacimiento:</div>
+                            <div class="col-md-4">
+                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                    <asp:TextBox ID="TxtFechaNacimiento" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioN" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="imgCalendarioN" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha Vencimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha Vencimiento''</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>
+                            </div>
+                        </div>
+                        <div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright">
+                            <label>Activo: </label>
+                            <br />
+                            <asp:CheckBox ID="CheckBox1" Text=" " runat="server" CssClass="chksino" Width="250px"></asp:CheckBox>
+                        </div>--%>
+                    </div>
+                    <div class="modal-footer">
+                        <%--<asp:LinkButton ID="LnkAddConductor" OnClick="LnkAddConductor_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="GrpConductor"></asp:LinkButton>--%>
+                        <button data-dismiss="modal" class="btn btn-default">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+    <script>
+
+        function CargaPickers() {
+            $.datetimepicker.setLocale('es');
+            $('input.ADDateTimePicker').each(function () {
+                var TThis = $(this);
+                TThis.datetimepicker({
+                    dayOfWeekStart: 1,
+                    lang: 'es',
+                    format: 'd/m/Y H:i',
+                    formatDate: 'd/m/Y H:i',
+                    step: 30
+                });
+                var Div = TThis.parent()
+                var boton = document.createElement('span');
+                boton.className = "input-group-btn"
+
+                var subboton = document.createElement('a')
+                subboton.className = "btn default btnCalendar"
+                subboton.innerHTML = "<i class='fa fa-calendar'></i>"
+                subboton.addEventListener('click', function () {
+                    TThis.datetimepicker('show')
+                });
+                boton.appendChild(subboton)
+
+                var agregar = true;
+                for (var i = 0; i < Div[0].children.length; i++) {
+                    if (Div[0].children[i].isEqualNode(boton)) {
+                        agregar = false;
+                    }
+                }
+                if (agregar) {
+                    Div[0].appendChild(boton);
+                }
+                //Div[0].appendChild(boton)
+
+            });
+
+
+        }
+
+        Sys.Application.add_load(function (s, e) {
+            CargaPickers();
+        });
+        $(document).ready(function () {
+            CargaPickers();
+        });
+    </script>
+</asp:Content>
+
diff --git a/OI/RepTareas2.aspx.cs b/OI/RepTareas2.aspx.cs
new file mode 100644
index 000000000..6662bf5e9
--- /dev/null
+++ b/OI/RepTareas2.aspx.cs
@@ -0,0 +1,22 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class OI_RepTareas2 :  System.Web.UI.Page
+{
+    public const string iddivAgregar = "divModalAgregarEvento";
+    protected void Page_Load(object sender, EventArgs e)
+    {
+
+    }
+
+    protected void LnkAddEvento_Click(object sender, EventArgs e)
+    {
+
+        this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar));
+    }
+}
\ No newline at end of file
diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb
index ca1eda77e..dbe6c9e10 100644
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -543,7 +543,7 @@ Partial Class Ventas_PortalCliente
 
 #Region "  PAGO PROSEPAGO  "
     Private Sub InicializaProsepago()
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 145) Then
             GvCxC.Columns(10).Visible = False
             LBPagar.Visible = False
         End If
@@ -632,7 +632,7 @@ Partial Class Ventas_PortalCliente
 
         Dim uriString = ""
         Select Case UsuarioActual.CveEmpresa
-            Case 1, 4, 7, 11, 12
+            Case 1, 4, 7, 11, 12, 145
                 uriString = "https://www.prosepago.com/tvirtual/tvds.aspx?ppost=1&t=123" ' VSH SEGURIDAD
             Case Else
                 Alert("Sin terminal de pago configurada. Por favor comuniquese con su proveedor para verificar.", TipoMensaje.MsgAdvertencia)
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 6b0fdf693..b17c251cb 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -28,8 +28,8 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <%--    <li>
-        <asp:LinkButton ID="ImgImprimir" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    <%--    <li>
+        <asp:LinkButton ID="ImgImprimir" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
     </li>--%>
     <li>
         <asp:LinkButton ID="ImgImprimirExpediente" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
@@ -376,11 +376,11 @@
                                                         <i></i>
                                                     </div>
 
-                                                    <%-- <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtContactoAlterno" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <ajax:MaskedEditExtender ID="MEECA" runat="server" TargetControlID="TxtContactoAlterno" Mask="(999)999-9999" ></ajax:MaskedEditExtender>
-                                                        <label for="<%= TxtContactoAlterno.ClientID.ToString()%>">Contacto Alterno: </label>
-                                                        <i></i>
+                                                    <%-- <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox CssClass="form-control" ID="TxtContactoAlterno" runat="server" MaxLength="10"></asp:TextBox>
+                                                        <ajax:MaskedEditExtender ID="MEECA" runat="server" TargetControlID="TxtContactoAlterno" Mask="(999)999-9999" ></ajax:MaskedEditExtender>
+                                                        <label for="<%= TxtContactoAlterno.ClientID.ToString()%>">Contacto Alterno: </label>
+                                                        <i></i>
                                                     </div>--%>
                                                 </div>
                                             </div>
@@ -548,11 +548,11 @@
                                                         <label for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>">SubProyecto:  </label>
                                                         <i></i>
                                                     </div>
-                                                    <%--  <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlSucursal" runat="server" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                                        <label for="<%= DdlSucursal.ClientID.ToString()%>">Sucursal:  </label>
-                                                        <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                        <i></i>
+                                                    <%--  <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlSucursal" runat="server" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                        <label for="<%= DdlSucursal.ClientID.ToString()%>">Sucursal:  </label>
+                                                        <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <i></i>
                                                     </div>--%>
 
                                                     <div class="form-group form-md-line-input input-iconright">
@@ -797,10 +797,10 @@
                                                                 CssClass="table  table-hover table-advance  Widthall" GridLines="None">
                                                                 <Columns>
                                                                     <asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" Target="_blank" HeaderText="Folio" DataNavigateUrlFormatString="../Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataTextField="Folio" />
-                                                                    <%--   <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio">
-                                                                        <ItemTemplate>
-                                                                            <asp:Literal ID="LtlFolio" runat="server" Text='<%#  If(Eval("Folio").ToString = "", "ND", Eval("Folio").ToString) %>'>></asp:Literal>
-                                                                        </ItemTemplate>
+                                                                    <%--   <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio">
+                                                                        <ItemTemplate>
+                                                                            <asp:Literal ID="LtlFolio" runat="server" Text='<%#  If(Eval("Folio").ToString = "", "ND", Eval("Folio").ToString) %>'>></asp:Literal>
+                                                                        </ItemTemplate>
                                                                     </asp:TemplateField>--%>
                                                                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Fecha">
                                                                         <ItemTemplate>
@@ -813,10 +813,10 @@
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
 
-                                                                    <%--      <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Observacion">
-                                                                        <ItemTemplate>
-                                                                            <asp:Literal ID="LtlObserbacion" runat="server" Text='<%# If(Eval("Observaciones").ToString = "", "ND", Eval("Observaciones")) %>'>></asp:Literal>
-                                                                        </ItemTemplate>
+                                                                    <%--      <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Observacion">
+                                                                        <ItemTemplate>
+                                                                            <asp:Literal ID="LtlObserbacion" runat="server" Text='<%# If(Eval("Observaciones").ToString = "", "ND", Eval("Observaciones")) %>'>></asp:Literal>
+                                                                        </ItemTemplate>
                                                                     </asp:TemplateField>--%>
                                                                     <asp:BoundField runat="server" DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:###,###}" />
                                                                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Opciones">
@@ -840,7 +840,7 @@
                                     <div class="portlet box blue-hoki" style="width: 100%;">
                                         <div class="portlet-title">
                                             <div class="caption">
-                                                <i class="icon-grid"></i>Cuentas Bancarias
+                                                <i class="icon-grid"></i>Cuentas Bancarias
                                            
                                             </div>
                                         </div>
@@ -852,61 +852,61 @@
                                                             <tr class="Titulos">
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbBancoNombre" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="BancoNombre0;0">
-                                                                        Banco
+                                                                        Banco
                                                                    
                                                                         <asp:Literal ID="ImgBancoNombre0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbSucursal2" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="Sucursal0;0">
-                                                                        # Suc 
+                                                                        # Suc 
                                                                        
                                                                         <asp:Literal ID="ImgSucursal0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbCuenta" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="Cuenta0;0">
-                                                                        Num Cuenta 
+                                                                        Num Cuenta 
                                                                        
                                                                         <asp:Literal ID="ImgCuenta0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbCLABE" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="CLABE0;0">
-                                                                        CLABE
+                                                                        CLABE
                                                                        
                                                                         <asp:Literal ID="ImgCLABE0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbSWIFT" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="SWIFT0;0">
-                                                                        SWIFT
+                                                                        SWIFT
                                                                        
                                                                         <asp:Literal ID="ImgSWIFT0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbPlaza" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="Plaza0;0">
-                                                                        Plaza
+                                                                        Plaza
                                                                        
                                                                         <asp:Literal ID="ImgPlaza0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbCIE" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="CIE0;0">
-                                                                        CIE
+                                                                        CIE
                                                                        
                                                                         <asp:Literal ID="ImgCIE0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbReferencia" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="Referencia0;0">
-                                                                        Referencia
+                                                                        Referencia
                                                                        
                                                                         <asp:Literal ID="ImgReferencia0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbRefCrediProveedor" runat="server" CausesValidation="false" Text=" " OnClick="LbOrden_Click" CommandArgument="RefCrediProveedor0;0">
-                                                                        Credi Prov
+                                                                        Credi Prov
                                                                        
                                                                         <asp:Literal ID="ImgRefCrediProveedor0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
                                                                 <th width="7%">
                                                                     <asp:LinkButton ID="LbMoneda" runat="server" CausesValidation="false" Text="" OnClick="LbOrden_Click" CommandArgument="Moneda0;0">
-                                                                        Moneda
+                                                                        Moneda
                                                                        
                                                                         <asp:Literal ID="ImgMoneda0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                     </asp:LinkButton></th>
@@ -924,8 +924,8 @@
 
                                                         </thead>
 
-                                                        </tr>
-
+                                                        </tr>
+
                                                        
 
                                                         <td align="center" width="7%">
@@ -952,7 +952,7 @@
                                                         </td>
                                                         <td align="center" width="7%">
                                                             <asp:TextBox CssClass="form-control" ID="TxtConvenioCIE" runat="server" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco" Width="90%"></asp:TextBox>
-                                                            <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
+                                                            <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
                                                         </td>
                                                         <td align="center" width="7%">
                                                             <asp:TextBox CssClass="form-control" ID="TxtReferenciaCB" runat="server" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco" Width="90%"></asp:TextBox>
@@ -974,12 +974,12 @@
                                                         </td>
 
                                                         <td id="TDEstatusTexto" runat="server" visible="false" width="7%">
-                                                            <%--<asp:CheckBox ID ="ChkEstatus" runat="server" Checked="true"></asp:CheckBox>--%>
+                                                            <%--<asp:CheckBox ID ="ChkEstatus" runat="server" Checked="true"></asp:CheckBox>--%>
                                                         </td>
                                                         <td id="TD1" runat="server" visible="true" width="7%">
-                                                            <%--<asp:CheckBox ID ="ChkEstatus" runat="server" Checked="true"></asp:CheckBox>--%>
+                                                            <%--<asp:CheckBox ID ="ChkEstatus" runat="server" Checked="true"></asp:CheckBox>--%>
                                                         </td>                                                        
-                                                        <td align="center" width="7%">&nbsp;&nbsp;&nbsp;&nbsp;
+                                                        <td align="center" width="7%">&nbsp;&nbsp;&nbsp;&nbsp;
                                                            
                                                             <asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton>
                                                         </td>
@@ -1138,7 +1138,7 @@
                                     <div class="portlet box blue-hoki" style="width: 100%;">
                                         <div class="portlet-title">
                                             <div class="caption">
-                                                <i class="icon-grid"></i>Pagos Realizados
+                                                <i class="icon-grid"></i>Pagos Realizados
                                            
                                             </div>
                                         </div>
@@ -1166,28 +1166,28 @@
                                                     <asp:TemplateField>
                                                         <HeaderTemplate>Cheque</HeaderTemplate>
                                                         <ItemTemplate>
-                                                            <asp:HyperLink ID="HplCheque" Visible="False" runat="server" CssClass="Texto" Text='<%# Eval("FolioPago") %>' NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink>&nbsp;
+                                                            <asp:HyperLink ID="HplCheque" Visible="False" runat="server" CssClass="Texto" Text='<%# Eval("FolioPago") %>' NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink>&nbsp;
                                                        
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField Visible="False">
                                                         <HeaderTemplate>Monto Compra (Saldo Orig)</HeaderTemplate>
                                                         <ItemTemplate>
-                                                            <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                            <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
                                                        
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField>
                                                         <HeaderTemplate>Abonado</HeaderTemplate>
                                                         <ItemTemplate>
-                                                            <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                            <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
                                                        
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField Visible="False">
                                                         <HeaderTemplate>% Pagado</HeaderTemplate>
                                                         <ItemTemplate>
-                                                            <asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorPagado", "{0:N2}%") %>'></asp:Literal>&nbsp;
+                                                            <asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorPagado", "{0:N2}%") %>'></asp:Literal>&nbsp;
                                                        
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
@@ -1538,7 +1538,7 @@
                                             <div class="portlet box blue-hoki" style="width: 100%;">
                                                 <div class="portlet-title">
                                                     <div class="caption">
-                                                        <i class="icon-grid"></i>Registro de Nómina
+                                                        <i class="icon-grid"></i>Registro de Nómina
                                                    
                                                     </div>
                                                 </div>
@@ -1661,8 +1661,8 @@
                                                 <%--<thead>--%>
                                                     <tr class="Titulos">
                                                         <th width="120px">
-                                                            <asp:LinkButton ID="LbFechaAsistencia" runat="server" CausesValidation="false" Text="Fecha" CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbFechaAsistencia" runat="server" CausesValidation="false" Text="Fecha" CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th width="180px">
                                                             <asp:LinkButton ID="LbClienteAsistencia" runat="server" CausesValidation="false" Text="Cliente" CommandArgument="Cliente1;1" OnClick="LbOrden_Click">
@@ -1677,28 +1677,28 @@
                                                                 <asp:Literal ID="ImgSubProyecto1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                             </asp:LinkButton></th>
                                                         <th width="70px">
-                                                            <asp:LinkButton ID="LbTipoAsistencia" runat="server" CausesValidation="false" Text="Asistencia" CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbTipoAsistencia" runat="server" CausesValidation="false" Text="Asistencia" CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th width="50px">
-                                                            <asp:LinkButton ID="LbPorPagoAsistencia" runat="server" CausesValidation="false" Text="% Pago" CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbPorPagoAsistencia" runat="server" CausesValidation="false" Text="% Pago" CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th width="56px">
-                                                            <asp:LinkButton ID="LbHorasDoblesAsistencia" runat="server" CausesValidation="false" Text="Hrs Dob." CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbHorasDoblesAsistencia" runat="server" CausesValidation="false" Text="Hrs Dob." CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th width="56px">
-                                                            <asp:LinkButton ID="LbHorasTriplesAsistencia" runat="server" CausesValidation="false" Text="Hrs Trip." CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbHorasTriplesAsistencia" runat="server" CausesValidation="false" Text="Hrs Trip." CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th width="110px">
-                                                            <asp:LinkButton ID="LbMotivosHorasExtrasAsistencia" runat="server" CausesValidation="false" Text="Motivos H. Extras" CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbMotivosHorasExtrasAsistencia" runat="server" CausesValidation="false" Text="Motivos H. Extras" CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th width="30px">
-                                                            <asp:LinkButton ID="LbObservacionesAsistencia" runat="server" CausesValidation="false" Text="Obs." CommandArgument="" OnClick="LbOrden_Click">
-
+                                                            <asp:LinkButton ID="LbObservacionesAsistencia" runat="server" CausesValidation="false" Text="Obs." CommandArgument="" OnClick="LbOrden_Click">
+
                                                             </asp:LinkButton></th>
                                                         <th style="text-align: center;" width="8px">Comandos</th>
                                                     </tr>
@@ -2070,8 +2070,8 @@
                                                             <div class="tools"><a href="javascript;" class="collapse" data-original-title="" title=""></a></div>
                                                             <div class="actions">
                                                                 <div class="btn-group">
-                                                                    <asp:HyperLink data-toggle="modal" data-target="#ModalAddVacaciones" runat="server" class="btn green btn-outline btn-sm">
-                                                                        <i class="fa fa-plus"></i> Solicitar Vacaciones
+                                                                    <asp:HyperLink data-toggle="modal" data-target="#ModalAddVacaciones" runat="server" class="btn green btn-outline btn-sm">
+                                                                        <i class="fa fa-plus"></i> Solicitar Vacaciones
                                                                     </asp:HyperLink>
                                                                 </div>
                                                             </div>
@@ -2221,7 +2221,7 @@
                                                                                         </div>
                                                                                         <div class="col-md-3"></div>
                                                                                     </div>
-                                                                                    <%--Motivo
+                                                                                    <%--Motivo
                                                                                     <asp:TextBox ID="TxtMotivoVacaciones" runat="server" TextMode="MultiLine" Rows="4" CssClass="form-control Widthallimp"></asp:TextBox>--%>
                                                                                 </ContentTemplate>
                                                                             </asp:UpdatePanel>
@@ -2415,9 +2415,9 @@
 
 
                                         </ContentTemplate>
-                                        <%--<Triggers>
-                                            <asp:PostBackTrigger ControlID="BtnSolicitarVacaciones" />
-
+                                        <%--<Triggers>
+                                            <asp:PostBackTrigger ControlID="BtnSolicitarVacaciones" />
+
                                         </Triggers>--%>
                                     </asp:UpdatePanel>
 
@@ -2557,7 +2557,7 @@
                                                             <asp:Panel ID="PnlGastoGeneral" runat="server">
                                                                 <table border="0" class="Widthall">
                                                                     <tr>
-                                                                        <td>Saldo: $
+                                                                        <td>Saldo: $
                                                                    
                                                                             <asp:Label ID="LblSaldoGxC" runat="server" Text="" Font-Bold="True"></asp:Label>
                                                                             <br />
@@ -2585,7 +2585,7 @@
                                                                                     <asp:TemplateField>
                                                                                         <HeaderTemplate>Cargo</HeaderTemplate>
                                                                                         <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Cargo", "{0:###,###,###.##}")%>'></asp:Literal>&nbsp;
+                                                                                            <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Cargo", "{0:###,###,###.##}")%>'></asp:Literal>&nbsp;
                                                                                        
                                                                                         </ItemTemplate>
                                                                                         <ItemStyle HorizontalAlign="Right" />
@@ -2593,7 +2593,7 @@
                                                                                     <asp:TemplateField>
                                                                                         <HeaderTemplate>Abono</HeaderTemplate>
                                                                                         <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlComprobado" runat="server" Text='<%# Eval("Abono", "{0:###,###,###.##}")%>'></asp:Literal>&nbsp;
+                                                                                            <asp:Literal ID="LtlComprobado" runat="server" Text='<%# Eval("Abono", "{0:###,###,###.##}")%>'></asp:Literal>&nbsp;
                                                                                        
                                                                                         </ItemTemplate>
                                                                                         <ItemStyle HorizontalAlign="Right" />
@@ -2632,28 +2632,28 @@
                                                                 <asp:TemplateField>
                                                                     <HeaderTemplate>Cheque</HeaderTemplate>
                                                                     <ItemTemplate>
-                                                                        <asp:HyperLink ID="HplCheque" Visible="False" runat="server" CssClass="Texto" Text='<%# Eval("FolioPago") %>' NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink>&nbsp;
+                                                                        <asp:HyperLink ID="HplCheque" Visible="False" runat="server" CssClass="Texto" Text='<%# Eval("FolioPago") %>' NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink>&nbsp;
                                                                    
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
                                                                 <asp:TemplateField Visible="False">
                                                                     <HeaderTemplate>Monto Compra (Saldo Orig)</HeaderTemplate>
                                                                     <ItemTemplate>
-                                                                        <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                                        <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
                                                                    
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
                                                                 <asp:TemplateField>
                                                                     <HeaderTemplate>Abonado</HeaderTemplate>
                                                                     <ItemTemplate>
-                                                                        <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                                        <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
                                                                    
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
                                                                 <asp:TemplateField Visible="False">
                                                                     <HeaderTemplate>% Pagado</HeaderTemplate>
                                                                     <ItemTemplate>
-                                                                        <asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorPagado", "{0:N2}%") %>'></asp:Literal>&nbsp;
+                                                                        <asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorPagado", "{0:N2}%") %>'></asp:Literal>&nbsp;
                                                                    
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
@@ -2694,14 +2694,14 @@
                                                             <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                                 <HeaderTemplate>Cargo</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Cargo", "{0:#,###.00}") %>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Cargo", "{0:#,###.00}") %>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                                 <HeaderTemplate>Abono</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abono", "{0:#,###.00}") %>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abono", "{0:#,###.00}") %>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
@@ -2806,35 +2806,35 @@
                                                             <asp:TemplateField>
                                                                 <HeaderTemplate>Importe(Saldo Orig)</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField>
                                                                 <HeaderTemplate>Comprobado</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlComprobado" runat="server" Text='<%# Eval("Pagado", "{0:N2}")%>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlComprobado" runat="server" Text='<%# Eval("Pagado", "{0:N2}")%>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField>
                                                                 <HeaderTemplate>% Comprobado</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlPorComprobado" runat="server" Text='<%# Eval("PorPagado", "{0:N2}%")%>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlPorComprobado" runat="server" Text='<%# Eval("PorPagado", "{0:N2}%")%>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField>
                                                                 <HeaderTemplate>Saldo</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField>
                                                                 <HeaderTemplate>% A Pagar</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlPorXComprobar" runat="server" Text='<%# Eval("PorSaldo", "{0:N2}%")%>'></asp:Literal>&nbsp;
+                                                                    <asp:Literal ID="LtlPorXComprobar" runat="server" Text='<%# Eval("PorSaldo", "{0:N2}%")%>'></asp:Literal>&nbsp;
                                                                
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
@@ -2890,7 +2890,7 @@
                                                             <Columns>
                                                                 <asp:TemplateField>
                                                                     <HeaderTemplate>
-                                                                        Factura
+                                                                        Factura
                                                                    
                                                                     </HeaderTemplate>
                                                                     <ItemTemplate>
@@ -2900,7 +2900,7 @@
 
                                                                 <asp:TemplateField>
                                                                     <HeaderTemplate>
-                                                                        Producto
+                                                                        Producto
                                                                    
                                                                     </HeaderTemplate>
                                                                     <ItemTemplate>
@@ -2910,7 +2910,7 @@
 
                                                                 <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left">
                                                                     <HeaderTemplate>
-                                                                        Unidad de medida
+                                                                        Unidad de medida
                                                                    
                                                                     </HeaderTemplate>
                                                                     <ItemTemplate>
@@ -2920,7 +2920,7 @@
 
                                                                 <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
                                                                     <HeaderTemplate>
-                                                                        Cantidad
+                                                                        Cantidad
                                                                    
                                                                     </HeaderTemplate>
                                                                     <ItemTemplate>
@@ -2930,7 +2930,7 @@
 
                                                                 <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
                                                                     <HeaderTemplate>
-                                                                        PU
+                                                                        PU
                                                                    
                                                                     </HeaderTemplate>
                                                                     <ItemTemplate>
@@ -2940,7 +2940,7 @@
 
                                                                 <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
                                                                     <HeaderTemplate>
-                                                                        Total
+                                                                        Total
                                                                    
                                                                     </HeaderTemplate>
                                                                     <ItemTemplate>
@@ -3057,11 +3057,11 @@
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
 
-                                                                        <%--                                                                                                <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
-                                                                                                    <ItemTemplate>
-                                                                                                        <asp:LinkButton ID="ImgE" OnClick="Update_ClickDocumentacionAntidoping" runat="server" ToolTip="Aplicar Cambios" AlternateText="Editar" CausesValidation="False"
-                                                                                                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-check' title='Aplicar Cambios'></i>" />
-                                                                                                    </ItemTemplate>
+                                                                        <%--                                                                                                <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
+                                                                                                    <ItemTemplate>
+                                                                                                        <asp:LinkButton ID="ImgE" OnClick="Update_ClickDocumentacionAntidoping" runat="server" ToolTip="Aplicar Cambios" AlternateText="Editar" CausesValidation="False"
+                                                                                                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-check' title='Aplicar Cambios'></i>" />
+                                                                                                    </ItemTemplate>
                                                                                                 </asp:TemplateField>--%>
                                                                     </Columns>
                                                                 </asp:GridView>
@@ -3378,7 +3378,7 @@
                                             <asp:UpdatePanel ID="UpViaticos" runat="server" UpdateMode="Conditional">
                                                 <ContentTemplate>
                                                     <asp:GridView ID="GVViaticos" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
-                                                        DataKeyNames="CveSolicitudViatico, Folio, CveEstatus, Estatus, CvePersonal, NombrePersonal, CveDepartamento, DepartamentoSolicitante, CveSupervisor, 
+                                                        DataKeyNames="CveSolicitudViatico, Folio, CveEstatus, Estatus, CvePersonal, NombrePersonal, CveDepartamento, DepartamentoSolicitante, CveSupervisor, 
                                                         NombreSupervisor, Destino, Asunto, FechaSalida, FechaRegreso, FechaIng, CveUsuarioIng, UsuarioIng, CiudadPersonal, TelefonoPersonal,  Importe"
                                                         CssClass=" table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                         AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
@@ -3464,8 +3464,8 @@
 
                         </ajax:TabContainer>
                     </ContentTemplate>
-                    <%--<Triggers>
-                        <asp:PostBackTrigger ControlID="LbContrato" />
+                    <%--<Triggers>
+                        <asp:PostBackTrigger ControlID="LbContrato" />
                     </Triggers>--%>
                 </asp:UpdatePanel>
             </td>
@@ -3501,7 +3501,7 @@
                     </tr>
                     <tr align="left">
                         <td>Con copia para:<br />
-                            (Separar con: ;)
+                            (Separar con: ;)
                         </td>
                         <td>
                             <asp:TextBox CssClass="form-control" ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
@@ -3565,9 +3565,9 @@
                     </div>
                     <div class="actions">
                         <div class="btn-group">
-                            <%--<div class=" font-green" style="cursor: pointer;" runat="server" id="ImgAddObs">
-                                <i class="fa fa-commenting font-green"></i>
-                                <span class="caption-subject bold">Agregar</span>
+                            <%--<div class=" font-green" style="cursor: pointer;" runat="server" id="ImgAddObs">
+                                <i class="fa fa-commenting font-green"></i>
+                                <span class="caption-subject bold">Agregar</span>
                             </div>--%>
                             <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
                             <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
@@ -3688,8 +3688,8 @@
                                     </div>
                                 </div>
                             </div>
-                            <%--<div>
-                                    <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                            <%--<div>
+                                    <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
                                 </div>   --%>
                         </ContentTemplate>
                     </asp:UpdatePanel>
@@ -3788,12 +3788,12 @@
                     <div class="modal-body">
                         <div class="row">
                             <div class="col-md-4">
-                                Periodo
+                                Periodo
                            
                             </div>
                             <div class="col-md-8">
                                 <asp:Label ID="TxtFechaDiaVacacion" runat="server" Text=""></asp:Label>
-                                - 
+                                - 
                                
                                 <asp:Label ID="TxtFechaDiaVacacionFin" runat="server" Text=""></asp:Label>
                             </div>
@@ -3833,8 +3833,8 @@
                                     </div>
                                 </div>
                             </div>
-                            <%--<div>
-                                    <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                            <%--<div>
+                                    <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
                                 </div>   --%>
                         </ContentTemplate>
                     </asp:UpdatePanel>
@@ -3852,46 +3852,46 @@
     </div>
     <%-- FIN MODAL SUBIR FACTURAS --%>
 
-    <%--<asp:UpdatePanel runat="server" ID="UPAddEventoBitacora" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div id="DivEventoBitacora" style="width: 335px; background-color: White; border: solid 1px black; color: Black; display: none; position: absolute;">
-                <table style="width: 335px;" class="table table-striped table-advance">
-                    <thead>
-                        <tr class="Titulos">
-                            <th style="width: 330px">Bitácora&nbsp;</th>
-                            <th style="padding-right: 4px; padding-top: 4px" valign="top">
-                                <img alt="" src="/Imagenes/close.gif" style="cursor: pointer;" onclick="$('#DivEventoBitacora').hide(1000);" /></th>
-                        </tr>
-                    </thead>
-
-                    <tr align="left">
-                        <td>
-                            <table>
-                                <tr>
-                                    <td>Bitácora/Observaciones</td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:TextBox CssClass="form-control" ID="TxtEventoDescripcion" runat="server" TextMode="MultiLine" Columns="60" Rows="4"></asp:TextBox>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                    </tr>
-                    <tr style="height: 25px">
-                        <td align="center" colspan="2">
-                            <asp:UpdatePanel runat="server">
-                                <ContentTemplate>
-                                    <asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" OnClientClick="$('#DivEventoBitacora').hide(1000);" Text="Guardar" CssClass="btn btn-primary" />
-                                    <input id="BtnCancelarObs" type="button" value="Cancelar" onclick="$('#DivEventoBitacora').hide(1000);" class="btn btn-default" />
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </td>
-                    </tr>
-                </table>
-
-            </div>
-        </ContentTemplate>
+    <%--<asp:UpdatePanel runat="server" ID="UPAddEventoBitacora" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivEventoBitacora" style="width: 335px; background-color: White; border: solid 1px black; color: Black; display: none; position: absolute;">
+                <table style="width: 335px;" class="table table-striped table-advance">
+                    <thead>
+                        <tr class="Titulos">
+                            <th style="width: 330px">Bitácora&nbsp;</th>
+                            <th style="padding-right: 4px; padding-top: 4px" valign="top">
+                                <img alt="" src="/Imagenes/close.gif" style="cursor: pointer;" onclick="$('#DivEventoBitacora').hide(1000);" /></th>
+                        </tr>
+                    </thead>
+
+                    <tr align="left">
+                        <td>
+                            <table>
+                                <tr>
+                                    <td>Bitácora/Observaciones</td>
+                                </tr>
+                                <tr>
+                                    <td>
+                                        <asp:TextBox CssClass="form-control" ID="TxtEventoDescripcion" runat="server" TextMode="MultiLine" Columns="60" Rows="4"></asp:TextBox>
+                                    </td>
+                                </tr>
+                            </table>
+                        </td>
+                    </tr>
+                    <tr style="height: 25px">
+                        <td align="center" colspan="2">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" OnClientClick="$('#DivEventoBitacora').hide(1000);" Text="Guardar" CssClass="btn btn-primary" />
+                                    <input id="BtnCancelarObs" type="button" value="Cancelar" onclick="$('#DivEventoBitacora').hide(1000);" class="btn btn-default" />
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </td>
+                    </tr>
+                </table>
+
+            </div>
+        </ContentTemplate>
     </asp:UpdatePanel>--%>
 
 
@@ -4447,54 +4447,54 @@
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
 
 
-    <script>
-
-
-        function pageLoad() {
-            $(document).ready(function () {
-                $('#<%=GvPersonalAltas.ClientID%>').ADScroll({
-                    height: 50
-                });
-                $('[data-toggle="tooltip"]').tooltip();
-            });
-        }
-
-        function SetText(ObjFrom, ObjTo) {
-            ObjTo.innerText = ObjFrom.value;
-        }
-
-        function SetText2(ObjTo, Value) {
-            ObjTo.innerText = Value;
-        }
-
-        function getSelectedText(Obj, IfIsNull) {
-            if (Obj.selectedIndex == -1)
-                return IfIsNull;
-            else
-                return Obj.options[Obj.selectedIndex].text;
-        }
-
-        function CargaClientes() {
-            $("#BtnCargarClientes").click();
-        }
-
-        function CargaCuentas(op) {
-
-            $get("HdnCuenta").value = op;
-            $("#BtnCargarCuentas").click();
-        }
-
-        function Download(urlD) {
-            document.getElementById('my_iframe').src = urlD;
-        };
-
+    <script>
+
+
+        function pageLoad() {
+            $(document).ready(function () {
+                $('#<%=GvPersonalAltas.ClientID%>').ADScroll({
+                    height: 50
+                });
+                $('[data-toggle="tooltip"]').tooltip();
+            });
+        }
+
+        function SetText(ObjFrom, ObjTo) {
+            ObjTo.innerText = ObjFrom.value;
+        }
+
+        function SetText2(ObjTo, Value) {
+            ObjTo.innerText = Value;
+        }
+
+        function getSelectedText(Obj, IfIsNull) {
+            if (Obj.selectedIndex == -1)
+                return IfIsNull;
+            else
+                return Obj.options[Obj.selectedIndex].text;
+        }
+
+        function CargaClientes() {
+            $("#BtnCargarClientes").click();
+        }
+
+        function CargaCuentas(op) {
+
+            $get("HdnCuenta").value = op;
+            $("#BtnCargarCuentas").click();
+        }
+
+        function Download(urlD) {
+            document.getElementById('my_iframe').src = urlD;
+        };
+
     </script>
-    <script type="text/javascript">
-
-        function CargarArchivo(Tipo) {
-            if (Tipo == "Imagen") {
-                $("#BtnCargarArchivo").click();
-            }
-        }
+    <script type="text/javascript">
+
+        function CargarArchivo(Tipo) {
+            if (Tipo == "Imagen") {
+                $("#BtnCargarArchivo").click();
+            }
+        }
     </script>
 </asp:Content>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 6228b0e4d..4a1480b55 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -4961,6 +4961,11 @@ Partial Class RH_Personal
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
 
+            Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CvePersonal)
+            If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            End If
+
             If filemove <> "" Then
                 filemove.FilesMove(CvePersonal.ToString, String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa))
             End If
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 4d726dadd..5747d66dc 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -863,7 +863,7 @@ Partial Class Ventas_ClientesAbonar
                                                 importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioVentaValuacion
                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                 ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                                importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioVentaValuacion
+                                                importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                 ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                                 importeMX = ImporteMovimiento * tipoCambioVentaValuacion
@@ -1467,6 +1467,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
+                                            Exit For
                                         End If
 
                                     End If
@@ -1568,7 +1569,7 @@ Partial Class Ventas_ClientesAbonar
                         End If
                     End If
 
-                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
                             MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
                         End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b495f0e2e..d9d67b00f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11209,8 +11209,8 @@ Partial Class Ventas
                                     End If
                                 End If
 
-
-
+                            Else
+                                OcurrioError = True
                             End If
                             factura.Inv_CveMovimiento = CveMovimientoInventario
                             factura.Inv_ValorInventario = ValorInventario
@@ -11249,11 +11249,11 @@ Partial Class Ventas
             If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
                 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
-                Dim IDPoliza As Integer = GenerarPolizaAC(ObjAC, factura)
+                Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, factura)
 
-                If IDPoliza > 0 Then
+                If IDPoliza.IdPoliza > 0 Then
 
-                    If ObjVentas.UpdateVentaPrePoliza(IDPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then
+                    If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then
 
                         'Si se facturó la cotización hay que vincular la venta
                         Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
@@ -15078,8 +15078,8 @@ Partial Class Ventas
         End If
         ObjVentas.Dispose()
     End Sub
-    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As Integer
-        Dim Retorno As Integer = 0
+    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta
+        Dim Retorno As New Modelos.RetornoPolizaConta
         Dim IDPoliza As Integer = 0
 
         Dim ErrorAC As Boolean = False
@@ -15106,7 +15106,8 @@ Partial Class Ventas
         ' Dim NombreCliente As String = ViewState("NombreCliente").ToString
 
         If IDPoliza > 0 Then
-
+            Retorno.IdPoliza = IDPoliza
+            Retorno.FolioPoliza = ObjAC.Folio
             'Orden de PAGO 
             If factura.TipoDocto = "OP" Then
 
@@ -15186,7 +15187,7 @@ Partial Class Ventas
         If Not ErrorAC Then
             ObjAC.AjustaPoliza(IDPoliza)
 
-            Retorno = IDPoliza
+            ' Retorno = IDPoliza
         Else
 
             Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError)
@@ -15197,6 +15198,8 @@ Partial Class Ventas
         Return Retorno
 
     End Function
+
+
     Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer
         Dim Retorno As Integer = 0
         Dim IDPoliza As Integer = 0
diff --git a/vwd.webinfo b/vwd.webinfo
index 6b76e11e1..c9e193dc4 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -50,8 +50,6 @@
     
   
     
-  
-