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

App_Code/ClsContratos.vb

@@ -2985,7 +2985,7 @@ Public Class ClsContratos
 
     End Function
 
-    Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String) As Boolean
+    Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Con_PresupuestosDetalleAdd")
@@ -2996,6 +2996,7 @@ Public Class ClsContratos
             .Add("@Importe", SqlDbType.Money).Value = Importe
             .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
             .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
+            .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom
         End With
 
         Try
@@ -3029,7 +3030,7 @@ Public Class ClsContratos
         Return Retorno
 
     End Function
-    Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String) As Boolean
+    Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Con_PresupuestosDetalleUpdate")
@@ -3039,6 +3040,7 @@ Public Class ClsContratos
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@ImporteVigente", SqlDbType.Money).Value = ImporteVigente
             .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom
         End With
 
         Try
@@ -3068,7 +3070,7 @@ Public Class ClsContratos
         End Try
         Return Retorno
     End Function
-    Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveClasificacion As Integer) As Boolean
+    Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveAgrupador As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_PresupuestosRep")
@@ -3082,7 +3084,7 @@ Public Class ClsContratos
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveAgrupador", SqlDbType.Int).Value = CveAgrupador
         End With
 
         Try
@@ -3094,7 +3096,7 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
-    Public Function GetPresupuestosMensualRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveClasificacion As Integer) As Boolean
+    Public Function GetPresupuestosMensualRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveAgrupador As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_PresupuestosMensualRep")
@@ -3108,7 +3110,7 @@ Public Class ClsContratos
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveAgrupador", SqlDbType.Int).Value = CveAgrupador
         End With
 
         Try
@@ -3120,68 +3122,14 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
-
+    Public Function GetPresupuestosRepDetalleCompras(CveProyecto As Integer, CveSubProyecto As Integer, CveAgrupador As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
-    Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Con_PresupuestosRepDetalle")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
-            .Add("@Agrupador", SqlDbType.Int).Value = Agrupador
-            .Add("@Gpo", SqlDbType.Int).Value = Gpo
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el reporte detallado de presupuestos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetPresupuestosMensualRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Con_PresupuestosMensualRepDetalle")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
-            .Add("@Agrupador", SqlDbType.Int).Value = Agrupador
-            .Add("@Gpo", SqlDbType.Int).Value = Gpo
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el reporte detallado de presupuestos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetPresupuestosRepDetalleCompras(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_PresupuestosRepDetalleCompra")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveAgrupador", SqlDbType.Int).Value = CveAgrupador
             .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF

App_Code/ClsFinanzas.vb

@@ -258,6 +258,58 @@ Public Class ClsFinanzas
         Return Retorno
     End Function
 
+
+    Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Finan_RF_EstadoResultadosRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el Reporte de Razones Financieras (2).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+
+    Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Finan_RF_RatiosRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el Reporte de Ratios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "RazonesFinancierasCuentas"
     Public Function AddRazonesFinancierasCuentas(CveRazonFinancieraConcepto As Integer, CveCuenta As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False

App_Code/ClsPaginas.vb

@@ -4002,28 +4002,28 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable
+    'Public Shared Property GlobalDTClasificacionPorcentaje2(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable
-        Get
+    '    Get
-            Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
+    '        Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
-            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+    '        If HttpContext.Current.Application(AppNombre) Is Nothing Then
-                Using ObjVenta As New ClsGenerales
+    '            Using ObjVenta As New ClsGenerales
-                    If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados
+    '                If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados
-                End Using
+    '            End Using
-            End If
+    '        End If
 
-            Dim Str As StringBuilder = New StringBuilder()
+    '        Dim Str As StringBuilder = New StringBuilder()
-            If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
+    '        If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
-            If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
+    '        If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
-            If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
+    '        If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
-            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+    '        Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-            GlobalDTClasificacionPorcentaje = Dv.ToTable
+    '        GlobalDTClasificacionPorcentaje2 = Dv.ToTable
-            Dv.Dispose()
+    '        Dv.Dispose()
-        End Get
+    '    End Get
-        Set(value As DataTable)
+    '    Set(value As DataTable)
-            Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
+    '        Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
-            HttpContext.Current.Application(AppNombre) = value
+    '        HttpContext.Current.Application(AppNombre) = value
-        End Set
+    '    End Set
-    End Property
+    'End Property
     Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTPaqueterias-{CveEmpresa}"
@@ -7681,6 +7681,8 @@ Public Class ClsPaginas
         Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
         'cuando el Pago viene por NC, se utiliza un concepto
         If Pago.TipoPago.Contiene("NC", "DEV") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME
+        'cuando el Pago viene por Venta, se utiliza un concepto
+        'If Pago.TipoPago.Contiene("Venta") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 275 Else ConPreP.CveConcepto = 275 'Pago Compra con Venta
 
         Dim Concepto As String = String.Format("{0} F:{1}", CompraActual.ProveedorNombre, CompraActual.SerieFolio)
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
@@ -7846,10 +7848,10 @@ Public Class ClsPaginas
             Dim Diferencia As Decimal = 0
             If tImporteCompra <> tImportePago Then
                 If tImporteCompra > tImportePago Then
-                    ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                    ConceptoContable = 64
                     TipoMovimiento = True
                 Else
-                    ConceptoContable = 65 : IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                    ConceptoContable = 65
                     TipoMovimiento = False
                 End If
                 Diferencia = (tImporteCompra - tImportePago).Abs.RoundSQL
@@ -7925,18 +7927,18 @@ Public Class ClsPaginas
                     Ret.CveConceptoAcreditable = 19
                     Ret.CveConceptoxAcreditar = 14
                 End If
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                    Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable As Integer
+                '    Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable As Integer
-                    Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA)
+                '    Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA)
-                    If dt.Rows.Count > 0 Then
+                '    If dt.Rows.Count > 0 Then
-                        IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                '        IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                        IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                '        IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
-                        IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
+                '        IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
-                    End If
+                '    End If
-                    Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable
+                '    Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable
-                    Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar
+                '    Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar
-                    Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable
+                '    Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable
-                End If
+                'End If
                 Return Ret
             End Get
         End Property
@@ -8192,10 +8194,10 @@ Public Class ClsPaginas
         End If
 
         'movimiento de pago cliente
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, Contabilizable:=Contabilizable) Then ErrorMovtos = True
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
         'movimiento de pago cliente Complementaria
         If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, Contabilizable:=Contabilizable) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
         End If
         If Pago.AplicaTraslado Then
             'si tiene iva y su proporcion
@@ -8203,10 +8205,10 @@ Public Class ClsPaginas
                 ImporteMovimiento = (PorcentajePago * VentaActual.IVA).RoundSQL
                 ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
                 If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
                 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
                 If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 61, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 61, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
             End If
         End If
         'si tiene RET IVA y su proporcion
@@ -8214,20 +8216,20 @@ Public Class ClsPaginas
             ImporteMovimiento = (PorcentajePago * VentaActual.RetIVA).RoundSQL
             ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
             If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
             If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
         End If
         'si tiene Ret ISR y su proporcion
         If Not ErrorMovtos AndAlso VentaActual.RetISR > 0 Then
             ImporteMovimiento = (PorcentajePago * VentaActual.RetISR).RoundSQL
             ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
             If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
             If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
         End If
         'si tiene IEPS y su proporcion
         If Not ErrorMovtos AndAlso VentaActual.IEPS > 0 Then
@@ -8239,10 +8241,10 @@ Public Class ClsPaginas
                 If ObjConta.GetRetCuenta(38, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
                 If ObjConta.GetRetCuenta(39, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
             End If
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
             If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
         End If
         'concepto pago
         Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
@@ -8313,10 +8315,10 @@ Public Class ClsPaginas
             tImportePago += Pago.ImporteFluctuacionAdicional 'para los casos de aplicación de 
             If tImporteVenta <> tImportePago Then
                 If tImporteVenta < tImportePago Then
-                    ConceptoContable = 64 : IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                    ConceptoContable = 64
                     TipoMovimiento = True
                 Else
-                    ConceptoContable = 65 : IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                    ConceptoContable = 65
                     TipoMovimiento = False
                 End If
                 Diferencia = (tImporteVenta - tImportePago).Abs.RoundSQL
@@ -8992,6 +8994,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Finanzas/RepRotacionCartera.aspx".ToUpper(), 649)
             PaginaDict.Add("/Finanzas/RepRotacionCarteraDetalle.aspx".ToUpper(), 649)
             PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal2.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Finanzas/RepRazonesFinancieras2.aspx".ToUpper(), 1337)
 #End Region
 #Region "Flotillas"
             PaginaDict.Add("/Flotillas/CatCombustibles.aspx".ToUpper(), 284)

App_Code/ClsSisEmpresas.vb

@@ -404,18 +404,18 @@ Public Class ClsSisEmpresas
 
                 'Nuevos Datos
                 _Empresa.AreaGeografica = Data.Rows(0)("AreaGeografica").ToString
-                _Empresa.IdCuentaIVAxAcreditar = Data.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+                '_Empresa.IdCuentaIVAxAcreditar = Data.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                _Empresa.IdCuentaIVAAcreditable = Data.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
+                '_Empresa.IdCuentaIVAAcreditable = Data.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
-                _Empresa.IdCuentaIVAxTrasladar = Data.Rows(0)("IdCuentaIVAxTrasladar").ToString.ToEntero
+                '_Empresa.IdCuentaIVAxTrasladar = Data.Rows(0)("IdCuentaIVAxTrasladar").ToString.ToEntero
-                _Empresa.IdCuentaIVATrasladado = Data.Rows(0)("IdCuentaIVATrasladado").ToString.ToEntero
+                '_Empresa.IdCuentaIVATrasladado = Data.Rows(0)("IdCuentaIVATrasladado").ToString.ToEntero
-                _Empresa.IdCuentaRetIVACirculacion = Data.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                '_Empresa.IdCuentaRetIVACirculacion = Data.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                _Empresa.IdCuentaRetISRCirculacion = Data.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                '_Empresa.IdCuentaRetISRCirculacion = Data.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                _Empresa.IdCuentaDSV = Data.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero
+                '_Empresa.IdCuentaDSV = Data.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero
-                _Empresa.IdCuentaImpuestosLocales = Data.Rows(0)("Conta_IdCuentaImpuestosLocales").ToString.ToEntero
+                '_Empresa.IdCuentaImpuestosLocales = Data.Rows(0)("Conta_IdCuentaImpuestosLocales").ToString.ToEntero
-                _Empresa.IdCuentaIEPSxAcreditar = Data.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+                '_Empresa.IdCuentaIEPSxAcreditar = Data.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
-                _Empresa.IdCuentaIEPSAcreditable = Data.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+                '_Empresa.IdCuentaIEPSAcreditable = Data.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
-                _Empresa.IdCuentaIEPSxTrasladar = Data.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
+                '_Empresa.IdCuentaIEPSxTrasladar = Data.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
-                _Empresa.IdCuentaIEPSTrasladado = Data.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
+                '_Empresa.IdCuentaIEPSTrasladado = Data.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
                 _Empresa.IdCuentaOtrosIngresos = Data.Rows(0)("Conta_IdCuentaOtrosIngresos").ToString.ToEntero
 
                 '_Empresa.IdCtaProveedor = Data.Rows(0)("IdCtaProveedor").ToString.ToEntero
@@ -428,7 +428,7 @@ Public Class ClsSisEmpresas
                 '_Empresa.IdCtaAnticipoProveedores = Data.Rows(0)("IdCtaAnticipoProveedores").ToString.ToEntero
 
                 _Empresa.Buzon_Tipo = Data.Rows(0)("Buzon_Tipo").ToString
-                _Empresa.ContaContabilizacionNC = Data.Rows(0)("Conta_ContabilizacionNC").ToString.ToEntero
+                '_Empresa.ContaContabilizacionNC = Data.Rows(0)("Conta_ContabilizacionNC").ToString.ToEntero
                 '_Empresa.Ruta = String.Format("{0}Empresas\{1}\", ModExtensiones.DirectorioBaseEmpresas, _Empresa.CveEmpresa)
                 _Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero
                 _Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero
@@ -437,8 +437,8 @@ Public Class ClsSisEmpresas
                 _Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero
                 _Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
                 _Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No"
-                _Empresa.IdCuentaPerdidaCambiaria = Data.Rows(0)("IdCuentaPerdidaCambiaria").ToString.ToEntero
+                '_Empresa.IdCuentaPerdidaCambiaria = Data.Rows(0)("IdCuentaPerdidaCambiaria").ToString.ToEntero
-                _Empresa.IdCuentaGananciaCambiaria = Data.Rows(0)("IdCuentaGananciaCambiaria").ToString.ToEntero
+                '_Empresa.IdCuentaGananciaCambiaria = Data.Rows(0)("IdCuentaGananciaCambiaria").ToString.ToEntero
                 _Empresa.Tipo_CentroCosto = Data.Rows(0)("Tipo_CentroCosto").ToString.ToEntero
                 _Empresa.GrupoEmpresa = Data.Rows(0)("GrupoEmpresa").ToString.ToEntero
                 _Empresa.PlantillaMailVenta = Data.Rows(0)("PlantillaMailVenta").ToString
@@ -467,7 +467,6 @@ Public Class ClsSisEmpresas
 
                 _Empresa.RutaArchivos = Data.Rows(0)("RutaArchivos").ToString
 
-
             Else
                 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)
             End If

App_Code/Empresa.vb

@@ -53,7 +53,6 @@ Public Class Empresa
 
     Public CvePAC As Integer
     Public CveRegimenFiscal As Integer
-
     Public Property Tipo_CentroCosto As Integer
     Public Property MostrarRetISR As Boolean
     Public Property Regimen As String
@@ -63,7 +62,6 @@ Public Class Empresa
     Public Property RegistroCompleto As Integer
     Public Property Importe As Decimal
     Public Property CveMetodoPago As Integer
-
     Public Property CodigoRegimenFiscal As String
     Public Property RegimenFiscal As String
     Public Property EstatusFacturacion As Boolean
@@ -108,23 +106,23 @@ Public Class Empresa
                 Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
             End If
         End Get
-    End Property
+    End Property
-    Public Property IdCuentaIVAxTrasladar As Integer
+    'Public Property IdCuentaIVAxTrasladar As Integer
-    Public Property IdCuentaIVATrasladado As Integer
+    'Public Property IdCuentaIVATrasladado As Integer
-    Public Property IdCuentaPerdidaCambiaria As Integer
+    'Public Property IdCuentaPerdidaCambiaria As Integer
-    Public Property IdCuentaGananciaCambiaria As Integer
+    'Public Property IdCuentaGananciaCambiaria As Integer
-    Public Property ContaContabilizacionNC As Integer
+    ' Public Property ContaContabilizacionNC As Integer
     Public Property PV_TerminalTipo As Integer
     Public Property PlantillaMailVenta As String
     Public Property AsuntoPlantillaMailVenta As String
 
     'Nuevas
-    Public Property IdCuentaIVAxAcreditar As Integer
+    'Public Property IdCuentaIVAxAcreditar As Integer
-    Public Property IdCuentaIVAAcreditable As Integer
+    'Public Property IdCuentaIVAAcreditable As Integer
-    Public Property IdCuentaRetIVACirculacion As Integer
+    'Public Property IdCuentaRetIVACirculacion As Integer
-    Public Property IdCuentaRetISRCirculacion As Integer
+    'Public Property IdCuentaRetISRCirculacion As Integer
-    Public Property IdCuentaDSV As Integer
+    'Public Property IdCuentaDSV As Integer
-    Public Property IdCuentaImpuestosLocales As Integer
+    'Public Property IdCuentaImpuestosLocales As Integer
     Public Property IdCtaProveedor As Integer
     Public Property IdCtaCliente As Integer
     Public Property IdCtaDeudores As Integer
@@ -134,10 +132,6 @@ Public Class Empresa
     Public Property IdCtaAnticipoProveedores As Integer
 
     'Nuevos Datos
-    Public Property IdCuentaIEPSxAcreditar As Integer
-    Public Property IdCuentaIEPSAcreditable As Integer
-    Public Property IdCuentaIEPSxTrasladar As Integer
-    Public Property IdCuentaIEPSTrasladado As Integer
     Public Property PorDepreciacion As Decimal
     Public Property CvePlataforma As Integer
     Public Property CveDistribuidor As Integer

App_Code/Modelos.vb

@@ -2421,10 +2421,10 @@ Namespace Modelos
                     SeContabiliza = False
                 End If
 
-                If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=ObjFactura.DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
+                'If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=ObjFactura.DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
-                    IdCtaIVAXTrasladar = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
+                '    IdCtaIVAXTrasladar = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
-                    IdCtaIVATrasladado = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
+                '    IdCtaIVATrasladado = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=DtDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
-                End If
+                'End If
 
                 Dim UsaComplementariaClientes As Boolean = True
                 'If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True
@@ -2491,11 +2491,9 @@ Namespace Modelos
                                                 If difFluctuacion < 0 Then
                                                     CveConceptoFluctua = 65
                                                     TipoMovtoFluctua = False
-                                                    IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                 Else
                                                     CveConceptoFluctua = 64
                                                     TipoMovtoFluctua = True
-                                                    IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                 End If
                                                 Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimiento * difFluctuacion).RoundSQL)
 
@@ -2798,11 +2796,9 @@ Namespace Modelos
                                                     If difFluctuacion < 0 Then
                                                         CveConceptoFluctua = 65
                                                         TipoMovtoFluctua = False
-                                                        IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                     Else
                                                         CveConceptoFluctua = 64
                                                         TipoMovtoFluctua = True
-                                                        IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                     End If
                                                     Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador
 
@@ -2889,11 +2885,9 @@ Namespace Modelos
                                                     If difFluctuacion < 0 Then
                                                         CveConceptoFluctua = 65
                                                         TipoMovtoFluctua = False
-                                                        IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                     Else
                                                         CveConceptoFluctua = 64
                                                         TipoMovtoFluctua = True
-                                                        IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                     End If
                                                     Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) * ValorMultiplicador
 
@@ -3183,11 +3177,9 @@ Namespace Modelos
                                                         If difFluctuacion < 0 Then
                                                             CveConceptoFluctua = 65
                                                             TipoMovtoFluctua = False
-                                                            IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                         Else
                                                             CveConceptoFluctua = 64
                                                             TipoMovtoFluctua = True
-                                                            IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                         End If
                                                         Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador
 
@@ -3332,20 +3324,20 @@ Namespace Modelos
                                         CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                     End If
 
-                                    'código fijo en base el porcentaje iva, que se afecten las clasificaciones
+                                    ''código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                    For i = 0 To TmpDTDetalle.Rows.Count - 1
+                                    'For i = 0 To TmpDTDetalle.Rows.Count - 1
 
-                                        'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
+                                    '    'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                        If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then
+                                    '    If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then
 
-                                            'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva
+                                    '        'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva
-                                            If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then
+                                    '        If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then
-                                                TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString
+                                    '            TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString
-                                            End If
+                                    '        End If
 
-                                        End If
+                                    '    End If
 
-                                    Next
+                                    'Next
 
                                     DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
@@ -3396,23 +3388,23 @@ Namespace Modelos
                                         CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                     End If
 
-                                    If UsuarioActual.CveEmpresa = 119 Then
+                                    'If UsuarioActual.CveEmpresa = 119 Then
 
-                                        'código fijo en base el porcentaje iva, que se afecten las clasificaciones
+                                    '    'código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                        For i = 0 To TmpDTDetalle.Rows.Count - 1
+                                    '    For i = 0 To TmpDTDetalle.Rows.Count - 1
 
-                                            'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
+                                    '        'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                            If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then
+                                    '        If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then
 
-                                                If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
+                                    '            If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                                    TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString
+                                    '                TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString
-                                                End If
+                                    '            End If
 
-                                            End If
+                                    '        End If
 
-                                        Next
+                                    '    Next
 
-                                    End If
+                                    'End If
 
                                     DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
@@ -3583,9 +3575,6 @@ Namespace Modelos
                                         importeMovimiento = importeMovimiento * -1
                                         importeMX = importeMX * -1
 
-                                        IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                                    Else
-                                        IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
                                     End If
 
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
@@ -3693,7 +3682,6 @@ Namespace Modelos
                                             End If
 
                                             'IVA X TRASLADAR
-                                            IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString)
                                             If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                 ErrorPrepoliza = True
@@ -3701,7 +3689,6 @@ Namespace Modelos
                                             End If
 
                                             'IVA PAGADO
-                                            IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString)
                                             If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                 ErrorPrepoliza = True
@@ -3710,14 +3697,14 @@ Namespace Modelos
 
                                             'IEPS X TRASLADAR
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString)
-                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
                                                 ErrorPrepoliza = True
                                                 Exit For
                                             End If
 
                                             'IEPS PAGADO
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString)
-                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
                                                 ErrorPrepoliza = True
                                                 Exit For
                                             End If

Bancos/DepositoTerminal.aspx.vb

@@ -345,7 +345,6 @@ Partial Class Bancos_DepositoTerminal
 
                                             ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago
                                             importeMX = Math.Round(ImporteMovimiento * tipoCambioVenta, 2)
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar
                                             If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                         Case 62 'Ret IVA Trasladado
@@ -387,7 +386,6 @@ Partial Class Bancos_DepositoTerminal
 
                                             ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago
                                             importeMX = Math.Round(ImporteMovimiento * tipoCambioManual, 2)
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIVATrasladado
                                             If tipoCambioManual > 1 Then ConceptoMovimiento += $" TC:{tipoCambioManual} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                         Case 38 'IEPS por trasladar
@@ -395,14 +393,10 @@ Partial Class Bancos_DepositoTerminal
                                             ImporteMovimiento = gvr.DataKey("IEPS").ToDecimal * PorcentajePago
                                             importeMX = Math.Round(ImporteMovimiento * tipoCambioVenta, 2)
 
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
-
                                         Case 39 'IEPS Trasladado
                                             ImporteMovimiento = gvr.DataKey("IEPS").ToDecimal * PorcentajePago
                                             importeMX = Math.Round(ImporteMovimiento * tipoCambioManual, 2)
 
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
-
                                         Case 78 'Otros Ingresos
                                             If ChkAjusteOI.Checked Then
                                                 ImporteMovimiento = gvr.FCTextBox("TxtComision").Text.ToDecimal

Bancos/Devoluciones.aspx.cs

@@ -540,12 +540,12 @@ public partial class Bancos_Devoluciones : ClsPaginas
                                     }
 
                                     //IVA
-                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 13, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal()))
+                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 13, Conc, DateTime.Now, 0, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal()))
                                     {
                                         MsgError = "No se pudo insertar concepto de IVA";
                                     }
 
-                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 61, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal()))
+                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, -gvr.FCTextBox("TxtIVA").Text.ToDecimal(), Ref, 61, Conc, DateTime.Now,0, -1, CveIE, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: -gvr.FCTextBox("TxtIVA").Text.ToDecimal()))
                                     {
                                         MsgError = "No se pudo insertar concepto de IVA";
                                     }

Bancos/FluctuacionCambiaria.aspx

@@ -758,8 +758,60 @@
                         <asp:Label ID="LblTotalBancos" runat="server" Text=""></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>
+
+                <ajax:TabPanel runat="server" ID="TabAcreedoresDiversos" HeaderText="AcreedoresDiversos">
+                    <ContentTemplate>
+
+                        <br />
+                        <div class="row">
+
+                            <div class="col-md-5 form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtConceptoAcreedoresDiversos" ClientIDMode="Static" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoAcreedoresDiversos"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedoresDiversos"></asp:RequiredFieldValidator>
+                                <label for="TxtConceptoAcreedoresDiversos">Concepto:</label>
+                                <i></i>
+                            </div>
+
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlSubProyectoAcreedoresDiversos" ClientIDMode="Static" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
+                                </asp:DropDownList>
+                                <label for="DdlSubProyectoAcreedoresDiversos">
+                                    <asp:Label runat="server" ID="LblSubProyectoAcreedoresDiversos"></asp:Label>
+                                </label>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoAcreedoresDiversos" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedoresDiversos"></asp:RequiredFieldValidator>
+                                <i></i>
+                            </div> 
+
+                            <div class="col-md-6" style="text-align: right!important">
+                                   <asp:HiddenField ID="HdnAcreedoresDiversosCvePrePoliza" runat="server" />
+                                <asp:HyperLink ID="HplAcreedoresDiversosPoliza" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
+                                <asp:Button ID="BtnAcreedoresDiversosRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresDiversosRemove_Click"  class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
+                           
+                                <asp:Button Text="Generar Acreedores Diversos" runat="server" ID="BtnGeneraAcreeedoresDiversos" OnClick="BtnGeneraAcreeedoresDiversos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedoresDiversos" />
+                            </div>
+                        </div>
+
+                        <br /> 
+
+                        <div style="float: right; margin-right: 50px;">
+                        </div>  
+                       <asp:GridView ID="GvAcreedorDiversos" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="TipoCambio,Fluctuacion,RazonSocial,CveProveedor"
+                            EmptyDataText="No se Encontraron" ToolTip=""
+                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:BoundField HeaderText="Acreedor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                            </Columns>
+                        </asp:GridView>
+                        <asp:Label ID="LblTotalAcreedoresDiversos" runat="server" Text=""></asp:Label>
+                    </ContentTemplate>
+                </ajax:TabPanel>
              
-                <ajax:TabPanel runat="server" ID="TabFilial" HeaderText="Filial">
+                <ajax:TabPanel runat="server" ID="TabFilial" HeaderText="Filial" Visible="false" >
                     <ContentTemplate>
 
                         <br />
@@ -806,17 +858,7 @@
                                 <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                             </Columns>
                         </asp:GridView>
-                        <asp:GridView ID="GvAcreedorDiversos" Width="99%" runat="server" AutoGenerateColumns="False"
+                        
-                            DataKeyNames="TipoCambio,Fluctuacion,RazonSocial,CveProveedor"
-                            EmptyDataText="No se Encontraron" ToolTip=""
-                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
-                            <Columns>
-                                <asp:BoundField HeaderText="Acreedor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
-                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                            </Columns>
-                        </asp:GridView>
                         <asp:Label ID="Label1" runat="server" Text=""></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>

Bancos/FluctuacionCambiaria.aspx.vb

@@ -36,6 +36,8 @@ Partial Class Bancos_FluctuacionCambiaria
             CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreeedoresAnt, Nothing, LblSubProyectoAcreedoresAnt, "")
             CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos, "")
             CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedoresDiversos, Nothing, LblSubProyectoAcreedoresDiversos, "")
+
             CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "")
 
             CargaUltimaFluctuacion()
@@ -66,6 +68,10 @@ Partial Class Bancos_FluctuacionCambiaria
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
         CargaTipoCambio()
         If T.ActiveTabIndex = 0 Then CargaDatosProveedores()
         If T.ActiveTabIndex = 1 Then CargaDatosProveedoresAnticipos()
@@ -77,7 +83,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         If T.ActiveTabIndex = 7 Then CargaDatosAcreedoresDiversos() 'CargaDatosFiliales()
         If T.ActiveTabIndex = 8 Then CargaDatosDeudores()
-        UpTabs.Update()
+        UpTabs.Update()
     End Sub
 
 
@@ -288,8 +294,9 @@ Partial Class Bancos_FluctuacionCambiaria
             HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
             BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
             BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
 
-            HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
+            HplAcreedorAntLiga.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
             HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
             GvAcreedoresAnt.DataSource = ObjBancos.DtResultados
             LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
@@ -379,9 +386,17 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosAcreedoresDiversos()
         Dim ObjBancos As New ClsBancos
         LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then
-            GvAcreedorDiversos.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
+            HdnAcreedoresDiversosCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
-            LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            BtnAcreedoresDiversosRemove.Visible = HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraAcreeedoresDiversos.Visible = Not HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero > 0
+
+            HplAcreedoresDiversosPoliza.Visible = HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero > 0
+            HplAcreedoresDiversosPoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
+
+            GvAcreedorDiversos.DataSource = ObjBancos.DtResultados
+            LblTotalAcreedoresDiversos.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
             GvAcreedorDiversos.DataSource = Nothing
             Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
@@ -413,9 +428,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
         Total = LblTotal.ToDecimal
@@ -493,9 +506,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
         Total = LblTotal.ToDecimal
@@ -577,9 +588,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
         Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
@@ -674,9 +683,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
         Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
@@ -780,9 +787,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias 
 
         Total = LblTotalAcreedores.Text.ToDecimal
@@ -869,9 +874,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias 
 
         Total = LblTotalAcreedoresAnt.Text.ToDecimal
@@ -952,9 +955,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         CveCuentaPerdida = 0 ' 55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
         Total = LblTotalBancos.Text.ToDecimal
 
@@ -1038,9 +1039,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
         Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
 
@@ -1102,8 +1101,8 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
-        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        'Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjContPaq.IniciaTransacSQL()
+        'ObjContPaq.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoFiliales.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
@@ -1116,9 +1115,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim ErrorRegistrar As Boolean = False
 
         CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
+        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
         Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
 
@@ -1157,9 +1154,6 @@ Partial Class Bancos_FluctuacionCambiaria
                 Banco.UpdateBancosTipoCambioValuacion(TCCierreFluctuacion, gvr.DataKey("CveIE").ToEntero, UsuarioActual.CveEmpresa)
 
             End If
-
-
-
         Next
 
         If Not ErrorRegistrar Then
@@ -1168,28 +1162,96 @@ Partial Class Bancos_FluctuacionCambiaria
             Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
             If AutoConta Then
 
-                If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                 Else
                     Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
                 End If
-            End If
+            End If
-
+
-            If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
+            ' If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
-            'Fin autoconta 
+            'Fin autoconta 
             Conta.Commit()
 
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
-            ObjContPaq.RollBack()
+            'ObjContPaq.RollBack()
         End If
         Conta.Dispose()
         Banco.Dispose()
-        ObjContPaq.Dispose()
+        'ObjContPaq.Dispose()
     End Sub
 
+
+
 #End Region
 
+
+#Region "FLUCTUACION ACREEDORES DIVEROS"
+    Protected Sub BtnGeneraAcreeedoresDiversos_Click(sender As Object, e As EventArgs)
+
+        Dim Conta As New ClsContabilidad
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaAD", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedoresDiversos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CveConceptoContable As Integer
+        Dim TipoMovto As Boolean
+        Dim ErrorRegistrar As Boolean = False
+
+        Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
+        Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
+        Dim TotalAcumulado As Decimal = 0
+        Dim ConceptoFluctuacion As String = String.Format("Fluctuación Acreedores Diversos {0:d} ", FechaUltimoDiaMes)
+
+
+        For Each gvr As GridViewRow In GvAcreedorDiversos.Rows
+            TotalAcumulado += gvr.DataKey("Fluctuacion").ToDecimal
+        Next
+        'TotalAcumulado = GvAcreedorDiversos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) Convert.ToDecimal(GvAcreedorDiversos.DataKeys(gvr.RowIndex)("Fluctuacion")))
+
+
+        If TotalAcumulado < 0 Then
+            CveConceptoContable = 64 : TipoMovto = True
+        Else
+            CveConceptoContable = 65 : TipoMovto = False
+        End If
+
+        'saco las cuentas de pérdida y ganancia
+        For Each gvr As GridViewRow In GvAcreedorDiversos.Rows
+
+            If gvr.DataKey("Fluctuacion").ToDecimal <> 0 Then
+                'movimiento de complementaria
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, gvr.DataKey("Fluctuacion").ToDecimal, ConceptoFluctuacion, 351, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, 0, 0, TipoCambio:=TC, ImporteMX:=gvr.DataKey("Fluctuacion").ToDecimal, ImporteME:=gvr.DataKey("Fluctuacion").ToDecimal, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then
+                    ErrorRegistrar = True
+                    Exit For
+                End If
+            End If
+
+        Next
+        If Not ErrorRegistrar Then
+
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(TotalAcumulado), ConceptoFluctuacion, CveConceptoContable, ConceptoFluctuacion, Now, 0, 0, ImporteMX:=Math.Abs(TotalAcumulado), CveSubProyecto:=DdlSubProyectoAcreedoresDiversos.SelectedValue.ToEntero) Then
+                ErrorRegistrar = True
+            End If
+        End If
+
+        If Not ErrorRegistrar Then
+
+            If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 9, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+            End If
+
+            Conta.Commit()
+
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+        Else
+            Conta.RollBack()
+            'ObjContPaq.RollBack()
+        End If
+        Conta.Dispose()
+        Banco.Dispose()
+        'ObjContPaq.Dispose()
+    End Sub
+#End Region
 #Region "GRIDVIEWS"
 
 
@@ -1236,7 +1298,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
             BtnProveedoresRemove.visible = False
-            Alert("Flucturación eliminada.")
+            Alert("Fluctuación eliminada.")
         Else
             Banco.RollBack()
         End If
@@ -1251,7 +1313,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorAntCvePrePoliza.Value.ToEntero, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
             BtnProveedoresAntRemove.Visible = False
-            Alert("Flucturación eliminada.")
+            Alert("Fluctuación eliminada.")
         Else
             Banco.RollBack()
         End If
@@ -1265,7 +1327,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteCvePrePoliza.Value.ToEntero, 3, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
             BtnClientesRemove.Visible = False
-            Alert("Flucturación eliminada.")
+            Alert("Fluctuación eliminada.")
         Else
             Banco.RollBack()
         End If
@@ -1279,7 +1341,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteAntCvePrePoliza.Value.ToEntero, 4, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
             BtnClientesAntRemove.Visible = False
-            Alert("Flucturación eliminada.")
+            Alert("Fluctuación eliminada.")
         Else
             Banco.RollBack()
         End If
@@ -1293,7 +1355,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorCvePrePoliza.Value.ToEntero, 5, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
             BtnAcreedoresRemove.Visible = False
-            Alert("Flucturación eliminada.")
+            Alert("Fluctuación eliminada.")
         Else
             Banco.RollBack()
         End If
@@ -1307,7 +1369,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorAntCvePrePoliza.Value.ToEntero, 6, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
             BtnAcreedoresAntRemove.Visible = False
-            Alert("Flucturación eliminada.")
+            Alert("Fluctuación eliminada.")
         Else
             Banco.RollBack()
         End If
@@ -1352,4 +1414,19 @@ Partial Class Bancos_FluctuacionCambiaria
     End Sub
 #End Region
 
+
+    Protected Sub BtnAcreedoresDiversosRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedoresDiversosCvePrePoliza.Value.ToEntero, 9, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            BtnAcreedoresDiversosRemove.Visible = False
+            CargaDatos()
+            Alert("Fluctuación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+    End Sub
 End Class

Bancos/IE.aspx

@@ -265,6 +265,7 @@
                                                 <asp:ListItem Value="C">Clientes</asp:ListItem>
                                                 <asp:ListItem Value="P">Proveedor</asp:ListItem>
                                                 <asp:ListItem Value="FE">Viáticos</asp:ListItem>
+                                                 <asp:ListItem Value="AC">Acreedor</asp:ListItem>
                                             </asp:RadioButtonList>
                                             <asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
                                             <asp:HiddenField ID="HdnCveProveedor" runat="server" ClientIDMode="Static" Value="-1" />

Bancos/IE.aspx.vb

@@ -2818,7 +2818,7 @@ Partial Class Bancos_IE
                                     If TxtIvaIxC.Text.ToDouble > 0 Then
                                         Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
                                         'Iva
-                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0))
+                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, 0, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0))
                                     End If
 
                                     'Bancos
@@ -2935,7 +2935,7 @@ Partial Class Bancos_IE
                                                         Dim CveConIVA As Integer = 61
                                                         If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299
                                                         Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, 0, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                             MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                         End If
                                                     End If
@@ -3244,14 +3244,14 @@ Partial Class Bancos_IE
 
                                                 If DiferenciaTC < 0 Then
                                                     '64
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
                                                         Exit Select
                                                     End If
 
                                                 Else
                                                     '65
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
                                                         Exit Select
                                                     End If
@@ -3282,9 +3282,9 @@ Partial Class Bancos_IE
                                                     Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
                                                     PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
 
-                                                    Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
+                                                    'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
-                                                    Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                                    'Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                                    Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                                    'Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
                                                     Dim IVADevMN As Decimal = 0
                                                     Dim IEPSDevMN As Decimal = 0
                                                     Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2)
@@ -3305,11 +3305,11 @@ Partial Class Bancos_IE
 
                                                     If IVADev > 0 Then
 
-                                                        IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
+                                                        ' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
 
                                                         If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
 
-                                                            IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
+                                                            '   IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
 
                                                             If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
                                                                 MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
@@ -3453,14 +3453,14 @@ Partial Class Bancos_IE
 
                                         If DiferenciaTC < 0 Then
                                             '64
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                 MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
                                                 Exit Select
                                             End If
 
                                         Else
                                             '65
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                 MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
                                                 Exit Select
                                             End If
@@ -3489,17 +3489,17 @@ Partial Class Bancos_IE
                                             Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
                                             PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
 
-                                            Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
+                                            'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
 
                                             Dim IdCtaIVAXAcreditarDevDinC As Integer
                                             Dim IdCtaIVAAcreditableDevDinC As Integer
 
-                                            If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then
+                                            'If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then
-                                                IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                            '    IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                                IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            '    IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
-                                            Else
+                                            'Else
-                                                MsgError = "Sin Registros de porcentaje impuesto"
+                                            '    MsgError = "Sin Registros de porcentaje impuesto"
-                                            End If
+                                            'End If
 
                                             Dim IVADevMN As Decimal = 0
                                             Dim IEPSDevMN As Decimal = 0

Bancos/PagoAcreedor.aspx.cs

