Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

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
+                    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
-                    End If
+
+                    '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
 

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"""

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">

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
 

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

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

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)
+            If dt Is Nothing Then
+                dt = New DataTable
+            Else
                 dt = dt.Copy()
+            End If
             dt.TableName = rpds.Name
             ds.Tables.Add(dt)
         Next

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

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
 

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)

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)

Bancos/PagoDeudor.aspx.cs

@@ -339,8 +339,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
         }
 
         // DATOS PREPOLIZA
-        if ((DdlTipoTransaccionPrestamo.SelectedValue == "1"))
-            FolioFijo = TxtFolioPrestamo.Text.ToEntero();
+        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)

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)
         {

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

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>

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

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))
 

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();

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 = "")

Compras/Compras.aspx.vb

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

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

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>

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()

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>

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
 
@@ -715,6 +716,7 @@ Partial Class ContabilidadC_RegPrePoliza
             dr("CvePersonal") = drt("CvePersonal")
             dr("CveClasificacion") = -1
             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
@@ -878,6 +881,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
                     'inserto las compras que voy a pagarDdlSaldos
                     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

Contabilidad2/RepBalanceGeneralHorizontal.aspx

@@ -7,21 +7,28 @@
 <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: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" Text="Consultar" CssClass="btn btn-primary" runat="server" OnClick="BtnConsultar_Click" />
+                        <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">
@@ -33,11 +40,11 @@
                                     </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">
@@ -76,111 +83,540 @@
                                  </div>
                             </ul>
                         </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> 
 			
+  <rvweb:ReportViewer ID="rvReporteador" Visible="false" runat="server" Width="100%" Height="600"></rvweb:ReportViewer>
 
 
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
 
+            <div class="row">
 
-                <table style="width: 100%;" class="table table-striped table-advance table-hover">
+                <div class="col-md-6">
+                    <table style="width: 100%; float: left; margin-right: 20px;">
                         <tr>
                             <td width="100%" padding="0">
-                            <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+                                <center>
+                                    <h3>ACTIVO</h3>
+
+                                    <asp:UpdatePanel ID="UpActivo" 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">
+
+                                            <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 HorizontalAlign="Left" />
+                                                        <ItemStyle Width="50%" HorizontalAlign="Left" />
                                                         <HeaderTemplate>
-                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
+                                                            <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="ACTIVO CIRCULANTE"></asp:Label>
                                                         </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                                        <HeaderStyle HorizontalAlign="Left" />
                                                     </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Período Actual">
+                                                    <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="150px" HorizontalAlign="Right" />
+                                                        <ItemStyle Width="25%" HorizontalAlign="Right" />
                                                     </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
-                                            <asp:TemplateField HeaderText="Período Acumulado">
+                                                    <asp:TemplateField visible="false">
                                                         <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                            <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="150px" HorizontalAlign="Right" />
+                                                        <ItemStyle Width="25%" HorizontalAlign="Right" />
                                                     </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
                                                 </Columns>
+                                                <%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>--%>
+                                                <RowStyle CssClass="Texto" />
+                                                <%--<AlternatingRowStyle CssClass="TextoAlterno" />--%>
                                             </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">
+                                            <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 HorizontalAlign="Left" />
+                                                        <ItemStyle Width="50%" HorizontalAlign="Left" />
                                                         <HeaderTemplate>
-                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
+                                                            <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Text="ACTIVO NO CIRCULANTE"></asp:Label>
                                                         </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                                        <HeaderStyle HorizontalAlign="Left" />
                                                     </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Período Actual">
+                                                    <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="150px" HorizontalAlign="Right" />
+                                                        <ItemStyle Width="25%" HorizontalAlign="Right" />
                                                     </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
-                                            <asp:TemplateField HeaderText="Período Acumulado">
+                                                     <asp:TemplateField visible="false">
                                                         <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
+                                                            <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="150px" HorizontalAlign="Right" />
+                                                        <ItemStyle Width="25%" HorizontalAlign="Right" />
                                                     </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
                                                 </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>
 
-                <asp:UpdatePanel ID="UPPTotal" runat="server">
-                    <ContentTemplate>
-                        <table class="table table-striped table-hover Widthall">
+                <div class="col-md-6">
+                    <table style="width: 100%; float: left;">
                         <tr>
-                                <td align="center">
-                                    <h4>Resultados del Ejercicio:</h4>
+                            <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>
-                                <td width="30%" align="right">
-                                    <asp:Label runat="server" Font-Bold="true" ID="LbTotalActual"></asp:Label>
+                        </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="30%" align="right">
-                                    <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
+                                                <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>
-                                <td width="12%" align="right"></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>
+ 
+
+                
 
             </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>
 
@@ -1017,8 +1440,6 @@
     </ajax:TabContainer>
 
 
-
-
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -87,10 +87,6 @@
          <ajax:TabPanel ID="TabMes" runat="server" HeaderText="Mensual">
             <ContentTemplate> 
 
-            
-
-              
-
                 <table style="width: 100%;" class="table table-striped table-advance table-hover">
                     <tr>
                         <td width="100%" padding="0">

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>

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>

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

Inventarios/RecepcionEntrega.aspx.vb

@@ -2161,6 +2161,9 @@ 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)
+
+                                If CvePrePoliza > 0 Then
+
                                     For Each RowInv As DataRow In tmpCostos.Rows
                                         ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
                                         TotalCostoAcumulado += ValorInventario
@@ -2196,6 +2199,8 @@ Partial Class Inventarios_RecepcionEntrega
                                         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)
@@ -2203,7 +2208,10 @@ Partial Class Inventarios_RecepcionEntrega
 
                                         ObjContPaq.Dispose()
                                     End If
-
+                                Else
+                                    ErrorMovInv = True
+                                    TextoError = "Ocurrió un Error al ingresar la prepoliza"
+                                End If
                             Else
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un Error al ingresar las prepolizas"

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;
     }

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}" />

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" />

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

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

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));
+    }
+}

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)

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

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

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

vwd.webinfo

@@ -50,8 +50,6 @@
     
   
     
-  
-