@@ -409,13 +409,11 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                             if (TCPago > TC)
                             {
                                 CveConceptoDiferenciaCambiaria = 65;
-                                IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria;
                                 TipoMovto = false; 
                             }
                             else if (TCPago < TC)
                             {
                                 CveConceptoDiferenciaCambiaria = 64;
-                                IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria;
                                 TipoMovto = true;
                             }
                             Importe =  ((Importe * TCPago) - (Importe * TC)).Abs();                            

Bancos/PagoDeudor.aspx.cs

@@ -780,16 +780,13 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                                 if (TC < TCDoc)
                                 {
                                     CveConceptoDiferenciaCambiaria = 65;
-                                    IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria;
                                     TipoMovto = false;
                                     Importe = (Importe * gvr.DataKey("TipoCambio").ToDecimal()) - (Importe * TC);
                                 }
                                 else if (TC > TCDoc)
                                 {
                                     CveConceptoDiferenciaCambiaria = 64;
-                                    IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria;
                                     TipoMovto = true;
-
                                     Importe = (Importe * TC) - (Importe * gvr.DataKey("TipoCambio").ToDecimal());
                                 }
                                 ImporteMN = Importe;

Bancos/PolizaCheque.aspx.vb

@@ -108,7 +108,7 @@ Partial Class Bancos_PolizaCheque
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
 
             Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
                 If Conta.GetCuentas(-1, "-1", 1) Then
@@ -118,6 +118,17 @@ Partial Class Bancos_PolizaCheque
                 End If
                 Conta.Dispose()
 
+            End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                Dim Conta As New ClsContabilidad
+
+                If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                    dt = Conta.DtResultados
+                    DtCuentasContables = Conta.DtResultados
+                    Session("DtCuentas") = Conta.DtResultados
+                End If
+                Conta.Dispose()
+
             End If
 
             TipoPlantilla = 0
@@ -405,9 +416,8 @@ Partial Class Bancos_PolizaCheque
             NombreCuenta = ""
 
             If UsuarioActual.Empresa.UsaContabilidad Then
-                If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
+                If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then
-                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
-
 
                     If drr IsNot Nothing Then
                         IdCuenta = drt("IdCtaContable").ToString.ToEntero
@@ -416,41 +426,43 @@ Partial Class Bancos_PolizaCheque
                         'Cuenta = drr("Nombre").ToString()
                     End If
                     EsComodin = 0
+                End If
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
+                        Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
 
-
-                ElseIf drt("CveConcepto").ToString = "30" Then
-                    'saco la clave de la cuenta bancaria seleccionada
-                    If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
-                        Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
                         If drr IsNot Nothing Then
-                            IdCuenta = drr("Id").ToString.ToEntero
+                            IdCuenta = drt("IdCtaContable").ToString.ToEntero
                             CodigoCuenta = drr("CuentaFormato").ToString()
                             NombreCuenta = drr("Nombre").ToString()
-                            '  Cuenta = drr("Nombre").ToString()
+                            'Cuenta = drr("Nombre").ToString()
-                            EsComodin = 1
-                        Else
-
-                            ' Rad.Checked = False
-                            If UsuarioActual.CveEmpresa <> 126 Then
-                                Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
-                                GvMov.DataBind()
-                                UPMovs.Update()
-                                Exit Sub
-                            End If
-
                         End If
+                        EsComodin = 0
+
+
+                    ElseIf drt("CveConcepto").ToString = "30" Then
+                        'saco la clave de la cuenta bancaria seleccionada
+                        If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
+                            Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
+                            If drr IsNot Nothing Then
+                                IdCuenta = drr("Id").ToString.ToEntero
+                                CodigoCuenta = drr("CuentaFormato").ToString()
+                                NombreCuenta = drr("Nombre").ToString()
+                                '  Cuenta = drr("Nombre").ToString()
+                                EsComodin = 1
+                            End If
+                        End If
+                    ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
+
+                        Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
+
+                        IdCuenta = IdCtaFondoGarantia
+                        CodigoCuenta = drr("CuentaFormato").ToString()
+                        NombreCuenta = drr("Nombre").ToString()
+                        'Cuenta = drr("Nombre").ToString()
+
+                        EsComodin = 0
                     End If
-                ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
-
-                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
-
-                    IdCuenta = IdCtaFondoGarantia
-                    CodigoCuenta = drr("CuentaFormato").ToString()
-                    NombreCuenta = drr("Nombre").ToString()
-                    'Cuenta = drr("Nombre").ToString()
-
-                    EsComodin = 0
-
                 End If
             End If
 

Bancos/PopIECompras.aspx

@@ -443,7 +443,7 @@
                                                         <ContentTemplate>
                                                             <asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
                                                             <br />
-                                                            <asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA"
+                                                            <asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,SerieFolio,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA,CveSubProyecto"
                                                                 ToolTip="Listado de Movimientos" data-height="200" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"   GridLines="None" HeaderStyle-ForeColor="Black">
                                                                 <Columns>
                                                                     <asp:TemplateField>

Bancos/PopIECompras.aspx.vb

@@ -33,7 +33,7 @@ Partial Class Bancos_PopIECompras
     'Configuración
     Private Property CveIE As Integer
         Get
-            Return ViewState("CveIE").ToString.ToEntero
+            Return IfNull(ViewState("CveIE"), "0").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveIE") = value
@@ -315,6 +315,12 @@ Partial Class Bancos_PopIECompras
         End Get
     End Property
 
+    Private ReadOnly Property NombreCliente As String
+        Get
+            Return ViewState("NombreCliente").ToString
+        End Get
+    End Property
+
     Private Property NotificarA As String
         Get
             If ViewState("NotificarA") Is Nothing Then
@@ -814,6 +820,7 @@ Partial Class Bancos_PopIECompras
             ViewState("IdCtaContRetISRCliente") = dtc.Rows(0)("IdCtaContRetISR")
             ViewState("IdCtaContComplementariaCliente") = dtc.Rows(0)("IdCtaContComplementaria")
             ViewState("IdCtaContMonedaExtranjeraCliente") = dtc.Rows(0)("IdCtaContMonedaExtranjera")
+            ViewState("NombreCliente") = dtc.Rows(0)("Nombre")
 
             If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
 
@@ -1413,21 +1420,49 @@ Partial Class Bancos_PopIECompras
                 Pago.ImportePago = ImportePagado
                 Pago.CveIE = CveIE
 
-                'If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
-                '                                Dim ObjCreditos As New ClsBancos
-                '                                ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
-                '                                If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0 Or ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero > 0) Then
-                '                                    IdCtaContable = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
-                '                                Else
-                '                                    IdCtaContable = CtaProveedor
-                '                                End If
-                '                                ObjCreditos.Dispose()
-                '                            Else
-                '                                IdCtaContable = IdCuentaBancaria
-                '                            End If
-
                 If MsgError = "" AndAlso AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                     MsgError = "No se pudo insertar la póliza"
+                End If
+                'AGREGO PREPOLIZA  BANCOS
+                Dim IdCuenta As Integer = 0
+                Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145, 13, 83)
+                Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
+                Dim Referencia As String = TxtFolio.Text.Trim
+                Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
+                Pago.ImportePago = tImporteMN
+
+                If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
+                    Dim ObjCreditos As New ClsBancos
+                    ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
+
+                    If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0) Then
+                        IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
+                    End If
+
+                    Dim Importe42 As Decimal = Pago.ImportePago + Pago.OtroGastoIngreso
+                    tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTipoCambio.Visible, Importe42 / TxtTipoCambio.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42)
+
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe42, tImporteMN, 42, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                        MsgError = "No se pudo insertar la póliza"
+                    End If
+
+                Else
+                    Dim ImporteME As Decimal = 0
+                    If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
+                    If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
+                        ImporteME = tImporteMN
+                        tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+                    End If
+
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
+                        MsgError = "No se pudo insertar la póliza"
+                    End If
+
+                    If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
+                        If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            MsgError = "No se pudo insertar la póliza"
+                        End If
+                    End If
                 End If
 
             Case "2" 'FyE
@@ -1471,6 +1506,8 @@ Partial Class Bancos_PopIECompras
 
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                             MsgError = "No se pudo insertar la póliza"
+                        Else
+                            Exit For
                         End If
                     End If
                 Next
@@ -1492,6 +1529,8 @@ Partial Class Bancos_PopIECompras
                         Pago.TipoPago = "DD"
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                             MsgError = "No se pudo insertar la póliza"
+                        Else
+                            Exit For
                         End If
                     End If
                 Next
@@ -1513,7 +1552,10 @@ Partial Class Bancos_PopIECompras
                         Pago.TipoPago = "DD"
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                             MsgError = "No se pudo insertar la póliza"
+                        Else
+                            Exit For
                         End If
+
                     End If
                 Next
 
@@ -1533,17 +1575,20 @@ Partial Class Bancos_PopIECompras
                         End If
 
                         If MsgError = "" Then
-                            Dim VentaActual As New Venta With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal}
+                            Dim VentaActual As New Venta With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .ClienteNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero}
                             Dim PagoVenta As New VentaPago
 
                             PagoVenta.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                             PagoVenta.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                            PagoVenta.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
                             PagoVenta.TCPago = rw.DataKey("TipoCambio").ToDecimal
                             PagoVenta.CveCompraRelacionada = CompraActual.CveCompra
-                            PagoVenta.TipoPago = "XX"
+                            PagoVenta.TipoPago = "Venta"
                             If AplicaPrePolizaPagoVenta(VentaActual, PagoVenta, CvePrePoliza, ObjMov) Then
                                 MsgError = "No se pudo insertar la póliza"
                             End If
+                        Else
+                            Exit For
                         End If
                     End If
                 Next
@@ -1551,28 +1596,44 @@ Partial Class Bancos_PopIECompras
             Case Else
                 ImportePagado = 0
         End Select
+        Dim ObjConta As ClsContPAQi = Nothing
 
         If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
             If ObjMov.ValorPolizaDescuadre > 0 Then
                 MsgError = ObjMov.MensajePolizaDescuadre
                 GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+            Else
+                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                        ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
+                        ObjConta.IniciaTransacSQL()
+                    End If
+                    If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
+                        IdPoliza = ObjMov.ContaIdPoliza
+                    Else
+                        Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                        MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
+                    End If
+                End If
             End If
         End If
 
         If MsgError = "" Then
-            ObjIE.Commit()
+
+            ObjIE.Commit()
+            If ObjConta IsNot Nothing Then ObjConta.Commit()
             Dim StrMsg As New StringBuilder
             StrMsg.Append("El Documento se guardó correctamente.<br/>")
             If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
-            If IdPoliza > 0 Then
+            If IdPoliza > 0 Then StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
-                StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+
-            End If
             If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
 
             EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)
 
         Else
-            ObjIE.RollBack()
+            ObjIE.RollBack()
+            If ObjConta IsNot Nothing Then ObjConta.RollBack()
             Alert(MsgError, TipoMensaje.MsgError)
         End If
 

Bancos/PopIEVentas.aspx.vb

@@ -1122,7 +1122,7 @@ Partial Class Bancos_PopIEVentas
             trCuentaDeposito.Visible = False
 
             Dim Dep As New ClsGenerales
-            If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then
+            If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveEmpresa:=UsuarioActual.CveEmpresa) Then
                 If DdlTipoTransaccion.SelectedValue = "9" Then
 
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
@@ -1905,13 +1905,6 @@ Partial Class Bancos_PopIEVentas
 
                                                 PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
 
-                                                Dim IdCtaIVAXTrasladar As Integer = 0
-
-                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                                                    IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
-                                                End If
-
-                                                IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
 
                                             Case 61 'Iva Trasladado
                                                 If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
@@ -1937,13 +1930,7 @@ Partial Class Bancos_PopIEVentas
                                                 If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                                 PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
-                                                Dim IdCtaIVATrasladado As Integer = 0
 
-                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                                                    IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
-                                                End If
-
-                                                IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
 
                                             Case 38 'IEPS por trasladar
                                                 If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
@@ -2078,7 +2065,6 @@ Partial Class Bancos_PopIEVentas
 
                                             Case 64 'Ganancia
                                                 If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
 
                                                     Dim tImporteVenta, tImportePago, Diferencia As Decimal
                                                     ImporteMovimiento = 0
@@ -2100,11 +2086,9 @@ Partial Class Bancos_PopIEVentas
                                                     If tImporteVenta <> tImportePago Then
                                                         If tImporteVenta < tImportePago Then
                                                             ConceptoContable = 64
-                                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                             TipoMovimiento = True
                                                         Else
                                                             ConceptoContable = 65
-                                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                             TipoMovimiento = False
                                                         End If
                                                         Diferencia = Math.Abs(tImporteVenta - tImportePago)

Bancos/ProveedoresAbonar.aspx.vb

@@ -1877,10 +1877,10 @@ Partial Class Bancos_ProveedoresAbonar
                     Dim IdCtaIVAXAcreditar As Integer = 0
                     Dim IdCtaIVAAcreditable As Integer = 0
 
-                    If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+                    'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                        IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                    '    IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                        IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                    '    IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
-                    End If
+                    'End If
 
                     Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal
 
@@ -1930,11 +1930,11 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
 
                     If TCCompra > TCPago Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                     Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                     End If

Bancos/Transferencias.aspx

@@ -30,7 +30,7 @@
                             <tr>
                                 <td>Tipo Movimiento:</td>
                                 <td>
-                                    <asp:DropDownList ID="DdlTipoMovto" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="400px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlTipoMovto" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="400px"    >
                                         <asp:ListItem Value="1">Cheque Emitido</asp:ListItem>
                                         <asp:ListItem Value="2" Selected="True">Transferencia Bancaria</asp:ListItem>
                                     </asp:DropDownList>
@@ -127,7 +127,12 @@
                             <tr id="trPagueseA">
                                 <td>Paguese</td>
                                 <td>
-                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="100%"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="100%"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVTxtPaguese" runat="server" ControlToValidate="TxtPaguese" CssClass="help-block errorimput"  Visible="false" Display="Dynamic"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paguese''</b> es necesario, por favor ingr<67>selo." 
+                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                </td>
+
                             </tr>
                             <tr>
                                 <td>Observaciones:</td>
@@ -138,7 +143,7 @@
                             <tr>
                                 <br />
                                 <td colspan="2" style="text-align: center;">
-                                    <asp:Button ID="BtnGuardar" runat="server" Text="Aceptar" class="btn btn-primary" />
+                                    <asp:Button ID="BtnGuardar" runat="server" Text="Aceptar" class="btn btn-primary" ValidationGroup="GrpGuardar"  />
                                 </td>
                             </tr>
                         </table>

Bancos/Transferencias.aspx.vb

@@ -42,7 +42,9 @@ Partial Class Bancos_Transferencias
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
         If Not IsPostBack Then
+
             tCveMonedaOrigen = 0
             tCveMonedaDestino = 0
             If Request("OPC") IsNot Nothing AndAlso IsNumeric(Request("OPC")) Then
@@ -70,6 +72,8 @@ Partial Class Bancos_Transferencias
 
             TxtFechaDocumento.Text = Now.ToShortDateString
 
+            DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
+
         End If
     End Sub
 
@@ -281,20 +285,26 @@ Partial Class Bancos_Transferencias
             Observaciones = TxtObservaciones.Text.Trim
         End If
 
-        If Opcion = 1 Then
+
+        If Opcion = 1 Then 'ESTO ES TRANSFERENCIA ENTRE
             CveIE = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, ImporteMXOrigen, CveMonedaOrigen, TipoCambio, Observaciones, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             CveIEDestino = CveIE
         Else
+
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 FolioDestino = TxtFolio.Text.Trim
                 If TxtPaguese.Text.Trim <> "" Then
                     CuentaDestino = TxtPaguese.Text.Trim
                 End If
-
+            Else
+                If DdlTipoMovto.SelectedValue.ToEntero = 1 Then
+                    CuentaDestino = TxtPaguese.Text.Trim
+                End If
             End If
 
             CveIE = ObjIE.AddBancos_IE(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, TxtImporte.Text.Trim.ToDouble, CveMonedaOrigen, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
         End If
 
         Dim CveIEDevolucion As Integer = -1
@@ -636,12 +646,21 @@ Partial Class Bancos_Transferencias
 
     Private Sub DdlTipoMovto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoMovto.SelectedIndexChanged
 
+        RFVTxtPaguese.Visible = False
+
         If Opcion = 1 Then
             CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
         Else
             CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
+
+            If DdlTipoMovto.SelectedValue.ToEntero = 1 And Opcion <> 1 Then 'CHEQUE ACTIVA EL REQUIRED DE  TxtPaguese
+                RFVTxtPaguese.Visible = True
+            End If
+
         End If
 
+        UPPDatos.Update()
+
     End Sub
 
     Protected Sub RBLOpcion_SelectedIndexChanged(sender As Object, e As EventArgs)

Compras/Compras.aspx.vb

@@ -7,7 +7,7 @@ Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
 Imports System.Threading.Tasks
-Imports Newtonsoft.Json
+Imports Newtonsoft.Jsonf
 Imports Extensiones
 Imports System.Activities.Expressions
 Imports iText.Barcodes.Dmcode
@@ -1853,6 +1853,7 @@ Partial Class Compras_Compras
                         'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
 
                         namespaces.AddNamespace(Prefijo, cfdVer)
+                        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
                         namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -5907,10 +5908,10 @@ Partial Class Compras_Compras
                                             ' Dim IdCtaIVAAcreditable As Integer = 0
                                             Dim GuardoConcepto18 As Boolean = False
 
-                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then
+                                            'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then
-                                                IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                            '    IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                                ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            '    ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
-                                            End If
+                                            'End If
 
                                             '********************** Variables '**********************
 
@@ -6362,11 +6363,9 @@ Partial Class Compras_Compras
 
                                                                 If TipoCambioCompra > TCPago Then
                                                                     ConceptoContable = 64
-                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                                     TipoMovimiento = True
                                                                 Else
                                                                     ConceptoContable = 65
-                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                                     TipoMovimiento = False
                                                                 End If
                                                                 If TCPago <> TipoCambioCompra Then
@@ -6827,10 +6826,8 @@ Partial Class Compras_Compras
 
                                                                             If diferenciaTransito <> 0 Then
                                                                                 Dim tCveCon As Integer = 65
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                                                 If diferenciaTransito < 0 Then
                                                                                     tCveCon = 64
-                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                                                 End If
                                                                                 diferenciaTransito = Math.Abs(diferenciaTransito)
 
@@ -7367,11 +7364,9 @@ Partial Class Compras_Compras
                                                                                 If importeMovimiento > 0 Then
                                                                                     ConceptoContable = 64
                                                                                     TipoMovimiento = True
-                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                                                 ElseIf importeMovimiento < 0 Then
                                                                                     ConceptoContable = 65
                                                                                     TipoMovimiento = False
-                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                                                 End If
 
                                                                                 importeMovimiento = importeMovimiento.Abs.RoundSQL()
@@ -8112,7 +8107,7 @@ Partial Class Compras_Compras
                                     End If
 
                                     'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
                                         If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
                                             Dim CvePreComprobacion As Integer
                                             If ObjCompras.DtResultados.Rows.Count = 0 Then
@@ -9340,7 +9335,7 @@ Partial Class Compras_Compras
                     If (TxtRembolsoNumero.Text.Trim.Length > 0 AndAlso IdPoliza <= 0) AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then
 
                         'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                        If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
                             If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
                                 Dim CvePreComprobacion As Integer
                                 If ObjCompra.DtResultados.Rows.Count = 0 Then
@@ -20680,11 +20675,8 @@ Partial Class Compras_Compras
 
         TxtModalEliminarCompraDescripcion.Text = ""
         RegistraScript("$('#DvModalEliminarCompra').modal('show');")
-
         UpModalEliminarcompraCuerpo.Update()
 
-
-
     End Sub
 
     Protected Sub BtnModalEliminarCompra_Click(sender As Object, e As EventArgs)
@@ -20787,9 +20779,9 @@ Partial Class Compras_Compras
         SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ")
         SBEliminacionCompra.Append($"F Captura: {LitFechCaptura.Text}, ")
 
-        SBEliminacionCompra.Append($"Dealles: ")
+        SBEliminacionCompra.Append($"Dealles:<br/>")
         For Each dRow As DataRow In TmpDT.Rows
-            SBEliminacionCompra.Append($"Cantidad: {dRow("Cantidad")}, PS: {dRow("PS")},  Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }  ")
+            SBEliminacionCompra.Append($"-Cantidad: {dRow("Cantidad").ToString.ToDecimal().ToString("###,###,###.00") }, PS: {dRow("PS")},  Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }<br/>")
         Next
 
         If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveCompra, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,

Compras/Proveedores.aspx

@@ -868,7 +868,7 @@
 
                                                 <div id="divCuentas" runat="server" visible="false">
                                                          
-                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;  width: 100%;" GridLines="None">
+                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="  width: 100%;" GridLines="None">
                                                                 <Columns>
                                                                     <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
                                                                     <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />

Compras/Proveedores.aspx.vb

@@ -1823,11 +1823,8 @@ Partial Class Compras_Proveedores
                     If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
                     'ACTUALIZAR GLOBAL
-                    'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                     GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
-                    'Else
+                    GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-                    '    ErrorBancos = True
-                    'End If
 
                     Alert("El Proveedor se guardó correctamente. " & "<br />" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();"))
                     RecargaGlobalCuentasBancarias()
@@ -2677,7 +2674,7 @@ Partial Class Compras_Proveedores
             End If
             If e.Row.RowIndex > 0 Then e.Row.FCLiteral("LtlAux").Text = String.Format("<a class=""Texto thickbox"" href=""/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=370&width=900"" />Ir</a>", CveProveedor, e.Row.DBCampo("CveCompra"))
             'DirectCast(e.Row.FindControl("ImgAbonar"), Image).Attributes.Add("onclick", String.Format("$get('HdnCveVenta').value='{0}';$get('HdnCveVentaAbono').value='{0}';$('#DivAddPago').show(1000);PosicionaObjeto('{1}', 'DivAddPago');", e.Row.DBCampo("CveCompra"), DirectCast(e.Row.FindControl("ImgAbonar"), Image).ClientID))
-            If e.Row.FCHyperLink("ImgAbonar") IsNot Nothing Then e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/PopIECompras.aspx?CveCompra={0}&TB_iframe=true&height=450&width=790", e.Row.DBCampo("CveCompra"))
+            If e.Row.FCHyperLink("ImgAbonar") IsNot Nothing Then e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/PopIECompras.aspx?CveCompra={0}&TB_iframe=true&height=510&width=800", e.Row.DBCampo("CveCompra"))
 
             If CType(sender, GridView).ID = "GvCxPHistorial" Then
 
@@ -3416,7 +3413,9 @@ Partial Class Compras_Proveedores
         If CveProveedor > 0 Then
             If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
+                'recargar las cuentas 
+                GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
+                DTCuentasBancos = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor)
 
                 Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
             Else
@@ -3430,12 +3429,11 @@ Partial Class Compras_Proveedores
 
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
         ObjCuentasBancos.Dispose()
-        RecargaGlobalCuentasBancarias()
+
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveProveedor > 0 Then
             GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-
         End If
     End Sub
 

Compras/RepComprasAF.aspx

@@ -1,330 +1,326 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasAF.aspx.vb" Inherits="Compras_RepComprasAF" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasAF.aspx.vb" Inherits="Compras_RepComprasAF" %>
-
+
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
+    <style>
-        #chartdiv {
+        #chartdiv {
-            width: 100%;
+            width: 100%;
-            height: 500px;
+            height: 500px;
-        }
+        }
-    </style>
+    </style>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Compras Activo Fijo
+    Reporte de Compras Activo Fijo
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
+    <li>
-        <asp:LinkButton ID="LinkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <asp:LinkButton ID="LinkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
-    </li>
+    </li>
-    <li>
+    <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-    </li>
+    </li>
-    <li>
+    <li>
-        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-    </li>
+    </li>
-    <li>
+    <li>
-        <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionCompras.aspx#RepComprasAF">&nbsp</a>
+        <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionCompras.aspx#RepComprasAF">&nbsp</a>
-    </li>
+    </li>
-    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <li>
+            <li>
-                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
+                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
-            </li>
+            </li>
-        </ContentTemplate>
+        </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
-                <div class="portlet-title portlet-filterT smalltitle">
+                <div class="portlet-title portlet-filterT smalltitle">
-                    <div class="tools">
+                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" class="expand"></a>
+                        <a href="javascript:;" class="expand"></a>
-                    </div>
+                    </div>
-                    <div class="titlefiltros  caption ">
+                    <div class="titlefiltros  caption ">
-                        <div class="row">
+                        <div class="row">
-                            <div class="col-md-1">Fecha Inicio:</div>
+                            <div class="col-md-1">Fecha Inicio:</div>
-                            <div class="col-md-2">
+                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px;">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px;">
-                                    <asp:TextBox Style="width: 115px !important" ID="txtFechaI" runat="server" CssClass="form-control text-size-12" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox Style="width: 115px !important" ID="txtFechaI" runat="server" CssClass="form-control text-size-12" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
+                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
+                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                    <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-                            <div class="col-md-1">Fecha Fin:</div>
+                            <div class="col-md-1">Fecha Fin:</div>
-                            <div class="col-md-2">
+                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px;">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px;">
-                                    <asp:TextBox Style="width: 115px !important" ID="txtFechaF" runat="server" CssClass="form-control text-size-12" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox Style="width: 115px !important" ID="txtFechaF" runat="server" CssClass="form-control text-size-12" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
+                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
+                                    </span>
-                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-                            <div class="col-md-1 ">Grupo:</div>
+                            <div class="col-md-1 ">Grupo:</div>
-                            <div class=" col-md-2 ">
+                            <div class=" col-md-2 ">
-                                <asp:DropDownList CssClass=" select2me"  ID="DdlGrupo" runat="server" Width="95%">
+                                <asp:DropDownList CssClass=" select2me" ID="DdlGrupo" runat="server" Width="95%">
-                                    <asp:ListItem Text="Año" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Año" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Mes" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Mes" Value="2"></asp:ListItem>
-                                    <asp:ListItem Selected="True" Text="Año/Mes" Value="3"></asp:ListItem>
+                                    <asp:ListItem Selected="True" Text="Año/Mes" Value="3"></asp:ListItem>
-                                    <asp:ListItem Text="Fecha" Value="4"></asp:ListItem>
+                                    <asp:ListItem Text="Fecha" Value="4"></asp:ListItem>
-                                    <asp:ListItem Text="Proveedor" Value="5"></asp:ListItem>
+                                    <asp:ListItem Text="Proveedor" Value="5"></asp:ListItem>
-                                    <asp:ListItem Text="Activo Fijo" Value="6"></asp:ListItem>
+                                    <asp:ListItem Text="Activo Fijo" Value="6"></asp:ListItem>
-                                    <asp:ListItem Text="Activo Fijo Tipo" Value="7"></asp:ListItem>
+                                    <asp:ListItem Text="Activo Fijo Tipo" Value="7"></asp:ListItem>
-                                    <asp:ListItem Text="Activo Fijo SubTipo" Value="8"></asp:ListItem>
+                                    <asp:ListItem Text="Activo Fijo SubTipo" Value="8"></asp:ListItem>
-                                    <asp:ListItem Text="Producto" Value="9"></asp:ListItem>
+                                    <asp:ListItem Text="Producto" Value="9"></asp:ListItem>
-                                    <asp:ListItem Text="Clasificación" Value="10"></asp:ListItem>
+                                    <asp:ListItem Text="Clasificación" Value="10"></asp:ListItem>
-                                    <asp:ListItem Text="Clasificación2" Value="11"></asp:ListItem>
+                                    <asp:ListItem Text="Clasificación2" Value="11"></asp:ListItem>
-                                </asp:DropDownList>
+                                </asp:DropDownList>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                </div>
+                </div>
-                <div class="portlet-body" style="display: none">
+                <div class="portlet-body" style="display: none">
-                    <div class="row">
+                    <div class="row">
-                        <div class="col-md-1">Tipo Activo Fijo: </div>
+                        <div class="col-md-1">Tipo Activo Fijo: </div>
-                        <div class="col-md-2">
+                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlTipoActivoFijo" runat="server" CssClass="form-control input-sm select2me input-small" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" Width="95%">
+                            <asp:DropDownList ID="DdlTipoActivoFijo" runat="server" CssClass="form-control input-sm select2me input-small" AutoPostBack="True" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" Width="95%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
-                            </asp:DropDownList>
+                        </div>
-                        </div>
+                        <div class="col-md-1">SubTipo Fijo:</div>
-                        <div class="col-md-1">SubTipo Fijo:</div>
+                        <div class="col-md-2">
-                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm select2me input-small" runat="server" AutoPostBack="True" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="95%">
-                            <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm select2me input-small" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="95%">
+                            </asp:DropDownList>
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                        </div>
-                            </asp:DropDownList>
+                        <div class="col-md-1">Activo Fijo:</div>
-                        </div>
+                        <div class="col-md-2">
-                        <div class="col-md-1">Activo Fijo:</div>
+                            <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass=" form-control input-sm select2me" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="95%">
-                        <div class="col-md-2">
+                            </asp:DropDownList>
-                            <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="95%">
+                        </div>
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        <div class="col-md-1">Moneda:</div>
-                            </asp:DropDownList>
+                        <div class="col-md-2">
-                        </div>
+                            <asp:DropDownList ID="DdlMonedas" runat="server" DataTextField="Moneda" CssClass="form-control input-sm select2me" DataValueField="CveMoneda" Width="95%">
-                        <div class="col-md-1">Moneda:</div>
+                            </asp:DropDownList>
-                        <div class="col-md-2">
+                        </div>
-                            <asp:DropDownList ID="DdlMonedas" runat="server" AppendDataBoundItems="true" DataTextField="Moneda" CssClass="form-control input-sm select2me" DataValueField="CveMoneda" Width="95%">
+                    </div>
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                    <div class="row ">
-                            </asp:DropDownList>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
-                        </div>
+                        <div runat="server" id="DivProyecto" class="col-md-2">
-                    </div>
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
-                    <div class="row ">
+                            </asp:DropDownList>
-                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
+                        </div>
-                        <div runat="server" id="DivProyecto" class="col-md-2">
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1 truncate">SubProyecto:</asp:Label>
-                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                        <div class="col-md-2">
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
-                        </div>
+                            </asp:DropDownList>
-                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1 truncate">SubProyecto:</asp:Label>
+                        </div>
-                        <div class="col-md-2">
+                        <div class="col-md-1 ">Proveedor:</div>
-                            <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                        <div class="col-md-2 ">
-                            </asp:DropDownList>
+                            <asp:DropDownList CssClass=" select2me" ID="DdlProveedores" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="95%">
-                        </div>
+                            </asp:DropDownList>
-                        <div class="col-md-1 ">Proveedor:</div>
+                        </div>
-                        <div class="col-md-2 ">
+                        <div class="col-md-1">Tipo de Compra:</div>
-                            <asp:DropDownList CssClass=" select2me" ID="DdlProveedores" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="95%">
+                        <div class="col-md-2">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlTipoCompra" runat="server" CssClass="form-control input-sm select2me" Width="95%">
-                            </asp:DropDownList>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                        </div>
+                                <asp:ListItem Text="Insumos" Value="1"></asp:ListItem>
-                        <div class="col-md-1">Tipo de Compra:</div>
+                                <asp:ListItem Text="Compras" Value="2"></asp:ListItem>
-                        <div class="col-md-2">
+                            </asp:DropDownList>
-                            <asp:DropDownList ID="DdlTipoCompra" runat="server" CssClass="form-control input-sm select2me" Width="95%">
+                        </div>
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+
-                                <asp:ListItem Text="Insumos" Value="1"></asp:ListItem>
+                    </div>
-                                <asp:ListItem Text="Compras" Value="2"></asp:ListItem>
+                    <div class="row">
-                            </asp:DropDownList>
+
-                        </div>
+                        <div class="col-md-1">Clasificación:</div>
-
+                        <div class="col-md-2">
-                    </div>
+                            <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
-                    <div class="row">
+                            </asp:DropDownList>
-
+                        </div>
-                        <div class="col-md-1">Clasificación:</div>
+
-                        <div class="col-md-2">
+
-                            <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
+                        <div class="col-md-1">Clasificación 2:</div>
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        <div class="col-md-2">
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
-                        </div>
+                            </asp:DropDownList>
-                        
+                        </div>
-                        
+
-                        <div class="col-md-1">Clasificación 2:</div>
+                        <div class="col-md-1">Producto Servicio:</div>
-                        <div class="col-md-2">
+                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        </div>
-                            </asp:DropDownList>
+                    </div>
-                        </div>  
+                </div>
-
+            </div>
-                        <div class="col-md-1">Producto Servicio:</div>
+        </ContentTemplate>
-                        <div class="col-md-2">
+    </asp:UpdatePanel>
-                           <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
+    <br />
-                        </div>
+    <div class="row">
-                    </div>
+        <div class="col-md-8">
-                </div>
+            <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
-            </div>
+                <ContentTemplate>
-        </ContentTemplate>
+                    <asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" CssClass="table table-advance table-hover Widthall ScrollAD"
-    </asp:UpdatePanel>
+                        ToolTip="Listado de Ventas" GridLines="None">
-    <br />
+                        <Columns>
-    <div class="col-md-8" >
+                            <asp:TemplateField HeaderText="Grupo">
-        <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+                                <ItemTemplate>
-            <ContentTemplate>
+                                    <asp:Label ID="LblGPO" runat="server" Text='<%#   If(Eval("GPO").ToString = "", Eval("Moneda"), Eval("GPO"))  %>'></asp:Label>
-                <asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" 
+                                </ItemTemplate>
-                    ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+                            </asp:TemplateField>
-                    <Columns>
+                            <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" HeaderText="Cantidad">
-                        <asp:TemplateField HeaderText="Grupo">
+                                <ItemTemplate>
-                            <ItemTemplate>
+                                    <asp:Label ID="LblCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Label>
-                                <asp:Label ID="LblGPO" runat="server" Text='<%#   If(Eval("GPO").ToString = "", Eval("Moneda"), Eval("GPO"))  %>'></asp:Label>
+                                </ItemTemplate>
-                            </ItemTemplate>
+                            </asp:TemplateField>
-                        </asp:TemplateField>
+                            <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" HeaderText="Total">
-                        <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right"  HeaderText="Cantidad">
+                                <ItemTemplate>
-                            <ItemTemplate>
+                                    <asp:Label ID="LblCantidad" Style="margin-right: 15px" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Label>
-                                <asp:Label ID="LblCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Label>
+                                </ItemTemplate>
-                            </ItemTemplate>
+                            </asp:TemplateField>
-                        </asp:TemplateField>
+                        </Columns>
-                        <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" HeaderText="Total">
+                    </asp:GridView>
-                            <ItemTemplate>
+                </ContentTemplate>
-                                <asp:Label ID="LblCantidad" Style="margin-right: 15px" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Label>
+            </asp:UpdatePanel>
-                            </ItemTemplate>
+        </div>
-                        </asp:TemplateField>
+    </div>
-                    </Columns>
+    <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
-                </asp:GridView>
+        <ContentTemplate>
-            </ContentTemplate>
+            <div id="DivTipoCambio" class="modal fade" role="dialog">
-        </asp:UpdatePanel>
+                <div class="modal-dialog">
-    </div>
+                    <div class="modal-content">
-    <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
+                        <div class="modal-header">
-        <ContentTemplate>
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-            <div id="DivTipoCambio" class="modal fade" role="dialog">
+                            <h4 class="modal-title">
-                <div class="modal-dialog">
+                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
-                    <div class="modal-content">
+                        </div>
-                        <div class="modal-header">
+                        <div class="modal-body">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
-                            <h4 class="modal-title">
+                                <ContentTemplate>
-                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
+                                    <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
-                        </div>
+                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
-                        <div class="modal-body">
+                                        <asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
-                            <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
+                                        <asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
-                                <ContentTemplate>
+                                    </asp:RadioButtonList>
-                                    <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
+                                    <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
-                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
-                                        <asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
-                                    </asp:RadioButtonList>
-                                    <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
                                         Especifico:
-                             <asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
+                            
-                                    </div>
+                                        <asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
-                                </ContentTemplate>
+                                    </div>
-                            </asp:UpdatePanel>
+                                </ContentTemplate>
-                        </div>
+                            </asp:UpdatePanel>
-                        <div class="modal-footer">
+                        </div>
-                            <asp:Button ID="BtnTipoCambio" runat="server" Text="Aceptar" class="btn btn-primary" />
+                        <div class="modal-footer">
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            <asp:Button ID="BtnTipoCambio" runat="server" Text="Aceptar" class="btn btn-primary" />
-                        </div>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                    </div>
+                        </div>
-                </div>
+                    </div>
-            </div>
+                </div>
-        </ContentTemplate>
+            </div>
-    </asp:UpdatePanel>
+        </ContentTemplate>
-    <div id="DivModalGrafica" class="modal ADS fade" role="dialog">
+    </asp:UpdatePanel>
-        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
+    <div id="DivModalGrafica" class="modal ADS fade" role="dialog">
-            <ContentTemplate>
+        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
-                <div class="modal-content">
+            <ContentTemplate>
-                    <div class="modal-header">
+                <div class="modal-content">
-                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <div class="modal-header">
-                        <h4 class="modal-title">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
+                        <h4 class="modal-title">
-                        </h4>
+                            <asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
-                    </div>
+                        </h4>
-                    <div class="modal-body">
+                    </div>
-                        <div class="row">
+                    <div class="modal-body">
-                            <div class="col-md-2"></div>
+                        <div class="row">
-                            <label class="col-md-1 truncate">Grafica:</label>
+                            <div class="col-md-2"></div>
-                            <div class="col-md-2">
+                            <label class="col-md-1 truncate">Grafica:</label>
-                                <asp:DropDownList ID="DdlGrafica" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <div class="col-md-2">
-                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
+                                <asp:DropDownList ID="DdlGrafica" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
+                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
-                                </asp:DropDownList>
+                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
-                            </div>
+                                </asp:DropDownList>
-                            <label class="col-md-1 truncate">&nbsp;&nbsp;&nbsp;Ver:</label>
+                            </div>
-                            <div class="col-md-2">
+                            <label class="col-md-1 truncate">&nbsp;&nbsp;&nbsp;Ver:</label>
-                                <asp:DropDownList ID="DdlVer" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlVer_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <div class="col-md-2">
-                                    <asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
+                                <asp:DropDownList ID="DdlVer" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlVer_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                    <asp:ListItem Text="Cantidad" Value="2"></asp:ListItem>
+                                    <asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
-                                </asp:DropDownList>
+                                    <asp:ListItem Text="Cantidad" Value="2"></asp:ListItem>
-                            </div>
+                                </asp:DropDownList>
-                        </div>
+                            </div>
-                        <br />
+                        </div>
-                        <div id="chartdiv"></div>
+                        <br />
-                    </div>
+                        <div id="chartdiv"></div>
-                    <div class="modal-footer">
+                    </div>
-                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    <div class="modal-footer">
-                    </div>
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
-                </div>
+                    </div>
-            </ContentTemplate>
+                </div>
-        </asp:UpdatePanel>
+            </ContentTemplate>
-    </div>
+        </asp:UpdatePanel>
-</asp:Content>
+    </div>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
-    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
+    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
-    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
+    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
-    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
+    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
-    <link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
+    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
-    <script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
+    <link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
+    <script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
     <script>
-        function CargaGraficaBarras(data) {
+        function CargaGraficaBarras(data) {
-            var chart = AmCharts.makeChart("chartdiv", {
+            var chart = AmCharts.makeChart("chartdiv", {
                 "type": "serial",
                 "theme": "light",
                 "dataProvider": data,
                 "startDuration": 2,
-                "valueAxes": [{
+                "valueAxes": [{
                     "position": "left",
-                    "title": "Ventas"
+                    "title": "Ventas"
                 }],
-                "graphs": [{
+                "graphs": [{
                     "balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
                     "colorField": "Color",
                     "fillAlphas": 1,
                     "lineAlpha": 0.1,
                     "type": "column",
-                    "valueField": "Valor"
+                    "valueField": "Valor"
                 }],
                 "depth3D": 20,
                 "angle": 30,
-                "chartCursor": {
+                "chartCursor": {
                     "categoryBalloonEnabled": false,
                     "cursorAlpha": 0,
-                    "zoomable": false
+                    "zoomable": false
                 },
                 "categoryField": "Texto",
-                "categoryAxis": {
+                "categoryAxis": {
                     "gridPosition": "start",
-                    "labelRotation": 90
+                    "labelRotation": 90
                 },
-                "export": {
+                "export": {
-                    "enabled": true
+                    "enabled": true
-                }
+                }
-            });
+            });
         }
 
-        function CargaGraficaPastel(data) {
+        function CargaGraficaPastel(data) {
 
-            var chart = AmCharts.makeChart("chartdiv", {
+            var chart = AmCharts.makeChart("chartdiv", {
                 "type": "pie",
                 "theme": "light",
                 "dataProvider":
@@ -335,12 +331,12 @@
                 "depth3D": 0,
                 "balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
                 "angle": 0,
-                "export": {
+                "export": {
-                    "enabled": true
+                    "enabled": true
-                }
+                }
-            });
+            });
         }
 
-    </script>
+    </script>
-</asp:Content>
+</asp:Content>
-
+

Compras/RepComprasAF.aspx.vb

@@ -59,16 +59,20 @@ Partial Class Compras_RepComprasAF
         txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
 
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedores.DataBind()
+        DdlProveedores.DataBind()
+        DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlMonedas.DataSource = GlobalDTMonedas()
-        DdlMonedas.DataBind()
+        DdlMonedas.DataBind()
+        DdlMonedas.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
         DdlTipoActivoFijo.DataBind()
+        DdlTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
 
         Dim ObjClasificacion As New ClsClasificaciones
@@ -81,9 +85,11 @@ Partial Class Compras_RepComprasAF
 
         ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
+        DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 

Compras/RepNotasCredito.aspx

@@ -108,7 +108,7 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" OnRowDataBound="GvDatos_RowDataBound"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"
-                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto">
+                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto,SerieFolio">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="2%">
                         <ItemTemplate>

Compras/RepNotasCredito.aspx.vb

@@ -156,20 +156,19 @@ Partial Class Compras_RepNotasCredito
                 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
 
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, "", 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, gr.DataKey("SerieFolio"), 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 
                 If UsaComplementaria AndAlso CveMoneda > 1 Then
                     ImporteComplementaria = (Importe * TCCompra - Importe).RoundSQL
                     IdCtaContableComplementaria = gr.DataKey("IdCtaContComplementaria").ToEntero
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
                         MsgError = "Ocurrio un Error al saldar el movimiento"
                     End If
                 End If
 
-                IdCtaContable = UsuarioActual.Empresa.Funcionalidad(266).ToString.ToEntero
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, gr.DataKey("SerieFolio"), 211, Concepto, TxtFechaSaldar.Text.ToDate, 0, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 211, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 
@@ -181,11 +180,9 @@ Partial Class Compras_RepNotasCredito
                     If difFluctuacion < 0 Then
                         CveConceptoFluctua = 65
                         TipoMovtoFluctua = False
-                        IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                     Else
                         CveConceptoFluctua = 64
                         TipoMovtoFluctua = True
-                        IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                     End If
                     Dim ImporteFluctuacion As Decimal = Math.Abs((Importe * difFluctuacion).RoundSQL)
 
@@ -193,44 +190,45 @@ Partial Class Compras_RepNotasCredito
                         MsgError = "Ocurrio un Error al saldar el movimiento"
                     End If
                 End If
-
+                 
-                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
-                    If ObjConta.ValorPolizaDescuadre > 0 Then
-                        MsgError = ObjConta.MensajePolizaDescuadre
-                        GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                    End If
-                End If
-
-                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-                    If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                        If MensajeAlert.ToString = "" Then
-                            MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")
-                        End If
-                        MensajeAlert.AppendFormat("<ul><li><a Class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Poliza {1}</a></li></ul>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
-                    End If
-                End If
-
                 If MsgError <> "" Then Exit For
 
             End If
         Next
 
-
         If MsgError = "" Then
-            ObjConta.Commit()
+            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
-            If MensajeAlert.ToString <> "" Then
+                If ObjConta.ValorPolizaDescuadre > 0 Then
+                    MsgError = ObjConta.MensajePolizaDescuadre
+                    GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                End If
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                    If MensajeAlert.ToString = "" Then
+                        MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")
+                    End If
+                    MensajeAlert.AppendFormat("<ul><li><a Class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Poliza {1}</a></li></ul>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
+                End If
+            End If
+
+            If MsgError = "" Then
+                ObjConta.Commit()
+                If MensajeAlert.ToString <> "" Then
+                    Alert(MensajeAlert.ToString)
+                Else
+                    Alert("Los movimientos fueron saldados correctamente.")
+                End If
                 Alert(MensajeAlert.ToString)
+                CargaDatos()
+                HLSaldar.Visible = False
+                RegistraScript("$('#DivSaldar').modal('hide')")
+                LnkHabilitarSaldar.Visible = True
             Else
-                Alert("Los movimientos fueron saldados correctamente.")
+                ObjConta.RollBack()
+                Alert(MsgError, TipoMensaje.MsgError)
             End If
-            Alert(MensajeAlert.ToString)
-            CargaDatos()
-            HLSaldar.Visible = False
-            RegistraScript("$('#DivSaldar').modal('hide')")
-            LnkHabilitarSaldar.Visible = True
-        Else
-            ObjConta.RollBack()
-            Alert(MsgError, TipoMensaje.MsgError)
         End If
         ObjConta.Dispose()
     End Sub

Compras/eFacturas.aspx

@@ -578,14 +578,17 @@
                             </div>
                             <div class="actions">
                                 <div class="btn-group">
+
+                                    <asp:LinkButton ID="BtnMostrar" runat="server" Text="Mostrar" class="btn btn-primary" />
+                                    <asp:LinkButton ID="BtnOcultar" Visible="false" runat="server" Text="Ocultar" class="btn btn-primary" />
+
                                 </div>
                             </div>
                         </div>
                         <div class="portlet-body">
                             <div class="row">
                                 <div class="col-md-12" align="right">
-                                    <asp:Button ID="BtnMostrar" runat="server" Text="Mostrar" class="btn btn-primary" />
+                                    
-                                    <asp:Button ID="BtnOcultar" Visible="false" runat="server" Text="Ocultar" class="btn btn-primary" />
                                 </div>
                             </div>
                             <br />
@@ -596,7 +599,13 @@
                                             <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:BoundField DataField="Id_Clave" HeaderText="Folio / Proveedor" ItemStyle-HorizontalAlign="Left" />
+
+                                    <asp:TemplateField HeaderText="Folio / Proveedor" ItemStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            <asp:Label ID="LblId_Clave" runat="server" Text='<%# Eval("Id_Clave") %>'></asp:Label>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    
                                     <asp:BoundField DataField="Descripcion" HeaderText="Descripcion" ItemStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                                 </Columns>

Compras/eFacturas.aspx.vb

@@ -1907,6 +1907,7 @@ Partial Class Compras_eFacturas
                     cfdVer = "http://www.sat.gob.mx/cfd/2"
                 End If
                 namespaces.AddNamespace(Prefijo, cfdVer)
+                namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
                 namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                 namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                 namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -1963,6 +1964,7 @@ Partial Class Compras_eFacturas
             cfdVer = "http://www.sat.gob.mx/cfd/2"
         End If
         namespaces.AddNamespace(Prefijo, cfdVer)
+        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
         namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -2180,6 +2182,7 @@ Partial Class Compras_eFacturas
             cfdVer = "http://www.sat.gob.mx/cfd/2"
         End If
         namespaces.AddNamespace(Prefijo, cfdVer)
+        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
         namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -3302,6 +3305,7 @@ Partial Class Compras_eFacturas
             End If
 
 
+            namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
             namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
 
 
@@ -4498,6 +4502,7 @@ Partial Class Compras_eFacturas
                 Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
                 namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/3")
+                namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
                 namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                 namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
                 nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)

Contabilidad/CatClasificacionPorcentaje.aspx.vb

@@ -93,9 +93,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje
                                                        DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
                 Alert("Clasificación porcentaje agregado correctamente")
-                If ObjGenerales.GetClasificacionPorcentaje(-1) Then
+                'If ObjGenerales.GetClasificacionPorcentaje(-1) Then
-                    GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
+                '    GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
-                End If
+                'End If
                 CargaDatos()
                 CargaContPaq()
                 UpDatos.Update()
@@ -105,9 +105,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje
                                                           DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
                 Alert("Clasificación porcentaje actualizado correctamente")
-                If ObjGenerales.GetClasificacionPorcentaje(-1) Then
+                'If ObjGenerales.GetClasificacionPorcentaje(-1) Then
-                    GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
+                '    GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
-                End If
+                'End If
                 CargaDatos()
                 CargaContPaq()
                 UpDatos.Update()
@@ -120,9 +120,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje
         Dim objgenerales As New ClsGenerales
         If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then
             Alert("la clasificación porcentaje se eliminó correctamente")
-            If objgenerales.GetClasificacionPorcentaje(-1) Then
+            'If objgenerales.GetClasificacionPorcentaje(-1) Then
-                GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados
+            '    GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados
-            End If
+            'End If
             CargaDatos()
             CargaContPaq()
             UpDatos.Update()

Contabilidad/DIOTChilo.aspx

@@ -1,29 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DIOTChilo.aspx.vb" Inherits="Contabilidad_DIOTChilo" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-
-
-    <div class="row">
-        <div class="col-md-3">
-            <asp:TextBox ID="TxtPoliza" runat="server" Width="50%" CssClass="form-control"></asp:TextBox>
-            <asp:Button ID="BtnContabilizar" runat="server" CssClass="form-control btn btn-primary" Text="Fierro Compa!" Width="50%" />
-        </div>
-    </div>
-
-
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
-

Contabilidad/DIOTChilo.aspx.vb

@@ -1,121 +0,0 @@
-Imports System.Data
-Imports Extensiones
-
-Partial Class Contabilidad_DIOTChilo
-    Inherits Page
-
-    Private Sub Contabilidad_DIOTChilo_Load(sender As Object, e As EventArgs) Handles Me.Load
-
-    End Sub
-
-
-
-    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
-        Dim ObjContabilidad As New ClsContabilidad
-        Dim ObjConta As ClsContPAQi = Nothing
-        Dim ObjEmpres As New Empresa()
-
-        ObjEmpres.Empresa = "EXPLORACIONES MINERAS DEL DESIERTO S.A DE C.V"
-        ObjEmpres.ServerContPAQi = "192.168.0.2\COMPAC,1430"
-        ObjEmpres.BDContPAQi = "ctEMD"
-        ObjEmpres.UsrContPAQi = "sa"
-        ObjEmpres.PwdContPAQi = "AsS151026r37"
-
-        Dim OcurrioError = False
-        Dim Mensaje = ""
-
-        If ObjConta Is Nothing Then
-            ObjConta = New ClsContPAQi(ObjEmpres)
-            ObjConta.IniciaTransacSQL()
-        End If
-
-        Dim tIdPoliza As Integer
-        Dim Fecha As Date
-        Dim ContaFolio As Integer
-
-        If ObjContabilidad.GetPrePoliza(TxtPoliza.Text.ToEntero, 13) Then
-            tIdPoliza = ObjContabilidad.DtResultados(0)("IdPoliza").ToString.ToEntero
-            Fecha = ObjContabilidad.DtResultados(0)("Fecha").ToString.ToDate
-            ContaFolio = ObjContabilidad.DtResultados(0)("FolioPoliza").ToString.ToEntero
-        End If
-
-
-        If ObjContabilidad.GetDIOTValores(TxtPoliza.Text.ToEntero) Then
-
-            If ObjContabilidad.DtResultados.Rows.Count.ToEntero > 0 Then
-                Dim IdProveedor As Integer
-
-                Dim RFC As String = ""
-                Dim RazonSocial As String = ""
-                Dim IdCtaContProveedores As Integer
-
-
-                For Each dr As DataRow In ObjContabilidad.DtResultados.Rows
-                    RFC = dr("RFC").ToString
-                    RazonSocial = dr("RazonSocial").ToString
-                    IdCtaContProveedores = dr("IdCtaContProveedores").ToString.ToEntero
-
-                    If IdCtaContProveedores > 0 Then
-
-                        'busco la clave del proveedor en la contabilidad por su cuenta  contable
-                        If ObjConta.GetProveedores(IdCuentaContable:=IdCtaContProveedores) Then
-                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                Dim drt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drt("Id").ToString.ToEntero
-                            End If
-                        End If
-                    Else
-                        'busco la clave del proveedor en la contabilidad por su cuenta  contable
-                        If ObjConta.GetProveedores(RFC:=RFC) Then
-                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                Dim drtt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drtt("Id").ToString.ToEntero
-                            End If
-                        Else
-                            'registro el proveedor generico
-                            Select Case 13
-                                Case Else : IdProveedor = 0
-                            End Select
-                        End If
-
-                    End If
-
-
-                    If IdProveedor <= 0 Then
-                        IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "")
-                        If IdProveedor <= 0 Then
-                            OcurrioError = True
-                        End If
-                    End If
-
-                    If Not OcurrioError Then
-                        If dr("Total").ToString.ToDecimal <> 0.00 Then
-                            If Not ObjConta.AddDevolucionesIVA(tIdPoliza, dr("CuentaBancos").ToString.ToEntero,
-                                                           IdProveedor,
-                                                            16,
-                                                           dr("SubTotal").ToString.ToDecimal,
-                                                           dr("IvaAcreditable").ToString.ToDecimal,
-                                                           dr("IVARetenido").ToString.ToDecimal,
-                                                           dr("ISRRetenido").ToString.ToDecimal,
-                                                           Fecha,
-                                                           ContaFolio,
-                                                           dr("Serie").ToString.ToString,
-                                                           dr("Folio").ToString.StrToNum, dr("FolioFiscal").ToString, 13) Then
-                                OcurrioError = True
-                                Mensaje = "La Poliza o la Cuenta no son válidas"
-                                Exit For
-                            End If
-                        End If
-                    End If
-                Next
-
-
-                If OcurrioError Then
-                    ObjConta.RollBack()
-                Else
-                    'Alert(String.Format("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", tIdPoliza, ObjConta.Folio))
-                    ObjConta.Commit()
-                End If
-
-            End If
-        End If
-    End Sub
-End Class

Contabilidad/DiarioAmortizaciones.aspx.vb

@@ -810,9 +810,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
                                     FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2)  'FLUCTUACION CAMBIARIA DE IVA
                                     If FluctuacionCambiariaIVA < 0 Then
-                                        CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                        tempMovto = True ' ganancia cambiaria
                                     Else
-                                        CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
+                                        tempMovto = False ' perdida cambiaria
                                     End If
                                     If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
                                         If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
@@ -823,9 +823,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                                     If Dif < 0 Then
-                                        CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                        tempMovto = True ' ganancia cambiaria
                                     Else
-                                        CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False  ' perdida cambiaria
+                                        tempMovto = False  ' perdida cambiaria
                                     End If
 
                                     ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)
@@ -858,9 +858,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
                                 FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2)  'FLUCTUACION CAMBIARIA DE IVA
                                 If FluctuacionCambiariaIVA < 0 Then
-                                    CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                    tempMovto = True ' ganancia cambiaria
                                 Else
-                                    CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
+                                    tempMovto = False ' perdida cambiaria
                                 End If
                                 If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
                                     If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
@@ -871,9 +871,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                                 If Dif < 0 Then
-                                    CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                    tempMovto = True ' ganancia cambiaria
                                 Else
-                                    CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False  ' perdida cambiaria
+                                    tempMovto = False  ' perdida cambiaria
                                 End If
 
                                 ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)
@@ -1123,7 +1123,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                 IVAxAcreditar = IVAAcreditable
                                 IVAAcreditable = 0
 
-                                If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then
+                                If 1 = 1 Then
                                     TipoCambioCompra = TipoCambioCompra * -1  'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores
                                     TipoCambioPago = TipoCambioPago * -1
                                     TipoCambioFechaCompra = TipoCambioFechaCompra * -1
@@ -1301,9 +1301,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
                                 If UsuarioActual.CveEmpresa = 66 Then
                                     FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2)  'FLUCTUACION CAMBIARIA DE IVA
                                     If FluctuacionCambiariaIVA < 0 Then
-                                        CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                        tempMovto = True ' ganancia cambiaria
                                     Else
-                                        CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
+                                        tempMovto = False ' perdida cambiaria
                                     End If
                                     If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
                                         If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
@@ -1320,9 +1320,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
 
 
                                 If Dif < 0 Then
-                                    CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                    tempMovto = True ' ganancia cambiaria
                                 Else
-                                    CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False  ' perdida cambiaria
+                                    tempMovto = False  ' perdida cambiaria
                                 End If
 
                                 ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)

Contabilidad/DiarioCompras.aspx.vb

@@ -344,7 +344,7 @@ Partial Class Contabilidad_DiarioCompras
 
                                 If gvr.DataKey("TipoDocto") = "NC" Then
 
-                                    If UsuarioActual.Empresa.ContaContabilizacionNC <> 0 Then
+                                    If 1 <> 0 Then
                                         'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores
                                         MultNC = -1
                                     Else

Contabilidad/DiarioPagos.aspx.vb

@@ -697,7 +697,7 @@ Partial Class Contabilidad_DiarioPagos
 
                                     If gvrc.FCHiddenField("HdnTipoDocto").Value = "NC" Then
 
-                                        If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then
+                                        If 1 = 1 Then
                                             TipoCambioCompra = TipoCambioCompra * -1  'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores
                                             TipoCambioPago = TipoCambioPago * -1
                                             TipoCambioFechaCompra = TipoCambioFechaCompra * -1
@@ -1054,9 +1054,9 @@ Partial Class Contabilidad_DiarioPagos
                                         If UsuarioActual.CveEmpresa = 66 Then
                                             FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2)  'FLUCTUACION CAMBIARIA DE IVA
                                             If FluctuacionCambiariaIVA < 0 Then
-                                                CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                                tempMovto = True ' ganancia cambiaria
                                             Else
-                                                CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
+                                                tempMovto = False ' perdida cambiaria
                                             End If
                                             If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
                                                 If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, IdSegNeg, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
@@ -1073,9 +1073,9 @@ Partial Class Contabilidad_DiarioPagos
 
 
                                         If Dif < 0 Then
-                                            CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
+                                            tempMovto = True ' ganancia cambiaria
                                         Else
-                                            CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False  ' perdida cambiaria
+                                            tempMovto = False  ' perdida cambiaria
                                         End If
 
                                         ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)

Contabilidad/PopUpAuxiliar.aspx

@@ -81,7 +81,7 @@
 
                                       <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
                                           <ContentTemplate>
-                                               <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" Style="text-align: center;" GridLines="None">
+                                               <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Fecha</HeaderTemplate>
@@ -120,7 +120,7 @@
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField>
-                                                <HeaderTemplate>Num. Póliza</HeaderTemplate>
+                                                <HeaderTemplate>Póliza</HeaderTemplate>
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlPoliza" runat="server"></asp:Literal>
                                                 </ItemTemplate>

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -177,16 +177,16 @@ Partial Class PopUpAuxiliar
                 e.Row.Cells(7).Visible = False
                 e.Row.Cells(8).Visible = False
                 e.Row.Cells(12).Visible = False
-            ElseIf e.Row.RowIndex = 1 Then
+                'ElseIf e.Row.RowIndex = 1 Then
-                e.Row.Cells(0).Width = Unit.Pixel(95)
+                '    e.Row.Cells(0).Width = Unit.Pixel(95)
-                e.Row.Cells(1).Width = Unit.Pixel(180)
+                '    e.Row.Cells(1).Width = Unit.Pixel(180)
-                e.Row.Cells(2).Width = Unit.Pixel(80)
+                '    e.Row.Cells(2).Width = Unit.Pixel(80)
-                e.Row.Cells(3).Width = Unit.Pixel(80)
+                '    e.Row.Cells(3).Width = Unit.Pixel(80)
-                e.Row.Cells(4).Width = Unit.Pixel(83)
+                '    e.Row.Cells(4).Width = Unit.Pixel(83)
-                e.Row.Cells(5).Width = Unit.Pixel(93)
+                '    e.Row.Cells(5).Width = Unit.Pixel(93)
-                e.Row.Cells(6).Width = Unit.Pixel(85)
+                '    e.Row.Cells(6).Width = Unit.Pixel(85)
-                e.Row.Cells(7).Width = Unit.Pixel(95)
+                '    e.Row.Cells(7).Width = Unit.Pixel(95)
-                e.Row.Cells(8).Width = Unit.Pixel(70)
+                '    e.Row.Cells(8).Width = Unit.Pixel(70)
             End If
 
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

Contabilidad/RegPrePoliza.aspx.vb

@@ -215,7 +215,7 @@ Partial Class ContabilidadC_RegPrePoliza
         If Not Page.IsPostBack Then
             Tick = DateTime.Now.Ticks.ToString()
 
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
             End If
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -310,9 +310,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 End If
 
-
-
-
                 Exit Sub
 
             ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
@@ -450,7 +447,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
             Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
             If dr IsNot Nothing Then
-                'DivAgregarConceptos.Visible = False
                 DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
                 TxtFechaDocumento.Text = dr("Fecha")
                 TxtConcepto.Text = dr("Concepto")
@@ -461,7 +457,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFolio.Text = dr("FolioPoliza").ToString
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
-                '  TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
 
                 If UsuarioActual.CveRol = 1 Then
@@ -469,7 +464,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
-                    'DivAgregarConceptos.Visible = True
                     LnkAddConcepto.Visible = True
                     CargaConceptos()
                     CargaSubProyectos()
@@ -479,7 +473,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
 
-                If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
+                If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial", "Banc/FluctuaAD") Then
                     BtnEliminar.Enabled = False
                     BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
                 End If
@@ -518,52 +512,36 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.Columns(7).Visible = True
                 End If
 
-                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
+                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17,292,308)").Rows.Count > 0 Then
                     LnkComplementoPago.Visible = True
                 End If
 
-
                 If dr("FolioPoliza").ToString = "" OrElse dr("FolioPoliza").ToString = "0" Then
                     BtnContabilizar.Visible = True
                 End If
 
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
-                    If dr("FolioPoliza").ToString.ToEntero > 0 Then
+                    If dr("FolioPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
                         divContabilizada.Visible = True
                         Folio = dr("FolioPoliza").ToString
-
                     End If
                 Else
-                    If dr("IdPoliza").ToString.ToEntero > 0 Then
+                    If dr("IdPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
                         HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                         divContabilizada.Visible = True
                         IdPoliza = dr("IdPoliza").ToString.ToEntero
-                    ElseIf TxtTotalCargos.Text.ToDecimal = TxtTotalAbonos.Text.ToDecimal Then
-                        'sino está contabilizada, se activa el botón
-                        ' BtnContabilizar.Visible = True
                     End If
                 End If
 
-                'divDatosPrincipales.Visible = False
-                'divObservaciones.Visible = False
-
                 UpPrePoliza.Update()
-
                 RegistraScript("comparar();")
 
-                If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
-                    'For Each row As GridViewRow In GvPrePoliza.Rows
-                    '    row.FCTextBox("TxtCargo").Enabled = False
-                    '    row.FCTextBox("TxtAbono").Enabled = False
-                    'Next
-                End If
                 LnkExcel.Visible = False
                 LnkImprimirPDF.Visible = True
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnEliminar.Visible = False
             End If
-
         End If
 
         ObjContabilidad.Dispose()
@@ -1382,7 +1360,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         If CveCliente > 0 Then
             DvModalconceptoCliente.Visible = True
 
-            DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
+            'DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
             DdlClientesE.ddl.Items.Insert(0, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", ""), CveCliente))
             DdlClientesE.SelectedValue = CveCliente
 

Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb

@@ -74,19 +74,6 @@ Partial Class RepCuadreContaAdmon
 
             Case 8 'Ant Proveedores
                 Return 204
-
-            Case 9 'IVA x Acreditar
-                Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar
-
-            Case 10 'IVA Acreditado
-                Return UsuarioActual.Empresa.IdCuentaIVAAcreditable
-
-            Case 11 'IVA x Trasladar
-                Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar
-
-            Case 12 'IVA Trasladado
-                Return UsuarioActual.Empresa.IdCuentaIVATrasladado
-
             Case 13 'Ingresos
                 Return 222
 

Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb

@@ -83,18 +83,6 @@ Partial Class RepCuadreContaAdmonDetalle
             Case 8 'Ant Proveedores
                 Return 204
 
-            Case 9 'IVA x Acreditar
-                Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar
-
-            Case 10 'IVA Acreditado
-                Return UsuarioActual.Empresa.IdCuentaIVAAcreditable
-
-            Case 11 'IVA x Trasladar
-                Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar
-
-            Case 12 'IVA Trasladado
-                Return UsuarioActual.Empresa.IdCuentaIVATrasladado
-
             Case 13 'Ingresos
                 Return 222
 

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -105,7 +105,8 @@
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="250px" HeaderText="Concepto Contable" />    
                     <asp:BoundField DataField="TipoGlobalStr" ItemStyle-Width="50px" HeaderText="Tipo Global" /> 
                     <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" />      
-                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" />                   
+                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" /> 
+                    <asp:BoundField DataField="PorcentajeImpuesto" HeaderText="%" /> 
                        
                     <asp:TemplateField ItemStyle-Width="49px">
                         <ItemTemplate>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -163,20 +163,23 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero)
             DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo").ToEntero)
             DdlActivoFijo.Enabled = False
-
-
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
 
-            DdlClientes.ddl.SelectedValueExist(CveCliente)
+            If CveCliente > 0 Then
+                Dim drp As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre")
+                DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente))
+                DdlClientes.SelectedValue = CveCliente
+                DdlClientes.SelectedText = drp
+            End If
 
             If CvePersonal > 0 Then
                 Dim drp As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto")
-
+                DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal))
-                DdlPersonal.ddl.Items.Add(New ListItem(drp, CvePersonal))
+                DdlPersonal.SelectedValue = CvePersonal
-
+                DdlPersonal.SelectedText = drp
             End If
-            DdlPersonal.ddl.SelectedValueExist(CvePersonal)
+
             LbAgregar.Text = "Actualizar"
             UpModalModulos.Update()
             RegistraScript("$('#ModalCat').modal();")

Contratos/Presupuestos.aspx

@@ -1,318 +1,342 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %>
-
+
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
+    <style>
-        .dashboard-stat2 .display .number h3 {
+        .dashboard-stat2 .display .number h3 {
-            font-size: 16px;
+            font-size: 16px;
-        }
+        }
-    </style>
+    </style>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Presupuestos
+    Presupuestos
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <li>
+            <li>
-                <asp:LinkButton ID="LnkAutorizar" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea autorizar el presupuesto?" data-btn-ok-label="si"><i class="fa fa-check"></i> Autorizar</asp:LinkButton>
+                <asp:LinkButton ID="LnkAutorizar" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea autorizar el presupuesto?" data-btn-ok-label="si"><i class="fa fa-check"></i> Autorizar</asp:LinkButton>
-            </li>
+            </li>
-            <li>
+            <li>
-                <asp:LinkButton ID="LnkCargaPresupuesto" OnClick="LnkCargaPresupuesto_Click" runat="server"><i class="fa fa-upload"></i>Cargar Presupuesto</asp:LinkButton>
+                <asp:LinkButton ID="LnkCargaPresupuesto" OnClick="LnkCargaPresupuesto_Click" runat="server"><i class="fa fa-upload"></i>Cargar Presupuesto</asp:LinkButton>
-            </li>
+            </li>
-            <li>
+            <li>
-                <asp:HyperLink ID="HlModificar" Target="_blank" Visible="false" runat="server"><i class="fa fa-edit"></i> Modificar Presupuesto</asp:HyperLink>
+                <asp:HyperLink ID="HlModificar" Target="_blank" Visible="false" runat="server"><i class="fa fa-edit"></i> Modificar Presupuesto</asp:HyperLink>
-            </li>
+            </li>
-        </ContentTemplate>
+        </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-    <div class="row">
+    <div class="row">
-        <div class="col-md-6">
+        <div class="col-md-4">
-            <div class="portlet light smmallpadding bordered">
+            <div class="portlet light smmallpadding bordered">
-                <div class="portlet-title">
+                <div class="portlet-title">
-                    <div class="caption">
+                    <div class="caption">
                         <i class="fa fa-info-circle"></i>Datos Generales
-                    </div>
+                   
-                    <div class="tools">
+                    </div>
-                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
+                    <div class="tools">
-                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
-                    </div>
+                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                </div>
+                    </div>
-                <div class="portlet-body">
+                </div>
-                    <asp:UpdatePanel ID="UpDatosG" runat="server" UpdateMode="Conditional">
+                <div class="portlet-body">
-                        <ContentTemplate>
+                    <asp:UpdatePanel ID="UpDatosG" runat="server" UpdateMode="Conditional">
-                            <div class="rowpadding">
+                        <ContentTemplate>
-                                <div class="row">
+                            <div class="rowpadding">
-                                    <label class="col-md-2 truncate">Nombre:</label>
+                                <div class="row">
-                                    <div class="col-md-10">
+                                    <label class="col-md-2 truncate">Nombre:</label>
-                                        <asp:TextBox ID="TxtPresupuesto" runat="server" CssClass="form-control input-sm"></asp:TextBox>
+                                    <div class="col-md-10">
-                                        <asp:RequiredFieldValidator ID="RFVPresupuesto" runat="server" ControlToValidate="TxtPresupuesto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <asp:TextBox ID="TxtPresupuesto" runat="server" CssClass="form-control input-sm"></asp:TextBox>
-                                        <ajax:ValidatorCalloutExtender ID="VCEPresupuesto" runat="server" HighlightCssClass="vco" TargetControlID="RFVPresupuesto"></ajax:ValidatorCalloutExtender>
+                                        <asp:RequiredFieldValidator ID="RFVPresupuesto" runat="server" ControlToValidate="TxtPresupuesto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    </div>
+                                        <ajax:ValidatorCalloutExtender ID="VCEPresupuesto" runat="server" HighlightCssClass="vco" TargetControlID="RFVPresupuesto"></ajax:ValidatorCalloutExtender>
-                                </div>
+                                    </div>
-                                <div class="row">
+                                </div>
-                                    <label class="col-md-2 truncate">Observaciones:</label>
+                                <div class="row">
-                                    <div class="col-md-10">
+                                    <label class="col-md-2 truncate">Observaciones:</label>
-                                        <asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control" TextMode="MultiLine"></asp:TextBox>
+                                    <div class="col-md-10">
-                                        <asp:RequiredFieldValidator ID="RFVObservacion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control" TextMode="MultiLine"></asp:TextBox>
-                                        <ajax:ValidatorCalloutExtender ID="VCEObs" runat="server" HighlightCssClass="vco" TargetControlID="RFVObservacion"></ajax:ValidatorCalloutExtender>
+                                        <asp:RequiredFieldValidator ID="RFVObservacion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    </div>
+                                        <ajax:ValidatorCalloutExtender ID="VCEObs" runat="server" HighlightCssClass="vco" TargetControlID="RFVObservacion"></ajax:ValidatorCalloutExtender>
-                                </div>
+                                    </div>
-                                <div class="row">
+                                </div>
-                                    <label class="col-md-2 truncate">Proyecto:</label>
+                            </div>
-                                    <div class="col-md-10">
+                        </ContentTemplate>
-                                        <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
+                    </asp:UpdatePanel>
-                                        <asp:CompareValidator ID="CVProyecto" runat="server" ControlToValidate="DdlProyecto" ValueToCompare="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Debe seleccionar un <b>''Proyecto''</b>, por favor seleccione uno." Operator="GreaterThan" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                </div>
-                                        <ajax:ValidatorCalloutExtender ID="VCEProyecto" runat="server" HighlightCssClass="vco" TargetControlID="CVProyecto"></ajax:ValidatorCalloutExtender>
+            </div>
-                                    </div>
+        </div>
-                                </div>
+        <div class="col-md-4">
-                                <div class="row">
+            <div class="portlet light smmallpadding bordered">
-                                    <label class="col-md-2 truncate">Sub Proyecto:</label>
+                <div class="portlet-title">
-                                    <div class="col-md-10">
+                    <div class="caption">
-                                        <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto2" DataValueField="CveSubProyecto"></asp:DropDownList>
+                        <i class="fa fa-info-circle"></i>Configuración
-                                        <asp:CompareValidator ID="CVSubProyeco" runat="server" ControlToValidate="DdlSubProyecto" ValueToCompare="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Debe seleccionar un <b>''Proyecto''</b>, por favor seleccione uno." Operator="GreaterThan" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                   
-                                        <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="CVSubProyeco"></ajax:ValidatorCalloutExtender>
+                    </div>
-                                    </div>
+                    <div class="tools">
-                                </div>
+                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
-                                <div class="row">
+                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                    <div class="col-md-6">
+                    </div>
-                                        <div class="row">
+                </div>
-                                            <label class="col-md-4 truncate">Fecha Inicio:</label>
+                <div class="portlet-body">
-                                            <div class="col-md-8">
+                    <asp:UpdatePanel ID="UpDatosG2" runat="server" UpdateMode="Conditional">
-                                                <div style="display: inline-block; vertical-align: text-bottom;">
+                        <ContentTemplate>
-                                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                            <div class="rowpadding">
-                                                        <asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                <div class="row">
-                                                        <span class="input-group-btn ">
+                                    <label class="col-md-2 truncate">Proyecto:</label>
-                                                            <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <div class="col-md-10">
-                                                        </span>
+                                        <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
-                                                        <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <asp:CompareValidator ID="CVProyecto" runat="server" ControlToValidate="DdlProyecto" ValueToCompare="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Debe seleccionar un <b>''Proyecto''</b>, por favor seleccione uno." Operator="GreaterThan" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                        <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" Format="dd/MM/yyyy" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCEProyecto" runat="server" HighlightCssClass="vco" TargetControlID="CVProyecto"></ajax:ValidatorCalloutExtender>
-                                                        <asp:RequiredFieldValidator ID="RFVFechaI" 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 ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    </div>
-                                                        <asp:CompareValidator ID="CVFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                </div>
-                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <div class="row">
-                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <label class="col-md-2 truncate">Sub Proyecto:</label>
-                                                    </div>
+                                    <div class="col-md-10">
-                                                </div>
+                                        <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto2" DataValueField="CveSubProyecto"></asp:DropDownList>
-                                            </div>
+                                        <asp:CompareValidator ID="CVSubProyeco" runat="server" ControlToValidate="DdlSubProyecto" ValueToCompare="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Debe seleccionar un <b>''Proyecto''</b>, por favor seleccione uno." Operator="GreaterThan" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                        </div>
+                                        <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="CVSubProyeco"></ajax:ValidatorCalloutExtender>
-                                    </div>
+                                    </div>
-                                    <div class="col-md-6">
+                                </div>
-                                        <div class="row">
+                                <div class="row">
-                                            <label class="col-md-4 truncate">Fecha Fin:</label>
+                                    <div class="col-md-6">
-                                            <div class="col-md-8">
+                                        <div class="row">
-                                                <div style="display: inline-block; vertical-align: text-bottom;">
+                                            <label class="col-md-4 truncate">Fecha Inicio:</label>
-                                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                            <div class="col-md-8">
-                                                        <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                                <div style="display: inline-block; vertical-align: text-bottom;">
-                                                        <span class="input-group-btn ">
+                                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                                            <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                        <asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
-                                                        </span>
+                                                        <span class="input-group-btn ">
-                                                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                            <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                        <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" Format="dd/MM/yyyy" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                        </span>
-                                                        <asp:RequiredFieldValidator ID="RFVFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                        <asp:CompareValidator ID="CVFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" Format="dd/MM/yyyy" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                        <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        <asp:RequiredFieldValidator ID="RFVFechaI" 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 ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                        <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        <asp:CompareValidator ID="CVFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                    </div>
+                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                </div>
+                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                            </div>
+                                                    </div>
-                                        </div>
+                                                </div>
-                                    </div>
+                                            </div>
-                                </div>
+                                        </div>
-                            </div>
+                                    </div>
-                        </ContentTemplate>
+                                    <div class="col-md-6">
-                    </asp:UpdatePanel>
+                                        <div class="row">
-                </div>
+                                            <label class="col-md-4 truncate">Fecha Fin:</label>
-            </div>
+                                            <div class="col-md-8">
-        </div>
+                                                <div style="display: inline-block; vertical-align: text-bottom;">
-        <div class="col-md-6" runat="server" id="DivIndicadores" visible="false">
+                                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-            <asp:UpdatePanel UpdateMode="Conditional" ID="UpIndicadores" runat="server">
+                                                        <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
-                <ContentTemplate>
+                                                        <span class="input-group-btn ">
-                    <div class="row">
+                                                            <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                        <div class="col-md-12">
+                                                        </span>
-                            <h3><b>Estatus: </b>
+                                                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <asp:Literal ID="LtlEstatus" runat="server"></asp:Literal></h3>
+                                                        <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" Format="dd/MM/yyyy" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                        </div>
+                                                        <asp:RequiredFieldValidator ID="RFVFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                    </div>
+                                                        <asp:CompareValidator ID="CVFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                    <div class="row">
+                                                        <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                        <div class="col-lg-4 col-md-4">
+                                                        <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                            <div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding-top px;">
+                                                    </div>
-                                <div class="display" style="margin-bottom: 0px">
+                                                </div>
-                                    <div class="number">
+                                            </div>
-                                        <h3 class="font-red-haze">
+                                        </div>
-                                            <small class="font-red-haze">$</small>
+                                    </div>
-                                            <span data-counter="counterup">
+                                </div>
-                                                <asp:Literal runat="server" ID="LtlAutorizado"></asp:Literal></span>
+                            </div>
-                                        </h3>
+                        </ContentTemplate>
-                                        <small>IMPORTE</small>
+                    </asp:UpdatePanel>
-                                    </div>
+                </div>
+            </div>
+        </div>
+        <div class="col-md-4" runat="server" id="DivIndicadores" visible="false">
+            <asp:UpdatePanel UpdateMode="Conditional" ID="UpIndicadores" runat="server">
+                <ContentTemplate>
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3><b>Estatus: </b>
+                                <asp:Literal ID="LtlEstatus" runat="server"></asp:Literal></h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-lg-4 col-md-4">
+                            <div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding-top px;">
+                                <div class="display" style="margin-bottom: 0px">
+                                    <div class="number">
+                                        <h3 class="font-red-haze">
+                                            <small class="font-red-haze">$</small>
+                                            <span data-counter="counterup">
+                                                <asp:Literal runat="server" ID="LtlAutorizado"></asp:Literal></span>
+                                        </h3>
+                                        <small>IMPORTE</small>
+                                    </div>
                                     <%--<div class="icon">
                                         <i class="fa fa-credit-card"></i>
-                                    </div>--%>
+                                    </div>--%>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-
+
-                        <div class="col-lg-4 col-md-4">
+                        <div class="col-lg-4 col-md-4">
-                            <div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding: 5px 5px 25px 5px;">
+                            <div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding: 5px 5px 25px 5px;">
-                                <div class="display">
+                                <div class="display">
-                                    <div class="number">
+                                    <div class="number">
-                                        <h3 class="font-blue-sharp">
+                                        <h3 class="font-blue-sharp">
-                                            <small class="font-blue-sharp">$</small>
+                                            <small class="font-blue-sharp">$</small>
-                                            <span data-counter="counterup">
+                                            <span data-counter="counterup">
-                                                <asp:Literal runat="server" ID="LtlEjercido"></asp:Literal></span>
+                                                <asp:Literal runat="server" ID="LtlEjercido"></asp:Literal></span>
-                                        </h3>
+                                        </h3>
-                                        <small>EJERCIDO</small>
+                                        <small>EJERCIDO</small>
-                                    </div>
+                                    </div>
                                     <%--<div class="icon">
                                         <i class="icon-pie-chart"></i>
-                                    </div>--%>
+                                    </div>--%>
-                                </div>
+                                </div>
-                                <div class="progress-info">
+                                <div class="progress-info">
-                                    <div class="progress">
+                                    <div class="progress">
-                                        <span style="width: 50%;" id="PBEjercido" runat="server" class="progress-bar progress-bar-info blue-sharp">
+                                        <span style="width: 50%;" id="PBEjercido" runat="server" class="progress-bar progress-bar-info blue-sharp">
-                                            <span class="sr-only">
+                                            <span class="sr-only">
-                                                <asp:Literal runat="server" ID="LtlPorcenEjercido"></asp:Literal></span>
+                                                <asp:Literal runat="server" ID="LtlPorcenEjercido"></asp:Literal></span>
-                                        </span>
+                                        </span>
-                                    </div>
+                                    </div>
-                                    <div class="status">
+                                    <div class="status">
-                                        <div class="status-title">Porcentaje Ejercido </div>
+                                        <div class="status-title">Porcentaje Ejercido </div>
-                                        <div class="status-number">
+                                        <div class="status-number">
-                                            <asp:Literal runat="server" ID="Literal3"></asp:Literal>
+                                            <asp:Literal runat="server" ID="Literal3"></asp:Literal>
-                                        </div>
+                                        </div>
-                                    </div>
+                                    </div>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-                        <div class="col-lg-4 col-md-4">
+                        <div class="col-lg-4 col-md-4">
-                            <div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding: 5px 5px 25px 5px;">
+                            <div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding: 5px 5px 25px 5px;">
-                                <div class="display">
+                                <div class="display">
-                                    <div class="number">
+                                    <div class="number">
-                                        <h3 class="font-green-sharp">
+                                        <h3 class="font-green-sharp">
-                                            <small class="font-green-sharp">$</small>
+                                            <small class="font-green-sharp">$</small>
-                                            <span data-counter="counterup">
+                                            <span data-counter="counterup">
-                                                <asp:Literal runat="server" ID="LtlPorEjercer"></asp:Literal></span>
+                                                <asp:Literal runat="server" ID="LtlPorEjercer"></asp:Literal></span>
-                                        </h3>
+                                        </h3>
-                                        <small>POR EJERCER</small>
+                                        <small>POR EJERCER</small>
-                                    </div>
+                                    </div>
                                     <%--<div class="icon">
                                         <i class="icon-pie-chart"></i>
-                                    </div>--%>
+                                    </div>--%>
-                                </div>
+                                </div>
-                                <div class="progress-info">
+                                <div class="progress-info">
-                                    <div class="progress">
+                                    <div class="progress">
-                                        <span style="width: 50%;" id="PBPorEjercer" runat="server" class="progress-bar progress-bar-success green-sharp">
+                                        <span style="width: 50%;" id="PBPorEjercer" runat="server" class="progress-bar progress-bar-success green-sharp">
-                                            <span class="sr-only">
+                                            <span class="sr-only">
-                                                <asp:Literal runat="server" ID="LtlPorcentPorEjer"></asp:Literal></span>
+                                                <asp:Literal runat="server" ID="LtlPorcentPorEjer"></asp:Literal></span>
-                                        </span>
+                                        </span>
-                                    </div>
+                                    </div>
-                                    <div class="status">
+                                    <div class="status">
-                                        <div class="status-title">Porcentaje Por Ejercer </div>
+                                        <div class="status-title">Porcentaje Por Ejercer </div>
-                                        <div class="status-number">
+                                        <div class="status-number">
-                                            <asp:Literal runat="server" ID="LtlPorcentaje"></asp:Literal>
+                                            <asp:Literal runat="server" ID="LtlPorcentaje"></asp:Literal>
-                                        </div>
+                                        </div>
-                                    </div>
+                                    </div>
-                                </div>
+                                </div>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-
+
-                    </div>
+                    </div>
-                </ContentTemplate>
+                </ContentTemplate>
-            </asp:UpdatePanel>
+            </asp:UpdatePanel>
-        </div>
+        </div>
-    </div>
+    </div>
-    <br />
+    <br />
-    <div class="row">
+    <div class="row">
-        <div class="col-md-12">
+        <div class="col-md-12">
-            <div class="portlet light smmallpadding bordered">
+            <div class="portlet light smmallpadding bordered">
-                <div class="portlet-title">
+                <div class="portlet-title">
-                    <div class="caption" style="align-items: center">
+                    <div class="caption" style="align-items: center">
                         <i class="fa fa-info-circle"></i>Presupuestos
-                    </div>
+                   
-                    <div class="tools">
+                    </div>
-                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
+                    <div class="tools">
-                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
-                    </div>
+                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                </div>
+                    </div>
-                <div class="portlet-body">
+                </div>
-                    <div class="rowpadding">
+                <div class="portlet-body">
-                        <asp:UpdatePanel ID="UpGvClasificaciones" runat="server" UpdateMode="Conditional">
+                    <div class="rowpadding">
-                            <ContentTemplate>
+                        <asp:UpdatePanel ID="UpGvClasificaciones" runat="server" UpdateMode="Conditional">
-                                <asp:GridView ID="GvPresupuestos" runat="server" GridLines="None" EmptyDataText="No se encontraron presupuestos" CssClass="table table-hover table-striped Widthall ScrollAD" ShowFooter="true" data-footer="1" AutoGenerateColumns="False" data-heighterror="600"
+                            <ContentTemplate>
-                                    DataKeyNames="CvePresupuestoDetalle,CveClasificacion,CveTipoGasto">
+                                <asp:GridView ID="GvPresupuestos" runat="server" GridLines="None" EmptyDataText="No se encontraron presupuestos" CssClass="table table-hover table-striped Widthall ScrollAD" ShowFooter="true" data-footer="1" AutoGenerateColumns="False" data-heighterror="600"
-                                    <Columns>
+                                    DataKeyNames="CvePresupuestoDetalle,CveAgrupador,CveTipoGasto,Tipo">
-                                        <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" />
+                                    <Columns>
-                                        <asp:TemplateField HeaderText="Importe" HeaderStyle-HorizontalAlign="Left" FooterStyle-HorizontalAlign="Right">
+                                        <asp:BoundField HeaderText="Clasificación" DataField="Agrupador" />
-                                            <ItemTemplate>
+                                        <asp:TemplateField HeaderText="Importe" HeaderStyle-HorizontalAlign="Left" FooterStyle-HorizontalAlign="Right">
-                                                <asp:Label ID="LblImporteClasiTotal" runat="server" Visible="false"></asp:Label>
+                                            <ItemTemplate>
-                                                <asp:TextBox ID="TxtImporteClasi" runat="server"  Text='<%#Eval("Importe") %>'></asp:TextBox>
+                                                <asp:Label ID="LblImporteClasiTotal" runat="server" Visible="false"></asp:Label>
-                                                <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="TxtImporteClasi" FilterType="Custom, Numbers" ValidChars=".," />
+                                                <asp:TextBox ID="TxtImporteClasi" runat="server" Text='<%#Eval("Importe") %>' CssClass="form-control input-sm"></asp:TextBox>
-                                            </ItemTemplate>
+                                                <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="TxtImporteClasi" FilterType="Custom, Numbers" ValidChars=".," />
-                                            <FooterTemplate>
+                                            </ItemTemplate>
-                                                <b>Total :</b>
+                                            <FooterTemplate>
-                                                <asp:Label ID="LblTotal" CssClass="LabelGVTotal" runat="server"></asp:Label>
+                                                <b>Total :</b>
-                                            </FooterTemplate>
+                                                <asp:Label ID="LblTotal" CssClass="LabelGVTotal" runat="server"></asp:Label>
-                                        </asp:TemplateField>
+                                            </FooterTemplate>
-                                        <asp:TemplateField HeaderText="Observaciones" HeaderStyle-HorizontalAlign="Left">
+                                        </asp:TemplateField>
-                                            <ItemTemplate>
+                                        <asp:TemplateField HeaderText="Observaciones" HeaderStyle-HorizontalAlign="Left">
-                                                <asp:TextBox ID="TxtObservacion" runat="server" CssClass="form-control input-sm" Text='<%# Eval("Observacion") %>'></asp:TextBox>
+                                            <ItemTemplate>
-                                            </ItemTemplate>
+                                                <asp:TextBox ID="TxtObservacion" runat="server" CssClass="form-control input-sm" Text='<%# Eval("Observacion") %>'></asp:TextBox>
-                                        </asp:TemplateField>
+                                            </ItemTemplate>
-                                        <asp:BoundField HeaderText="Tipo Gasto" DataField="TipoGasto" />
+                                        </asp:TemplateField>
-                                    </Columns>
+                                        <asp:BoundField HeaderText="Tipo Gasto" DataField="TipoGasto" />
-                                    <FooterStyle CssClass="Totales" />
+                                    </Columns>
-                                </asp:GridView>
+                                    <FooterStyle CssClass="Totales" />
-                            </ContentTemplate>
+                                </asp:GridView>
-                        </asp:UpdatePanel>
+                            </ContentTemplate>
-                    </div>
+                        </asp:UpdatePanel>
-                </div>
+                    </div>
-            </div>
+                </div>
-        </div>
+            </div>
-    </div>
+        </div>
-    <asp:UpdatePanel ID="UpGuardar" runat="server">
+    </div>
-        <ContentTemplate>
+    <asp:UpdatePanel ID="UpGuardar" runat="server">
-            <div class="row">
+        <ContentTemplate>
-                <div class="col-md-5"></div>
+            <div class="row">
-                <div class="col-md-2">
+                <div class="col-md-5"></div>
-                    <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpGuardar" />
+                <div class="col-md-2">
-                </div>
+                    <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpGuardar" />
-                <div class="col-md-5"></div>
+                </div>
-            </div>
+                <div class="col-md-5"></div>
-        </ContentTemplate>
+            </div>
-    </asp:UpdatePanel>
+        </ContentTemplate>
-    <div id="ModalCargaPresupuesto" class="modal ADS fade" role="dialog">
+    </asp:UpdatePanel>
-        <asp:UpdatePanel ID="UPCargaPresup" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+    <div id="ModalCargaPresupuesto" class="modal ADS fade" role="dialog">
-            <ContentTemplate>
+        <asp:UpdatePanel ID="UPCargaPresup" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
-                <div class="modal-content rowpadding">
+            <ContentTemplate>
-                    <div class="modal-header">
+                <div class="modal-content rowpadding">
-                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                    <div class="modal-header">
-                            <span aria-hidden="true">&times;</span>
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                        </button>
+                            <span aria-hidden="true">&times;</span>
-                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Presupuesto </h4>
+                        </button>
-                    </div>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Presupuesto </h4>
-                    <div class="modal-body">
+                    </div>
-
+                    <div class="modal-body">
-                        <div class="portlet light smmallpadding bordered">
+
-                            <div class="portlet-title">
+                        <div class="portlet light smmallpadding bordered">
-                                <div class="caption font-green">
+                            <div class="portlet-title">
-                                    <i class="fa fa-upload font-green"></i>
+                                <div class="caption font-green">
-                                    <span class="caption-subject bold uppercase">Cargar archivo </span>
+                                    <i class="fa fa-upload font-green"></i>
-                                </div>
+                                    <span class="caption-subject bold uppercase">Cargar archivo </span>
-                                <div class="tools">
+                                </div>
-                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                <div class="tools">
-                                </div>
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                <div class="actions">
+                                </div>
-                                    <div class="btn-group">
+                                <div class="actions">
-                                        <asp:LinkButton ID="LnkFormatoPresup" OnClick="LnkFormatoPresup_Click" CssClass="btn yellow-gold" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
+                                    <div class="btn-group">
-                                    </div>
+                                        <asp:LinkButton ID="LnkFormatoPresup" OnClick="LnkFormatoPresup_Click" CssClass="btn yellow-gold" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
-                                </div>
+                                    </div>
-                            </div>
+                                </div>
-                            <div class="portlet-body rowpadding ">
+                            </div>
+                            <div class="portlet-body rowpadding ">
                                 <!--<div class=" row">
                                     <div class="col-md-3">Concepto</div>
                                     <div class="col-md-6">
@@ -320,52 +344,52 @@
 
                                     </div>
                                 </div>
-                             -->
+                             -->
-                                <asp:TextBox ID="TxtCargarPresup" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <asp:TextBox ID="TxtCargarPresup" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-
+
-                    <div class="modal-footer">
+                    <div class="modal-footer">
-                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
-                            <ContentTemplate>
+                            <ContentTemplate>
-                                <asp:LinkButton ID="LnkCargarPresup" OnClick="LnkCargarPresup_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
+                                <asp:LinkButton ID="LnkCargarPresup" OnClick="LnkCargarPresup_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
-                            </ContentTemplate>
+                            </ContentTemplate>
-                        </asp:UpdatePanel>
+                        </asp:UpdatePanel>
-                    </div>
+                    </div>
-                </div>
+                </div>
-            </ContentTemplate>
+            </ContentTemplate>
-            <Triggers>
+            <Triggers>
-                <asp:PostBackTrigger ControlID="LnkFormatoPresup" />
+                <asp:PostBackTrigger ControlID="LnkFormatoPresup" />
-            </Triggers>
+            </Triggers>
-        </asp:UpdatePanel>
+        </asp:UpdatePanel>
-    </div>
+    </div>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
-        function calculaTotalTipoGasto(TipoGasto) {
+        function calculaTotalTipoGasto(TipoGasto) {
             var total = 0;
-            $(".txt" + TipoGasto).each(function () {
+            $(".txt" + TipoGasto).each(function () {
-                total += ToDouble(this.value);
+                total += ToDouble(this.value);
             });
-            $(".LabelGVTotal" + TipoGasto).text('$ ' + formato_numero(total, 2, '.', ','));
+            $(".LabelGVTotal" + TipoGasto).text('$ ' + formato_numero(total, 2, '.', ','));
         }
-        function calculaTotal() {
+        function calculaTotal() {
             var total = 0;
-            $(".sumaGV").each(function () {
+            $(".sumaGV").each(function () {
-                total += ToDouble(this.value);
+                total += ToDouble(this.value);
             });
-            $(".LabelGVTotal").text('$ ' + formato_numero(total, 2, '.', ','));
+            $(".LabelGVTotal").text('$ ' + formato_numero(total, 2, '.', ','));
         }
-        function formato_numero(numero, decimales, separador_decimal, separador_miles) {
+        function formato_numero(numero, decimales, separador_decimal, separador_miles) {
             numero = parseFloat(numero);
-            if (isNaN(numero)) {
+            if (isNaN(numero)) {
-                return "";
+                return "";
             }
 
             if (decimales !== undefined) {
                 // Redondeamos
-                numero = numero.toFixed(decimales);
+                numero = numero.toFixed(decimales);
             }
 
             // Convertimos el punto en separador_decimal
@@ -374,13 +398,13 @@
             if (separador_miles) {
                 // Añadimos los separadores de miles
                 var miles = new RegExp("(-?[0-9]+)([0-9]{3})");
-                while (miles.test(numero)) {
+                while (miles.test(numero)) {
-                    numero = numero.replace(miles, "$1" + separador_miles + "$2");
+                    numero = numero.replace(miles, "$1" + separador_miles + "$2");
-                }
+                }
             }
 
-            return numero;
+            return numero;
         }
-    </script>
+    </script>
-</asp:Content>
+</asp:Content>
-
+

Contratos/Presupuestos.aspx.vb

@@ -5,10 +5,10 @@ Imports System.Data
 Imports Extensiones
 
 Partial Class Contratos_Presupuestos
-    Inherits ClsPaginas
+    Inherits ClsPaginas
-
+
 #Region "P R O P I E D A D E S"
-
+
     Public Property CvePresupuesto() As Integer
         Get
             Return ViewState("CvePresupuesto").ToString.ToEntero
@@ -37,10 +37,10 @@ Partial Class Contratos_Presupuestos
         Set(ByVal value As DataTable)
             ViewState("DtClasificaciones") = value
         End Set
-    End Property
+    End Property
-
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CvePresupuesto = IfNull(Request("CvePresupuesto"), -1).ToString.ToEntero
@@ -56,8 +56,8 @@ Partial Class Contratos_Presupuestos
             UpGvClasificaciones.Update()
             UpIndicadores.Update()
         End If
-    End Sub
+    End Sub
-
+
 #Region "I N I C I A L I Z A  -  V A L O R E S"
     Private Sub InicializaValores()
         TxtFechaI.Text = $"01/01/{Now.Year}"
@@ -125,13 +125,13 @@ Partial Class Contratos_Presupuestos
             End Select
         End If
         If e.Row.RowType = DataControlRowType.Footer Then
-            Dim Importe = DtClasificaciones.SUM("Importe", "CveClasificacion IS NOT NULL")
+            Dim Importe = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL")
             e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe)
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "C A R G A  -  D A T O S"
     Private Sub CargaDatos()
         CargaMoneda()
@@ -245,9 +245,9 @@ Partial Class Contratos_Presupuestos
             HlModificar.Visible = True
             HlModificar.NavigateUrl = $"/Contratos/ModificarPresupuesto.aspx?CvePresupuesto={CvePresupuesto}"
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "G U A R D A R "
     Private Function ValidaDatos() As Boolean
         If String.IsNullOrEmpty(TxtPresupuesto.Text.Trim) Then
@@ -327,23 +327,39 @@ Partial Class Contratos_Presupuestos
 
             For Each GvRow As GridViewRow In GvPresupuestos.Rows
                 If GvRow.RowType = DataControlRowType.DataRow Then
-                    Dim CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero
+                    Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero
-                    Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero
+                    Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero
+
+                    Dim CveTipoGasto = -1
+                    Dim CveClasificacion As Integer = -1
+                    Dim CveConceptoContableNom As Integer = -1
+
+                    If Tipo = 1 Then
+                        CveClasificacion = CveAgrupador
+                        CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero
+                    End If
+
+                    If Tipo = 2 Then
+                        CveConceptoContableNom = CveAgrupador
+                    End If
+
+
                     Dim CvePresupuestoDetalle = GvRow.DataKey("CvePresupuestoDetalle").ToEntero
                     Dim Importe = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal
                     Dim Obs = GvRow.FCTextBox("TxtObservacion").Text.Trim
+
                     'ACTUALIZA EL REGISTRO EXISTENTE
                     If CvePresupuestoDetalle > 0 Then
 
-                        TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs)
+                        TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom)
                         If TieneError Then
                             Exit For
                         End If
 
                         'AGREGA LA CLASIFICACION SI NO EXISTE EN EN EL DT DETALLE    
                     Else
-                        If Importe > 0 And CveClasificacion > 0 Then
+                        If Importe > 0 And CveAgrupador > 0 Then
-                            TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs)
+                            TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom)
                             If TieneError Then
                                 Exit For
                             End If
@@ -385,18 +401,33 @@ Partial Class Contratos_Presupuestos
 
             If CvePresupuestoNuevo > 0 Then
                 Dim ImporteClasi = 0.0D
-                Dim CveClasificacion = -1
                 Dim ObsDetalle = ""
 
                 For Each GvRow As GridViewRow In GvPresupuestos.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
-                        ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal
+                        ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal
-                        CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero
+
-                        Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero
                         ObsDetalle = GvRow.FCTextBox("TxtObservacion").Text.Trim
+
+                        Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero
+                        Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero
+
+                        Dim CveClasificacion As Integer = -1
+                        Dim CveConceptoContableNom As Integer = -1
+                        Dim CveTipoGasto As Integer = -1
+
+                        If Tipo = 1 Then
+                            CveClasificacion = CveAgrupador
+                            CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero
+                        End If
+
+                        If Tipo = 2 Then
+                            CveConceptoContableNom = CveAgrupador
+                        End If
+
                         If CveClasificacion > 0 Then
                             If ImporteClasi > 0 Then
-                                TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle)
+                                TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle, CveConceptoContableNom:=CveConceptoContableNom)
                                 If TieneError Then
                                     Exit For
                                 End If
@@ -427,11 +458,11 @@ Partial Class Contratos_Presupuestos
             Alert("Se agregó el presupuesto correctamente.", TipoMensaje.MsgInformacion, Liga)
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
-
+
-
+
     Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Handles LnkAutorizar.Click
         If ValidaDatos() Then
             If ActualizarPresupuesto() Then

Contratos/RepPresupuestos.aspx

@@ -233,7 +233,7 @@
                         </div>
                         <div class="col-md-1" style="max-width: 120px">Clasificacion:</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" DataTextField="Clasificacion" AppendDataBoundItems="true" DataValueField="CveClasificacion" Width="200px" runat="server" CssClass="form-control input-sm select2me">
+                            <asp:DropDownList ID="DdlClasificacion" DataTextField="Agrupador" DataValueField="CveAgrupador" Width="200px" runat="server" CssClass="form-control input-sm select2me">
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1" style="max-width: 120px">Tipo Gasto:</div>

Contratos/RepPresupuestos.aspx.vb

@@ -8,9 +8,9 @@ Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Contratos_RepPresupuestos
-    Inherits ClsPaginas
+    Inherits ClsPaginas
 #Region "P R O P I E D A D E S"
-
+
     Public Property DtPresupuestos() As DataTable
         Get
             Return DirectCast(ViewState("DtPresupuestos"), DataTable)
@@ -18,15 +18,15 @@ Partial Class Contratos_RepPresupuestos
         Set(ByVal value As DataTable)
             ViewState("DtPresupuestos") = value
         End Set
-    End Property
+    End Property
-
+
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             InicializaValores()
         End If
-    End Sub
+    End Sub
-
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
 
@@ -36,9 +36,14 @@ Partial Class Contratos_RepPresupuestos
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
 
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+                           Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()}
+                  ).Union(From dr In GlobalDTContaConceptosContables(-1)
+                          Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True)
+
+        DdlClasificacion.DataSource = dtAgrupador
+        DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlClasificacion.DataBind()
 
         DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
         DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -46,12 +51,12 @@ Partial Class Contratos_RepPresupuestos
 
         CargaSubProyecto()
         UpFiltros.Update()
-    End Sub
+    End Sub
 #End Region
-
+
-
+
 #Region "  CARGA DATOS  "
-
+
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
         If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
@@ -362,15 +367,15 @@ Partial Class Contratos_RepPresupuestos
                     EsProyecto = True
                 End If
                 Dim Css = "Texto"
-                Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
+                Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
                 e.Row.Cells(0).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
-
+
-
+
     Protected Sub ChkMensual_CheckedChanged(sender As Object, e As EventArgs) Handles ChkMensual.CheckedChanged
 
         DivRepDatos.Visible = Not ChkMensual.Checked
@@ -492,7 +497,7 @@ Partial Class Contratos_RepPresupuestos
                         Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString
                         Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString
                         Dim Css = "Texto"
-                        Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
+                        Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
                         e.Row.Cells(0).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
                     End If
                 Else
@@ -506,7 +511,7 @@ Partial Class Contratos_RepPresupuestos
                         Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString
                         Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString
                         Dim Css = "Texto"
-                        Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
+                        Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
                         e.Row.Cells(0).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
                     End If
                 End If
@@ -515,8 +520,8 @@ Partial Class Contratos_RepPresupuestos
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaSubProyecto()
-    End Sub
+    End Sub
-
+
 #Region "  IMPRESION - NUEVO  "
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
         GenerarPDF("EXCEL")
@@ -555,7 +560,7 @@ Partial Class Contratos_RepPresupuestos
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 End Class

Contratos/RepPresupuestosDetalle.aspx

@@ -226,7 +226,7 @@
                         </div>
                         <div class="col-md-1" style="max-width: 120px">Clasificacion:</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" DataTextField="Clasificacion" AppendDataBoundItems="true" DataValueField="CveClasificacion" Width="200px" runat="server" CssClass="form-control input-sm select2me">
+                            <asp:DropDownList ID="DdlClasificacion" DataTextField="Agrupador" DataValueField="CveAgrupador" Width="200px" runat="server" CssClass="form-control input-sm select2me">
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1" style="max-width: 120px">Tipo Gasto:</div>

Contratos/RepPresupuestosDetalle.aspx.vb

@@ -45,9 +45,14 @@ Partial Class Contratos_RepPresupuestosDetalle
         TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}"
         TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
 
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+                           Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()}
+                  ).Union(From dr In GlobalDTContaConceptosContables(-1)
+                          Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True)
+
+        DdlClasificacion.DataSource = dtAgrupador
+        DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
-        DdlClasificacion.DataBind()
 
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
@@ -181,7 +186,7 @@ Partial Class Contratos_RepPresupuestosDetalle
                     EsProyecto = True
                 End If
                 Dim Css = "Texto"
-                Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
+                Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
                 e.Row.Cells(0).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
             End If
         End If
@@ -302,7 +307,7 @@ Partial Class Contratos_RepPresupuestosDetalle
                     EsProyecto = True
                 End If
                 Dim Css = "Texto"
-                Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
+                Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}"
                 e.Row.Cells(0).Text = "<a class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
             End If
         End If

Contratos/RepPresupuestosDetalleCompras.aspx

@@ -221,7 +221,7 @@
 
                         <div class="col-md-1" style="max-width: 120px">Clasificacion:</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" DataTextField="Clasificacion" AppendDataBoundItems="true" DataValueField="CveClasificacion" Width="200px" runat="server" CssClass="form-control input-sm select2me">
+                            <asp:DropDownList ID="DdlClasificacion" DataTextField="Agrupador" AppendDataBoundItems="true" DataValueField="CveAgrupador" Width="200px" runat="server" CssClass="form-control input-sm select2me">
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1" style="max-width: 120px">Tipo Gasto:</div>
@@ -242,7 +242,7 @@
                     <div class="col-md-12">
                         <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" OnRowDataBound="GvDatos_RowDataBound" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
                             <Columns>
-                                <asp:HyperLinkField HeaderText="Serie - Folio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-HorizontalAlign="Left"  />
+                                <asp:BoundField HeaderText="Serie - Folio" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left"  />
                                 <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"  />
                                  <asp:BoundField DataField="Fecha" ItemStyle-Width="15%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />

Contratos/RepPresupuestosDetalleCompras.aspx.vb

@@ -31,11 +31,16 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
     Private Sub InicializaValores()
 
         TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}"
-        TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
+        TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
-
+
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+                           Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()}
+                  ).Union(From dr In GlobalDTContaConceptosContables(-1)
+                          Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True)
+
+        DdlClasificacion.DataSource = dtAgrupador
+        DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
-        DdlClasificacion.DataBind()
 
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
@@ -121,6 +126,21 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.RowIndex = 0 Then
                 e.Row.CssClass = "Totales"
+            End If
+            If e.Row.RowIndex > 0 Then
+                Dim Liga = ""
+                Dim Css = "Texto"
+
+                Dim TipoAgrupador As Integer = e.Row.DBCampo("TipoAgrupador").ToEntero()
+                Select Case TipoAgrupador
+                    Case 1
+                        Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DBCampo("CveCompra")}"
+                    Case 2
+                        Liga = $"/Contabilidad/RegPrePoliza.aspx?&CvePrePoliza={e.Row.DBCampo("CveCompra")}"
+                    Case Else
+
+                End Select
+                e.Row.Cells(0).Text = "<a target=""_blank"" class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
             End If
         End If
     End Sub

Empresas/119/Formatos/CHQ-7260.rdlc

@@ -1,498 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
-  <Body>
-    <ReportItems>
-      <Textbox Name="Textbox4">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                  <FontSize>16pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!Folio.Value</Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>0.19791cm</Top>
-        <Left>12.73153cm</Left>
-        <Height>0.6cm</Height>
-        <Width>2.32714cm</Width>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox7">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=UCASE(day(Parameters!Fecha.Value) &amp; " DE " &amp; CHOOSE(MONTH(Parameters!Fecha.Value),"Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")  &amp; " DE " &amp; year(Parameters!Fecha.Value))</Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                  <Format>d' de 'MMMM' de 'yyyy</Format>
-                  <Language>ES-MX</Language>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value />
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                  <Format>d' de 'MMMM' de 'yyyy</Format>
-                  <Language>ES-MX</Language>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>1.28898cm</Top>
-        <Left>14.80763cm</Left>
-        <Height>0.59901cm</Height>
-        <Width>5.18048cm</Width>
-        <ZIndex>1</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox8">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!ImporteLetra.Value</Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>3.73754cm</Top>
-        <Left>1.11125cm</Left>
-        <Height>0.6cm</Height>
-        <Width>14.79409cm</Width>
-        <ZIndex>2</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox1">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!Beneficiario.Value</Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>2.8649cm</Top>
-        <Left>1.13453cm</Left>
-        <Height>0.67938cm</Height>
-        <Width>10.11414cm</Width>
-        <ZIndex>3</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox2">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!Importe.Value</Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Right</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>2.78553cm</Top>
-        <Left>16.60737cm</Left>
-        <Height>0.75875cm</Height>
-        <Width>3.23497cm</Width>
-        <ZIndex>4</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox3">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!Observaciones.Value</Value>
-                <Style>
-                  <FontFamily>Franklin Gothic Medium</FontFamily>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>9.12495cm</Top>
-        <Left>0.73766cm</Left>
-        <Height>1.89646cm</Height>
-        <Width>15.5175cm</Width>
-        <ZIndex>5</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Tablix Name="Tablix1">
-        <TablixBody>
-          <TablixColumns>
-            <TablixColumn>
-              <Width>3.35611cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>11.2824cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>2.29715cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>2.63229cm</Width>
-            </TablixColumn>
-          </TablixColumns>
-          <TablixRows>
-            <TablixRow>
-              <Height>0.54708cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="CODIGO">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!CODIGO.Value</Value>
-                              <Style>
-                                <FontFamily>Franklin Gothic Medium</FontFamily>
-                                <FontSize>9pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style />
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>CODIGO</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Cuenta">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Cuenta.Value</Value>
-                              <Style>
-                                <FontFamily>Franklin Gothic Medium</FontFamily>
-                                <FontSize>9pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style />
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Cuenta</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Cargo">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Cargo.Value</Value>
-                              <Style>
-                                <FontFamily>Franklin Gothic Medium</FontFamily>
-                                <FontSize>9pt</FontSize>
-                                <Format>#,0.00;-#,0.00;''</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Cargo</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Abono">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Abono.Value</Value>
-                              <Style>
-                                <FontFamily>Franklin Gothic Medium</FontFamily>
-                                <FontSize>9pt</FontSize>
-                                <Format>#,0.00;(#,0.00);''</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Abono</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-          </TablixRows>
-        </TablixBody>
-        <TablixColumnHierarchy>
-          <TablixMembers>
-            <TablixMember />
-            <TablixMember />
-            <TablixMember />
-            <TablixMember />
-          </TablixMembers>
-        </TablixColumnHierarchy>
-        <TablixRowHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <Group Name="Details" />
-            </TablixMember>
-          </TablixMembers>
-        </TablixRowHierarchy>
-        <DataSetName>DataSet1</DataSetName>
-        <Top>11.32099cm</Top>
-        <Left>0.73766cm</Left>
-        <Height>0.54708cm</Height>
-        <Width>19.56795cm</Width>
-        <ZIndex>6</ZIndex>
-        <Style>
-          <Border>
-            <Color>White</Color>
-            <Style>None</Style>
-          </Border>
-          <TopBorder>
-            <Style>None</Style>
-          </TopBorder>
-          <BottomBorder>
-            <Style>None</Style>
-          </BottomBorder>
-          <LeftBorder>
-            <Style>None</Style>
-          </LeftBorder>
-          <RightBorder>
-            <Style>None</Style>
-          </RightBorder>
-        </Style>
-      </Tablix>
-    </ReportItems>
-    <Height>7.26042in</Height>
-    <Style />
-  </Body>
-  <Width>8.08692in</Width>
-  <Page>
-    <PageFooter>
-      <Height>0.66146cm</Height>
-      <PrintOnFirstPage>true</PrintOnFirstPage>
-      <PrintOnLastPage>true</PrintOnLastPage>
-      <ReportItems>
-        <Textbox Name="Textbox70">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Fecha Impresión:</Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve"> </Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Today</Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.09687cm</Top>
-          <Left>1.12258cm</Left>
-          <Height>0.46771cm</Height>
-          <Width>6.86562cm</Width>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-      </ReportItems>
-      <Style>
-        <Border>
-          <Style>None</Style>
-        </Border>
-      </Style>
-    </PageFooter>
-    <PageHeight>29.7cm</PageHeight>
-    <PageWidth>21cm</PageWidth>
-    <LeftMargin>0cm</LeftMargin>
-    <RightMargin>0cm</RightMargin>
-    <BottomMargin>0cm</BottomMargin>
-    <ColumnSpacing>0.13cm</ColumnSpacing>
-    <Style />
-  </Page>
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -537,6 +44,447 @@
       </rd:DataSetInfo>
     </DataSet>
   </DataSets>
+  <ReportSections>
+    <ReportSection>
+      <Body>
+        <ReportItems>
+          <Textbox Name="Textbox4">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                      <FontSize>16pt</FontSize>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!Folio.Value</Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>0.19791cm</Top>
+            <Left>12.73153cm</Left>
+            <Height>0.6cm</Height>
+            <Width>2.32714cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox7">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=UCASE(day(Parameters!Fecha.Value) &amp; " DE " &amp; CHOOSE(MONTH(Parameters!Fecha.Value),"Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")  &amp; " DE " &amp; year(Parameters!Fecha.Value))</Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                      <Format>d' de 'MMMM' de 'yyyy</Format>
+                      <Language>ES-MX</Language>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                      <Format>d' de 'MMMM' de 'yyyy</Format>
+                      <Language>ES-MX</Language>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>1.44773cm</Top>
+            <Left>14.80763cm</Left>
+            <Height>0.59901cm</Height>
+            <Width>5.18048cm</Width>
+            <ZIndex>1</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox8">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ImporteLetra.Value</Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>3.89629cm</Top>
+            <Left>1.11125cm</Left>
+            <Height>0.6cm</Height>
+            <Width>14.79409cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox1">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Beneficiario.Value</Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>3.02365cm</Top>
+            <Left>1.13453cm</Left>
+            <Height>0.67938cm</Height>
+            <Width>10.11414cm</Width>
+            <ZIndex>3</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox2">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Importe.Value</Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Right</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>2.94428cm</Top>
+            <Left>16.60737cm</Left>
+            <Height>0.75875cm</Height>
+            <Width>3.23497cm</Width>
+            <ZIndex>4</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox3">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Observaciones.Value</Value>
+                    <Style>
+                      <FontFamily>Franklin Gothic Medium</FontFamily>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox3</rd:DefaultName>
+            <Top>9.12495cm</Top>
+            <Left>0.73766cm</Left>
+            <Height>1.89646cm</Height>
+            <Width>15.5175cm</Width>
+            <ZIndex>5</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Tablix Name="Tablix1">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>3.35611cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>11.2824cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.29715cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.63229cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.54708cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CODIGO">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CODIGO.Value</Value>
+                                  <Style>
+                                    <FontFamily>Franklin Gothic Medium</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CODIGO</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Cuenta">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Cuenta.Value</Value>
+                                  <Style>
+                                    <FontFamily>Franklin Gothic Medium</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Cuenta</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Cargo">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Cargo.Value</Value>
+                                  <Style>
+                                    <FontFamily>Franklin Gothic Medium</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <Format>#,0.00;-#,0.00;''</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Cargo</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Abono">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Abono.Value</Value>
+                                  <Style>
+                                    <FontFamily>Franklin Gothic Medium</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <Format>#,0.00;(#,0.00);''</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Abono</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <Group Name="Details" />
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DataSet1</DataSetName>
+            <Top>11.32099cm</Top>
+            <Left>0.73766cm</Left>
+            <Height>0.54708cm</Height>
+            <Width>19.56795cm</Width>
+            <ZIndex>6</ZIndex>
+            <Style>
+              <Border>
+                <Color>White</Color>
+                <Style>None</Style>
+              </Border>
+              <TopBorder>
+                <Style>None</Style>
+              </TopBorder>
+              <BottomBorder>
+                <Style>None</Style>
+              </BottomBorder>
+              <LeftBorder>
+                <Style>None</Style>
+              </LeftBorder>
+              <RightBorder>
+                <Style>None</Style>
+              </RightBorder>
+            </Style>
+          </Tablix>
+        </ReportItems>
+        <Height>7.26042in</Height>
+        <Style />
+      </Body>
+      <Width>8.08692in</Width>
+      <Page>
+        <PageHeight>29.7cm</PageHeight>
+        <PageWidth>21cm</PageWidth>
+        <LeftMargin>0cm</LeftMargin>
+        <RightMargin>0cm</RightMargin>
+        <BottomMargin>0cm</BottomMargin>
+        <ColumnSpacing>0.13cm</ColumnSpacing>
+        <Style />
+      </Page>
+    </ReportSection>
+  </ReportSections>
   <ReportParameters>
     <ReportParameter Name="Folio">
       <DataType>String</DataType>
@@ -580,6 +528,45 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
+  <EmbeddedImages>
+    <EmbeddedImage Name="LogoEMD">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAFkAAABPCAIAAAAP5v5+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAADo5SURBVHhetbsHdxtXtiWs//XWfGtmvulu25KYiZxzzgAzKSrnnCgqizmAyKlQqAIKOTCLyrbkdmhny1YkKWl2Eer33LPa4fXMu7oqFguoqnv33WeffQrgtnf/r9vbd+/W375Be/fm7bvNN2/fvN1c39zY2Nh893Z9c/PtG/zc3Hi9/vbt283NNxsbeBP7xo3Nt6/XX2y8efXm3frm2/VX6y83Ntdxic03b3A2e7X6xd/i7f9V7b8GizebG5ub65gw+2NjYx0/Nt+/ioltAYRt/QgaTkHHC2gbm3j7OvbrGLH9zRYC2Gy19+f8F7T/l1jUx4ql32CnVj/Ebt5sbP70009ffP3V1999+/jhoy8//+Lbr7958uSvTx7/9cmTzx8+eowDL16uvwQZXq1j4kBiA5TZfLe+8R6OOgIgF8u3X3AE+9jWf/2/b/8iFhgEu4h/b/UjbAPv3779+eWL777//uu/ffXx/QdLtfm7a3dK5XIoFimWyxRBEvFkCv8IOk3nKCo7MTUXDMXJVI6kC9nC/L0Hj9fuffLlVz88e7n5ch3IvnvxavPFi5dgzOvXr3EvbFnE8fsGewT3rA/p/77961hgKGj1MdXhePny5dOnTx9+/DHFZNKZTKlQpJMkQ9F5JktRVJwk8oUCyQJBMekcsMhlywmCJkkmkcgQySxBlnwBMpOdJ8hCobxcW1xbu/foi6++g5Q8e/b85YsX6+vruMWrV6+2MGdbHZf6kP5Iq78Z23961r+IRX0oLBG2QAEEX375ZaFQiMfjJJWKEolcPr+6vJKl0wUmG49Eq9VqJB6jM0zEF0kl6YAv7POGpibnfHORJJklkzmfLzExHUuQpVR6PpNbTGcrlYWVYnUhX6ktr915/ORT
+YIEJAI46Fmi46WeffYad92P6A62OAtr73/+x/SeweH+ZrYYRvHjxAih89913q6urd+7cKZfLlUqFJMk0k8nkc0yWKeQLpXyBodNlEISmwQsKbCGz3plANlOIhBJEIp1lKul0KZUqkKnilDd+azwYJ4sUU80Wa7lKtbq8ki7kM4UczsNdHj58+M0339TXAGMAKZ49e4ad9+P7vfa7qP0nsMC16q0+jufPn/309GmtWs3lckAhTdPgRZIgEkkCWFA0FQqGmBQ9X64Uc/lAMBiOxwrFUiFTzNC5cmE+GibTdNE3F8vnFwKBZDBE+iLUxasTvnCKSOdz1VpxYSEQj2YrBTKbSmfSBEGEwyGGYV68fIF1+feRAJr34/u9hvdj2Iiy+n794C/bb2OBE9CBPNtZb7A1AryAqGWFkE4TSRIzDIai+UIxEo3PzQWTKSqTY1JUKhGLFbLZeeBUKmUyaTpDUxTN0DkySYeD8dGR6alJP7BIxDOBADE6OjfhjfnCVCyVT+XKdKFMAdksEySjRI5KM0wySabT6VgsTlPpR48++fbb74DC69cb7Cj/WJgAuJ9//vnHH3/Ezr+ABe60AcOE1Pbqzcbz9dc/v3wJVH768adMNp+gMjRTTKULM3MhmilXF9ZIrHOQjMRJOpPKZEGUVDwezeUyVCqZTiXzaToWDgGvUCiSTjO+uVAoGItGkuihIBEOkUmyRFIlCGe2uETQxWCCTmSKsUw2lmHiBEiUiURiFJUOh+Jz3nA0Qj55/DmMGyKmnk1YJd9gofm1xi7jFpXq2/dHf9F+GwvWI26+xR3erL9993ITuCBZvFpZWkVAJGkAUUIijMRTxQrUrkSkmFCUCIYjBJlI0SSVTpEkkUlT4VCAwWqSOJwolsrzC4uYEvJIJIxXEVaZXK4GLMYmQrF4Lkpk42Q+SuZGZwKz4USqVJ6LEd45fzyBKCFHRycunB++NHQN58aiqS+//BYLvA56/KP1+KcN8/9le3/0
+F+23sHgD84z+dmP9HesCv3n6dOn27YWFlWSCKldWs/kVCP7i6kNofm3xNp0tRDBcikqmkT7jcQJZg8rmmGAwEAr6UyRRLhXisVgqRZfLkJgCzAV6tbIELMKhZCZdCkWZOX8qmmC8ASJBFeJ0PkTQt2bnQA06k02R1PT0rMlkVSp0GrVxoH/v5ITPOxv+/LMvMFTkF7Q/rh3/tLFY/FOQ0OBukMdhh5HEv/7xx9ryyuSsLxZLxqOEP0D6g5liaY0pLIWiKQBRWVjKFsGPGp3LQCYJ6EWKjMSidDqNFFMsFJcXF+E6sLalUgW8oJAtKkvhEBGPURPjSK7RSCwbjjKhCO0PkbOBRKa0MB2MeeMEkSvE4kQkHN2//6BSrjYZ7ehSierQwZORcGJsZHxhYeH58+fA4t9j5Ndm9NttG06rUwvb/+MScFEvcI/Nza++/z5bLgdjCX84FgolsN4zM7HhqzNjE2GSKtNMKZ0rpnP5WDKZTJOZYpbOZ3MVhA8dScSz+Vw2l4XviLEtnkymCoVSAskmkcoypTlvCME/OxMKh9kYCUUys7449NcLjOjcbCg+DWWgM4i7iYkptVqrkKsNeqvF7JTLNDqtNRIm5+b8MzMzX3zxBcYPODAFNIBST73vZ/LH2jacg5NhYOpXQXv/yrt3L549x6ufPPkr4jhBpwNwSwQVi5HxSOratWlfkApG0sEwFU9mYkkacKRgpTDLdBqMj1NUIBr1hUL5UqlQKoMICJtwOIIdhAnD5KgUQ6WyiTjlmwuHg0QwSNCZ+RhRiBE58CJG5pJMMVdbTpcrITJ19/6D8+cvKhQqndaoVun1OotErOzr3eudxQ0JJCmswqNHjzD4+opi2LA/v5zLH2ksFkARlumXBKu3jfXN77/7AbEajifJTI7M5OMEDUr7vdGZ2QhTWCBS+QSZhXYGwolsoTo54wtFE8E4MR0KklkmnkoFIBAMA7uJ6EmSFOBAjEAsMplslimGQwn0UDCB
+5BoKJkPh9NRMPBzLROKZ8uKdXHU5RmXnkEIKpZXbayeOnWxqapZI5GqlHpIh4Ev7+/Z5Z4OBQDAMMINBZNy6EwM7sLTY+Vd4gR91OFFKs9X0Vn7CFXH84f1HmAmdKyKDxlMZZFCGqRCx9NLyvUyh7AvFoJqhaNLrj6WzZWynZiNwjmPeuWQ2W55fLFRruVIlkyvAHGSzRYrKsEkxHAWxY1EoRSoUjIMdM9NBmipALK5cm4EikXSJzJSofNUXJUMpejYap+jMgQOH+HyBXK6ymB1qlaGlibt78BCTKfn9Ab/f7/V6A3ApBAEHDCBACijIfxoL/AcI9V+2nipsvtp4tc4+R3n79dffpNPZNDI8FrNYZvJFOlNkmBLyWTRGBiOJsYmZQDB2c2RyZHQ6kcxkmLI/kAgn6FShHExCRuZLC8v5yjzKCiJF50uVxeU1XDAQCEciiXAkEY0mc7kyNGZmJjA9hRmRk1PwEGmQLJmtRah8hGJQps1Fo4l44sTxk2ol9EKr1Zg1ahOHI9p/4Eg8QUaj8Vg0Fo3G4vFEMBgiiCRQ2LLF//kYef9zqwGLV+uvnq+//Pnlz19+99Wdew+xnsFgFHmUJOlcvhgKx2e9gfHJGWxjcWpq2odCMxRO+HzhcnkBACE7+MKxMM3cmvXH0/kAQqhcSTG5ENJPmq7ML5CpDExqPEH5/OEIqJFI4VIXLl4en5iJhKjrLC/IMFEY9xFTmFe2EE1RUZLIMczewT3cNoFcopHL9TKplseXHDp8JJqITU3PzHl9JVaSMjSdASIPHjyqSyc8x/uJ/bH2H1gAQ0TYKzj29dc/vfh5fmVx5fbdUqlGJFFS5TJMAfKIcePWmEA2VyaSaQBBp/PF0jzsVSyewgwLhSqUJZLO1NbuVFZW6WIJ2SJGkv5IKMWgPINBZxIEfEeJorMTk7OBYBRbdFwzHoVVraTStZlgKp6pxdLFJLCg0r5IKJfN9vf2tzS1K+U6Pk8mlWgaGtt2
+79lPpWmfPwAulUoleFnkIYbJQo+++grC8QbBws7r760+zd9o/8ALoInQAMO++f7HLC5frlWqC0wWRSQmVSVQR0QSSPVJkqboXKFYw8RgI4FCMIT1oNABDauyxWJxeSnBZJI5RHQhxaSTNElmUrFkAsUKky0CVqAwPeMDuNhBHxubPnL41MmTF2d9xHQglcwtTAYTk4GoP04ghZEJor+nTySQyqVaoUCpUZtlcs2p02eDmH0kms+XvHCmfohoBCEDhV5eXsVUYDgAAVSj3t5P8tfbP2Cx+ebtsxevX21sPvn8y+rSKpMrZZh8vlCGLUhRaX8gDHXIFypAB/QOhhIIiq0VRk1dAE2QbAKBKEEzAZJMZDMR1CG5TCJNpfNZOpsuzZdRthdLtfmFlXQmj+WMxpL1DkyPHj3Z1NAmEMjbeYopHxGlyxMBYjacjKTSZDoX9Pn1Gh23jS8Vq0EKAV8uV2hPnjozNT0dCIagxJFIHOxAQtmCpog8de/eg7rdqCeUP4jF+zdtxcjb9Y3Nr779oTK/XFlcXbl9L5srFIpVMpXGSiaIFMYNIMqVWr5QhUyAERSdBwTgCOBgU2exNheKJWCwFhbT5RK0sTBfjZPwC4lsKUdQZKWyuLC4ioiDcECMoBqxOAmxEInlba08oVC2o5FzZvgWWViajaZDyRz0JhBNzk7PAAuFVK2U68UilUSsVqr0l4avjE9OghpIJYEA3FoULJmengEo2Wwe2rGVIv8lLNAAxM/PXty5/0lt8e6dB3/NF6uQfWg1nWawktFYgkimKtX5bK6Yy1eQX4AC1BSqUSovRKKAqcQ+s8sUInQuDqZk8gj4Ym2RKZRqi8sUk43GkWqLdS4ACFAD0QFSnDl7sam5XSqVa7QGiVxrcHRPhVJXJ/xDN6bowsJsIDY+Ot7e0sbniIx6u1plEgrkao0RJa+PzacBQIDQABZIIkglOALHB0e3unr75cuXyCmAo24RfrvVsUB/Ly1Pnz5b
+Wr1fW3i4vPYp5kbRTKFYRiAkCHJL/0lETT3I8RJ4gWDB/Le0IwumECwWRSI7D7uULi5mSkupbHnWF00jwS6tIVqqtUWoJkgBOgARwFGbXx7Ytbe9nS+VymRylVSpFyqNMxEKqWTMG0/lFoJRevTmiFgg4nNFyCNIIlyuRCpTT03PTkxNTiFOpmf9/tCW42XregwOvhZhArzhvupw1OOlPsdfa/+ABXjx5MlX9x5+sbj8YPn2k1yhVixWV2/fQ4THUUEkKUwec0DWADSYxuTUHA4iiCAideHEPHFGLF0lMrV0YSVXXUvQRX8olS3Mo5xlchVcEG/+9xhBB5q9fYPtHEFraxuXxxeIlRqLZ8QbHvcnwmRxJkiibL157YZEJJZJlGqlUcBXiIRKoUg+OTUzNTPtnfNBNUOhsNfrI8kUsJid9SKnFIvlXC6POqWOBdrvY/Hm3es379ZZt/n23Q9PX6ysPSzWVphirbiwms5XCDA7V0kls7FgMhKIYnTRUCISISLBRCJCwEcn4xQyRCZTSiZzNF3KMtVUtposLLLPb9O1fHE1kMwSleUwU54OJuGtfJFkLJmhmAIYFiUoP5sH4m5PZ1Nzq0DIzpfLE+mNNti2a9cngihYvfFgkLw+NsoVCUUShUiiEohUoIZabbh+7UbQF4hGIBW+aCwMu0WSVJYpwOYjqxFEIk1nPn70BFggobD1NisZgOMf4uCXbdvmu5cbb9frH8f89Yvv1u59Wlu6W6wtza/dy1XmWWlLULXyQiwIA0AnwkQqQc9MI9BjWToXCkTCwTiTLvp90Wy2WiqtZpkama0RhUWKqiYTUNOFEFUMF+e9dCFVWJpffsiUFwNRMkJQ4RiYkQ+EowjsXYO7gYVYopBIVc0tHLPZHo2mAv5EPj8/Mx2ZnY0eP3eWI4awKsRSjRCkECphQG/dHCFiiRjSbgIWI5jL5UANvy8MREAQhsmAGtXqwtOffgIW9afnv4PF23cAgv1Yb/Pt
+u7998/Tuw88ffPxlqba8cu/h4trdTL5YKFVCkCcU0tA81KqRBEa/UF2kk+lIKEahcihWK+WFcnmpWFyMxzPRZB4ZkQIEAWpujvAlmHh5aTJGxdMwK/fz1eVceTFTqKCiS9LZbAGSlOnq7uULRFKZSqsztUE4ZKoIsAgkvN7o9BYWB44caWhtkSg1coWex5XxeDKNyjAyMhoMBOd8KPi9oXDg8vAVvc6kVGgtZvu1qzdQ/C3ML0XC8YcPP0Z59fo167t+Bwuk0c23gOLdsxcb3/3w/Pa9TysLdxZW7975+K/3P30STSamZmaD/gBWIAEaBsNBf5B9AIvcksoEfKFUMs1k8rFokqJy0QhZyC+QmUowmYtEMsE5FAuMN0r7M6U5Mpct305nF1CJ5ytLTLGagA/NFqdmEe7B/QcOcbh8pFV0gVAqkShnvYj/yNDQzZERbyRCHzlxopXDEYplTc08Pl/O5Uo1GuOtkbGJiQkEyKx3YmxsRCAQ8bjoYqlEdfTIcdjPZDKFgS0vr7x69frvJXwdiF/BAvbs9Sabb77/8Xmldqdcu1tdvM/2lfuLd9by5RKRIlPJZBRlSSgEzwNcUAll6HQCFEGBnc6myK0nlzDpdC4Wo+ZCSYKpEYl8Iszks0veCDWMmMpW6NwiSZWBRYRIw5FFE1QqnZuc8c7Mzp07f7GxqRXyyRdIhCKZQqU7derizExoYsJ38+bM1FRo7779fKGIyxUigwCL1lbBrsH9yKRjE5OT02OBgLe7u1sgAApKiVilVOj7+3cjTBAyRCK1uLhc9+OsIv42LzbfbmzCnL1598NPr/PFlUxuqbb0iM4uFBfWivMLoP+de/eyGSYejpDxZAJVJJ2mwAGGoZJkNBytVWvVynwoGIO/QJYhiPRsIEHnlyiynIrma5W1IMFMx+hUeXkuiAREF+ZXkFihFzGCDsdJVMDQ/Bs3bzW3tCmUWgABOFrbeJNTvmiUGhmZiccZny+xb98BLpen
+UGhaWgVisYbDkezZdzgSi0/MTPsCc97ZKaUSIiKFiMCec9pF3V39DFPA8iGtlMvV+gcIW7z4HSyAGv6/+/a7F7WFB5FYrrLwYGHl4zhdTLCuALDeTqeYEnxUJBHxRwu5ImvAUCNHIljTOMpVio7HiFCIdRzIqUxhPhDN+GeJ6VuBc6evBuKZcLocy1bjySKZLEI7M4VaplDNl+ahPKjl4e7BdjZJKLWIEQ5XCDhOnDx/5sxwb+++3buP7dt3wu32IOOqVDoeVyoSqZqaeD39e2b8gZHJCUStzzcn4Avb24RymU4q0UJQLGZnqTifpnMwHfPzi19//Q38xZZ2/nv/51i8eb3OPs55/OTrFF0rVe8xhVU6u4h0EIMtqMAa5ZMJerGyTMYomkDFWkjEaTqVIhNxgn2MGUdpCMNLECAKhUUuz6+GErl4JOubiDZt58+FqSBdDJB5KlOrVNaylSWCzvvg3wnWi8CJBoLhGzdHdzY0NzS2frS9kcMVtbbxNVqL09mzb98xt3vX/v2nBvoG5FI5jyOUSjVSqW7HzvYDh0/MhcMj05Nz/rnTp0+KRVI+T4I6RSoGFtK+vj0pkiESSCjpVIr6/vsf/u47fxOLjU0U+2+eP39VqqwGQmkmt1qq3k9laoX5tdV7n1QWVpCeSoX5LFUgIqlStlIu1IBFMk5k03SpUMhnc+l0mtxyXChkC0VYklwkkaWIgsfSx29TTM7G/GSOKi2XK2vHjpzv2rXP3tHr7hkw2dx7Dx21Oz1Go9lud544cfLU6XPHT5weHZt0ubvkct2BA8euXBkZHh4dGrqllCn4EFehVCSEuMqRak6dvXh9bPzm9GQkHj1+/ISAD53Qs7wQa0CQ3t7dZDKNyKUpJhFPfvXV11u1CdrvYPHq1frrH58+e/DoMyJVpDPzDz752/Lax7kqQEHNXklBHfL5arUKmYiEIwGfH/UpRaSIGJEkyGwmCwWlUgwcZIJIkyRKOJqmGYbMSThK
+Tqv8+qh/bC4OUpDhjKBFJFGrXb39B46f7d13uHvPfpur02Kxu+y2fbsHDh46cvTYiZ7efrvDbbG6Wlp5f/lLg0Si0WgsUqlCpYKzEPP4QoFQvH1n44kzZyMJYga1QILs7WVtK0JMJlezaUiqstnduXwxmUwjeyUJ+vPP/vb8+Yv3M/71xmIBagCL+w//Wq7eKZRuZ4srxdrt2ur9dC4HLJAzUXYuLy/DXUZC4RBqdVTbwUg8HCPiRMAXTMRJ3K9SXcwXavF4GnU9MksmyYjblW0t0pHJMOxGrrQSno3L+YpDx092Dez5885Wi6dXoNRZ3d0Ol8fpsO/48AOlUn1xaBgiKpbIu7r7dXoLjHZ//36brVMqUWvURuRLuVzLF0jbOcJzF69Me4NelHbpHLwZIFCp9WqNAXKj0ug7u/rCEfZpWyqZQVr9+OO/oiJ5P+Nfb9teb7wAFt98+32ltloo384VVrPFZSpbhV4kKXC+ACBi0IV43O/zhwJBwEHGE/EQhDROJJLhYBTCeWnoCkZ/6vTFXK4ajiRBS8SYQWFubhCiZCFyC7FkPjQTF7aI7J4usUIjVunztdUYlQ+jlkvRhVxOo1ZptHqtziCRIgowdYPb0yMSKfbvP+5290ECpBINyhC4b7FYLRAohoZvso+a58IknTUYrS2tXOiuXKEBIkhGu/ccYLLFcDiRZUpQ0LW1B6hH3s/419u2jTevkEq+/faHQmmR9YXF2+X5u7nSEpmtZgsFJsdQaZpAxUeS7APWSBRYpCAMRGoXCqpWjtPuCodiapWhqZljMrkScdRaiWAgBF4MdOxuaRJN+4jSyoNIInPr8ghnB+f4yXMiqUZtcKBmS2aroQQVgyOKJ9xut05vNBjNcoUK9ZlIrECXSFQHD57cvftwK4JLpJVJ9AI+cqdaqTRdvzUdCJMQhDiRFkI4Bahl5EABW3j5WyMTGGMwGMtlS8VCFTECXvzuIww2RvDjq6+/y2Qra3c/W1x5
+lMpUFm9/nEiXEiRZKpfoTJr9bhGJgicOXvi8c/FoNEczRw8dE/CEHldHiszYbR4U0f39+2Ccw1FkWWr8xniXo6epgX/i3NVouhSKU0OnLzX+qeHi0FWFyqg3uancApVfoPPVKW8wQVKejo6dDU3AAmZcpdbhakgoJpPzwIETnZ272lslPI5cJFBLJTqBAAyyT81G0Gf9iVNnLspkKkAA575V0SiBy6w3wD5JpHPIgCgg7997BOv5+3UqYgQ/ECPLqw/uP/pbOruYpCt0tkbl51PpDNJ/Osssr6zk8wCkANMFP0Al4UMTfd39DpvT4+oMBmImo11vsHZ3D2YyZYKki8X8qaMnWra3tDYLVHoHSvYokTl77Jy4RTQ2OtvUyLc5+jKFlUxxhcrXvMGYPxKzuVxcnsDuYLdbjksqEMp0euuePUcQJlyOVCLWyKV6bNvbEQyGqdlwOEajEHN6uut0gGQADnSrzRWDi4uTFAVPzEAv7t55CKv1T3PHL9u29Y2XsBjrGxuPP/2qtng/mSpDO7PFpThdqswvoDRLJAmoBniB1SaJZBq1VIryz8xZjFa302MxWc+fG4K3aWsX7Nl7GNoZhl3LZS6dO9/4QWNTA8fZNUAVa7Fk+sCuA20ftV44c6VhB6+r5wBTXA0SObq46IskokTK4emAUshkitY2DsozxD+wcDg79+492te376MPm0xGh9Fgb2sT8PjS5hbe3v1Hs4Xa8PVRoUQhl6vrdIBwIKEMX76eIKg5X4gkM/lcBcn1q7/Ba6Fm/z0sYNXfbGFx78GnyHzFyh1WO5lqrrJCpFIZJs1kmQjMdhR+FhV6KBpGBoneuHzVZrJazVaFTGmzucxmx86GlgMHj1+9OnbqzJlLwxecFlvrjla5VKu3uq3d/Z29g3qF7tyhU/0de8wGj0JhJTPz4VQpVVj0o4Sl6M7ePoFIfPDQ4Y+279i+oxFzU6r0Zovz0KGT585d4fPFZ86ct9tdQqGkrZ0n
+U6i5AvH49KxYqWpsaYfQbgUI61m1OuPC4ko6w36XJ8uKRa2Qr37y8ZOXL+t16m+1ba82X2/xYvPLb36sLNxdXPm4snAfvCjU1tKFUnlxgWIy4Vgsw2QBB4xmIhaLhYKnj59WKXQqhb65kaPVmNvbRC0tgqZGHo+nMBptTQ07BBz+7r7dXR29BpPD4upSqAxD54ZHr4/fujkrkejMlq44WUgXFgk4/VQWN+rs6Wtr5e3atQ8ZkSdEdW4QiGRtHAEclFptHBzYM3xxuK21XanU8PkipUqLAk4sU8jVGtAEaYXDlai05u2NbTdGJ2uLq8FQLJViisVqEiYwX/rxx6d/4NEvYuTdu9dvWFV5/PnfmGJtfuX+8u1PcsVVJr9Cl+ZTxXI8nY5COJPk/Px8iiT83qlUIuS0e+AdJCKdyeBpb5Vy22UtjcLmRuHQhVulXE0tU4EvUolMqWA/9Wtu5oglKpFI3dgiaBEoPtjZDrKwXznIV+DBY1HC5wsBwbZmgVHvMFlcLqTn85dOnD1/fujS8PDlofNDMpQafJlUKBcLZe2tPIlYwWkXQCCgmnKZkctRKVTWhlaR3t5J5cvQYyqNoGZKxXIsHrt9+zYS6vPnv/+Nv20b795uvHuHvPr90+cLy3chfJFYZmHpEUlVUvlSGEKZzfkjkenZ2Vq1OjszNTs9MTc93gmPZOsBBMeOnBPyVXKpQaUwR0IpiiwSUUqr0Fy6OOzz+s+dHTp+7MzMjH9mJnjlyuicPz46E9IYnTK1ccoLr5YOwaQkqVmvH5WIXmPt7dmt1VsuXb05F4qgT816JyenpqdmzHqr1WhvaWyTiOR8rgglKYKIxxNJ5UoBXyURG3h8ladnb6a0lGSKyXShXF0qFKqrK7dLpdInn3yCYuTFixe/n1ORdtlv37x79/3TZ1CjQnmpUlsrlFbTzHy2XC0sLaTyuTj7rU0mDO/Cfs5HTU+My6UqmUyHAvny8C0e+Kk0etx9KTKHNLE0
+v6xTasVCicPuOnzoWHfXgNPZCV7ATY9N+LwhUq138MSqYJSc9UF/4uXK/OkzFxqb2tyObqvZ09m968yFS/5I3BsMj4xPjI6OBfxBi8nmnfH1dvc3NbSickfBKpYqEEGtXD4iTiGzcHnKm+NzdGGBzJYTdP7u/Y/Xbj8oFsorqyuPHz9+9uzZH3oOvr6J0ozVzucvXi0ur2VzlcXFu5XK7WSymKQzJJMOxaM0k4HjiiXiCJNSoXjh3Hm5VC2T6vbtPXr82DmFnC2KsB+P0QF/PBmn7GabyWjRqnU93QNGg81gtNnsnUqlsaVNNHxzytU5+GFD+7Vbk9dvTU5MzUHw3Z5uo8F67fIInyfjCWRHT50dm/ZeHRlDjJw7d/7aletGveXcmQv9vYPNTe18voQvlIhkyjaeENkGWMilJo3O2cKVHjxxIZEupPNVOlNABslmC6gbv/zyS8RI/bPV327wnetv3rF/qbC5+ebxk89QTVSrt2u1O9XqGlMoQi0jBOrrBBwXk8tOT0+jPDt9+oxIKPvLn3bcuD5ms7rkMo1eZzl96gKZzKTpvN8b7HJ37t93YKBvsFSoDl28OjY2TSQziUTGYus8eeFaz8BBjcFud/dY7B1mq1OrM/3bf/vvDmdHT9dus9EpFCmMNpfF2aHUGXhCEY8rgPSAhrhFX88gnyduamnf2dzW2MoRypRCmUIk0sikJr3R08aXO7t3gxf5ylK+WKtVl0ul6pMnj+tPff/+LOe3GptT372r17PvXr1cr+JCuUqtulrIL6Qz6UDI39XbdfT40aHhS9dv3hgZHU9R9ODgXrC0tYXr94VlUhXGB1Mdj5EwoIl4avTmmIgn2rt7n0KmOn/uktnkcLq63O5eu62zuVWot3UqtbYWrlipMctUeo3OpNOZP/xoJ+r0U8cv7N97lMOTWJ2d+4+cUOtNH2zf0dzcCpu/b+8ht7u7t29QJFEgLkw2p0pv2t7UyhPLVCqLgKfhCzUfNfKM
+ju7y0p3Hn3+zuvZgbe1huVT9/vvvMC/wYmPrS4/1af5a21b/QivgePv2zcbG5r07D1MkynCSSDCRSEipkra0Ne1o2LGjYWdbe7tMrnR39oCc/+tPH5oM1lAwuv2jRiSL7q5+2H4AEY0QU+MzDR81DA8NHzl0tL9v95nTF48cPbV37xEoy4WhG0PXJ66PzJ4fvrF735GBPQeNZvv2HU379h++fOXGgb3HDHp7O1fEEUj/9FHD9qaWPfsPnDl9TqVQX758XW+0NrdwGprbzA53plBOMfnBg4c/bG4ViTVSsYEvVBttXdfGvPnaytLaw0ptuVpdXqgt/vTTU9Ch/pHq7/Pi71igs2/98ouvSsUFJlMCFqOjN8wWbW9fZ2tbS3NrC48v4IlEHzY0q3Smm7cmFDK1Vm3gcoS93bv27D6Qz5WpFAM4rl6+rlNp49E4QzMAK0mgWkvO+SKTk/6pmdDVUe/kbHR8JugPE4EIcfb8MIcDkyWHvor4ig8/aNrRCDTkIoXG09sfjicCgeChA4fhJlGe8ASSdr4IWACIeCp99vLVBi5PrjDt3M7fu+9kcf5OprzMlJdK86uZbKmQr925c//FC/abSkDhd4FA28Z+SMS+r/7Wtz/88B3oMD0zGY6EuhAeXb2nT1/46MNGgRBVIAyyYGdD++Ejp2/ffTAXCFntTrXWYLM5Dx8+Nl9bDAUjyWQK9bscKWN0empybs4b9s6GpqcDsSjlnQ2HQsnJKf/w8M2jx8709u/RG21ihJhQ2soRfLC9sb2Z17SjBcUeTVFmo/HY0aOwuyPXRydGpkQisUyukMnUO3a2Od19E1N+Xyi299BhrkQES6bX25lshaRySSpXri3XFlZL5YVisfbzzy/qX78AEHVqbM2RbZgz3DY7c/YDQ9Qq7D6w+I+aBS88e/Y0noCbGJueHTWbnFevjtdqa83NAg5Him1rq6ipiX95eIRMZ1PZ7JUbNwUSqVgqc7o9N27cUqs1R48e
+n/MGpWLtnDc6OeGjUnkkF78vNjE2d+bUpWtXx5z2DrgvPlfc2sZvaGzbid7MgXBYHB1BX+TmtRF+Ozcc8Dts5qOHDk6OT45cH7s2fJPP53MwAomSx5XuHjw2MeG/MTKp0Rtb+ZzGlrbpaX+GKcbiqUKxmsuV699+qM0vb31Tif17G6DA7v1dPll42L9nYyHYYJ/2vkb2wP7/icXGxvqzZz+XSvlYLNzUzLl+YyIUSoAUXK6EwxG3tQt3NrRduzYWiKDaSh86dlyu0qCm+vCjHVAULpf9rFyrgWU+cOXyrc6Ofninw4dOwqS3NPNaW/jQnIadrehcjkgiVRlN9q6eXUOXb0zM+BKw+nQ+nWJOnzwtFPA7O909XZ0zU9NBf6S7o9/l8pw8daa5CbHKP3LkLJ0uXhy+0cLhGe22q9dvFYo11IwkTHdpPl+oghSrt+/94k/7/nnD5LFh/66NNZvgBbD4x4Y6//mLF9ksc+vWTbFEMTk1N+sNyuQalKFiiRLodHUPUHQukkjGSPLi5SvN7TjSe+bseR6MgUyh1eq5XEFjQ1tTYxunXcjnST74y06xSAEuIKH09+0Z3LX/4oUr+/cdGRmdQv6+cm3kxOkLnu7+7v7doIzN4jp04JBMJuW0tyrksr179u7fewheZmpqNpmkVUrdBx80SCTqq9dGRydmL16+NjI1PTHtvX5j7MTJcydPnb84dPXc+eEzZ4euXR8NBKORaGJmZnbrY/cMTacXFhbX1u58+umnn332OfshK0uHfwDsPRZbosHSg/369wYi5bnZZNm+vREjvjUyiTVsbGpvaeXtbGjtH9ibyRTZL+Tk8mcuXGxoad23/+CJk6fb27mHDx/t7u4RCCQ93YM93bsAhFAgM+itmP+loWsw4wP9e3Hc7epGV2uMno7ejq7+XXsODu47fODoyXNnL126eOXgwUNXr17p6upobm5UKJR4/80b47MzgUiYuHF9VLK1HlgVgUQuU2klCg3c
+Fqp7LBW2fIFUJFZgh8sTt7Tyd+5s5vOFcvh0gUij0alUGpVa6/F0dnZ29/T29e8aOHPu7PjE+OycNxKLPv70yba/f3Ma8QE83m28ZhH58Yef9+45dODg0aFLV0bHJnc2NMvkKhTL7Rz+mbMXIjEiliQTFH35+g2RVGZ3uDwdXWfPnicIMhAIqdU6AV9sszqtFofV4kRFv2N7IypKjB3m0mZ1azUmq8Wl11tBMYerS67SG8wOiVKr11ugCBi0QAh94HI4SOIcu80NTonFymNHT0fCiYmJWblCDd8pkCjEcrXaYBFBRPgSk9nhcHZqtCaL1YVutbmBtdXqtNudvb39MMFOpxv7kHmn06PTGkxmixkljtmMuxpMpjYOhyBJYIFo+Y/27OdXG+vvPv/sbyaDMxSK4Y0IgbZ2rkAoFookjU0tF4eGk2RqfHoGVfH+w0dUWh2AwEs3b44wTC4WS2AyYrEU8Pf09CFkFApUIpB6444dO1ta2qAaiJ32NkFTUzsW84OPGlGgq7QmsUJjd3R09+w6dOTIidMnhoYvXr1+5eKloQsXL+v0lrY20fjY7My0j8PhSWXydg7qMokNkzc6DCYHQthm9+B0uUILv48OJZKi/jPazCY70NTrzDBBWBinowMdzhB22eFkn7C6PZ29fQMisTRFpdkYefz4U6/Xt3//ob7ewa7OAavFI5fp3c7+cmWho7Mb8xdLZJhtQ2PzzoYmHEHinPUH6FwO2mm22eVKVUtru9c7FwyGBwYGMVwwEx0K0tjYLJFIAQTEz2Kx7RrY0+HpQ7CcPHHuKhvsvstXb0XiJLQzRiKoC3O+4OT09MTU+M2RG+jXbtw4f2GYVW6ObPeug3a7y+3xjE6MavW6hpY2hdqg0Fgttg6QAl2lNoBoPT2DYATgwK8gGuZstbrAR2ChURt1WhPQYcXLbNcbzVqd0YQqwOURCCWxOLFtYmK8vb2tra29pbm9YWcLdA4F0v/3b3/p72Ufq6vU
+muaWNr5A1NDY0tTcun1HA6CZm/PTTDbFZIevXZfIFbiWVmdQKtUDA7vBhQMHDg0NDV+7dmN4+MrcXMDnC259nypIUelIJI4SZnLCCwmAW7t2fQRea3DPgb7Bfbv2HXK5u212t9VmV6qVVrsFeHL5/F2D+5QqPadNopTpJ8Zn5hcWjhw7jAIFvACbZCqTzmDD+oMUELWOzj6zxWkw2QCHQgmBMBh0Fmi2UW/Ta82YGsJTqzWxKmawYkejBRZ2s8UhEEopOrtt+OxBpYR3+MAhqxkxbPR0dlitNn67vMd5+OLFKzwBny8Qc7hioUAhlWgcVs/e3fs7PR2FfInJFI4fO23QW4A6ShIQ+P69R4U80nu2Os9+W/jqtVvhMDk+Pnfo8Mnde/YN7t4zsGsQlRiPL8a9sW1r54PMg7sP7Gxo+f//1wc6vVkoksFoDwzuPXP2UnMzTyBQuN39SqWJ0y7Waa12WwcKX2hKSwsHkYjI5/GEBqXBbrCb9Ba9waIxmFGqGCx2MEIokNrMTpfZZUSsaM16lcFhc9utLoVcU2cHtogdixnlUieMbzSR2nZz6Fhb40duh1utNBpNVoPRYNAbxHylqFW/Y3tTe3u7WMyai7ZWEfiiURknJ2daW1p97Bf9k2dOXcBFeVwRCIXyqbOjR63UyxUqpFOxRM7lSxoaOFsOTdDU3M4TCk6eOr31jFvC5YkAR2NTm1Sm6u4ZACg4gn2FUosc0dLCFYmUYhH7MbJYrFUoTLBYWAy4kpZmLpZXLGKfEhsMRuQICUekEMjFAkiSRa7WqXRGFHXABZBh2hKhTCpSGLQmlUKLbtCYzDoLoNEo9cjQEA5sQQ0OVxiOJ7edPbJ351/+LBfjFYtSpVFrlSoMSab58H+2cpo5HKhdY5uQJ+W0ibd/1ALu1RaWDFbz3r0HKqX582eHUI9oVHq5TP3Rhw1trTwYyqamliYMmSdsauY2N/Obmnjsp8EcQXNLS2NzM5YdClfHAiMA
+Ruj1bxvIFRqQFqYGBGG/tSjVGo0uk8kjlxtRs0HFwHBkaKyn3YbjFrBYIBTJ+TKVSGXSW5Uo8i12nclqtrsgnGqlTqnSwaGr1HqEA3BRoktVFp1FI1FrpBqz2eFydrpdXZ1dfRhJBFjcHDrPaWh1WDrt1i61RgcsbDaTVCzz2Pv0UrWwhdPe0M5pQlkm//OfG7p7B5fu3r01MyGSykul+Rs3x7CYPb2DGo0RWuVwdng8vZAP5CrIbWdXv83WqdPZlEoD5NpkNiN7qTWgHUDXWaxOzLl/YA8gwA6C1mpz4SWsEphis3dYzB5gYbf3qNU2i9ltBi5Gh8WMVO3U6UxghE5nQMIyq00WtUWnNuJcZ0e3zdWBLRQEWFgdHjZ9290yhUYmVaGwNqpNepnOqjK5zS5IBqIbWHR19WFULBaXTp4QtQt7O/cgiUICrQ4MS6eQymxGt0NrdmiNSqG86aPW5gbuzp3t3X27/Yn4ueuXUS/q9ewksYAmkxM7KpURHTM3mm2Qb6vN4fb0dHbuksl0mBiwV6rURpOJfYRlskE1ECnYdnX3gxSAAx0KAlCkMiXYocOAVSaxWC0SaQQClUyqk0m1SoUeWKD3dPcbDCwcSPlGJXTCDL2QydVgBKihNVpMJptRb5WpdWKtTm9zKrWQUi0Ka4Pa6NDZrEr2LNacmB29Pbtc7i6wEuls29jlIWEbd0//wU7PLpgCm8OsVElkYplV77Fh8bQGMxKQzmbQ2cH2No7ww6amNjGcjrqhkduOIoUr1ertWiy+2tTWLsY+ly+WymXAAgEFXighQ0YYoQ6d3uB0uwEEBg0UsIPxYQdBgckDCywsxgSi4US12gTh1Ons4AXg0Glt0E4ECMyC0WDr6Rkwm61I0hZUyiaHy+h02T0GoxUBAiCkSo1aredxhEotRu0Eb5Q6o0SmkoihGXqT1mxUGdTsszgzYqTD02N3eKBiLC/Gr12QC/mDfXuc9m7YKovdDEdihjKrOiwG
+i9VkAeQ6tbnD3WezdiDw2lGAKeRGK1R8QGd0KjUWvcmlMdj57MegNqOlw4hLWCwKpQZJ3uHoRgdxgL0dgu3xwBFCKRAOYAoGgYgANIADuICoEqlya8coEMgBot3ebTC4jEY39tUqiL/TbvOYjHa1ijXURiOsI4sFeAF1xOk6sxWQiuUqqVQlkyiFEnm7ECZOb7I4gBQExWSyIxUY9Ga91oQYQfljMtowEtx3LhDe5pu4vPMv/6O3qw95GOKv1WMRdF2eXV22g0qFxmSx6PQmhYL9Ux61yqhVmyRimUwiFYoUar3TZIODtsiU5na+Amxp4ynM9h4NaIox251yhQ5zQNToDcj/bk9Hh95otNhcGDRIARYABeyDESKJAkdACoQJOIKXzGYXuCASqWUykKvHaHBKxGqNmjXv4AUyAiwcYgQUsmjNuzoGrAAIl7U6MHOJSgNnhXlCVmQKNTgCbXK4OrW4o1KDccthlg2Wrb9b06Oq9nT0QNFnfaFtEzfPi3ktsAxIhxr2ywtivd5k0ruUErtUioA0sB9GSJRIqEqFQY0wQ8JBkaMy2Fy9epNTpbNiq9SYpQo9tlqDA7e02u2IZAwOEgERUSr1yNaezi6URjKZGkYQs8X6i8UKuVyDX3GQz5cACOACLBAmMrnWZuvQ6+0arVUuN2i1FqlMq1DqbTDUegumqkJhJpGjy4Qyt9Vt1FtQjOiMVo3ejM7qBfsg3qBRQjzYmkjDfhAnFYpR0BkNJgS1WafBuioAB4S/pZXLYjE3c4vHbe7u7BDwRDqtWSrRgtVGo1MsRXkHXDAZDVaArZrURnSHvUuPWDBaMVsoObYGpA0g7/JgH8beZLahTEKBBBOJlUIpBVGo+yidDtdXQr0ddk89yWEoMEVYBug8kh+wQLwAKSCCsxBNOIh9pEuVHlujw92Ja7Lc0ZlxCrIsnKNaq9XojDo9rKQV8Ol0FrUGi68Q8WU6uVMh0mvkOrlYgWIOwBmQSpQmk9YG
+cwFSsLCq9aitJ2fmtk2NXwUWe3cPajV6VNkatRlXhPgDOZlMCUuDvCWVKrb8pQ0xJhIqke23olqHdcbkpTIFSlUAIZMrJFIEkKK+vJg/OtiBubEcgTgig6iNbFLUmupeCDvoGBNAQWbBZfFmwAEvCHhxHQwUQQrJE8J4q3VQIbwH7wQQW7DaYDS0WBOjxQB5sXeZzW69wYr1EEkwda1cZFbLLXIJUq5Fp9HjEg6rW8CRQgFRkqBaAaYAl/10/uqNbcG5if/x3/8NWchudTjsncAC0MIOaRBsbLRpkb0AClCUSlSoahApiF6MFXWe2YKwN7GZ2IbqiGUK2IGkCPsAUWS54u7CO2EiWEOB3AZXyJbtLpFQBnuGiN2qlDS4ODpQwMyxxYn1RIN9qCw6mAQSsCpodSjVOsCB02EZcboBvtvM1qYudw9GjoWE0wFtpXIFsojV2CMVIqjZ0DbojHoECJKjyd3dOeBydWJV0IEFwL04fG1bYG7yz3/6n309fbDrBw8ch1mC1GMcWHNEBww/tNpigXQbEEEyKUjpRJi4XN0HDh7xdHRviWJ3/8Du3r5BcAEQYBp1K4V7YIVRXG3VV3DTrECCAnDQ9cljMh53N44ADug5TgGPAN/W3fU4BXOuo2OF8kFDnZ2ezj5cFpYRjJDLQDnEo0cJgwhPrTLz+UjgLhgTlUqP8SMNy6UWjQrvVINHDodLqdTKpGAatLQLTMTCYBi4GvLI5Ws3t8XDgb/8+U+wR2aU/QabxQKdZ783ZXPYtzy/ecvVgBEaFALQC5ezh01vZqfNDjXsR7GMNent273/wFGc2NTMQXbo6OzFfAANsmad85ik093JLoXZWU/sCDpIF+DAr6i4MCbgiFNweh0UdvFRk9tc2NEYbOhylVEq1yG/IEkjv5pNLpAUmRJnQVa1WoSwR693azQQZj3I4nT26jQupdxks7oBOjiO5ID5A0HAYQKmJju4CV1DCrty/da2SMDfsGPH/r0H
+MT5kLKhRb98u1CVKtUKvMwAIaJpOyz78wEtgR2/PHlBDLEaNroezhPPHAiJEsXZ8gRRBi/iCuYRA4HhP7y5ggR0MF8ECyrD3trr6egcxDgEfmqF1OjpghAENFrxOK2xxCnCEMUfHQJHcDRY38pRYghSGIaEwsSOcYcmQPlBNwF1KJDqdDnnUZbV2IQ3hHIXCKBEbUd1hkeA4hCIJsgnGYzDYFQpEqwULjPv29u6Crt8YmdgW8vk5re3dnb3wMDarB84Uyg+DYLai1NepVch8UhYL8EVl4HHFRgOqXatWYxEKURFgKeBeVDKZtr1dBBtiMDgcDpQednR2PVFesU8TDHWvCVFCRKADCEAAlkI4MRoELTDCG8ACOFTwAmfVo6y+Dy+n0TvkKpNCaVKrLTweiGrSa+1qpbmzsx+Fv0ZjFYthqx1SKd7A+mAzW7Y4VCqH1d7TP7AXyPb09nO4AtzCaHLI5TrckQ0QFHp2N5crGr56c1ssHGltau10d7scnZ3s0/cuuE+M1GQxYLnd7g4NCja4CAu4jWLGhgUxGhwSiVYkUkGr1HWtZS2A1cCa7D4tXIbOBDNXxwJsx7aeWViBtkBuPOAgtgACjABpAQoiBRQAajirjiNcBvgFGcLoLY4epcam0QMXjxYQqK16rcNq6lTKTJ2dA3AiGrUNKBj0nVIJMr0b73E6u+DftVq3Tu/ErS1WVt21yMq4tQMvdeKOWBXoFGoiDI+NkRSREAtFPV39GJnL2QULgATpdDttDgveCL5iEhim2WzT69knH6APqnuV0iARY1kxDayzWSFH7aSRyaApSqvVjZIckwHPdVhzm2vX4H7oMRYKDq+zoxfqgDDBINCxLOigBq6M8hRYwFMAPpAWqglMYZmxbhZXF6sXaqNYqtGiJlRvWWEZJJN9wIv3w6dCNbVah0ppVSgAhw0pHEd0Wo9KxfoRjMdowowAB+aEkt+59dm9GSsB86ZQaE6fu/i/AftvOgwNPdxU
+AAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="image006">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAALUAAAAsCAMAAAFj4zmGAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAJqUExURf////39/c3Nze7u7uLi4nFxcfn5+f7+/oiIiE9PT0xMTDs7O+3t7eXl5Tw8PDU1NZ+fn9vb2zc3NzY2NkFBQfPz8+vr60BAQGtra9nZ2bCwsGVlZZ6enqGhobq6ujg4OM/Pz/v7++Hh4TQ0NJubm2xsbFFRUfLy8ouLi5ycnLGxsWpqakVFRXx8fOPj45iYmEpKSpKSkpWVlcjIyMPDw+Tk5JeXl2NjY1JSUlNTU2BgYH5+fqSkpMvLy+zs7EhISJmZmU5OTj4+Pqenp42Njampqaampnl5eefn58nJybKysnV1dW5ubo6OjpaWln19fWFhYXZ2dlZWVubm5qioqEJCQltbW/z8/Do6OnR0dFhYWNXV1bOzs0ZGRvHx8Xt7e21tbWlpacbGxtDQ0FdXV1VVVfX19WZmZkRERO/v71RUVJqammdnZ/f39729vdHR0dfX14KCgpCQkMzMzFpaWt3d3YWFhcrKyl1dXbi4uODg4GhoaNTU1KOjo0lJSWJiYkNDQz8/P9bW1pGRkYaGhqysrI+Pj5OTk7y8vLu7u/b29sLCwpSUlLS0tH9/f9ra2oGBgYeHh+jo6GRkZIqKind3d4mJiW9vb/Dw8MTExDk5OVBQUMfHx3Nzc7+/v+rq6np6ere3t4ODgzIyMqCgoKWlpdjY2EdHR8XFxfr6+k1NTTMzM7m5uXBwcK+vr3JyctPT052dnfj4+EtLS+np6dzc3D09PcHBwa6urvT09MDAwNLS0l5eXqKiot/f387Ozqurq97e3qqqqlxcXICAgF9fX3h4eIyMjFlZWYSEhL6+vq2trbW1tQAAAFqdpgAAAADOdFJOU///////////////////////////////////////////////////////////////////
+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8AVQahbAAAAAlwSFlzAAAXEQAAFxEByibzPwAABb5JREFUWEftWVuO5CoMReKHZbEZBP8Ri2ABrKA+2QUru+cck1RSqurHqHvmttRnuhKextjGdhj3eYy+CleMlgaeLozuveuVbSGgBdAAr+efw6g8ARbpp86kZxkV6w6XXXEtzxDGyLdJdiL5SeCmzpHDiGAbFN7E51jnsm/iQi5z/Gq5d2zrTdiGBAlzjDKwE0kkck7lcJ9Q4cLJpTjdUhInjMZSBhk0QhITw+vWMGg630EpV5T/At4RywN2obxCXG9hl7nk8Qyn0ZsrvUnlZ4YuVn0fLYHDZCigAbnhUeqNzFV0yO58dNW7URqMbowbBpvFN5wB8mW8QS0kAdophqbVOBAoWQuSnv4V7CEeo2kJGABEki8szYLWGCo0WME41brFgHd1tbspff//UN5R6J+jujwu5vCFgNI30+eOmlM/n893UF6zNknYVGrQOqbtK16tl57RBtkB8xmjetrXEjuqVnBBk2A8fIcRGgzG25Y2F8x6Zm+iXekg0O4Dyci2ASxMYyQWdXhb8J0xBZ0wZbzRI9eDSgA7IoeyzACVjfvEe/fdXeRAdrMSsGgDBVwU+TejDWb5g2pqBG2uy06RAk06O6IfpzovkgA5X/6OIqmQP8SV0Wa00TZHg19ulbpLcBUeHduYfhZEv4QJvrl88RigU+EFfvG38OyUfBFkRd+CepzBr8bE+V7FL0blEV3n6Q/xKr+KYPk4i4ZYUvz4MXrwzCc0pqmXXpYfz+ybeClPuCjQv3PZ
+tb8nBvkyED8nHTPdKHrT4e6TBP/EaF4zt95n0OPRwRaVljYkIWELXMB7H7gu8sWGvSGfAJqzTMn5EOgE2c7BmwUPsEtwEv6sSCDbFnH4elg8vGjcEApqHfg0AIdzwKNil/GGMRGEFAPgVunimZSjZuQYVJBlCbsNoioqiiiMAg1luW4IUPvXD8Lnm4/jLZ0pKBJI5hQN8Md2YZAlUFukN1Rt3wwKePCXpgvaHknGEJk9rzFGGNhLRR1mKyjO4hUjSRpVIw2r5Js/xLmufaKiPisSs1B5gIKwqRSw7GG4DYWD9M41clJN5w9cU1Cq7CmJ6sDS4w6j6TJNGjKD19oGpkvWlM/ILSIKBkREkYDasF/vE7/9KHjWSUHYEHtNyuhebbWnJBG2jrjpwpzVz0lTw+cJvxsD0mrU42Q223ozHxK5wyjTO+Dr9l1O9Rf/CNtuJz8JYR2bHwU4w0v8/QnwzsOZfCaU/w9Az9XoXOFEfwwm46+k/c/EXWPZM5aPAgFSH5kMlOVFbJijIOgws/iOjSEmIU6vygehGMyzSHE/zbe32+5h/HepI33eGySwLXbz+SbjjpP6mJ99AMxaPoX0UVn7SG71EcZLEqYqlvqk+GAnyFk+pT/Y2ntZyGNM+5isqzgWyJDOYuCHz8L9W4GgQRdl6Au+pwwKkqif6eYbCZid4YOA5WFmFUvGpqUr3/JoyOaAw85mST1Axft1lu+FdduDDyOKM2NGxSPp01nEF0GyZut78IPMEQFdMlEy7IRmwLavEG1We5Y3QtMh62j8ZrHJM8eLUSlDE9ptN711Y97XRJCubkIUhRN5UQtwvztzBGccV1EHHrVcOUTL8BoNWFeRWMJ2CK7EzNHgKtJmIK7t7NYL8XDJtpoB6wkjdYOpo58P/1XUBM4iHeCqLTw5UTgAkglWzKUvtZ651k7vXANboI1cuV6iPTFldv3otfOlDrIPmOuz7MT4WgDId6kn7cU0vjPxBtfztszvqaxh
+lVIFYD04EnuDcJE1IK+xpE1OYTNXSZ+H86LQYN/amCzir7hGhxyp9zdTDTTP125Su6x5Mm0CtrEOwCXOPXIN4EQfMI73p+5lT+DA0LYJRZsoICQg8n/QthowjTc0VjBPwwE3rKj0ZnRsEx+LEXQKLxSsQKU1O2EFh71kbh0eCCV+ClYXdY6e2CmOS8j7dXPB8LlU+4tf/Cg49x8hVYhTNimphQAAAABJRU5ErkJggg==</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="sntndr">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAHQAAAAcCAIAAAA/XwxHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAg3SURBVGhD7dn3j5fFFgbw+z+BlA0thCItECB0RDpID72DokJUei9GpdfQlVAkgKjIEhu9Q+gdQaTfz+55ee+XbSwgCcnd54fNnJkzZ2aeOXPOeb/7n6cleGMoLrlPnjx5/PhxIpSgeCguuXv37j1//nwilKB4KBa5d+/ebd++/eXLlxO5BMVDscj9/fff33nnnd27dydyCYqHYpGLVuS2aNHi4cOHSVcJioEXkCvOXrhw4eLFi2XLlsXvxIkTk4ESFANFkatCGDVqlFSmMWzYsDJlyuB3x44dyfD/AW7fvn369OlEeHkURe5ff/2VlZW1du1a7atXr9aqVQu/1atXf4XMpozj/oy4J0h631bYod1+88039evXnzlzZtL78iiK3LNnz3LVxo0b37t3j5idnS044Ldbt26PHj0KnRfCRr/++uuePXsOHDiwd+/eTZo0GTRo0M8//5wMv5Ww52+//VaB5PgLFixIel8eRZHrUVStWtUCH374YbibyyRCMYODWUOGDGnZsuWpU6eI9+/f3759u+mffvppKLydiMNeu3atdOnSPCM6XwEviLljx44NNtevXx89Xbp0IU6ePDl0isauXbvsL5hNMXXqVLeVCK+HO3fuiFHBxb+IMCiT2zx/is5XQAHkMn3jxo0I5Ldu3apXr55QUKlSpeDo+PHjgkO/fv0MvfBU48ePtz8ukMi5UDW/zlvLxCeffLJ58+ZE+LfxCuTmIeQ5co15toJjtWrVBAQU6/zll1+QC++9996DBw/otG3blvPWqFGD5rZt24qIv3PmzKHJVTNX1c4UA/l78iC/woYNGxj/448/Evl5pPqZEwvsLAzyeWHkFj09HU3IJUsybdq0sV1Apb9pqJ09e3b0z5o1
+S0/Xrl2D7uhs1arVDz/8UOB63L9ChQp0hg8ffuTIkQJ1/v777/nz58tyovOhQ4eS3txHI96dO3cOfR5Kp06dhCYW4J9//pk3b56T20OfPn347+jRo48ePWqW0T179ohmUuiSJUvSH5uif+XKleL+jBkzJCuzrly5EqMBOuKYuR/lIjwj85H5hrLVjz/+eOjQoUr+9EXGRHnIZ0Hfvn0l/JMnT+rPIdfY8uXLGUr5SsE7QkGoNdqoUSMWa9asmQznIma5YWo5Sz0PX3e1a9cOTQz+9ttvmWoY79Chw5o1aw4ePNi6dWvB59KlS/rdVtOmTU1xkhEjRnz55ZcDBgzA5rJly4zyqe+++06RRMEhTV+9erWNeUMTJkxQkh84cGDFihX0EUTfPY0ZM4boIxN3X3zxBS9x6wohUTtnH7ln9MI6duwYP1FxtQ8++ID9RYsWhcLdu3d5lYs5c+aMbat86tSp43HD4MGDGfe3R48emH333Xe3bt1qSg658dNBfmb1OG1cAg/SVuqmKS4TMTcs5oflOZolQxkdKb+81SFDxIjRyJymqK+Jn332WYz6a+vildCUM/PZtjPDgmOXKlXq+++/16b//vvvSxgapgigqBTr4jjw66+/mr5x48YQxTcHTLmG69evoyzCAiPuzAXHEOixc3dmijdhY8Q///zTkLuPT4Ecck2zTGHgUPGTggib/wIy4a1ZkmaBsOTChQurVKlC86uvvopOAT29khMnThjyhkL0zInBVID/Oq0vkRB/+uknCg4WIjgnh0VKiJzLjaZb8vhU2alImTXeqq2zWbNmnkjm/jMTGrKs1atXL/oeB2gwjpyY4hZ5feZ0yCG3c+fOZhYBb8G0zz//PJELQcOGDfNYzw8M+saTDMW+pOvpUzHBOxWtGFm1alV0ir9Ezz9EiDgbcQPykxsQkbm/F+bA4li6JeRmimIFa5MmTdJGNFPTp0+PoUAmuZyAAh48FC8m4Cx0Qtmb5tcFkGvT
+ZhYG3srd7JgjJF2FQFYJoykEE/kqEZ5hypQplG/evKktugnEsGXLlsOHD+uXc0LtheT++OOPFBw7RHC2pUuX8iAZ2PP31IT7osmNgl2bKTEqk50gVwbT3r9/PwUeEEP5gVxZtwByhWofUSYX9uorVqwokwhJiZwPJrLuezyMplDnYi0RnmHu3Lk8Vx6Xf8TBdu3aRb/czZTUFGJwXQS5Mg+FzLhBmUIEPkCWXaUHlo4sVyC5NoN3ETk+9AOun4JQps23RNUGDRrkoS+FWyyYXJBq1TRBU36Ks7KyKleunL8/VUZQmigyYetimZ0lcu6RhIXYschQvnx51YI9gbfMlLcZl8QgMc1O/ga5ac4RfK0u0Mt+vIxzxRPMzs6mz0jz5s3x5fHyHvqiX2bgkuVYmzZtWohKDnPVWHZLx2hUUP3795f6iFIfURhJLbgSKTTaDpWZ7gIJuWDOpk2b0GRJViCIi0YgFaMBCiabKOw7QqXJmgtX0EjHOEWlsBD78zf4ouBqRUlc1K9f3zZENH7HvljkbDSxHMWZ+kElFPbFEJ+L5cqVM4RTvl+3bl0GOenIkSPlH20J/ezZs5FLPT5bslua7LDmAtatW6fHEkIqfYVm9+7dlcmumUvJWp5aMO75MiKJjRs3Tk5TJvo+lOsUhTgR4qMSj73B/8gNGHMwwcU9s5vyaNVogFviLyoqKaXo/00IuKhZvHixjSo5bS6Pg1tu3759rsei2pSjsFcqCKnCrnx17Nix2BVNPUpgZKXTtbGT/nzhCarNxQcP3LuOstoTUeQLF6DuRiVnZ4c1K1oinIMmT+TCDMZ/Y+0hckMKpQjjviyCVj1W3Llzp5xsrfjtOzQhL7kpKCmevCkewWvY8lf2OH78uPWMZlopQYEolNwSvD5KyH2DKCH3jeHp0/8Cp5roQN/bYTYAAAAASUVORK5CYII=</ImageData>
+    </EmbeddedImage>
+  </EmbeddedImages>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>9e79012a-f197-4df4-8577-390bbdb5c026</rd:ReportID>
 </Report>

Empresas/141/Formatos/Factura.rdlc

@@ -346,8 +346,9 @@
                 <Value>=Parameters!QR.Value</Value>
                 <Sizing>FitProportional</Sizing>
                 <Top>0.04167in</Top>
+                <Left>0.04352in</Left>
                 <Height>1.37377in</Height>
-                <Width>1.7524in</Width>
+                <Width>1.73969in</Width>
                 <Style>
                   <Border>
                     <Style>None</Style>
@@ -489,7 +490,7 @@
                 </Paragraphs>
                 <rd:DefaultName>Textbox88</rd:DefaultName>
                 <Top>0.07057cm</Top>
-                <Left>4.6275cm</Left>
+                <Left>4.54701cm</Left>
                 <Height>2.25463cm</Height>
                 <Width>16.27211cm</Width>
                 <ZIndex>1</ZIndex>
@@ -506,9 +507,9 @@
             </ReportItems>
             <KeepTogether>true</KeepTogether>
             <Top>6.61175in</Top>
-            <Left>0.06752in</Left>
+            <Left>0.09419in</Left>
             <Height>1.42169in</Height>
-            <Width>8.23953in</Width>
+            <Width>8.20784in</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -519,34 +520,34 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>0.54014in</Width>
+                  <Width>0.5387in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.59111in</Width>
+                  <Width>0.58967in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.80359in</Width>
+                  <Width>0.80215in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.66404in</Width>
+                  <Width>0.64011in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.11562in</Width>
+                  <Width>2.06124in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.6863in</Width>
+                  <Width>0.68486in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.69852in</Width>
+                  <Width>0.69708in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.6403in</Width>
+                  <Width>0.63886in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.67895in</Width>
+                  <Width>0.67751in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.80447in</Width>
+                  <Width>0.80303in</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -1384,9 +1385,9 @@
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
             <Top>1.75278in</Top>
-            <Left>0.09836in</Left>
+            <Left>0.13771in</Left>
             <Height>0.36206in</Height>
-            <Width>8.22304in</Width>
+            <Width>8.13325in</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -1410,9 +1411,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
             <Top>9.07761cm</Top>
-            <Left>0.28014cm</Left>
+            <Left>0.34979cm</Left>
             <Height>0.05496cm</Height>
-            <Width>20.88652cm</Width>
+            <Width>20.64332cm</Width>
             <ZIndex>2</ZIndex>
             <Style>
               <Border>
@@ -1472,7 +1473,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
             <Top>9.21872cm</Top>
-            <Left>1.10521cm</Left>
+            <Left>1.04171cm</Left>
             <Height>0.47226cm</Height>
             <Width>12.31061cm</Width>
             <ZIndex>3</ZIndex>
@@ -1491,7 +1492,7 @@
             <Value>ID2</Value>
             <Sizing>FitProportional</Sizing>
             <Top>0.15875cm</Top>
-            <Left>1.15361cm</Left>
+            <Left>1.09011cm</Left>
             <Height>2.2881cm</Height>
             <Width>2.75323cm</Width>
             <ZIndex>4</ZIndex>
@@ -1571,7 +1572,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Left>4.32565cm</Left>
+            <Left>4.26215cm</Left>
             <Height>1.93cm</Height>
             <Width>7.93893cm</Width>
             <ZIndex>5</ZIndex>
@@ -1651,7 +1652,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Left>12.68838cm</Left>
+            <Left>12.62488cm</Left>
             <Height>2.55125cm</Height>
             <Width>5.11312cm</Width>
             <ZIndex>6</ZIndex>
@@ -1685,7 +1686,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
-            <Left>18.23008cm</Left>
+            <Left>18.13483cm</Left>
             <Height>0.96018cm</Height>
             <Width>2.79101cm</Width>
             <ZIndex>7</ZIndex>
@@ -1721,7 +1722,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
             <Top>0.97782cm</Top>
-            <Left>18.23008cm</Left>
+            <Left>18.13483cm</Left>
             <Height>0.6cm</Height>
             <Width>2.79101cm</Width>
             <ZIndex>8</ZIndex>
@@ -1772,7 +1773,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
             <Top>1.57782cm</Top>
-            <Left>18.23008cm</Left>
+            <Left>18.13483cm</Left>
             <Height>0.86903cm</Height>
             <Width>2.79101cm</Width>
             <ZIndex>9</ZIndex>
@@ -1862,10 +1863,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Top>2.47332cm</Top>
+            <Top>2.4839cm</Top>
-            <Left>0.28014cm</Left>
+            <Left>0.34979cm</Left>
             <Height>1.09007cm</Height>
-            <Width>9.71199cm</Width>
+            <Width>9.64071cm</Width>
             <ZIndex>10</ZIndex>
             <Style>
               <Border>
@@ -1940,9 +1941,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>2.45319cm</Top>
-            <Left>10.09281cm</Left>
+            <Left>10.06106cm</Left>
             <Height>1.12078cm</Height>
-            <Width>10.9783cm</Width>
+            <Width>10.82019cm</Width>
             <ZIndex>11</ZIndex>
             <Style>
               <Border>
@@ -2140,9 +2141,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>3.56339cm</Top>
-            <Left>0.25136cm</Left>
+            <Left>0.34979cm</Left>
             <Height>0.74611cm</Height>
-            <Width>13.82025cm</Width>
+            <Width>13.69007cm</Width>
             <ZIndex>12</ZIndex>
             <Style>
               <Border>
@@ -2173,7 +2174,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox32</rd:DefaultName>
             <Top>3.64071cm</Top>
-            <Left>14.07729cm</Left>
+            <Left>14.04554cm</Left>
             <Height>0.57354cm</Height>
             <Width>2.90753cm</Width>
             <ZIndex>13</ZIndex>
@@ -2211,7 +2212,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>5.4306cm</Top>
-            <Left>1.74571cm</Left>
+            <Left>1.68221cm</Left>
             <Height>1.05328cm</Height>
             <Width>17.71415cm</Width>
             <ZIndex>14</ZIndex>
@@ -2244,7 +2245,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
             <Top>14.04286cm</Top>
-            <Left>0.30274cm</Left>
+            <Left>0.23924cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
             <ZIndex>15</ZIndex>
@@ -2298,9 +2299,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox32</rd:DefaultName>
             <Top>3.57397cm</Top>
-            <Left>17.11694cm</Left>
+            <Left>17.05344cm</Left>
             <Height>0.64028cm</Height>
-            <Width>3.90165cm</Width>
+            <Width>3.82781cm</Width>
             <ZIndex>16</ZIndex>
             <Style>
               <Border>
@@ -2465,9 +2466,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>14.20365cm</Top>
-            <Left>0.21674cm</Left>
+            <Left>0.23068cm</Left>
             <Height>2.44366cm</Height>
-            <Width>15.51057cm</Width>
+            <Width>15.43864cm</Width>
             <ZIndex>17</ZIndex>
             <Style>
               <Border>
@@ -2500,7 +2501,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>5.5781in</Top>
-            <Left>6.237in</Left>
+            <Left>6.212in</Left>
             <Height>0.17608in</Height>
             <Width>0.94607in</Width>
             <ZIndex>18</ZIndex>
@@ -2535,7 +2536,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>5.73307in</Top>
-            <Left>6.23699in</Left>
+            <Left>6.21199in</Left>
             <Height>0.17608in</Height>
             <Width>0.94607in</Width>
             <ZIndex>19</ZIndex>
@@ -2570,7 +2571,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>5.89456in</Top>
-            <Left>6.23699in</Left>
+            <Left>6.21199in</Left>
             <Height>0.17608in</Height>
             <Width>0.94607in</Width>
             <ZIndex>20</ZIndex>
@@ -2605,7 +2606,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>6.06331in</Top>
-            <Left>6.24741in</Left>
+            <Left>6.22241in</Left>
             <Height>0.17608in</Height>
             <Width>0.94607in</Width>
             <ZIndex>21</ZIndex>
@@ -2641,7 +2642,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>6.22894in</Top>
-            <Left>6.25783in</Left>
+            <Left>6.23283in</Left>
             <Height>0.19596in</Height>
             <Width>0.94607in</Width>
             <ZIndex>22</ZIndex>
@@ -2677,7 +2678,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
             <Top>5.5781in</Top>
-            <Left>7.18307in</Left>
+            <Left>7.15807in</Left>
             <Height>0.17608in</Height>
             <Width>0.98426in</Width>
             <ZIndex>23</ZIndex>
@@ -2712,7 +2713,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
             <Top>5.73307in</Top>
-            <Left>7.18307in</Left>
+            <Left>7.15807in</Left>
             <Height>0.17608in</Height>
             <Width>0.98425in</Width>
             <ZIndex>24</ZIndex>
@@ -2747,7 +2748,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
             <Top>5.89456in</Top>
-            <Left>7.19349in</Left>
+            <Left>7.16849in</Left>
             <Height>0.17608in</Height>
             <Width>0.98425in</Width>
             <ZIndex>25</ZIndex>
@@ -2783,7 +2784,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
             <Top>6.06331in</Top>
-            <Left>7.19349in</Left>
+            <Left>7.16849in</Left>
             <Height>0.17608in</Height>
             <Width>0.98425in</Width>
             <ZIndex>26</ZIndex>
@@ -2819,7 +2820,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
             <Top>6.22894in</Top>
-            <Left>7.20391in</Left>
+            <Left>7.17891in</Left>
             <Height>0.19596in</Height>
             <Width>0.98425in</Width>
             <ZIndex>27</ZIndex>
@@ -2854,7 +2855,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox90</rd:DefaultName>
             <Top>1.77125cm</Top>
-            <Left>7.90108cm</Left>
+            <Left>7.83758cm</Left>
             <Height>0.78cm</Height>
             <Width>4.3635cm</Width>
             <ZIndex>28</ZIndex>
@@ -2884,9 +2885,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
             <Top>16.71787cm</Top>
-            <Left>0.1587cm</Left>
+            <Left>0.23924cm</Left>
             <Height>0.05496cm</Height>
-            <Width>20.88652cm</Width>
+            <Width>20.75387cm</Width>
             <ZIndex>29</ZIndex>
             <Style>
               <Border>
@@ -2931,7 +2932,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>6.48388cm</Top>
-            <Left>1.15361cm</Left>
+            <Left>1.05836cm</Left>
             <Height>1.32415cm</Height>
             <Width>19.15078cm</Width>
             <ZIndex>30</ZIndex>
@@ -2964,9 +2965,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
             <Top>20.40466cm</Top>
-            <Left>0.15401cm</Left>
+            <Left>0.25268cm</Left>
             <Height>0.05496cm</Height>
-            <Width>20.88652cm</Width>
+            <Width>20.6857cm</Width>
             <ZIndex>31</ZIndex>
             <Style>
               <Border>
@@ -3004,7 +3005,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox15</rd:DefaultName>
             <Top>7.98442cm</Top>
-            <Left>1.15361cm</Left>
+            <Left>1.04171cm</Left>
             <Height>1.05791cm</Height>
             <Width>19.15078cm</Width>
             <ZIndex>32</ZIndex>
@@ -3504,9 +3505,9 @@
             </ReportItems>
             <KeepTogether>true</KeepTogether>
             <Top>20.4949cm</Top>
-            <Left>0.16383cm</Left>
+            <Left>0.15875cm</Left>
             <Height>2.26835cm</Height>
-            <Width>20.89818cm</Width>
+            <Width>20.98078cm</Width>
             <ZIndex>33</ZIndex>
             <Visibility>
               <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
@@ -3556,7 +3557,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
             <Top>9.14816cm</Top>
-            <Left>13.59221cm</Left>
+            <Left>13.52871cm</Left>
             <Height>0.54281cm</Height>
             <Width>7.38429cm</Width>
             <ZIndex>34</ZIndex>
@@ -3578,9 +3579,9 @@
             <Value>logoLlantas21</Value>
             <Sizing>FitProportional</Sizing>
             <Top>13.24423cm</Top>
-            <Left>0.25908cm</Left>
+            <Left>0.34979cm</Left>
             <Height>0.85359cm</Height>
-            <Width>20.86494cm</Width>
+            <Width>20.65846cm</Width>
             <ZIndex>35</ZIndex>
             <Style>
               <Border>
@@ -3613,9 +3614,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>9.73684cm</Top>
-            <Left>0.20617cm</Left>
+            <Left>0.23924cm</Left>
             <Height>0.44183cm</Height>
-            <Width>20.83436cm</Width>
+            <Width>20.69914cm</Width>
             <ZIndex>36</ZIndex>
             <Style>
               <Border>
@@ -3651,7 +3652,7 @@
                 </Paragraphs>
                 <rd:DefaultName>Textbox60</rd:DefaultName>
                 <Top>0cm</Top>
-                <Left>0.01593cm</Left>
+                <Left>0cm</Left>
                 <Height>0.58237cm</Height>
                 <Width>20.96485cm</Width>
                 <Style>
@@ -3707,7 +3708,7 @@
                 </Paragraphs>
                 <rd:DefaultName>Textbox60</rd:DefaultName>
                 <Top>0cm</Top>
-                <Left>0.0506cm</Left>
+                <Left>0.16167cm</Left>
                 <Height>1.49135cm</Height>
                 <Width>5.37042cm</Width>
                 <ZIndex>1</ZIndex>
@@ -3800,7 +3801,7 @@
                 </Paragraphs>
                 <rd:DefaultName>Textbox60</rd:DefaultName>
                 <Top>0.6882cm</Top>
-                <Left>7.25125cm</Left>
+                <Left>7.23532cm</Left>
                 <Height>1.98084cm</Height>
                 <Width>6.56105cm</Width>
                 <ZIndex>2</ZIndex>
@@ -3839,7 +3840,7 @@
                 </Paragraphs>
                 <rd:DefaultName>Textbox60</rd:DefaultName>
                 <Top>0cm</Top>
-                <Left>14.64769cm</Left>
+                <Left>14.50476cm</Left>
                 <Height>1.46939cm</Height>
                 <Width>6.32076cm</Width>
                 <ZIndex>3</ZIndex>
@@ -3859,7 +3860,7 @@
                 <MIMEType>image/png</MIMEType>
                 <Sizing>FitProportional</Sizing>
                 <Top>0.43341in</Top>
-                <Left>6.67293in</Left>
+                <Left>6.61666in</Left>
                 <Height>0.6035in</Height>
                 <Width>0.78275in</Width>
                 <ZIndex>4</ZIndex>
@@ -3874,7 +3875,7 @@
                 <Value>ID3</Value>
                 <Sizing>FitProportional</Sizing>
                 <Top>1.7033cm</Top>
-                <Left>0.09579cm</Left>
+                <Left>0.17511cm</Left>
                 <Height>0.93046cm</Height>
                 <Width>5.37042cm</Width>
                 <ZIndex>5</ZIndex>
@@ -3887,9 +3888,9 @@
             </ReportItems>
             <KeepTogether>true</KeepTogether>
             <Top>10.24923cm</Top>
-            <Left>0.15557cm</Left>
+            <Left>0.17468cm</Left>
             <Height>2.92445cm</Height>
-            <Width>20.98078cm</Width>
+            <Width>20.96485cm</Width>
             <ZIndex>37</ZIndex>
             <Style>
               <Border>
@@ -3898,10 +3899,10 @@
             </Style>
           </Rectangle>
         </ReportItems>
-        <Height>22.76324cm</Height>
+        <Height>22.76325cm</Height>
         <Style />
       </Body>
-      <Width>21.18926cm</Width>
+      <Width>21.13953cm</Width>
       <Page>
         <PageFooter>
           <Height>0.52387cm</Height>
@@ -3939,8 +3940,8 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>0.00882cm</Top>
+              <Top>0.00881cm</Top>
-              <Left>0.12568cm</Left>
+              <Left>0.25268cm</Left>
               <Height>0.46771cm</Height>
               <Width>6.86562cm</Width>
               <Style>
@@ -3984,8 +3985,8 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>0.01927cm</Top>
+              <Top>0.01926cm</Top>
-              <Left>9.07541cm</Left>
+              <Left>9.20241cm</Left>
               <Height>0.46771cm</Height>
               <Width>6.86562cm</Width>
               <ZIndex>1</ZIndex>
@@ -4020,8 +4021,8 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox35</rd:DefaultName>
-              <Top>0.00882cm</Top>
+              <Top>0.00881cm</Top>
-              <Left>18.54098cm</Left>
+              <Left>18.57273cm</Left>
               <Height>0.50624cm</Height>
               <Width>2.5cm</Width>
               <ZIndex>2</ZIndex>
@@ -4044,8 +4045,8 @@
         </PageFooter>
         <PageHeight>27.94cm</PageHeight>
         <PageWidth>21.59cm</PageWidth>
-        <LeftMargin>0cm</LeftMargin>
+        <LeftMargin>0.2cm</LeftMargin>
-        <RightMargin>0cm</RightMargin>
+        <RightMargin>0.24cm</RightMargin>
         <TopMargin>0.5cm</TopMargin>
         <BottomMargin>0.5cm</BottomMargin>
         <ColumnSpacing>1.27cm</ColumnSpacing>

Empresas/76/Formatos/Factura.rdlc

@@ -250,7 +250,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>0.90692in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
             <Height>0.5cm</Height>
             <Width>2.2in</Width>
             <Style>
@@ -314,7 +314,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>0.45372in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
             <Height>0.5cm</Height>
             <Width>2.2in</Width>
             <ZIndex>1</ZIndex>
@@ -365,7 +365,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>0.21413in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
             <Height>0.60856cm</Height>
             <Width>2.2in</Width>
             <ZIndex>2</ZIndex>
@@ -415,7 +415,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>0.01474cm</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
             <Height>0.5cm</Height>
             <Width>2.2in</Width>
             <ZIndex>3</ZIndex>
@@ -481,7 +481,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Left>1.77389in</Left>
+            <Left>1.77822in</Left>
             <Height>0.51102in</Height>
             <Width>3.9084in</Width>
             <ZIndex>4</ZIndex>
@@ -500,7 +500,7 @@
             <Value>LOGO</Value>
             <Sizing>FitProportional</Sizing>
             <Top>0.19995cm</Top>
-            <Left>0.13893cm</Left>
+            <Left>0.14992cm</Left>
             <Height>2.11686cm</Height>
             <Width>5.69451cm</Width>
             <ZIndex>5</ZIndex>
@@ -531,7 +531,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>0.66099in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
             <Height>0.25114in</Height>
             <Width>2.2in</Width>
             <ZIndex>6</ZIndex>
@@ -583,7 +583,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>1.10364in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
             <Height>0.25635in</Height>
             <Width>2.2in</Width>
             <ZIndex>7</ZIndex>
@@ -658,7 +658,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox10</rd:DefaultName>
             <Top>0.51102in</Top>
-            <Left>1.77389in</Left>
+            <Left>1.77822in</Left>
             <Height>0.65513in</Height>
             <Width>2.01842in</Width>
             <ZIndex>8</ZIndex>
@@ -708,7 +708,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox10</rd:DefaultName>
             <Top>0.51102in</Top>
-            <Left>3.79231in</Left>
+            <Left>3.79664in</Left>
             <Height>0.65513in</Height>
             <Width>1.88998in</Width>
             <ZIndex>9</ZIndex>
@@ -737,7 +737,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.13777in</Top>
-            <Left>0.19516cm</Left>
+            <Left>0.20615cm</Left>
             <Height>0.22222in</Height>
             <Width>0.81128in</Width>
             <ZIndex>10</ZIndex>
@@ -779,7 +779,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.13777in</Top>
-            <Left>0.88811in</Left>
+            <Left>0.89244in</Left>
             <Height>0.22222in</Height>
             <Width>4.84015in</Width>
             <ZIndex>11</ZIndex>
@@ -822,7 +822,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.35478in</Top>
-            <Left>0.07683in</Left>
+            <Left>0.08116in</Left>
             <Height>0.23611in</Height>
             <Width>0.81128in</Width>
             <ZIndex>12</ZIndex>
@@ -865,7 +865,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.35999in</Top>
-            <Left>0.88811in</Left>
+            <Left>0.89244in</Left>
             <Height>0.2309in</Height>
             <Width>7.0427in</Width>
             <ZIndex>13</ZIndex>
@@ -908,7 +908,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.59089in</Top>
-            <Left>0.07683in</Left>
+            <Left>0.08116in</Left>
             <Height>0.23611in</Height>
             <Width>0.81128in</Width>
             <ZIndex>14</ZIndex>
@@ -950,7 +950,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.59089in</Top>
-            <Left>0.88811in</Left>
+            <Left>0.89244in</Left>
             <Height>0.23611in</Height>
             <Width>2.56955in</Width>
             <ZIndex>15</ZIndex>
@@ -976,389 +976,6 @@
           </Textbox>
           <Rectangle Name="Rectangle1">
             <ReportItems>
-              <Textbox Name="Textbox77">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>P A G A R E con Folio </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Serie.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>-</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Folio.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VALPA SUPERVISIONES SA DE CV, a su vencimiento  el  </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Vencimiento.Value</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>, en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Total.Value</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value> SON: ( </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value)</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value> ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a VALPA SUPERVISIONES SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a  </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy")</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value xml:space="preserve"> </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value />
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value xml:space="preserve">  </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>ARIAL</FontFamily>
-                          <FontSize>7pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox75</rd:DefaultName>
-                <Top>0.18503in</Top>
-                <Left>0.06904in</Left>
-                <Height>0.64213in</Height>
-                <Width>7.82181in</Width>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox64">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>Nombre:</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox64</rd:DefaultName>
-                <Top>0.82716in</Top>
-                <Left>0.12614cm</Left>
-                <Height>0.25in</Height>
-                <Width>0.6875in</Width>
-                <ZIndex>1</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox65">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>Dirección:</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox64</rd:DefaultName>
-                <Top>1.07716in</Top>
-                <Left>0.12614cm</Left>
-                <Height>0.26414in</Height>
-                <Width>0.6875in</Width>
-                <ZIndex>2</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox66">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>=Parameters!ClienteNombre.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox66</rd:DefaultName>
-                <Top>0.82716in</Top>
-                <Left>0.76004in</Left>
-                <Height>0.25in</Height>
-                <Width>5.10049in</Width>
-                <ZIndex>3</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox67">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>=Parameters!ClienteDireccion.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox66</rd:DefaultName>
-                <Top>1.09105in</Top>
-                <Left>0.76004in</Left>
-                <Height>0.25in</Height>
-                <Width>5.10049in</Width>
-                <ZIndex>4</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox69">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>Acepto de conformidad</Value>
-                        <Style>
-                          <FontSize>8pt</FontSize>
-                          <FontWeight>Bold</FontWeight>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox69</rd:DefaultName>
-                <Top>1.2in</Top>
-                <Left>6.20737in</Left>
-                <Height>0.25in</Height>
-                <Width>1.4375in</Width>
-                <ZIndex>5</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Line Name="Line1">
-                <Top>3.15cm</Top>
-                <Left>15.1696cm</Left>
-                <Height>0cm</Height>
-                <Width>4.87315cm</Width>
-                <ZIndex>6</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>Solid</Style>
-                  </Border>
-                </Style>
-              </Line>
               <Rectangle Name="Rectangle5">
                 <ReportItems>
                   <Textbox Name="Textbox75">
@@ -1533,10 +1150,8 @@
                   </Textbox>
                 </ReportItems>
                 <KeepTogether>true</KeepTogether>
-                <Top>3.58328cm</Top>
                 <Height>1.82156cm</Height>
                 <Width>20.12951cm</Width>
-                <ZIndex>7</ZIndex>
                 <Visibility>
                   <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!TipoRelacionTexto.Value &lt;&gt; "" Or Parameters!FolioFiscalRelacionado.Value &lt;&gt; "", False, True)</Hidden>
                 </Visibility>
@@ -1573,11 +1188,11 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox5</rd:DefaultName>
-                <Top>5.54595cm</Top>
+                <Top>1.96267cm</Top>
                 <Left>15.89718cm</Left>
                 <Height>0.49387cm</Height>
                 <Width>4.14557cm</Width>
-                <ZIndex>8</ZIndex>
+                <ZIndex>1</ZIndex>
                 <Style>
                   <Border>
                     <Style>None</Style>
@@ -1590,8 +1205,8 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>17.24694cm</Top>
+            <Top>17.27869cm</Top>
-            <Height>6.03982cm</Height>
+            <Height>2.45654cm</Height>
             <Width>20.18336cm</Width>
             <ZIndex>16</ZIndex>
             <Visibility>
@@ -1602,7 +1217,7 @@
                 <Style>None</Style>
               </Border>
               <TopBorder>
-                <Style>Dotted</Style>
+                <Style>None</Style>
                 <Width>1.5pt</Width>
               </TopBorder>
             </Style>
@@ -1636,7 +1251,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.60478in</Top>
-            <Left>6.03032in</Left>
+            <Left>6.03465in</Left>
             <Height>0.22222in</Height>
             <Width>1.89794in</Width>
             <ZIndex>17</ZIndex>
@@ -2462,7 +2077,7 @@
                                 <Paragraph>
                                   <TextRuns>
                                     <TextRun>
-                                      <Value>=Parameters!Moneda.Value</Value>
+                                      <Value>=IIF(Parameters!Moneda.Value="Pesos", "Peso Mexicano",Parameters!Moneda.Value)</Value>
                                       <Style>
                                         <FontFamily>Calibri</FontFamily>
                                         <FontSize>9pt</FontSize>
@@ -2485,6 +2100,7 @@
                                 <PaddingBottom>2pt</PaddingBottom>
                               </Style>
                             </Textbox>
+                            <rd:Selected>true</rd:Selected>
                           </CellContents>
                         </TablixCell>
                       </TablixCells>
@@ -2593,7 +2209,7 @@
             </ReportItems>
             <KeepTogether>true</KeepTogether>
             <Top>6.48302cm</Top>
-            <Left>0.17537cm</Left>
+            <Left>0.18636cm</Left>
             <Height>7.01685cm</Height>
             <Width>20.00799cm</Width>
             <ZIndex>18</ZIndex>
@@ -3107,7 +2723,7 @@
             </ReportItems>
             <KeepTogether>true</KeepTogether>
             <Top>13.60571cm</Top>
-            <Left>0.17537cm</Left>
+            <Left>0.18636cm</Left>
             <Height>3.53187cm</Height>
             <Width>20.00799cm</Width>
             <ZIndex>19</ZIndex>
@@ -4522,9 +4138,9 @@
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
             <Top>4.62939cm</Top>
-            <Left>0.17537cm</Left>
+            <Left>0.18636cm</Left>
             <Height>1.75603cm</Height>
-            <Width>19.86738cm</Width>
+            <Width>19.86739cm</Width>
             <ZIndex>20</ZIndex>
             <Style>
               <Border>
@@ -4549,7 +4165,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.59089in</Top>
-            <Left>4.13348in</Left>
+            <Left>4.13781in</Left>
             <Height>0.23611in</Height>
             <Width>1.89684in</Width>
             <ZIndex>21</ZIndex>
@@ -4596,7 +4212,7 @@
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.59089in</Top>
-            <Left>3.45766in</Left>
+            <Left>3.46199in</Left>
             <Height>0.23611in</Height>
             <Width>0.642in</Width>
             <ZIndex>22</ZIndex>
@@ -4617,10 +4233,10 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>23.28676cm</Height>
+        <Height>19.73523cm</Height>
         <Style />
       </Body>
-      <Width>20.18336cm</Width>
+      <Width>20.19435cm</Width>
       <Page>
         <PageFooter>
           <Height>0.79403cm</Height>
@@ -4648,7 +4264,7 @@
               </Paragraphs>
               <rd:DefaultName>Textbox3</rd:DefaultName>
               <Top>0.03528cm</Top>
-              <Left>16.2244cm</Left>
+              <Left>16.23539cm</Left>
               <Height>0.6cm</Height>
               <Width>3.95896cm</Width>
               <Style>

Finanzas/RepRazonesFinancieras2.aspx

@@ -0,0 +1,768 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRazonesFinancieras2.aspx.vb" Inherits="Finanzas_RepRazonesFinancieras2" EnableEventValidation="false" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+ 
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Literal ID="LtTitulo" Text="Razones Financieras" runat="server" />
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Excel</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" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
+                                <div class="col-md-1 " runat="server" id="LiEjercicioDdl">
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
+                                    </asp:DropDownList>
+                                </div>
+
+                                <label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="false">Ejercicio Fin: </label>
+                                <div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="True">
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
+                                    </asp:DropDownList>
+                                </div>                                 
+                               
+                                <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                                <div class="col-md-2">
+                                    <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                                    </asp:DropDownList>
+                                </div> 
+                            </div> 
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+
+                       
+
+                    </div>
+                </div>
+
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Always">
+        <ContentTemplate>
+
+            <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
+
+                <ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General">
+                    <ContentTemplate>
+                         <asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional">
+                             <ContentTemplate>
+
+                             </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+
+                <ajax:TabPanel ID="TabEstadoResultados" runat="server" HeaderText="Estado Resultados">
+                    <ContentTemplate>
+                        <asp:UpdatePanel runat="server" ID="UpEstadoResultados" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <asp:GridView ID="GVEstadoRsultados" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GVEstadoRsultados_RowDataBound"
+                                    EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
+                                    CssClass="ADSCROLLER2  table table-striped table-advance table-hover" data-cols="2" data-heightmenos="300"
+                                    Style="text-align: center;" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="40px">
+                                            <HeaderTemplate>Codigo</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="300px">
+                                            <HeaderTemplate>Cuenta</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                    </Columns>
+                                    <RowStyle CssClass="Texto" />
+                                    <AlternatingRowStyle CssClass="TextoAlterno" />
+                                    <HeaderStyle CssClass="Titulos" />
+                                </asp:GridView>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+                <ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios">
+                    <ContentTemplate>
+                        <asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                   <asp:GridView ID="GVRatios" runat="server" AutoGenerateColumns="false" DataKeyNames="Ratio,Tipo" OnRowDataBound="GVRatios_RowDataBound"
+                                    EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
+                                    CssClass="ADSCROLLER2  table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
+                                    Style="text-align: center;" GridLines="None">
+                                    <Columns>
+                                      <%--  <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="40px">
+                                            <HeaderTemplate>Codigo</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>--%>
+
+                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="300px">
+                                            <HeaderTemplate>Ratio</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Label CssClass="truncate" ID="LblRatio" runat="server" Text='<%# Eval("Ratio") %>'></asp:Label>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                    </Columns>
+                                    <RowStyle CssClass="Texto" />
+                                    <AlternatingRowStyle CssClass="TextoAlterno" />
+                                    <HeaderStyle CssClass="Titulos" />
+                                </asp:GridView>
+
+
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+
+
+            </ajax:TabContainer>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
+
+
+
+    <div id="DivModalGrafica" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Label ID="LblTituloGrafica" CssClass="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-2"></div>
+                            <label class="col-md-1 truncate">Grafica:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlGrafica" runat="server" AppendDataBoundItems="true" Class="DdlGrafica select2me">
+                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                        <br />
+                        <div id="chartdiv"></div>
+                    </div>
+                    <div class="modal-footer">
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+    <div id="DivModalGraficaGral" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog modal-lg" style="width: 1300px" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Label CssClass="LblTituloGraficaGral" runat="server" ClientIDMode="Static" Text="">Análisis de estados de resultados</asp:Label>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-1"></div>
+                            <label class="col-md-2 truncate" style="display: inline-block; padding-top: 8px; font-weight: bold;">Seleccione el tipo de gráfica:</label>
+                            <div class="col-md-4">
+                                <asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal">
+                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Lineas" Value="2"></asp:ListItem>
+                                </asp:RadioButtonList>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-3">
+                                <div id="grafInfo"></div>
+                            </div>
+                            <div class="col-md-9">
+                                <div id="chartdivgral"></div>
+                            </div>
+                        </div>
+                        <br />
+                    </div>
+                    <div class="modal-footer">
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
+    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
+    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
+    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
+    <link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
+    <script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
+
+    <script> 
+        let cdatos;
+        let currentid = 1;
+        function HandlerGraf(obj, evt) {
+            $("#DivModalGrafica").modal();
+            cdatos = $(obj).data('values');
+            if (currentid == 1) {
+                CargaGraficaBarras();
+            } else {
+                CargaGraficaPastel();
+            }
+            $('.LblTituloGrafica').text($(obj).parent().text());
+        }
+        function CargaGraficaBarras() {
+            let data = cdatos;
+            var chart = AmCharts.makeChart("chartdiv", {
+                "type": "serial",
+                "theme": "light",
+                "dataProvider": data,
+                "startDuration": 2,
+                "valueAxes": [{
+                    "position": "left",
+                    "title": "Ventas"
+                }],
+                "graphs": [{
+                    "balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
+                    "colorField": "Color",
+                    "fillAlphas": 1,
+                    "lineAlpha": 0.1,
+                    "type": "column",
+                    "valueField": "Valor"
+                }],
+                "depth3D": 20,
+                "angle": 30,
+                "chartCursor": {
+                    "categoryBalloonEnabled": false,
+                    "cursorAlpha": 0,
+                    "zoomable": false
+                },
+                "categoryField": "Texto",
+                "categoryAxis": {
+                    "gridPosition": "start",
+                    "labelRotation": 90
+                },
+                "export": {
+                    "enabled": true
+                }
+            });
+        }
+
+        function CargaGraficaPastel() {
+            let data = cdatos;
+            var chart = AmCharts.makeChart("chartdiv", {
+                "type": "pie",
+                "theme": "light",
+                "dataProvider":
+                    data,
+                "valueField": "Valor",
+                "titleField": "Texto",
+                "outlineAlpha": 0.4,
+                "depth3D": 0,
+                "balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
+                "angle": 0,
+                "export": {
+                    "enabled": true
+                }
+            });
+        }
+        function ADSBegin() {
+            $('.DdlGrafica').on('select2:select', function (e) {
+                var data = e.params.data;
+                currentid = data.id;
+                if (currentid == 1) {
+                    CargaGraficaBarras();
+                } else {
+                    CargaGraficaPastel();
+                }
+            });
+            $(".rdblistgrafica:not(.clicked) input").change(cargaGraficaBarras2);
+
+            $('.rdblistgrafica').addClass('clicked')
+            $('.DdlGrafica').removeClass('DdlGrafica')
+
+
+            initamgrafica();
+        }
+        let objetos;
+        let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"];
+
+        function graficarshow() {
+            $('.btngraficarborrar').remove();
+            $('#C_Tab_header').append('<a onclick="cargaGraficaBarras2();" class="btn btn-success btngraficarborrar" style="float:right;"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</a>');
+            $('#C_Tab_body').addClass('showgrph');
+        }
+        function cargaGraficaBarras2(Titulo) {
+            $('.LblTituloGraficaGral').text(Titulo);
+            cargaGraficaBarras2();
+        }
+        function cargaGraficaBarras2() {
+
+            //Hypgrafica
+            $("#DivModalGraficaGral").modal();
+            let infogral = $('#grafInfo');
+            infogral.find('>*').remove();
+            let items = []
+            let data;
+            let icolor = 0;
+            let tipografica = $('.rdblistgrafica input:checked').val();
+
+            $('.ajax__tab_panel:visible .chkgraf input:checked').each(function () {
+                data = $(this).closest('tr').find('.Hypgrafica').data('values')
+                let name = $(this).closest('td').text().trim()
+                items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica })
+                gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica);
+                icolor = icolor + 1;
+                if (icolor >= Colores.length) { icolor = 0; }
+            });
+            objetos = items;
+
+            $(".chkonchange input").each(function () {
+                let _this = $(this)
+                _this.change(function () {
+                    let _this = $(this)
+                    let id = Number(_this.data('id'))
+                    objetos[id].tipografica = _this.is(':checked') ? 1 : 2;
+                    ShowGraf2();
+                })
+            });
+            $(function () {
+                $('.chkonchange').tooltip()
+            });
+            ShowGraf2();
+        }
+        function gettitlegraf(infogral, id, Color, name, tipografica) {
+            let strtipografica = '<span class="chksino chkonchange" data-html="true" data-original-title="<div style=\'white-space:nowrap;\'>\'B\' Barras / \'L\' Lineas </div>" ><input id="chk' + id + '" ' + (tipografica == 1 ? 'checked="checked"' : '"') + ' data-id="' + id + '" type="checkbox" name="nchk' + id + '"><label for="chk' + id + '"> </label></span>';
+
+            let contenedor = $("<div class='row'></div>");
+            let divcolspan = $("<div class='col-md-1'></div>");
+            let divcolor = $('<div class="col-md-1"><div style="width:20px;height:10px;background-color:' + Color + ';"></div> </div>');
+            let divtexto = $("<div class='col-md-6'>" + name + "</div>");
+            let divtipografica = $("<div class='col-md-4'>" + strtipografica + "</div>");
+            infogral.append(contenedor);
+            /*contenedor.append(divcolspan);*/ contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica);
+        }
+        function ShowGraf2() {
+            let items = objetos;
+            let series = [];
+            if (items) {
+                data = items[0].data;
+                series.push((
+                    (items[0].tipografica == 1) ?
+                        {
+                            "balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
+                            "colorField": "Color",
+                            "fillAlphas": 1,
+                            "lineAlpha": 0.1,
+                            "type": "column",
+                            "title": items[0].name,
+                            "valueField": 'Valor'
+                        } :
+                        {
+                            "balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
+                            "colorField": "Color",
+                            "bullet": "round",
+                            "dashLength": 3,
+                            "colorField": "color",
+                            "type": "line",
+                            "title": items[0].name,
+                            "valueField": "Valor"
+                        }
+                ));
+
+                for (var i = 0; i < data.length; i++) {
+                    data[i]['Color'] = items[0].Color
+                }
+
+                for (var indexcol = 1; indexcol < items.length; indexcol++) {
+                    let cdatos = items[indexcol].data;
+                    let valueField = 'Valor' + indexcol;
+                    let colorField = 'Color' + indexcol;
+                    let tipografica = "column";
+                    for (var i = 0; i < cdatos.length; i++) {
+                        data[i][valueField] = cdatos[i].Valor
+                        data[i][colorField] = items[indexcol].Color
+                    }
+                    series.push((
+                        (items[indexcol].tipografica == 1) ?
+                            {
+                                "balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
+                                "colorField": colorField,
+                                "fillAlphas": 1,
+                                "lineAlpha": 0.1,
+                                "type": "column",
+                                "title": items[indexcol].name,
+                                "valueField": valueField
+                            } :
+                            {
+                                "balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
+                                "colorField": colorField,
+                                "bullet": "round",
+                                "dashLength": 3,
+                                "colorField": "color",
+                                "type": "line",
+                                "title": items[indexcol].name,
+                                "valueField": valueField
+                            }
+                    ));
+                }
+                var chart = AmCharts.makeChart("chartdivgral", {
+                    "type": "serial",
+                    "theme": "light",
+                    "dataProvider": data,
+                    "startDuration": 2, "legend": {
+
+                        "generateFromData": true  // "data":  data.map(function(num) { return {title:num.Texto ,color:num.Color}; })
+                    },
+                    "valueAxes": [{
+                        "position": "left",
+                        "title": "Ventas"
+                    }],
+                    "graphs": series,
+                    "depth3D": 20,
+                    "angle": 30,
+                    "chartCursor": {
+                        "categoryBalloonEnabled": false,
+                        "cursorAlpha": 0,
+                        "zoomable": false
+                    },
+                    "categoryField": "Texto",
+                    "categoryAxis": {
+                        "gridPosition": "start",
+                        "labelRotation": 90
+                    },
+                    "export": {
+                        "enabled": true
+                    }
+                });
+            }
+        }
+        function initamgrafica() {
+            AmCharts.addInitHandler(function (chart) {
+                function handleCustomMarkerToggle(legendEvent) {
+                    var dataProvider = legendEvent.chart.dataProvider;
+                    var itemIndex;
+                    legendEvent.chart.toggleLegend = true;
+                    if (undefined !== legendEvent.dataItem.hidden && legendEvent.dataItem.hidden) {
+                        legendEvent.dataItem.hidden = false;
+                        dataProvider.push(legendEvent.dataItem.storedObj);
+                        legendEvent.dataItem.storedObj = undefined;
+                        dataProvider.sort(function (lhs, rhs) {
+                            return lhs.dataIdx - rhs.dataIdx;
+                        });
+                    } else {
+                        legendEvent.dataItem.hidden = true;
+                        for (var i = 0; i < dataProvider.length; ++i) {
+                            if (dataProvider[i].dataIdx === legendEvent.dataItem.dataIdx) {
+                                itemIndex = i;
+                                break;
+                            }
+                        }
+                        legendEvent.dataItem.storedObj = dataProvider[itemIndex];
+                        dataProvider.splice(itemIndex, 1);
+                    }
+                    legendEvent.chart.validateData();
+                }
+                if (!chart.legend || !chart.legend.enabled || !chart.legend.generateFromData) {
+                    return;
+                }
+                var categoryField = chart.categoryField;
+                var colorField = chart.graphs[0].lineColorField || chart.graphs[0].fillColorsField || chart.graphs[0].colorField;
+                var legendData = chart.dataProvider.map(function (data, idx) {
+                    var markerData = {
+                        "title": data[categoryField],
+                        "color": data[colorField],
+                        "dataIdx": idx
+                    };
+                    if (!markerData.color) {
+                        markerData.color = chart.graphs[0].lineColor;
+                    }
+                    data.dataIdx = idx;
+                    return markerData;
+                });
+
+                chart.legend.data = legendData;
+                chart.legend.switchable = true;
+                chart.legend.addListener("clickMarker", handleCustomMarkerToggle);
+
+            }, ["serial"]);
+        }
+
+    </script>
+</asp:Content>

Finanzas/RepRazonesFinancieras2.aspx.vb

@@ -0,0 +1,342 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Drawing
+Imports System.IO
+Imports Extensiones
+Imports GemBox.Spreadsheet
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Finanzas_RepRazonesFinancieras2
+    Inherits ClsPaginas
+
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+
+            CargaEjercicios()
+
+            CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
+
+
+
+            DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
+            ValidaEjercicios()
+
+        End If
+    End Sub
+
+
+
+    Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
+
+        If Tab.TabIndex = 0 Then 'Balance General
+
+        End If
+
+        If Tab.ActiveTabIndex = 1 Then 'Estado de Resultados
+
+        End If
+
+        If Tab.ActiveTabIndex = 2 Then 'Ratios
+
+
+        End If
+
+
+
+        UpFiltros.Update()
+    End Sub
+
+
+    Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaEjercicios()
+    End Sub
+
+    Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaEjercicios()
+    End Sub
+
+    Private Sub ValidaEjercicios()
+
+
+        Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
+
+
+        If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
+
+            If DdlEjercicio2.Items.Count > 0 Then
+                DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
+            End If
+
+            Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
+
+            If Not EInicio + 1 > Fejerciosio Then
+                DdlEjercicio2.SelectedValueExist(EInicio + 1)
+            End If
+
+        End If
+
+
+        UpFiltros.Update()
+    End Sub
+
+    Private Sub CargaEjercicios()
+        'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ClsConta As New ClsContabilidad
+        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DdlEjercicio.DataSource = ClsConta.DtResultados
+            DdlEjercicio2.DataSource = ClsConta.DtResultados
+        Else
+            DdlEjercicio.DataSource = Nothing
+            DdlEjercicio2.DataSource = Nothing
+        End If
+        ClsConta.Dispose()
+        DdlEjercicio.DataBind()
+        DdlEjercicio2.DataBind()
+
+        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
+        If DdlEjercicio.Items.Count = 0 Then
+            DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
+        End If
+
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+
+
+        If TAB.ActiveTabIndex = 0 Then
+            CargaDatosBalanceGeneral()
+        End If
+
+
+        If TAB.ActiveTabIndex = 1 Then
+            CargaDatosEstadoResultados()
+        End If
+
+
+        If Tab.ActiveTabIndex = 2 Then
+            CargaDatosRatios()
+        End If
+
+    End Sub
+
+
+
+#Region "ESTADO RESULTADOS"
+
+    Private Sub CargaDatosBalanceGeneral()
+        UpBalanceGeneral.Update()
+    End Sub
+
+    Private Sub CargaDatosEstadoResultados()
+
+
+
+        LnkExportar.Visible = False
+        GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
+
+
+        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
+
+
+        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+
+
+        Dim objFinanzas As New ClsFinanzas
+        Dim dtTemp As New DataTable
+
+        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
+            dtTemp = objFinanzas.DtResultados
+
+            GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
+            GVEstadoRsultados.DataSource = dtTemp
+
+            If dtTemp.Rows.Count > 0 Then
+                LnkExportar.Visible = True
+            End If
+
+        Else
+            GVEstadoRsultados.DataSource = Nothing
+        End If
+
+        objFinanzas.Dispose()
+        GVEstadoRsultados.DataBind()
+
+        UpEstadoResultados.Update()
+
+    End Sub
+
+    Private Sub GVEstadoRsultadosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
+
+        For index = 2 To Gv.Columns.Count - 1
+            CType(Gv.Columns(index), BoundField).DataField = Nothing
+            Gv.Columns(index).Visible = False
+        Next
+        UpEstadoResultados.Update()
+    End Sub
+
+    Private Sub GVEstadoRsultadosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
+        Dim index = 1
+
+
+        For index = 1 To dt.Columns.Count - 5
+            CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
+            Gv.Columns(index + 4).Visible = True
+            Dim tmpDate As Date
+            If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
+                CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
+            Else
+                CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            End If
+        Next
+    End Sub
+
+    Protected Sub GVEstadoRsultados_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DataKey("Tipo").ToEntero = 1 Then
+                e.Row.Font.Bold = True
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 3 Then
+                e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 4 Then
+                e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
+            End If
+
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+#Region "RATIOS"
+
+
+
+    Private Sub CargaDatosRatios()
+
+
+
+        LnkExportar.Visible = False
+        GVRatiosOcultarColumnas(GVRatios, 1)
+
+
+        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
+
+
+        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+
+
+        Dim objFinanzas As New ClsFinanzas
+        Dim dtTemp As New DataTable
+
+        If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
+            dtTemp = objFinanzas.DtResultados
+
+            GVRatiosMostrarColumnas(dtTemp, GVRatios)
+            GVRatios.DataSource = dtTemp
+
+            If dtTemp.Rows.Count > 0 Then
+                LnkExportar.Visible = True
+            End If
+
+        Else
+            GVRatios.DataSource = Nothing
+        End If
+
+        objFinanzas.Dispose()
+        GVRatios.DataBind()
+
+        UpBalanceGeneral.Update()
+
+    End Sub
+
+    Private Sub GVRatiosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
+
+        For index = 1 To Gv.Columns.Count - 1
+            CType(Gv.Columns(index), BoundField).DataField = Nothing
+            Gv.Columns(index).Visible = False
+        Next
+        UpEstadoResultados.Update()
+    End Sub
+
+    Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
+        Dim index = 1
+
+
+        For index = 1 To dt.Columns.Count - 2
+            CType(Gv.Columns(index + 1), BoundField).DataField = dt.Columns(index + 1).ColumnName
+
+            CType(Gv.Columns(index + 1), BoundField).DataFormatString = "{0:P2}"
+
+
+            Gv.Columns(index + 1).Visible = True
+            CType(Gv.Columns(index + 1), BoundField).HeaderText = dt.Columns(index + 1).ColumnName
+
+        Next
+    End Sub
+
+    Protected Sub GVRatios_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DataKey("Tipo").ToEntero = 1 Then
+                e.Row.Font.Bold = True
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 3 Then
+                e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 4 Then
+                e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
+            End If
+
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+
+
+
+
+
+
+
+#Region "DESCARGA EXCEL"
+
+
+
+
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+#End Region
+
+
+
+
+
+
+
+
+End Class
+

GPS/Asistencia.rdlc

@@ -67,27 +67,21 @@
                   <Width>1.43285cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>7.48903cm</Width>
+                  <Width>7.6207cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>2.17368cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.89146cm</Width>
+                  <Width>2.63605cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.25269cm</Width>
+                  <Width>5.45041cm</Width>
-                </TablixColumn>
-                <TablixColumn>
-                  <Width>1.89147cm</Width>
-                </TablixColumn>
-                <TablixColumn>
-                  <Width>2.1825cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
                 <TablixRow>
-                  <Height>0.41479cm</Height>
+                  <Height>0.5cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -136,6 +130,7 @@
                               <Width>1pt</Width>
                             </RightBorder>
                             <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingTop>2pt</PaddingTop>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -187,6 +182,7 @@
                               <Width>1pt</Width>
                             </RightBorder>
                             <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingTop>2pt</PaddingTop>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -238,159 +234,7 @@
                               <Width>1pt</Width>
                             </RightBorder>
                             <BackgroundColor>Silver</BackgroundColor>
-                          </Style>
+                            <PaddingTop>2pt</PaddingTop>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox9">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>% de Pago</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                    <FontWeight>Bold</FontWeight>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox9</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>Solid</Style>
-                            </Border>
-                            <TopBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </RightBorder>
-                            <BackgroundColor>Silver</BackgroundColor>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox11">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>Horas Dobles</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                    <FontWeight>Bold</FontWeight>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox11</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>Solid</Style>
-                            </Border>
-                            <TopBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </RightBorder>
-                            <BackgroundColor>Silver</BackgroundColor>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox7">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>Horas Triples</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                    <FontWeight>Bold</FontWeight>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox7</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>Solid</Style>
-                            </Border>
-                            <TopBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </RightBorder>
-                            <BackgroundColor>Silver</BackgroundColor>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -442,6 +286,59 @@
                               <Width>1pt</Width>
                             </RightBorder>
                             <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingTop>2pt</PaddingTop>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox7">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Observaciones</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox7</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingTop>2pt</PaddingTop>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -449,7 +346,7 @@
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.36188cm</Height>
+                  <Height>0.5cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -496,6 +393,7 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
+                            <PaddingTop>2pt</PaddingTop>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -545,6 +443,7 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
+                            <PaddingTop>2pt</PaddingTop>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -594,134 +493,7 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                          </Style>
+                            <PaddingTop>2pt</PaddingTop>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="PorcentajePago">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>=Fields!PorcentajePago.Value</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                    <Format>0;(0)</Format>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>PorcentajePago</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </Border>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="HorasDobles">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>=IIf(Fields!HorasDobles.Value&gt;0,Fields!HorasDobles.Value.ToString(),"")</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>HorasDobles</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </Border>
-                            <TopBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </RightBorder>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="HorasTriples">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>=IIf(Fields!HorasTriples.Value&gt;0,Fields!HorasTriples.Value.ToString(),"")</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>HorasTriples</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </Border>
-                            <TopBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Color>Gray</Color>
-                              <Style>Solid</Style>
-                              <Width>0.5pt</Width>
-                            </RightBorder>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -771,6 +543,57 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
+                            <PaddingTop>2pt</PaddingTop>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox8">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox8</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>Gray</Color>
+                              <Style>Solid</Style>
+                              <Width>0.5pt</Width>
+                            </Border>
+                            <TopBorder>
+                              <Color>Gray</Color>
+                              <Style>Solid</Style>
+                              <Width>0.5pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Gray</Color>
+                              <Style>Solid</Style>
+                              <Width>0.5pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Gray</Color>
+                              <Style>Solid</Style>
+                              <Width>0.5pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Gray</Color>
+                              <Style>Solid</Style>
+                              <Width>0.5pt</Width>
+                            </RightBorder>
+                            <PaddingTop>2pt</PaddingTop>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -786,8 +609,6 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
-                <TablixMember />
-                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -803,8 +624,8 @@
             <DataSetName>DataSet1</DataSetName>
             <Top>3.2953cm</Top>
             <Left>0.31432cm</Left>
-            <Height>0.77667cm</Height>
+            <Height>1cm</Height>
-            <Width>19.31368cm</Width>
+            <Width>19.31369cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>

GPS/FacturacionMasiva.aspx.vb

@@ -790,17 +790,12 @@ Partial Class Contratos_FacturacionMasiva
                         End If
                         importeMovimiento = 0
 
-
-
                     Case 13 'Iva por Trasladar
                         importeMovimiento = ObjFactura.IVA * ValorMultiplicador
                         importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                         FechaMovimiento = ObjFactura.FechaPago
-                        IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar
                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
-
-
                 End Select
 
                 If importeMovimiento <> 0 Then

Inventarios/EntradasSalidas.aspx

@@ -696,7 +696,8 @@
                                          <div class="row rowpadding"  >
                                              <label class="col-md-3">Cliente:</label>
                                              <div class="col-md-9">
-                                              <asp:DropDownList ID="DdlClienteCarta" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteCarta_SelectedIndexChanged" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" DataTextField="NombreComercial" DataValueField="CveCliente"></asp:DropDownList>
+                                             <%-- <ads:DropDownLost ID="s" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteCarta_SelectedIndexChanged" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" DataTextField="NombreComercial" DataValueField="CveCliente"></ads:DropDownLost>--%>
+                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteCarta" Width="100%" data-metodo="getcliente" Onselectedindexchange="DdlClienteCarta_SelectedIndexChanged"  runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                                              </div>
                                           </div>
                                           <div class="row rowpadding"  >

Inventarios/EntradasSalidas.aspx.vb

@@ -5955,10 +5955,10 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub CargaClientesCarta()
-        DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClienteCarta.DataBind()
+        'DdlClienteCarta.DataBind()
 
-        DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteCarta.SelectedValue = "-1"
 
     End Sub

Inventarios/Remanufactura.aspx.vb

@@ -867,7 +867,6 @@ Partial Class Inventarios_Remanufactura
                         importeMovimiento = ObjFactura.IVA * ValorMultiplicador
                         importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                         FechaMovimiento = ObjFactura.FechaPago
-                        IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar
                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
                     Case 38 'IEPS por Trasladar

Inventarios/TraspasoAlmacen.aspx

@@ -466,7 +466,7 @@
                                         <asp:TemplateField ItemStyle-Width="93px" ItemStyle-HorizontalAlign ="Right">
                                             <ItemTemplate>
                                                 <asp:Literal runat="server" Text='<%# Eval("Cantidad") %>' ID="ltlCantidad"></asp:Literal>
-                                                <asp:TextBox runat="server" ID="TxtCantidad2" Text='<%# Eval("Cantidad", "{0:###,###,###,##0.##}") %>' Width="50px" Visible="false"></asp:TextBox>
+                                                <asp:TextBox runat="server" ID="TxtCantidad2" Text='<%# Eval("Cantidad", "{0:###,###,###,##0.######}") %>' Width="50px" Visible="false"></asp:TextBox>
                                                 <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidadF" runat="server" TargetControlID="TxtCantidad2" FilterType="Numbers,custom" ValidChars="." />
                                             </ItemTemplate>
                                         </asp:TemplateField>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -972,7 +972,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If Existencia < 0 Then
                 ErrorExistencia = True
-                TextoExistencia.AppendFormat(" {1},", gvr.DataKey("No"), gvr.DataKey("CvePS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $" &nbsp; Serie: <b>{gvr.DataKey("Serie")}</b>", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero), MsgAdicional)
+                TextoExistencia.AppendFormat("-<b>#{0}</b> {1} {2} &nbsp; Existencia: <b>{3}</b>{4}<br/>", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $" &nbsp; Serie: <b>{gvr.DataKey("Serie")}</b>", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToDecimal()), MsgAdicional)
             End If
         Next
 

Nomina/CatConceptos.aspx

@@ -81,6 +81,11 @@
                     </asp:TemplateField> 
                     <asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="TipoD" HeaderText="Tipo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
+                   <asp:TemplateField HeaderText="Contabiliza" ItemStyle-Width="5%">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlContab" runat="server"  Text='<%#   Eval("Contabiliza")  %>' ></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField> 
                     <asp:BoundField DataField="Estado" HeaderText="Estado" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Left" />
                 </Columns>
             </asp:GridView>

Nomina/ChecadorAsistencia.aspx

@@ -49,6 +49,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Asistencia Cheador
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>

PortalCliente/PortalCliente.aspx.vb

@@ -888,7 +888,6 @@ Partial Class Ventas_PortalCliente
                                             importeMX = importeMX.RoundSQL()
                                             TCGeneral = TCVenta
 
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIVAxTrasladar
                                             If TCVenta > 1 Then ConceptoMovimiento += $" TC:{TCVenta} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                         Case 61 'IVA TRASLADADO
@@ -905,7 +904,6 @@ Partial Class Ventas_PortalCliente
                                             importeMX = importeMX.RoundSQL()
                                             TCGeneral = TCFluctuacion
 
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIVATrasladado
                                             If TCFluctuacion > 1 Then ConceptoMovimiento += $" TC:{TCFluctuacion} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                         Case 8 'RETIVA X TRASLADAR
@@ -1024,7 +1022,6 @@ Partial Class Ventas_PortalCliente
                                             importeMX = importeMX.RoundSQL()
                                             TCGeneral = TCVenta
 
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
                                             If TCVenta > 1 Then ConceptoMovimiento += $" TC:{TCVenta} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                         Case 39 'IEPS TRASLADADO
@@ -1041,13 +1038,11 @@ Partial Class Ventas_PortalCliente
                                             importeMX = importeMX.RoundSQL()
                                             TCGeneral = TCFluctuacion
 
-                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
                                             If TCFluctuacion > 1 Then ConceptoMovimiento += $" TC:{TCFluctuacion} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                         Case 64 'GANANCIA
                                             Continue For 'SKIPEA
                                             If CveMonedaVenta <> 1 Then
-                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                 If TCPago > TCVenta AndAlso CveMonedaVenta = 2 Then
                                                     ImporteMovimiento = (ImportePago * TCPago) - (ImportePago * TCVenta)
                                                     ImporteMovimiento -= ((IVAVenta * PorcentajePago) * TCFluctuacion) - ((IVAVenta * PorcentajePago) * TCVenta)
@@ -1062,7 +1057,6 @@ Partial Class Ventas_PortalCliente
                                         Case 65 'PERDIDA
                                             Continue For 'SKIPEA
                                             If CveMonedaVenta <> 1 Then
-                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                 If TCPago < TCVenta AndAlso CveMonedaVenta = 2 Then
                                                     ImporteMovimiento = (ImportePago * TCPago) - (ImportePago * TCVenta)
                                                     ImporteMovimiento -= ((IVAVenta * PorcentajePago) * TCFluctuacion) - ((IVAVenta * PorcentajePago) * TCVenta)

RH/ChecadorAsistencia.aspx

@@ -5,7 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-    ASistencia Cheador
+    Asistencia Cheador
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
 </asp:Content>

RH/Personal.aspx.vb

@@ -2136,99 +2136,100 @@ Partial Class RH_Personal
         CargaGvBitacora()
 
         If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
-            EnviarCorreoNominista()
+            'EnviarCorreoNominista()
+            EviarCorreoBajaReingresoNomista(TipoMovimientoRH.Alta)
         End If
 
 
     End Sub
 
-    Private Sub EnviarCorreoNominista()
+    'Private Sub EnviarCorreoNominista()
 
-        If UsuarioActual.CveEmpresa.Contiene(7) Then
+    '    If UsuarioActual.CveEmpresa.Contiene(7) Then
 
-            Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+    '        Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
 
-            If CorreoNominista = "" Then
+    '        If CorreoNominista = "" Then
-                Alert($"No se envio el correo  de notificación a nominas, el nominista  no tiene {DDLUsuarioNomina.SelectedItem.Text} correo  electronico", TipoMensaje.MsgAdvertencia)
+    '            Alert($"No se envio el correo  de notificación a nominas, el nominista  no tiene {DDLUsuarioNomina.SelectedItem.Text} correo  electronico", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+    '            Exit Sub
 
-            End If
+    '        End If
 
 
-            Dim correo As New ClsSisMail
+    '        Dim correo As New ClsSisMail
-            Dim Cuerpo As New StringBuilder
+    '        Dim Cuerpo As New StringBuilder
 
-            Dim Puesto As String = ""
+    '        Dim Puesto As String = ""
-            Dim Padre As String = ""
+    '        Dim Padre As String = ""
-            Dim Madre As String = ""
+    '        Dim Madre As String = ""
-            Dim FechaIngreso As String = ""
+    '        Dim FechaIngreso As String = ""
 
-            Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
+    '        Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
 
-            Dim objRH As New ClsRH
+    '        Dim objRH As New ClsRH
 
-            If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
+    '        If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
 
-                Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
+    '            Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
 
-                If DtFamiliares.Rows.Count > 0 Then
+    '            If DtFamiliares.Rows.Count > 0 Then
-                    Padre = DtFamiliares.Rows(0)("Nombre").ToString
+    '                Padre = DtFamiliares.Rows(0)("Nombre").ToString
-                End If
+    '            End If
 
-                DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
+    '            DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
 
-                If DtFamiliares.Rows.Count > 0 Then
+    '            If DtFamiliares.Rows.Count > 0 Then
-                    Madre = DtFamiliares.Rows(0)("Nombre").ToString
+    '                Madre = DtFamiliares.Rows(0)("Nombre").ToString
-                End If
+    '            End If
 
-            End If
+    '        End If
 
-            objRH.Dispose()
+    '        objRH.Dispose()
-            Cuerpo.AppendLine("<table border='0' style='width:100%'>")
+    '        Cuerpo.AppendLine("<table border='0' style='width:100%'>")
-            Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  EmpresaDestino }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+    '        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  EmpresaDestino }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
-            Cuerpo.AppendLine("<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
-            Cuerpo.AppendLine("</table>")
+    '        Cuerpo.AppendLine("</table>")
 
-            Cuerpo.AppendLine("<br/>")
+    '        Cuerpo.AppendLine("<br/>")
-            Cuerpo.AppendLine("<br/>")
+    '        Cuerpo.AppendLine("<br/>")
 
-            Cuerpo.AppendLine("<table border='0'>")
+    '        Cuerpo.AppendLine("<table border='0'>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text}  {TxtLugarNacimiento.Text}</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text}  {TxtLugarNacimiento.Text}</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino")  }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino")  }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
 
 
-            If Padre.Length > 0 Then
+    '        If Padre.Length > 0 Then
-                Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
+    '            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
-            End If
+    '        End If
 
-            If Madre.Length > 0 Then
+    '        If Madre.Length > 0 Then
-                Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
+    '            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
-            End If
+    '        End If
 
 
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
-            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
+    '        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
-            Cuerpo.AppendLine("</table>")
+    '        Cuerpo.AppendLine("</table>")
 
-            correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
+    '        correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
 
 
 
 
-        End If
+    '    End If
 
-    End Sub
+    'End Sub
 
     'Private Sub MandaMails(Rutas As Object)
     '    Try
@@ -7505,6 +7506,12 @@ Partial Class RH_Personal
             End Using
         End If
 
+        If continuar Then
+
+            EviarCorreoBajaReingresoNomista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
+
+        End If
+
         If continuar Then
 
             RegistraScript("$('#ModalUpEstatus').modal('hide');")
@@ -7647,5 +7654,115 @@ Partial Class RH_Personal
 
 
     End Sub
+
+
+#Region "ENVIAR CORREO NOMINISTA"
+
+    Enum TipoMovimientoRH
+        Alta
+        Baja
+        Reingreso
+    End Enum
+
+    Private Sub EviarCorreoBajaReingresoNomista(eTipoMovimientoRH As TipoMovimientoRH)
+
+
+        Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
+        Dim correo As New ClsSisMail
+        Dim Cuerpo As New StringBuilder
+
+        Dim CorreoUsuario As String = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
+        Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")
+
+        If CorreoNominista = "" Then
+            Alert("No se envio el correo  de notificación a nominas, el nominista no tiene correo  electronico", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim Puesto As String = ""
+        Dim Padre As String = ""
+        Dim Madre As String = ""
+        Dim FechaIngreso As String = ""
+
+        Dim objRH As New ClsRH
+
+        If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
+
+            Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
+
+            If DtFamiliares.Rows.Count > 0 Then
+                Padre = DtFamiliares.Rows(0)("Nombre").ToString
+            End If
+
+            DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
+
+            If DtFamiliares.Rows.Count > 0 Then
+                Madre = DtFamiliares.Rows(0)("Nombre").ToString
+            End If
+
+        End If
+
+        Dim TimpoMovimiento As String = ""
+
+        Select Case eTipoMovimientoRH
+            Case TipoMovimientoRH.Alta
+                TimpoMovimiento = "Alta"
+                Exit Select
+            Case TipoMovimientoRH.Baja
+                TimpoMovimiento = "Baja"
+                Exit Select
+            Case TipoMovimientoRH.Reingreso
+                TimpoMovimiento = "Reingreso"
+                Exit Select
+        End Select
+
+        objRH.Dispose()
+        Cuerpo.AppendLine("<table border='0' style='width:100%'>")
+        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+
+        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por { TimpoMovimiento } de Nomina</td></tr>")
+        Cuerpo.AppendLine("</table>")
+
+        Cuerpo.AppendLine("<br/>")
+        Cuerpo.AppendLine("<br/>")
+
+        Cuerpo.AppendLine("<table border='0'>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{IIf(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
+
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaEstatus.Text}</td></tr>")
+
+        If eTipoMovimientoRH = TipoMovimientoRH.Baja Then
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Motivo de Baja:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlMotivoBaja.SelectedItem.Text }</td></tr>")
+            If Txobservacionesbaja.Text.Trim.Length > 0 Then
+                Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Observaciones :</td><td style=' text-align: left;  font-weight:bold;'>{ Txobservacionesbaja.Text.Trim }</td></tr>")
+            End If
+        End If
+
+
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text}  {TxtLugarNacimiento.Text}</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlGenero.SelectedValue = "1", "Masculino", "Femenino")  }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }  No Ext.{ TxtNumExt.Text} No int.{TxtNumInt.Text}</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtCelularPersonal.Text}</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Tel en Caso de Emergencia:</td><td style=' text-align: left; font-weight:bold;'>{ TxtTelefonoEmergencia.Text }</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
+        Cuerpo.AppendLine("</table>")
+
+        correo.SendMail(EmpresaNotificaciones, CorreoNominista, $"Notificacion por  { TimpoMovimiento }de Nomina: " & NombreCompleto, Cuerpo.ToString, CCP:=CCP)
+
+    End Sub
+
+
+#End Region
+
 End Class
 

Sistemas/Empresa.aspx.vb

@@ -340,93 +340,93 @@ Partial Class Sistemas_Empresa
                         CargaCuentasContables()
                         CargaDDLs()
 
-                        Dim Row As DataRow
+                        'Dim Row As DataRow
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString))
+                        '    DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString))
-                            DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString
+                        '    DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString))
+                        '    DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString))
-                            DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString
+                        '    ' DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString))
+                        '    DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString))
-                            DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString
+                        '    DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString))
+                        '    DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString))
-                            DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString
+                        '    DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString))
+                        '    DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString))
-                            DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString
+                        '    DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString))
+                        '    DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString))
-                            DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString
+                        '    DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString))
+                        '    DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString))
-                            DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString
+                        '    DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString))
+                        '    DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString))
-                            DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString
+                        '    DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString))
+                        '    DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString))
-                            DdlDSV.SelectedValue = .IdCuentaDSV.ToString
+                        '    DdlDSV.SelectedValue = .IdCuentaDSV.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString))
+                        '    DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString))
-                            DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString
+                        '    DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString
-                        End If
+                        'End If
 
 
                         'NUEVOS DATOS
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString))
+                        '    DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString))
-                            DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString
+                        '    DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString))
+                        '    DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString))
-                            DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString
+                        '    DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString))
+                        '    DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString))
-                            DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString
+                        '    DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString
-                        End If
+                        'End If
 
-                        Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))
+                        'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))
-                        If Not IsNothing(Row) Then
+                        'If Not IsNothing(Row) Then
-                            DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString))
+                        '    DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString))
-                            DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString
+                        '    DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString
-                        End If
+                        'End If
 
                     End If
 
@@ -665,7 +665,7 @@ Partial Class Sistemas_Empresa
                 Next
             End If
 
-            GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
+            ' GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
 
         End If
 

TareasProgramadas/Tareas119.ashx

@@ -26,7 +26,7 @@ public class TareasJam : IHttpHandler
         switch (Metodo)
         {
             case "TestConexion":
-                retorno  = PruebaConexionFTP("ftp://thalamus.exavault.com", "agrojam", "A12345678");
+                retorno  = PruebaConexionFTP("ftp://ftp.thalamuslive.com", "agrojam", "A12345678");
                 break;
             case "EjecutaThalamus":
 
@@ -112,7 +112,7 @@ public class TareasJam : IHttpHandler
         //string FTPPass = "agj-3500";
 
 
-        string FTPServer = "ftp://thalamus.exavault.com";
+        string FTPServer = "ftp://ftp.thalamuslive.com";
         string TFPUsr = "agrojam";
         string FTPPass = "A12345678";
 
@@ -677,7 +677,7 @@ public class TareasJam : IHttpHandler
     {
         bool Respuesta = false;
 
-        FtpWebRequest request =(FtpWebRequest)WebRequest.Create($"{FTPServer}/Test.log");
+        FtpWebRequest request =(FtpWebRequest)WebRequest.Create($"{FTPServer}/clientes/Test.xlsx");
         request.Method = WebRequestMethods.Ftp.ListDirectory;
 
         request.Credentials = new NetworkCredential(FTPUsr, FTPPass);

Ventas/CatMetasVendedores.aspx.vb

@@ -193,7 +193,7 @@ Partial Class CatMetasVendedores
 
             DtExcel.Rows.Add(dr)
         Next
-
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim FileExcel As New ExcelFile()
 
         Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)

Ventas/CatUnidadesMedida.aspx.vb

@@ -31,7 +31,7 @@ Partial Class CatUnidadesMedida
 
         Dim ObjUnidadesMedida As New ClsUnidadesMedida
         If ObjUnidadesMedida.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then
-            GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+            GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
             ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GvDatos.DataSource = ViewState("DTUnidadesMedida")
             GvDatos.DataBind()
@@ -293,7 +293,7 @@ Partial Class CatUnidadesMedida
             If ObjUnidadesMedida.UpdateUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "", "", "", CBool(Estatus),
                                                         UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlSATUnidadMedida.SelectedValue.ToEntero) Then
                 GvDatos.EditIndex = -1
-                GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+                GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
                 ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             End If

Ventas/Clientes.aspx

@@ -378,7 +378,7 @@
                                         <div class="row">
                                             <div class="col-md-12" runat="server" id="DivRazonSocial2">
                                                 <div runat="server" id="DivRazonSocial" class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="150" onkeyup="fncTxt()" ClientIDMode="Static"></asp:TextBox>
+                                                    <asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="200" onkeyup="fncTxt()" ClientIDMode="Static"></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <label for="<%= TxtNombre.ClientID.ToString()%>">Razón Social:</label>
                                                     <i></i>
@@ -419,7 +419,7 @@
 
 
                                         <div class="form-group form-md-line-input input-iconright ">
-                                            <asp:TextBox ID="TxtNombreComercial" CssClass="form-control" runat="server" MaxLength="150" ClientIDMode="Static"></asp:TextBox>
+                                            <asp:TextBox ID="TxtNombreComercial" CssClass="form-control" runat="server" MaxLength="200" ClientIDMode="Static"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVNombreComercial" runat="server" ControlToValidate="TxtNombreComercial" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Comercial''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtNombreComercial.ClientID.ToString()%>">Nombre Comercial:</label>
                                             <i></i>

Ventas/Clientes.aspx.vb

@@ -1044,9 +1044,6 @@ Partial Class Clientes
 #Region "C A R G A S"
 
 
-
-
-
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1194,10 +1191,6 @@ Partial Class Clientes
             DdlCtaContableAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
         End If
 
-        'DdlCtaContableRetIVA.Attributes.Add("onclick", "CargaCuentas(3);")
-        'DdlCtaContableRetISR.Attributes.Add("onclick", "CargaCuentas(4);")
-        'DdlCtaContableFondoGarantia.Attributes.Add("onclick", "CargaCuentas(5);")
-
         If UsuarioActual.Empresa.Funcionalidad(248).ToEntero() > 0 Then
             DdlCtaContableCompClientes.Attributes.Add("onclick", "CargaCuentas(6);")
         End If
@@ -1244,47 +1237,8 @@ Partial Class Clientes
         End Select
         UpFiscalContable.Update()
 
-        ' Las funcionalidades 246, 247 y 248 para DdlCtaContableClientes, DdlMonedaExtranjeraClientes y DdlCtaContableCompClientes tienen prioridad sobre las demas.
-        'If UsuarioActual.Empresa.UsaContabilidad Then CargaCuentasContablesClientes()
-
-
     End Sub
 
-    'Private Sub CargaCuentasContablesClientes()
-    '    If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub
-    '    ' Verifica si la empresas tienen las funcionalidades 246, 247 y 248
-    '    Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-
-    '    If UsuarioActual.Empresa.Funcionalidad(246).Toentero() > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(246).Toentero(), "-1", 1) Then
-    '            DdlCtaContableClientes.Items.Clear()
-    '            DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
-    '            DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
-    '            DdlCtaContableClientes.DataBind()
-    '        End If
-    '    End If
-
-    '    If UsuarioActual.Empresa.Funcionalidad(247).Toentero() > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(247).Toentero(), "-1", 1) Then
-    '            DdlMonedaExtranjeraClientes.Items.Clear()
-    '            DdlMonedaExtranjeraClientes.Items.Add(New ListItem("Seleccione", "0"))
-    '            DdlMonedaExtranjeraClientes.DataSource = ObjContabilidad.DtResultados
-    '            DdlMonedaExtranjeraClientes.DataBind()
-    '        End If
-    '    End If
-
-    '    If UsuarioActual.Empresa.Funcionalidad(248).Toentero() > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(248).Toentero(), "-1", 1) Then
-    '            DdlCtaContableCompClientes.Items.Clear()
-    '            DdlCtaContableCompClientes.Items.Add(New ListItem("Seleccione", "0"))
-    '            DdlCtaContableCompClientes.DataSource = ObjContabilidad.DtResultados
-    '            DdlCtaContableCompClientes.DataBind()
-    '        End If
-    '    End If
-
-    '    ObjContabilidad.Dispose()
-
-    'End Sub
     Private Sub CargaDdlCuentasContables(Ddl As DropDownList, Optional CveFuncionalidad As Integer = -1)
         Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
         If ObjContabilidad.GetCuentasRecursiva(CveFuncionalidad, 1) Then
@@ -1506,23 +1460,13 @@ Partial Class Clientes
                 Dim RetSC As Boolean = CargaSucursalesCliente()
 
                 CargaUsuariosPortal()
-                'CargaPersonalAsignado()
-                'CargaOrdenesServiciosCliente()
                 CargaImpuestosLocales()
                 CargaCuentasContablesDdls()
                 CargaResponsables()
                 CargaCondicionesEntrega()
-                'CargaClasificaciones()
-                ' CargaGridRetenciones()
-                ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
                 CargaSubProyectosSuscursales()
-                'CargaMetodosPago33()
-                'CargaFormaPago33()
-                'CargaComboCFDI()
-                'CargarPagosNoBancarios()
-
 
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -1774,12 +1718,6 @@ Partial Class Clientes
 
                 DdlAdminTrayecto.SelectedValueExist(ObjClientes.DtResultados(0)("CveAdminTrayecto").ToString())
                 DdlAdminTrayecto_SelectedIndexChanged(DdlAdminTrayecto, EventArgs.Empty)
-                'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
-                'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
-                'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
-
-
-
 
                 'DIAS DE PAGO
                 If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
@@ -1806,15 +1744,7 @@ Partial Class Clientes
 
                 'Horario
                 TxtHorario.Text = ObjClientes.Horario
-                'If ObjClientes.Horario <> "" Then
+
-                '    Dim arrayHorario As String() = ObjClientes.Horario.Split(New Char() {"|"c})
-                '    If arrayHorario.Count = 1 Then
-                '        TxtHorario1.Text = arrayHorario(0)
-                '    End If
-                '    If arrayHorario.Count = 2 Then
-                '        TxtHorario2.Text = arrayHorario(1)
-                '    End If
-                'End If
 
                 TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
                 TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
@@ -1872,24 +1802,7 @@ Partial Class Clientes
                     Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
                 End If
 
-                'watch.Stop()
-                'Alert(watch.ElapsedMilliseconds.ToString())
-                'watch.Start()
-
-
                 CargaEventoBitacora()
-                'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
-                '    CargaCuentasConceptos()
-                '    divCuentas.Visible = True
-                '    divCuentasContp.Visible = False
-                'Else
-                '    divCuentas.Visible = False
-                '    divCuentasContp.Visible = True
-                'End If
-
-                'watch.Stop()
-                'Alert(watch.ElapsedMilliseconds.ToString())
-                'watch.Start()
 
                 If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                     CargaCuentasConceptos()

Ventas/ClientesAbonar.aspx.vb

@@ -2504,11 +2504,11 @@ Partial Class Ventas_ClientesAbonar
                         End If
 
                         If TCPago > TCVenta Then
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                                 MsgError = "Ocurrio un error al saldar el movimiento"
                             End If
                         Else
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                                 MsgError = "Ocurrio un error al saldar el movimiento"
                             End If
                         End If
@@ -2525,12 +2525,11 @@ Partial Class Ventas_ClientesAbonar
                     Dim IdCtaIVAXTrasladar As Integer = 0
                     Dim CveCuentaIVAxTrasladar As Integer = 0
 
-                    If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+                    'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                        IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
+                    '    IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
-                        CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
+                    '    CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
-                    End If
+                    'End If
 
-                    IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
 
                     If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
@@ -2540,7 +2539,6 @@ Partial Class Ventas_ClientesAbonar
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
-                    IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
                     If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If

Ventas/Ventas.aspx.vb

@@ -13866,10 +13866,10 @@ Partial Class Ventas
                 SeContabiliza = False
             End If
 
-            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
+            'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
-                IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero()
+            '    IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero()
-                IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero()
+            '    IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero()
-            End If
+            'End If
 
             Dim UsaComplementariaClientes As Boolean = True
 
@@ -14240,14 +14240,12 @@ Partial Class Ventas
 
                                                                                         If IngresoIVA > 0 Then
 
-                                                                                            IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
                                                                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
                                                                                             If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                                                                 ErrorPrepoliza = True
                                                                                                 Exit For
                                                                                             End If
                                                                                             'IVA PAGADO
-                                                                                            IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
                                                                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
                                                                                             If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                                                                 ErrorPrepoliza = True
@@ -14259,14 +14257,14 @@ Partial Class Ventas
                                                                                         If IngresoIEPS > 0 Then
                                                                                             'IEPS X TRASLADAR
                                                                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
-                                                                                            If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                                                            If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
                                                                                                 ErrorPrepoliza = True
                                                                                                 Exit For
                                                                                             End If
 
                                                                                             'IEPS PAGADO
                                                                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
-                                                                                            If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                                                            If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
                                                                                                 ErrorPrepoliza = True
                                                                                                 Exit For
                                                                                             End If
@@ -14323,11 +14321,9 @@ Partial Class Ventas
                                                 If difFluctuacion < 0 Then
                                                     CveConceptoFluctua = 65
                                                     TipoMovtoFluctua = False
-                                                    IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                 Else
                                                     CveConceptoFluctua = 64
                                                     TipoMovtoFluctua = True
-                                                    IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                 End If
                                                 Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL)
 
@@ -14433,11 +14429,9 @@ Partial Class Ventas
                                                 If difFluctuacion < 0 Then
                                                     CveConceptoFluctua = 65
                                                     TipoMovtoFluctua = False
-                                                    IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                 Else
                                                     CveConceptoFluctua = 64
                                                     TipoMovtoFluctua = True
-                                                    IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                 End If
                                                 Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL)
 
@@ -14794,30 +14788,30 @@ Partial Class Ventas
                                 ' If UsuarioActual.CveEmpresa = 119 Then
 
                                 'código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                For i = 0 To TmpDTDetalle.Rows.Count - 1
+                                'For i = 0 To TmpDTDetalle.Rows.Count - 1
 
-                                    'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
+                                '    'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                    If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
+                                '    If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097", "24479") Then
 
-                                        'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then
+                                '        'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then
-                                        '        If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then
+                                '        '        If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then
-                                        '            TmpDTDetalle(i)("CveClasificacion") = 20242  'clasif: ventas tasa 8%
+                                '        '            TmpDTDetalle(i)("CveClasificacion") = 20242  'clasif: ventas tasa 8%
-                                        '        Else
+                                '        '        Else
-                                        '            TmpDTDetalle(i)("CveClasificacion") = 19929  'clasif: ventas tasa 16%
+                                '        '            TmpDTDetalle(i)("CveClasificacion") = 19929  'clasif: ventas tasa 16%
-                                        '        End If
+                                '        '        End If
 
-                                        '    Else
+                                '        '    Else
-                                        '        TmpDTDetalle(i)("CveClasificacion") = 19930  'clasif: ventas tasa 0%
+                                '        '        TmpDTDetalle(i)("CveClasificacion") = 19930  'clasif: ventas tasa 0%
-                                        '    End If
+                                '        '    End If
 
-                                        'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva
+                                '        'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva
-                                        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then
+                                '        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then
-                                            TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString()
+                                '            TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString()
-                                        End If
+                                '        End If
 
-                                    End If
+                                '    End If
 
-                                Next
+                                'Next
 
                                 ' End If
 
@@ -14867,23 +14861,23 @@ Partial Class Ventas
                                 Dim CveVentaAplicar = ObjFactura.CveVenta
                                 Dim CveVentaAmortizacionAplicar = -1
 
-                                If UsuarioActual.CveEmpresa = 119 Then
+                                'If UsuarioActual.CveEmpresa = 119 Then
 
-                                    'código fijo en base el porcentaje iva, que se afecten las clasificaciones
+                                '    'código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                    For i = 0 To TmpDTDetalle.Rows.Count - 1
+                                '    For i = 0 To TmpDTDetalle.Rows.Count - 1
 
-                                        'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
+                                '        'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                        If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
+                                '        If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
 
-                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
+                                '            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
+                                '                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
-                                            End If
+                                '            End If
 
-                                        End If
+                                '        End If
 
-                                    Next
+                                '    Next
 
-                                End If
+                                'End If
 
                                 DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
@@ -15094,13 +15088,8 @@ Partial Class Ventas
                                     ConceptoContable = 61
                                     importeMovimiento = importeMovimiento * -1
                                     importeMX = importeMX * -1
-
-                                    IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                                Else
-                                    IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
                                 End If
 
-
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                             End If
@@ -15249,13 +15238,10 @@ Partial Class Ventas
 
                                         End If
 
-
-
                                         If ObjFactura.IVA <> 0 Then
                                             Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal
 
                                             'IVA X TRASLADAR
-                                            IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
                                             If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                 ErrorPrepoliza = True
@@ -15263,7 +15249,6 @@ Partial Class Ventas
                                             End If
 
                                             'IVA PAGADO
-                                            IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
                                             If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                 ErrorPrepoliza = True
@@ -15271,21 +15256,19 @@ Partial Class Ventas
                                             End If
                                         End If
 
-
-
                                         If ObjFactura.IEPS <> 0 Then
                                             Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIEPS").ToDecimal
 
                                             'IEPS X TRASLADAR
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
-                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
+                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                 ErrorPrepoliza = True
                                                 Exit For
                                             End If
 
                                             'IEPS PAGADO
                                             Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
-                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
+                                            If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, 0, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
                                                 ErrorPrepoliza = True
                                                 Exit For
                                             End If
@@ -16972,17 +16955,17 @@ Partial Class Ventas
         Dim FechaMovimiento As Date = Now
         Dim Concepto As String = ViewState("VentaFolio").ToString()
         Dim PrePolizaCorrecta = True
-        Dim PorcentajeImpuesto As Decimal = 0
+        ' Dim PorcentajeImpuesto As Decimal = 0
         Dim IdCtaIVAXTrasladar As Integer = 0
 
         '13 Iva x Trasladar
         ImporteMovimiento = Importe13 * PorcentajeAmortizacion
         ImporteMX = Math.Round(ImporteMovimiento, 2) * TipoCambio
-        PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal
+        'PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal
-        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+        'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-            IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero()
+        '    IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero()
-        End If
+        'End If
-        IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+        'IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
         ' CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
 
         If ImporteMovimiento > 0 Then
@@ -16992,7 +16975,7 @@ Partial Class Ventas
             End If
 
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -17069,11 +17052,10 @@ Partial Class Ventas
         ImporteMovimiento = TxtIVA.Text.ToDecimal * PorcentajeAmortizacion
         ImporteMX = Math.Round(ImporteMovimiento * TipoCambio, 2)
         PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal
-        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+        'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-            IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero()
+        '    IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero()
-            CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero()
+        '    CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero()
-        End If
+        'End If
-        IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
         'CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
 
         If ImporteMovimiento > 0 Then
@@ -27400,11 +27382,11 @@ Partial Class Ventas
                 Dim ImporteFluctuacion As Decimal = 0
                 ImporteFluctuacion = Saldo * (TCPago - TCVenta)
                 If TCPago > TCVenta Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), SerieFolio, 64, ConceptoPartida, FechaPago, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), SerieFolio, 64, ConceptoPartida, FechaPago, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 Else
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), SerieFolio, 65, ConceptoPartida, FechaPago, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), SerieFolio, 65, ConceptoPartida, FechaPago, IdCtaContable:=0, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 End If
@@ -27416,15 +27398,14 @@ Partial Class Ventas
 
             Dim IdCtaIVAXTrasladar As Integer = 0
 
-            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+            'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero()
+            '    IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero()
-            End If
+            'End If
 
             If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, SerieFolio, 13, ConceptoPartida, FechaPago, IdCtaIVAXTrasladar, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=If(tCveMoneda = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                 MsgError = "Ocurrio un error al saldar el movimiento"
             End If
 
-            IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
             If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, SerieFolio, 38, ConceptoPartida, FechaPago, IdCtaContable, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=If(tCveMoneda = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                 MsgError = "Ocurrio un error al saldar el movimiento"
             End If