Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

AF/AF.aspx

@@ -312,7 +312,16 @@
                                                         </div>
 
 
+                                                        <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="  width: 100%;" GridLines="None">
+                                                                        <Columns>
+                                                                            <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                            <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                        </Columns>
+                                                                    </asp:GridView>
+                                                         
+                                                        </div>
                                                         <div class="row" runat="server" id="trCuentaContable" visible="False">
                                                             <div class="col-md-4 ">
                                                                 <label class="  control-label">Cuenta Contable:</label>

AF/AF.aspx.vb

@@ -376,9 +376,6 @@ Partial Class AF_AF
 
             InicializaValores()
 
-            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad) Then
-                CargaCuentasContables()
-            End If
 
             CargaCombos()
 
@@ -1052,6 +1049,13 @@ Partial Class AF_AF
                     LtFechaFinDepreciación.Text = ObjActivoFijo.FechaCompra.AddMonths(ObjActivoFijo.MesesDepreciacion).ToShortDateString
                 End If
 
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad) Then
+                    CargaCuentasContables()
+                End If
+
                 CargaAFPAdreEHijos()
                 DdlAFPadres.SelectedValue = ObjActivoFijo.CveAFPadre.ToString
 
@@ -3108,7 +3112,6 @@ Partial Class AF_AF
     Private Sub CargaCuentasContables()
         trCuentaContable.Visible = True
 
-
         Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim DtCuentas As New DataTable
         Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero
@@ -3130,6 +3133,16 @@ Partial Class AF_AF
 
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(10, UsuarioActual.CveEmpresa, CveAF:=CveActivoFijo) Then
+            GvCta.DataSource = ObjConta.DtResultados
+            divCuentas.Visible = True
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+
+    End Sub
     Private Sub ActivarRegistroCuentaAF()
         If DdlCtaContable.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(221).ToEntero > 0 Then
             BtnCtaContable.Visible = True

App_Code/ClsContabilidad.vb

@@ -1430,7 +1430,7 @@ Public Class ClsContabilidad
                                 End If
                             Else
                                 OcurrioError = True
-                                StrLog.AppendFormat(" Error 1.3 - ")
+                                StrLog.AppendFormat(" Error 1.3 - La cuenta contable {0} es invalida ", dr("ConceptoContable"))
                                 Mensaje.Append(String.Format("<br> La cuenta contable {0} es invalida", dr("ConceptoContable")))
                                 Exit For
                             End If
@@ -1774,7 +1774,12 @@ Public Class ClsContabilidad
 #End Region
 
 
-    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1,
+                                            Optional CveProveedor As Integer = -1,
+                                            Optional CveClasificacion As Integer = -1,
+                                            Optional CveCuentaBancos As Integer = -1,
+                                            Optional CvePersonal As Integer = -1,
+                                            Optional CveAF As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_CuentasConceptosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1785,6 +1790,7 @@ Public Class ClsContabilidad
             .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -4804,7 +4810,7 @@ Public Class ClsContabilidad
 
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Conta_UpdateCuentas")
+        DataAdapter("PA_Conta_CuentasUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
@@ -4845,7 +4851,7 @@ Public Class ClsContabilidad
                               Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1,
                               Optional CveBancoCuenta As Integer = -1) As Integer
         Dim Retorno As Integer = 0
-        DataAdapter("PA_Conta_AddCuentas")
+        DataAdapter("PA_Conta_CuentasAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePadre", SqlDbType.Int).Value = CvePadre
@@ -4893,7 +4899,7 @@ Public Class ClsContabilidad
             Return False
         End If
 
-        DataAdapter("PA_Conta_RemoveCuentas")
+        DataAdapter("PA_Conta_CuentasRemove")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
@@ -6380,14 +6386,16 @@ Public Class ClsContabilidad
 #End Region
 
 #Region "VALIDACION POLIZA DESCUADRADA"
-    Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1) As Boolean
+    Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean
         Dim Retorno = False
 
-        DataAdapter("PA_Conta_PrePoliza_Validacion")
+        DataAdapter("PA_Conta_PrePolizasValidacion")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
-            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@AutoConta", SqlDbType.Int).Value = If(AutoConta, 1, 0)
             .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
             .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 8000).Direction = ParameterDirection.Output

App_Code/ClsFinanzas.vb

@@ -313,6 +313,32 @@ Public Class ClsFinanzas
     End Function
 
 
+    Public Function GetRazonesFinancierasEstadoFlujoEfectivoRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Finan_RF_EstadoFlujoEfectivoRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .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
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el Reporte de Estado de  Flujo de Efectivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+
     Public Function GetRazonesFinancierasRatiosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Finan_RF_RatiosRepGet")

App_Code/ClsPaginas.vb

@@ -7231,11 +7231,12 @@ Public Class ClsPaginas
         Dim TCValuacionPago As Decimal = Pago.TCPago
         Dim tFechaUltimaFluctuacion As Date
         Dim tImportePago As Decimal
-        Dim tImporteCompra As Decimal = Pago.ImportePago
+        Dim tImporteCompra As Decimal
-        Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
+        Dim PorcentajePago As Decimal
         'VALIDACIONES A CONSIDERAR
         If CompraActual.CveMoneda = Pago.CveMonedaPago Then
             Pago.TCCambioMoneda = 1 ' si la moneda es igual, el importe debe ser 1
+            If CompraActual.CveMoneda = 1 AndAlso Pago.CveMonedaPago = 1 Then Pago.TCPago = 1 : TCValuacionPago = 1
         ElseIf CompraActual.CveMoneda <> Pago.CveMonedaPago AndAlso Pago.TCCambioMoneda = 1 Then
             ErrorMovtos = True
             Return ErrorMovtos
@@ -7250,39 +7251,22 @@ Public Class ClsPaginas
         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)
         Dim tFecha As Date = Pago.Fecha
-        If CompraActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso (CompraActual.CveMoneda > 1 OrElse Pago.CveMonedaPago > 1) Then
             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
             If UltimaFluctuacion IsNot Nothing Then
                 If UltimaFluctuacion.FechaFluctuacion < tFecha Then
                     tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                     TCValuacion = UltimaFluctuacion.TCFluctuacion
                 End If
-                If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionCompra = TCValuacion
+                If CompraActual.Fecha < tFechaUltimaFluctuacion AndAlso CompraActual.CveMoneda > 1 Then TCValuacionCompra = TCValuacion
-                If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
+                If Pago.Fecha < tFechaUltimaFluctuacion AndAlso Pago.CveMonedaPago > 1 Then TCValuacionPago = TCValuacion
             End If
         End If
 
         tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
-        tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
+        tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
         PorcentajePago = Pago.ImportePago * Pago.TCCambioMoneda / CompraActual.Total
 
-        'If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
-        '    tImportePago = ((Pago.ImportePago * TCValuacionCompra / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
-        '    tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
-        '    PorcentajePago = Pago.ImportePago * Pago.TCCambioMoneda / CompraActual.Total
-        'ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
-        '    tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
-        '    tImportePago = (Pago.ImportePago).RoundSQL
-        '    PorcentajePago = Pago.ImportePago * Pago.TCCambioMoneda / CompraActual.Total
-        'ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
-        '    tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
-        '    tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
-        '    PorcentajePago = Pago.ImportePago / CompraActual.Total
-        'ElseIf CompraActual.CveMoneda = 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
-        '    tImporteCompra = Pago.ImportePagoCompra
-        '    tImportePago = Pago.ImportePago
-        '    PorcentajePago = Pago.ImportePago / CompraActual.Total
-        'End If
         Dim ImportePagoMN As Decimal = Pago.ImportePagoCompra
         Dim UsaComplementaria As Boolean = True
         If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoCompra
@@ -7291,7 +7275,7 @@ Public Class ClsPaginas
             ImportePagoMN = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
         End If
         'movimiento de pago proveedor
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePagoCompra, ImportePagoMN, ConPreP.CveConcepto, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePagoCompra, ImportePagoMN, ConPreP.CveConcepto, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
         'movimiento de pago proveedor Complementaria
         If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePagoCompra, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, ConPreP.CveConceptoComplementario, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
@@ -7303,19 +7287,19 @@ Public Class ClsPaginas
                 ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
                 If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
                 Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaIVA
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
                 If Not ErrorMovtos AndAlso CompraActual.IVADeducible > 0 Then
                     ImporteMovimiento = (PorcentajePago * CompraActual.IVADeducible).RoundSQL
                     ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
                     'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento.RoundSQL * Pago.TCPago).RoundSQL
+                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento.RoundSQL * TCValuacionPago).RoundSQL
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
                 End If
                 If Not ErrorMovtos AndAlso CompraActual.IVANoDeducible > 0 Then
                     ImporteMovimiento = (PorcentajePago * CompraActual.IVANoDeducible).RoundSQL
                     ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
                     If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
                 End If
             End If
             'si tiene RET IVA y su proporcion
@@ -7324,11 +7308,11 @@ Public Class ClsPaginas
                 ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
                 If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
                 Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetIVA
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) 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 FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
                 If Not ErrorMovtos Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
                 End If
             End If
             'si tiene Ret ISR y su proporcion
@@ -7378,12 +7362,13 @@ Public Class ClsPaginas
                 ImporteMovimiento = Math.Abs(ImporteMovimiento)
                 IdCta = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.IdCuentaOtrosIngresos, 0)
             End If
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, IdCta, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, IdCta, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
         End If
         'concepto pago
         Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
         If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O   /   E G R E S O S   X   C O M P R O B A R 
             Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
+            Pago.ImportePago = Pago.ImportePago + Pago.OtroGastoIngreso
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
@@ -7391,7 +7376,7 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=TCValuacionPago) Then ErrorMovtos = True
             End If
         End If
         If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A   D E   C R E D I T O 
@@ -8642,6 +8627,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Finanzas/RepRotacionCarteraDetalle.aspx".ToUpper(), 649)
             PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal2.aspx".ToUpper(), -1)
             PaginaDict.Add("/Finanzas/RepRazonesFinancieras2.aspx".ToUpper(), 1337)
+            PaginaDict.Add("/Finanzas/RepEstadoFlujoEfectivo.aspx".ToUpper(), 1338)
 #End Region
 #Region "Flotillas"
             PaginaDict.Add("/Flotillas/CatCombustibles.aspx".ToUpper(), 284)

App_Code/ClsRH.vb

@@ -2621,7 +2621,7 @@ Public Class ClsRH
     End Function
 
 
-    Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
+    Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, CveTipoPeriodo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RH_PersonalAsistenciasGet")
@@ -2631,6 +2631,7 @@ Public Class ClsRH
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
+            .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
             .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF

App_Code/LogicNominas.vb

@@ -279,8 +279,7 @@ Public Class LogicNominas
                     continuar = False
                 End If
                 If Not TimbreIndemnizacion Then
-                    If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
+                    If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
-
 
                         Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero()
                         'If Asistencias > 15 Then

Bancos/IE.aspx

@@ -141,7 +141,7 @@
                                 </div>
                                 <div class="col-md-1">
                                     <asp:Label ID="LblEstatusIE" runat="server" Text="Activo" Visible="false"></asp:Label>
-                                    <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
+                                    <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" Visible="false" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
                                 </div>
 
                                 <div class="col-md-2" runat="server" id="DivTC" visible="false">
@@ -233,15 +233,6 @@
                                     <asp:TextBox ID="TxtImporte" runat="server" MaxLength="15" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
                                 </div>
                             </div>
-                            <div class="row" runat="server" id="DVInteresMoratorio" visible="false">
-                                <div class="col-md-8"></div>
-                                <div class="col-md-1 control-label text-right">Interes:</div>
-                                <div class="col-md-2 input-icon">
-                                    <i style="margin: 0px;">$</i>
-                                    <asp:TextBox ID="TxtInteresMoratorio" runat="server" MaxLength="15" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
-                                </div>
-                            </div>
-
                             <div id="DivIvaIxC" runat="server" visible="false" class="row">
                                 <label class="col-md-2 control-label"></label>
                                 <div class="col-md-2"></div>

Bancos/IE.aspx.vb

@@ -726,12 +726,8 @@ Partial Class Bancos_IE
                 CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
                 LtlTitulo.Text = "Pago de Créditos"
                 CveIE = -1
-
-                DVInteresMoratorio.Visible = True
-
                 If Banc.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                     Dt = Banc.DtResultados
-
                 End If
 
                 Banc.Dispose()
@@ -1746,6 +1742,7 @@ Partial Class Bancos_IE
                 dt = Cred.DtResultados.FiltraParametros("Estatus IN (1,101,102)")
 
                 Dim Importe As Decimal = 0
+                Dim ImporteInteres As Decimal = 0
                 If CveCreditoDetalle > 0 Then
                     Dim drt As DataRow = Cred.DtResultados.FiltroPrimero(String.Format("CveCreditoDetalle = {0}", CveCreditoDetalle))
                     If drt IsNot Nothing Then
@@ -1754,18 +1751,15 @@ Partial Class Bancos_IE
                             Alert("La Mensualidad no está vigente para pago", TipoMensaje.MsgError)
                         End If
                         Importe = dt.FiltroPrimeroValor("Mensualidad", String.Format("CveCreditoDetalle = {0}", CveCreditoDetalle)).ToDecimal
+                        ImporteInteres = dt.FiltroPrimeroValor("Intereses", String.Format("CveCreditoDetalle = {0}", CveCreditoDetalle)).ToDecimal
                     End If
-
-
                 End If
 
-
                 TxtImporte.Text = Importe.ToString
                 HdnImporteCredito.Value = Importe.ToString
                 RegistraScript(String.Format("$get('TxtImporte').value = '{0}';", Importe.FormatoNumero))
                 TxtImporte.Attributes.Remove("onkeyup")
                 TxtImporte.Attributes.Add("onkeyup", String.Format("ValidaCantidad({0},{1});", TxtImporte.ClientID, Importe))
-
             End If
 
         End If
@@ -2908,15 +2902,6 @@ Partial Class Bancos_IE
                                                     importeMX = importeMovimiento
                                                 End If
 
-                                            Case 46
-
-                                                If TxtInteresMoratorio.Text.ToDecimal > 0 Then
-                                                    importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
-                                                    importeMX = importeMovimiento
-                                                Else
-                                                    importeMovimiento = 0
-                                                    importeMX = 0
-                                                End If
 
 
                                             Case 50
@@ -3589,7 +3574,6 @@ Partial Class Bancos_IE
 
                                 End If
 
-
 ''''''''''''''''''''''''''''''''''''''''''''''
 
                             Case "EGSCREDITO"
@@ -3606,7 +3590,8 @@ Partial Class Bancos_IE
                                 CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
                                 Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 57, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
+                                Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, CveMoneda, False, 1)
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, ConPreP.CveConcepto, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
                                     MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                 End If
 
@@ -3623,19 +3608,6 @@ Partial Class Bancos_IE
                                     End If
                                 End If
 
-
-                                '        Case 46
-                                '            If TxtInteresMoratorio.Text.ToDecimal > 0 Then
-                                '                importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
-                                '                importeMX = importeMovimiento
-                                '            Else
-                                '                importeMovimiento = 0
-                                '                importeMX = 0
-                                '            End If
-
-
-
-
                             Case Else
                                 Dim TipoMovimiento As Boolean = True
 

Bancos/RepCreditos.aspx

@@ -294,10 +294,6 @@
 
     </div>
      
-
-
-
-
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"  >
         <ContentTemplate>
             
@@ -363,12 +359,9 @@
     </asp:UpdatePanel>
 
      
-
-
-
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
-            <asp:GridView ID="GvC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Créditos registrados" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+            <asp:GridView ID="GvC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Créditos registrados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="Referencia" SortExpression="NumCuenta">
                         <ItemTemplate>

Compras/Compras.aspx

@@ -2521,76 +2521,7 @@
                                 </tr>
                             </table>
 
-                            <asp:UpdatePanel runat="server" ID="UpCreditos" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <div class="row" runat="server" id="romCreditosTabla" visible="false" style="max-height: 250px!important">
-                                        <div class="col-md-12">
                             
-                                            <div class="col-md-6" style="text-align: right"></div>
-
-                                            <div class="col-md-6" style="text-align: left">
-                                                <asp:Label runat="server" Font-Bold="true" ID="LblImporteCreditos" Text="Total:"> </asp:Label>
-                                            </div>
-                                            <br />
-                                            <asp:UpdatePanel runat="server" ID="UpGvCreditos" UpdateMode="Conditional">
-                                                <ContentTemplate>
-
-
-                                                    <div class="row" style="height: 200px!important">
-                                                        <div class="col-md-12" style="height: 200px!important">
-
-                                                            <asp:GridView ID="GvCreditos" runat="server" AutoGenerateColumns="False"
-                                                                DataKeyNames="CveCredito,CveCreditoDetalle,FondoGarantia,Periodo,Periodos,Marcador,ProximoPeriodo,TipoPago,Fecha,CveMoneda,Referencia,CveTipoCredito,SeparadorLiquido,Estatus,CveCompra,CveCompraInteres,Mensualidad"
-                                                                EmptyDataText="No se encontraron Créditos registrados"
-                                                                CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" data-height="200" GridLines="None">
-                                                                <Columns>
-
-                                                                    <asp:TemplateField HeaderText="Sel" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5px" Visible="false">
-                                                                        <ItemTemplate>
-                                                                            <asp:CheckBox ID="ChkSel" CssClass="ChkSelCreditos" runat="server" />
-                                                                        </ItemTemplate>
-                                                                    </asp:TemplateField>
-
-                                                                    <asp:BoundField DataField="Referencia" HeaderText="Crédito" HeaderStyle-CssClass="rompe" ItemStyle-HorizontalAlign="Left" />
-                                                                    <asp:BoundField DataField="ProximoPeriodo" HeaderText="Pago" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
-
-                                                                    <asp:TemplateField HeaderText="Capital" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
-                                                                        <ItemTemplate>
-                                                                            <asp:TextBox runat="server" ID="TxtCapital" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
-                                                                        </ItemTemplate>
-                                                                    </asp:TemplateField>
-                                                                    <asp:TemplateField HeaderText="Interes" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
-                                                                        <ItemTemplate>
-                                                                            <asp:TextBox runat="server" ID="TxtInteres" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
-                                                                        </ItemTemplate>
-                                                                    </asp:TemplateField>
-                                                                    <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
-                                                                        <ItemTemplate>
-                                                                            <asp:TextBox runat="server" ID="TxtAmbos" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
-                                                                        </ItemTemplate>
-                                                                    </asp:TemplateField>
-
-                                                                </Columns>
-                                                            </asp:GridView>
-
-                                                            <asp:GridView ID="GvCreditosRelacionados" runat="server" AutoGenerateColumns="False" Visible="false"
-                                                                EmptyDataText="No se encontraron Créditos registrados"
-                                                                CssClass=" chequesie2     Widthall ScrollAD mysmallbtn" data-sort="false" data-height="200" GridLines="None">
-                                                                <Columns>
-                                                                    <asp:HyperLinkField DataTextField="Referencia" ItemStyle-HorizontalAlign="Left" HeaderText="Referencia" DataNavigateUrlFields="CveCredito" DataNavigateUrlFormatString='/Bancos/Creditos.aspx?CveCredito={0}' ControlStyle-CssClass="rompe" />
-                                                                    <asp:BoundField DataField="PeriodoTexto" HeaderText="Periodo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
-                                                                    <asp:BoundField DataField="Tipo" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
-
-                                                                </Columns>
-                                                            </asp:GridView>
-                                                        </div>
-                                                    </div>
-                                                </ContentTemplate>
-                                            </asp:UpdatePanel>
-                                        </div>
-                                    </div>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
 
                             <%--<%--Reembolsos--%>
                             <br />
@@ -4292,6 +4223,141 @@
 
 
 
+
+
+
+
+
+
+     <div id="DivCreditoFinacieroModal" align="center" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 1000px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpdatePanel3" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal3" runat="server" Text="Créditos Financieros" />
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+
+
+                        <asp:UpdatePanel runat="server" ID="UpCreditos" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <%--<div class="row" runat="server" id="romCreditosTabla" visible="false" style="max-height: 250px!important">--%>
+                                        <div class="col-md-12">
+
+                                            <div class="col-md-6" style="text-align: right"></div>
+
+                                            <div class="col-md-6" style="text-align: left">
+                                                <asp:Label runat="server" Font-Bold="true" ID="LblImporteCreditos" Text="Acumulado:"> </asp:Label>
+                                            </div>
+                                            <br />
+                                            <asp:UpdatePanel runat="server" ID="UpGvCreditos" UpdateMode="Conditional">
+                                                <ContentTemplate>
+
+
+                                                    <div class="row" >                                                        
+                                                        <div class="col-md-12" >
+
+                                                            <asp:GridView ID="GvCreditos" runat="server" AutoGenerateColumns="False"
+                                                                DataKeyNames="CveCredito,CveCreditoDetalle,FondoGarantia,Periodo,Periodos,Marcador,ProximoPeriodo,TipoPago,Fecha,CveMoneda,Referencia,CveTipoCredito,SeparadorLiquido,Estatus,CveCompra,CveCompraInteres,Mensualidad,CveIE,Total,ImporteIE"
+                                                                EmptyDataText="No se encontraron Créditos registrados"
+                                                                CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" data-height="200" GridLines="None">
+                                                                <Columns>
+
+                                                                   <asp:TemplateField HeaderText="Sel" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5px" Visible="false">
+                                                                        <ItemTemplate>
+                                                                            <asp:CheckBox ID="ChkSel" CssClass="ChkSelCreditos" runat="server" />
+                                                                        </ItemTemplate>
+                                                                    </asp:TemplateField>
+
+                                                                    <asp:BoundField DataField="Referencia" HeaderText="Crédito" HeaderStyle-CssClass="rompe" ItemStyle-HorizontalAlign="Left"  ItemStyle-Width="300px" />
+                                                                    <asp:BoundField DataField="ProximoPeriodo" HeaderText="Pago" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
+
+                                                                    <asp:BoundField DataField="Total" HeaderText="Mensualidad" ItemStyle-HorizontalAlign="Right"  DataFormatString="{0:N2}" />
+                                                                    <asp:BoundField DataField="ImporteIE" HeaderText="Pagado" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+
+                                                                    <asp:TemplateField HeaderText="Capital" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
+                                                                        <ItemTemplate>
+                                                                            <asp:TextBox runat="server" ID="TxtCapital" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
+                                                                        </ItemTemplate>
+                                                                    </asp:TemplateField>
+                                                                    <asp:TemplateField HeaderText="Interes" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
+                                                                        <ItemTemplate>
+                                                                            <asp:TextBox runat="server" ID="TxtInteres" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
+                                                                        </ItemTemplate>
+                                                                    </asp:TemplateField>
+
+                                                                    <asp:TemplateField HeaderText="Amortizar" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
+                                                                        <ItemTemplate>
+                                                                            <asp:TextBox runat="server" ID="TxtAmbos" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
+                                                                        </ItemTemplate>
+                                                                    </asp:TemplateField>
+
+
+                                                                    <asp:TemplateField HeaderStyle-HorizontalAlign="Center" HeaderText="Redondeo" ItemStyle-HorizontalAlign="Right" >
+                                                                        <ItemTemplate>                                                                            
+                                                                            <asp:TextBox ID="TxtComision" runat="server" MaxLength="12" Width="76px" Style="text-align: right;"></asp:TextBox>
+                                                                            <ajax:FilteredTextBoxExtender ID="FilTxtComision" runat="server" TargetControlID="TxtComision" ValidChars="-." FilterType="Custom, Numbers" />
+                                                                        </ItemTemplate>
+                                                                    </asp:TemplateField>
+
+                                                                    <asp:TemplateField HeaderText="Doc. Por Pagar" ItemStyle-HorizontalAlign="Right"  >
+                                                                        <ItemTemplate>
+                                                                            <asp:Label runat="server" ID="LblDocPorPagar"  Style="text-align: right;"  Text="0" ></asp:Label>
+
+                                                                        </ItemTemplate>
+                                                                    </asp:TemplateField>
+
+                                                                </Columns>
+                                                            </asp:GridView>
+
+                                                            <asp:GridView ID="GvCreditosRelacionados" runat="server" AutoGenerateColumns="False" Visible="false"
+                                                                EmptyDataText="No se encontraron Créditos registrados"
+                                                                CssClass=" chequesie2     Widthall ScrollAD mysmallbtn" data-sort="false" data-height="200" GridLines="None">
+                                                                <Columns>
+                                                                    <asp:HyperLinkField DataTextField="Referencia" ItemStyle-HorizontalAlign="Left" HeaderText="Referencia" DataNavigateUrlFields="CveCredito" DataNavigateUrlFormatString='/Bancos/Creditos.aspx?CveCredito={0}' ControlStyle-CssClass="rompe" />
+                                                                    <asp:BoundField DataField="PeriodoTexto" HeaderText="Periodo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
+                                                                    <asp:BoundField DataField="Tipo" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
+
+                                                                </Columns>
+                                                            </asp:GridView>
+                                                        </div>
+                                                    </div>
+                                                </ContentTemplate>
+                                            </asp:UpdatePanel>
+                                        </div>
+                                    <%--</div>--%>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+
+
+                    </div>
+                    <div class="modal-footer">                        
+                        <div class="row">
+                            <div class="col-md-12">
+                                <button id="BtnGuardarmodalCreditosFiancieros" runat="server" type="button" class="btn btn-success" data-dismiss="modal">Guardar</button>
+                            </div>
+                        </div>                        
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+
+    
+
+
+
+
+
+
+
+
+
     <%--MODAL AGREGAR/EDITAR PS--%>
     <div id="divAddProducto" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -6545,59 +6611,111 @@
 
 
 
-        function ValidaCredito(objTxt, event, CveCreditoDetalle, Tipo) {
+        function ValidaCredito( event, CveCreditoDetalle, Tipo, ImporteIE ) {            
-
-            var ValorInicialTFloat = objTxt.value.toString().replace(/,/g, '').length = 0 ? 0 : parseFloat(objTxt.value.toString().replace(/,/g, ''));
-
 
             var char = event.which || event.keyCode;
 
-            if (char == 9) {//Evita que se ejecute la rutina cuando se presiona  Tap (cuando se salta de interes a ambas  si se ejecuta se limpian los valores de capital e interes)
+            if (char == 9) {
-                return;
+                return;//Evita que se ejecute la rutina cuando se presiona  Tap (cuando se salta de interes a ambas  si se ejecuta se limpian los valores de capital e interes)
             } 
             
-            if (ValorInicialTFloat == 0) {
+            debugger;
-                objTxt.value = '0';
-                //return;
-            }
 
-            let Total = 0;
+            let TotalCompra = 0;
-            let TotalString = '';
+            let ImporteAmortizado = 0;
+            let ImporteComision = 0;
+            let ImporteDocPorPagar = 0;
+            let TotalAmortizaciones = 0;
+            let TotalComisiones = 0;
 
-            if (Tipo == 1) {
+            TotalCompra = parseFloat($('#<%= TxtTotal.ClientID %>').val().replace(/,/g, '')).toFixed(2);
+            ImporteAmortizado = $(`.CsSelAmbos${CveCreditoDetalle}`).val().replace(/,/g, '').length == 0 ? 0 : parseFloat($(`.CsSelAmbos${CveCreditoDetalle}`).val().replace(/,/g, ''));
+            ImporteComision = $(`.CsSelComision${CveCreditoDetalle}`).val().replace(/,/g, '').length == 0 ? 0 : parseFloat($(`.CsSelComision${CveCreditoDetalle}`).val().replace(/,/g, ''));
+            ImporteDocPorPagar = (ImporteIE - ImporteAmortizado - ImporteComision).toFixed(2);                     
 
-                $(`.CsSelAmbos${CveCreditoDetalle}`).each(function () {
+            $(`.CsSelAmbos${CveCreditoDetalle}`).each(function () {
-                    $(this).val("");
+                FormatoMoneda3($(this));
-                });
+            });
 
-                $(`.CsSelCapital${CveCreditoDetalle}`).each(function () {
+            $(`.CsSelComision${CveCreditoDetalle}`).each(function () {
-                    FormatoMoneda3($(this));
+                FormatoMoneda3($(this));
-                });
+            });       
-
-                $(`.CsSelInteres${CveCreditoDetalle}`).each(function () {
-                    FormatoMoneda3($(this));
-                });
-
-
-            } else {
-
-                $(`.CsSelAmbos${CveCreditoDetalle}`).each(function () {
-                    FormatoMoneda3($(this));
-                });
-
-                $(`.CsSelCapital${CveCreditoDetalle}`).each(function () {
-                    $(this).val("");
-                });
-
-                $(`.CsSelInteres${CveCreditoDetalle}`).each(function () {
-                    $(this).val("");
-                });
-
-            }
-
-            var TotalCompra = parseFloat($('#<%= TxtTotal.ClientID %>').val().replace(/,/g, '')).toFixed(2);
 
             $(`.CsCreGlobal`).each(function () {
+                let stringTemp = $(this).val().replace(/,/g, '');
+                let tempValor = parseFloat(stringTemp);
+
+                if (!isNaN(tempValor)) {
+                    TotalAmortizaciones += tempValor
+                }
+            });
+
+            $(`.CsComGlobal`).each(function () {
+                let stringTemp = $(this).val().replace(/,/g, '');
+                let tempValor = parseFloat(stringTemp);
+
+                if (!isNaN(tempValor)) {
+                    TotalComisiones += tempValor
+                }
+            });
+
+
+            if (((TotalAmortizaciones + TotalComisiones) > TotalCompra) || ((ImporteAmortizado + ImporteComision) > ImporteIE)) {
+
+                TotalAmortizaciones = 0;
+                TotalComisiones = 0;
+
+                if (Tipo == 1) {
+                    $(`.CsSelAmbos${CveCreditoDetalle}`).val(``);
+                } else if (Tipo == 2) {
+                    $(`.CsSelComision${CveCreditoDetalle}`).val(``);
+                }
+
+
+                TotalCompra = parseFloat($('#<%= TxtTotal.ClientID %>').val().replace(/,/g, '')).toFixed(2);
+                ImporteAmortizado = $(`.CsSelAmbos${CveCreditoDetalle}`).val().replace(/,/g, '').length == 0 ? 0 : parseFloat($(`.CsSelAmbos${CveCreditoDetalle}`).val().replace(/,/g, ''));
+                ImporteComision = $(`.CsSelComision${CveCreditoDetalle}`).val().replace(/,/g, '').length == 0 ? 0 : parseFloat($(`.CsSelComision${CveCreditoDetalle}`).val().replace(/,/g, ''));
+                ImporteDocPorPagar = (ImporteIE - ImporteAmortizado - ImporteComision).toFixed(2);
+
+                $(`.CsSelAmbos${CveCreditoDetalle}`).each(function () {
+                    FormatoMoneda3($(this));
+                });
+
+                $(`.CsSelComision${CveCreditoDetalle}`).each(function () {
+                    FormatoMoneda3($(this));
+                });
+
+                $(`.CsCreGlobal`).each(function () {
+
+                    let stringTemp = $(this).val().replace(/,/g, '');
+                    let tempValor = parseFloat(stringTemp);
+
+                    if (!isNaN(tempValor)) {
+                        TotalAmortizaciones += tempValor
+                    }
+                });
+
+                $(`.CsComGlobal`).each(function () {
+
+                    let stringTemp = $(this).val().replace(/,/g, '');
+                    let tempValor = parseFloat(stringTemp);
+
+                    if (!isNaN(tempValor)) {
+                        TotalComisiones += tempValor
+                    }
+                });                
+            }
+
+            if (ImporteAmortizado == 0 &  ImporteComision == 0) {
+                ImporteDocPorPagar = 0;
+            }
+
+            $('#<%= LblImporteCreditos.ClientID %>').text('Acumulado: ' + FormatoNumero((TotalAmortizaciones + TotalComisiones), 2));
+            $(`.CsSelLblDocPorPagar${CveCreditoDetalle}`).text(FormatoNumero(ImporteDocPorPagar, 2));       
+
+            
+
+         /*   $(`.CsCreGlobal`).each(function () {
 
                 let stringTemp = $(this).val().replace(/,/g, '');
                 let tempValor = parseFloat(stringTemp);
@@ -6605,11 +6723,11 @@
                 if (!isNaN(tempValor)) {
                     Total += tempValor
                 }
-            });
+            });*/
 
-            if (Total > TotalCompra) {
+           /*if (Total > TotalCompra) {
 
-                let TmpObtTxtValor = TotalCompra - (Total - ValorInicialTFloat);
+                let TmpObtTxtValor = TotalCompra - (Total - ImporteAmortizado);
 
                 if (TmpObtTxtValor > 0) {
                     objTxt.value = '' + FormatoNumero(TmpObtTxtValor, 2);
@@ -6618,13 +6736,13 @@
                 }
 
                 Total = TotalCompra;
-            }
+            }*/
 
-            $('#<%= LblImporteCreditos.ClientID %>').text('Total ' + FormatoMonedaL(Total));
+            //$('#<%= LblImporteCreditos.ClientID %>').text('Acumulado: ' + FormatoMonedaL(Total));
 
-            if (ValorInicialTFloat == 0) {
+            /*if (ImporteAmortizado == 0) {
                 objTxt.value = '';
-            }
+            }*/
         }
 
 

Compras/Compras.aspx.vb

@@ -2559,7 +2559,7 @@ Partial Class Compras_Compras
                     GvCreditosRelacionados.DataSource = ObjBancos.DtResultados
                     GvCreditosRelacionados.Visible = True
                     GvCreditosRelacionados.DataBind()
-                    romCreditosTabla.Visible = True
+                    'romCreditosTabla.Visible = True
                     GvCreditos.Visible = False
                     GvCreditosRelacionados.Visible = True
 
@@ -4187,7 +4187,7 @@ Partial Class Compras_Compras
             Dim DifCreCompra As Decimal = 0
             Dim TotalCreditos As Decimal = 0
             Dim MensualidadMultipleTotal As Decimal = 0
-            Dim CveUltimoCreditoDetalleInterno As Integer
+            ' Dim CveUltimoCreditoDetalleInterno As Integer
 
             For Each GvRow As GridViewRow In GvCreditos.Rows
 
@@ -4201,22 +4201,22 @@ Partial Class Compras_Compras
 
                     TotalCreditos = TotalCreditos + CapitalMiltiple + InteresMiltiple
                     MensualidadMultipleTotal = MensualidadMultipleTotal + MensualidadMultiple
-                    CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
+                    'CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
 
                 ElseIf AmbosMiltiple > 0 Then
 
                     TotalCreditos = TotalCreditos + AmbosMiltiple
                     MensualidadMultipleTotal = MensualidadMultipleTotal + MensualidadMultiple
-                    CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
+                    'CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
                     EstatusCredito = GvRow.DataKey("Estatus").ToEntero
                 End If
             Next
 
-            If TotalCreditos <> TxtTotal.Text.ToDecimal Then
+            'If TotalCreditos <> TxtTotal.Text.ToDecimal Then
-                Alert($"El importe de La factura no concide con  el total de los creditos, diferencia: {  (TotalCreditos - TxtTotal.Text.ToDecimal).FormatoNumero(2)}", TipoMensaje.MsgAdvertencia)
+            '    Alert($"El importe de La factura no concide con  el total de los creditos, diferencia: {  (TotalCreditos - TxtTotal.Text.ToDecimal).FormatoNumero(2)}", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+            '    Exit Sub
+            'End If
 
-            End If
         End If
 
         ''VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
@@ -4833,9 +4833,9 @@ Partial Class Compras_Compras
                             End If
 
 
-                            If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
+                            'If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
-                                CveEstatusFactura = 6
+                            '    CveEstatusFactura = 6
-                            End If
+                            'End If
 
 
                             'Compra
@@ -5996,6 +5996,7 @@ Partial Class Compras_Compras
 
                                                         If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(2, 102) Then   'SI ES CRÉDITO Y ESTA PAGADO 
 
+                                                            'aqui meter for, con validaciones de estatus de creditos
                                                             For Each Row2 As DataRow In TmpDT.Rows
 
                                                                 importeMovimiento = TxtTotal.Text.ToDecimal 'TmpDT.SUM("Total", String.Format("ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto, 0) = {2} Then", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
@@ -6041,20 +6042,67 @@ Partial Class Compras_Compras
                                                                 ErrorPrepoliza = True
                                                             End If
 
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                            End If
 
+
+
+
+                                                            'daskldaskldmaskldanmlksd
                                                             If importeMovimiento <> 0 Then
-                                                                Dim Pago As New CompraPago
+                                                                For Each gvRowCredito As GridViewRow In GvCreditos.Rows
-                                                                Pago.ImportePago = importeMovimiento
+
-                                                                Pago.CveIE = CveIE
+                                                                    Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
-                                                                Pago.CveMonedaPago = 1
+                                                                    Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
-                                                                Pago.CveCompraAmortizacion = -1
+
-                                                                Pago.CveCreditoDetalle = CveCreditoDetalle
+                                                                    Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
-                                                                'Pago.OtroGastoIngreso = OtrosGastosIngresos
+
+                                                                    Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
+                                                                    Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
+                                                                    Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
+
+                                                                    If ImportePagoCredito > 0 Then
+                                                                        Dim Pago As New CompraPago
+                                                                        Pago.ImportePago = ImportePagoCredito
+                                                                        Pago.CveIE = CveIECredito
+                                                                        Pago.CveMonedaPago = 1
+                                                                        Pago.CveCompraAmortizacion = -1
+                                                                        Pago.CveProveedor = CveProveedor
+                                                                        Pago.CveCreditoDetalle = CveCreditoDetalleTemp
+                                                                        Pago.TipoPago = "Egsc"
+
+                                                                        If OtrosGastosIngresosCredito <> 0 Then
+                                                                            Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
+                                                                        End If
+
+                                                                        ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
+                                                                        If ErrorCreditosCompra Then
+                                                                            Exit For
+                                                                        End If
+
+                                                                        Dim ImporteDifCredito As Decimal = ImporteIEAnticipo - ImportePagoCredito ' CompraActual.Total
+
+                                                                        If ImporteDifCredito > 0 Then
+
+                                                                            ' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
+                                                                            Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
+
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 59, Referencia, Concepto, IdCtaContable, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+
+
+                                                                        End If
+                                                                    End If
+
+
+
+                                                                Next
+
 
-                                                                ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                             End If
 
@@ -6094,6 +6142,10 @@ Partial Class Compras_Compras
                                                             IdCtaContable = CtaProveedorExtranjera
                                                         End If
 
+
+
+
+
                                                     Case 30 'Bancos
                                                         importeMovimiento = importeBanco + importeCajaChica 'Uno de los dos debe ser 0
                                                         If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then
@@ -6747,40 +6799,33 @@ Partial Class Compras_Compras
                                                                                 ErrorPrepoliza = True
                                                                             End If
                                                                         End If
-
                                                                     Else
 
                                                                         Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion
-
-
                                                                         If TotalRealDevolucion <> 0 Then
 
                                                                             If Math.Abs(DiferenciaDevolucion) > 0 Then
-
-
                                                                                 Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero
                                                                                 Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
-
-
                                                                                 Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero
-
+                                                                                Dim tMovto As Boolean = False
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
+                                                                                If UsuarioActual.CveEmpresa = 119 Then
+                                                                                    tMovto = True
+                                                                                Else
+                                                                                    DiferenciaDevolucion = -DiferenciaDevolucion
+                                                                                End If
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             End If
-
-
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion.RoundSQL(), Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=(TotalRealDevolucion * tipoCambioActual).RoundSQL(), ImporteME:=If(tipoCambioActual = 1, 0, TotalRealDevolucion).RoundSQL(), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
-
-
                                                                         Else
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
                                                                         End If
-
                                                                     End If
                                                                 End If
 
@@ -11794,7 +11839,7 @@ Partial Class Compras_Compras
                     tdNumeroReembolso.Visible = False
                 End If
                 EsContado = False
-                romCreditosTabla.Visible = False
+                'romCreditosTabla.Visible = False
             Case "2" 'Contado
                 PnlContado.Visible = True
                 TxtNumeroReembolso.Text = ""
@@ -11817,7 +11862,7 @@ Partial Class Compras_Compras
                 End If
 
                 EsContado = True
-                romCreditosTabla.Visible = False
+                'romCreditosTabla.Visible = False
             Case "3" 'Reembolso/Comprobacion
                 PnlContado.Visible = True
 
@@ -11874,7 +11919,7 @@ Partial Class Compras_Compras
                     Case "6"
                         DdlCuentaCajaChicaReembolso.Visible = True
                 End Select
-                romCreditosTabla.Visible = False
+                'romCreditosTabla.Visible = False
             Case "4"
                 EsContado = False
                 CargaCreditosDisponibles()
@@ -11886,6 +11931,11 @@ Partial Class Compras_Compras
             RegistraScript(String.Format("$('#{0}').modal('show');", "DivContadoModal"))
         End If
 
+
+        If RBLPago.SelectedValue.ToEntero = 4 Then ' Créditos Financieros
+            RegistraScript(String.Format("$('#{0}').modal('show');", "DivCreditoFinacieroModal"))
+        End If
+
         LtlTituloPago.Text = If(EsContado, "Contado", "Reembolso")
 
         DivContado.Visible = EsContado
@@ -11949,20 +11999,20 @@ Partial Class Compras_Compras
             Case "1" ' Bancos
                 PnlContadoBancos.Visible = True
                 TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
-                ChkCreditoMultiple.Visible = False
+                'ChkCreditoMultiple.Visible = False
                 RfvTxtNumeroReembolso.Enabled = False
                 TxtNumeroReembolso.Text = ""
                 TxtRembolsoNumero.Text = ""
             Case "2" ' F y E
                 PnlContadoFyE.Visible = True
                 CargaFuncionariosEmpleados()
-                ChkCreditoMultiple.Visible = False
+                'ChkCreditoMultiple.Visible = False
                 RfvTxtNumeroReembolso.Enabled = True
                 TxtRembolsoNumero.Text = ""
                 TxtNumeroReembolso.Text = ""
             Case "3" ' Creditos
                 PnlContadoCreditos.Visible = True
-                ChkCreditoMultiple.Visible = True
+                'ChkCreditoMultiple.Visible = True
                 CargaCreditos()
                 RfvTxtNumeroReembolso.Enabled = False
                 RfvTxtNumeroReembolso.Text = ""
@@ -11970,13 +12020,13 @@ Partial Class Compras_Compras
             Case "4" ' Deudores
                 PnlContadoDeudores.Visible = True
                 CargaDeudores()
-                ChkCreditoMultiple.Visible = False
+                'ChkCreditoMultiple.Visible = False
                 RfvTxtNumeroReembolso.Enabled = False
                 TxtNumeroReembolso.Text = ""
                 TxtRembolsoNumero.Text = ""
             Case "5" ' ACREEDORES
                 PnlContadoAcreedores.Visible = True
-                ChkCreditoMultiple.Visible = True
+                'ChkCreditoMultiple.Visible = True
                 CargaAcreedores()
                 RfvTxtNumeroReembolso.Enabled = False
                 TxtNumeroReembolso.Text = ""
@@ -11984,7 +12034,7 @@ Partial Class Compras_Compras
             Case "6" ' Caja Chica
                 PnlContadoCajaChica.Visible = True
                 TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
-                ChkCreditoMultiple.Visible = False
+                'ChkCreditoMultiple.Visible = False
                 RfvTxtNumeroReembolso.Enabled = True
                 TxtNumeroReembolso.Text = ""
                 TxtRembolsoNumero.Text = ""
@@ -18800,7 +18850,7 @@ Partial Class Compras_Compras
 
         If ChkCreditoMultiple.Checked Then
 
-            romCreditosTabla.Visible = True
+            'romCreditosTabla.Visible = True
             Dim ObjBancos As New ClsBancos
 
             If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then
@@ -18823,10 +18873,15 @@ Partial Class Compras_Compras
             Dim TxtInteres As TextBox = e.Row.FCTextBox("TxtInteres")
             Dim TxtAmbos As TextBox = e.Row.FCTextBox("TxtAmbos")
             Dim CveCreditoDetalle As Integer = e.Row.DataKey("CveCreditoDetalle").ToEntero
+            Dim TxtComision As TextBox = e.Row.FCTextBox("TxtComision")
+            Dim LblDocPorPagar As Label = e.Row.FCLabel("LblDocPorPagar")
 
             Dim CveCompraCapital As Integer = e.Row.DataKey("CveCompra").ToEntero
             Dim CveCompraInteres As Integer = e.Row.DataKey("CveCompraInteres").ToEntero
 
+
+            Dim ImporteIE As Decimal = e.Row.DataKey("ImporteIE").ToDecimal
+
             If CveCompraCapital > 0 Then
                 TxtCapital.Enabled = False
                 TxtAmbos.Enabled = False
@@ -18837,18 +18892,22 @@ Partial Class Compras_Compras
                 TxtAmbos.Enabled = False
             End If
 
-            TxtCapital.Attributes.Add("class", $"CsCreGlobal CsSelCapital{CveCreditoDetalle}")
+            'TxtCapital.Attributes.Add("class", $"CsCreGlobal CsSelCapital{CveCreditoDetalle}")
-            TxtCapital.Attributes.Add("onkeyup", $"ValidaCredito(this,event,{CveCreditoDetalle},1)")
+            'TxtCapital.Attributes.Add("onkeyup", $"ValidaCredito(this,event,{CveCreditoDetalle},1,{ImporteIE})")
-            'TxtCapital.Attributes.Add("data-CD", CveCreditoDetalle.ToString)
+            ''TxtCapital.Attributes.Add("data-CD", CveCreditoDetalle.ToString)
 
-            TxtInteres.Attributes.Add("class", $"CsCreGlobal CsSelInteres{CveCreditoDetalle}")
+            'TxtInteres.Attributes.Add("class", $"CsCreGlobal CsSelInteres{CveCreditoDetalle}")
-            TxtInteres.Attributes.Add("onkeyup", $"ValidaCredito(this,event,{CveCreditoDetalle},1)")
+            'TxtInteres.Attributes.Add("onkeyup", $"ValidaCredito(this,event,{CveCreditoDetalle},1,{ImporteIE})")
             'TxtInteres.Attributes.Add("data-CD", CveCreditoDetalle.ToString)
 
             TxtAmbos.Attributes.Add("class", $"CsCreGlobal CsSelAmbos{CveCreditoDetalle}")
-            TxtAmbos.Attributes.Add("onkeyup", $"ValidaCredito(this,event,{CveCreditoDetalle},2)")
+            TxtAmbos.Attributes.Add("onkeyup", $"ValidaCredito(event,{CveCreditoDetalle},1,{ImporteIE})")
             'TxtAmbos.Attributes.Add("data-CD", CveCreditoDetalle.ToString)
 
+            TxtComision.Attributes.Add("class", $"CsComGlobal CsSelComision{CveCreditoDetalle}")
+            TxtComision.Attributes.Add("onkeyup", $"ValidaCredito(event,{CveCreditoDetalle},2,{ImporteIE})")
+
+            LblDocPorPagar.Attributes.Add("class", $"CsSelLblDocPorPagar{CveCreditoDetalle}")
 
 
         End If
@@ -18857,7 +18916,7 @@ Partial Class Compras_Compras
     Private Sub CargaCreditosDisponibles()
 
 
-        If RBLPago.SelectedValue.ToEntero = 4 Then
+        If RBLPago.SelectedValue.ToEntero = 4 And CveProveedor > 0 Then
 
             Dim ObjBancos As New ClsBancos
             If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then
@@ -18867,11 +18926,11 @@ Partial Class Compras_Compras
                 GvCreditos.DataSource = Nothing
             End If
             ObjBancos.Dispose()
-            romCreditosTabla.Visible = True
+            'romCreditosTabla.Visible = True
             GvCreditos.DataBind()
 
         Else
-            romCreditosTabla.Visible = False
+            'romCreditosTabla.Visible = False
         End If
 
         UpGvCreditos.Update()

Compras/eFacturas.aspx.vb

@@ -3407,8 +3407,10 @@ Partial Class Compras_eFacturas
 
             MontoPago = Monto
 
+            Dim NodosPagosString As String = Regex.Replace(nodePagos2.InnerXml, $"{Prefijo}:", "", RegexOptions.IgnoreCase)
+
             Dim ObjCompraFolios As New ClsCompras
-            If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{Prefijo}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
+            If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, NodosPagosString, UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
                 '
                 '.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
                 If ObjCompraFolios.DtResultados.Rows.Count > 0 Then

Contabilidad/RegPrePolizaS.aspx.vb

@@ -572,7 +572,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
             If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
-            If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+            If CveConceptoContable.Contiene(30, 204, 66, 92, 202) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
             'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
             If e.Row.DBCampo("Modificado") Then

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -27,7 +27,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            HttpContext.Current.Application("GlobalDTContaConceptosContables") = Nothing
             DdlConceptos.DataSource = GlobalDTContaConceptosContables(-1)
             DdlConceptos.DataBind()
             DdlConceptos.Items.Insert(0, New ListItem("Todos", "-1"))

CxC/RepCxCDetalle.aspx

@@ -348,7 +348,7 @@
                             Contrato:
                         </div>                           
                         <div class="col-md-2" runat="server" id="divContrato" visible="false" >
-                            <asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" DataTextField="TituloInfo" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" DataTextField="TituloInfo" DataValueField="CveContrato"  Width="100%" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>

CxC/RepCxCDetalle.aspx.vb

@@ -474,7 +474,8 @@ Partial Class RepCxCDetalle
                                    RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF,
                                    FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
                                    CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero()) Then
+                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(),
+                                   CveContrato:=DdlContrato.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
 
@@ -483,16 +484,10 @@ Partial Class RepCxCDetalle
             DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(0).Copy)
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
                 GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1)
-
-                'DTCartera = ObjMovtos.DSResultados.Tables(1)
-                'DTCartera.TableName = "DTCartera"
                 DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(1).Copy)
-
             End If
 
-
         Else
             GvDatos.DataSource = Nothing
         End If

Empresas/158/Formatos/Factura.rdlc

@@ -1486,7 +1486,7 @@
               </Image>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>3.57076in</Top>
+            <Top>3.59576in</Top>
             <Left>0.02339in</Left>
             <Height>1.21305in</Height>
             <Width>8.22763in</Width>
@@ -1582,30 +1582,22 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Régimen fiscal: Regimen General de Ley Personas Morales</Value>
+                    <Value>Régimen de Actividades Agrícolas, Ganaderas, Silvícolas y Pesqueras PM</Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>6.7pt</FontSize>
                       <FontWeight>Normal</FontWeight>
                     </Style>
                   </TextRun>
-                  <TextRun>
-                    <Value>.</Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>6.7pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                    </Style>
-                  </TextRun>
                 </TextRuns>
                 <Style />
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox32</rd:DefaultName>
-            <Top>2.84726cm</Top>
+            <Top>2.78376cm</Top>
             <Left>0.08425cm</Left>
-            <Height>2.70413cm</Height>
+            <Height>2.94402cm</Height>
-            <Width>4.08234cm</Width>
+            <Width>4.12431cm</Width>
             <ZIndex>3</ZIndex>
             <Style>
               <Border>
@@ -1983,7 +1975,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox40</rd:DefaultName>
-            <Top>3.869cm</Top>
+            <Top>3.9325cm</Top>
             <Left>13.26812cm</Left>
             <Height>1.68239cm</Height>
             <Width>7.72123cm</Width>
@@ -2791,7 +2783,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>2.25503in</Top>
+            <Top>2.28003in</Top>
             <Left>0.04048in</Left>
             <Height>0.34081in</Height>
             <Width>8.24013in</Width>
@@ -2817,7 +2809,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>6.77831cm</Top>
+            <Top>6.84181cm</Top>
             <Left>0.10282cm</Left>
             <Height>0.14316cm</Height>
             <Width>20.88652cm</Width>
@@ -2850,7 +2842,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>7.54968cm</Top>
+            <Top>7.61318cm</Top>
             <Left>15.05252cm</Left>
             <Height>0.14316cm</Height>
             <Width>5.93682cm</Width>
@@ -2887,7 +2879,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>ImporteLetra</rd:DefaultName>
-            <Top>3.07034in</Top>
+            <Top>3.09534in</Top>
             <Left>2.02374in</Left>
             <Height>0.18861in</Height>
             <Width>6.23978in</Width>
@@ -2917,7 +2909,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>8.43074cm</Top>
+            <Top>8.49424cm</Top>
             <Left>0.07107cm</Left>
             <Height>0.1cm</Height>
             <Width>20.88652cm</Width>
@@ -2948,7 +2940,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>12.32551cm</Top>
+            <Top>12.38901cm</Top>
             <Left>0.10282cm</Left>
             <Height>0.14316cm</Height>
             <Width>20.85477cm</Width>
@@ -2982,7 +2974,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>7.0273cm</Top>
+            <Top>7.0908cm</Top>
             <Left>5.1403cm</Left>
             <Height>0.34219cm</Height>
             <Width>9.73903cm</Width>
@@ -3100,7 +3092,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
-            <Top>6.99203cm</Top>
+            <Top>7.05553cm</Top>
             <Left>15.05252cm</Left>
             <Height>0.48004cm</Height>
             <Width>5.93682cm</Width>
@@ -3562,7 +3554,7 @@
               </Tablix>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>14.85441cm</Top>
+            <Top>14.91791cm</Top>
             <Left>0.10282cm</Left>
             <Height>2.25247cm</Height>
             <Width>20.89818cm</Width>
@@ -3620,7 +3612,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>8.5629cm</Top>
+            <Top>8.6264cm</Top>
             <Left>0.10282cm</Left>
             <Height>0.34219cm</Height>
             <Width>20.85477cm</Width>
@@ -4104,7 +4096,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.64506cm</Top>
+            <Top>12.70856cm</Top>
             <Left>3.84531cm</Left>
             <Height>2.03295cm</Height>
             <Width>5.75197cm</Width>
@@ -4229,7 +4221,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.64506cm</Top>
+            <Top>12.70856cm</Top>
             <Left>9.70311cm</Left>
             <Height>2.03295cm</Height>
             <Width>4.17266cm</Width>
@@ -4320,7 +4312,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.64506cm</Top>
+            <Top>12.70856cm</Top>
             <Left>13.87577cm</Left>
             <Height>2.03294cm</Height>
             <Width>6.94061cm</Width>
@@ -4379,7 +4371,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>17.28327cm</Top>
+            <Top>17.34677cm</Top>
             <Left>17.34759cm</Left>
             <Height>0.65292cm</Height>
             <Width>3.68516cm</Width>

Finanzas/RepEstadoFlujoEfectivo.aspx

@@ -0,0 +1,951 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoFlujoEfectivo.aspx.vb" Inherits="Finanzas_RepEstadoFlujoEfectivo" 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">
+
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Always">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkExportar" runat="server" Visible="false" OnClick="LnkExportar_Click"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
+            </li>    
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkExportar" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+    
+
+</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="LblVista">Vista: </label>
+                                <div class="col-md-1 " runat="server" >
+                                    <asp:DropDownList ID="DdlVista" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlVista_SelectedIndexChanged">
+                                        <asp:ListItem Value="1" Selected="True">Ejercicio</asp:ListItem>
+                                        <asp:ListItem Value="2">Mensual</asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+
+
+                                <label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
+                                <div class="col-md-2 " runat="server" id="LiEjercicioDdl">
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
+                                    </asp:DropDownList>
+                                </div>
+
+                                <label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="True">Ejercicio Fin: </label>
+                                <div class="col-md-2" runat="server" id="LiEjercicioDdl2" visible="True">
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
+                                    </asp:DropDownList>
+                                </div>
+                                 <label class="col-md-2" style="width: 80px;"  runat="server" id="LblPeriodo" visible="false"  >Periodo: </label>    
+                                <div class="col-md-2 " runat="server" id="DivPeriodo" visible="false">
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                        <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                        <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                        <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                        <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                        <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                        <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                        <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                        <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                        <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                        <asp:ListItem Text="Diciembre" Value="12" Selected="True"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>  
+                               
+                                <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1" Visible="false">SubProyecto:</asp:Label>
+                                <div class="col-md-2" runat="server" visible="false">
+                                    <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%"  >
+
+                <ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General" >
+                    <ContentTemplate>
+                         <asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional">
+                             <ContentTemplate>
+
+
+
+                                 <asp:GridView ID="GvBalanceGeneral" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GvBalanceGeneral_RowDataBound" Width="60%"
+                                    EmptyDataText="No se encontraron registros" 
+                                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"                                     
+                                    Style="text-align: center;" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-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" ControlStyle-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="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" Width="60%"
+                                    EmptyDataText="No se encontraron registros" 
+                                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"                                     
+                                    Style="text-align: center;" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-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" ControlStyle-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,EsPorcentaje,Formula" OnRowDataBound="GVRatios_RowDataBound" Width="60%"
+                                    EmptyDataText="No se encontraron registros" 
+                                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" 
+                                    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" ControlStyle-Width="300px">
+                                            <HeaderTemplate>Ratio</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Label CssClass="truncate" ID="LblRatio" runat="server" Text='<%# Eval("Ratio") %>'></asp:Label>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
+
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                                         
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                                         
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                                         
+                                                         
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                                        <asp:BoundField   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/RepEstadoFlujoEfectivo.aspx.vb

@@ -0,0 +1,640 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Drawing
+Imports System.IO
+Imports System.Windows.Forms
+Imports Extensiones
+Imports GemBox.Spreadsheet
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Finanzas_RepEstadoFlujoEfectivo
+    Inherits ClsPaginas
+
+
+
+
+
+    Property DTRatios As DataTable
+        Get
+            If ViewState("DTRatios") Is Nothing Then
+                ViewState("DTRatios") = New DataTable
+            End If
+
+            Return DirectCast(ViewState("DTRatios"), DataTable)
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DTRatios") = value
+        End Set
+    End Property
+
+
+    Property DTEjercicios As DataTable
+        Get
+            If ViewState("DTEjercicios") Is Nothing Then
+                ViewState("DTEjercicios") = New DataTable
+            End If
+
+            Return DirectCast(ViewState("DTEjercicios"), DataTable)
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DTEjercicios") = value
+        End Set
+    End Property
+
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            TAB.ActiveTabIndex = 0
+
+            CargaDTEjercicios()
+            DdlVista_SelectedIndexChanged(Nothing, Nothing)
+
+            CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
+
+            DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
+            ValidaEjercicios()
+
+        End If
+    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
+
+
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+        LnkExportar.Visible = False
+
+        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 BALANCE GENERAL"
+
+
+
+    Private Sub CargaDatosBalanceGeneral()
+
+        LnkExportar.Visible = False
+        GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
+
+
+
+
+        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+
+
+        Dim objFinanzas As New ClsFinanzas
+        Dim dtTemp As New DataTable
+
+        Dim FechasConsultar As String = GetFechasConsultar()
+
+
+        ' Alert(FechasConsultar)
+
+        If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
+            dtTemp = objFinanzas.DtResultados
+
+            GvBalanceGeneralMostrarColumnas(dtTemp, GvBalanceGeneral)
+            GvBalanceGeneral.DataSource = dtTemp
+
+            If dtTemp.Rows.Count > 0 Then
+                '  LnkExportar.Visible = True
+            End If
+
+        Else
+            GvBalanceGeneral.DataSource = Nothing
+        End If
+
+        objFinanzas.Dispose()
+        GvBalanceGeneral.DataBind()
+
+        UpBalanceGeneral.Update()
+
+    End Sub
+
+
+
+    Private Sub GvBalanceGeneralOcultarColumnas(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
+        UpBalanceGeneral.Update()
+    End Sub
+
+    Private Sub GvBalanceGeneralMostrarColumnas(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
+
+            CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+
+        Next
+    End Sub
+
+    Protected Sub GvBalanceGeneral_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
+                e.Row.Cells(0).Text = ""
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 3 Then
+                e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
+                e.Row.Attributes.Add("style", "border-top: 1px solid #000;")
+                e.Row.Cells(0).Text = ""
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 4 Then
+                e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
+                e.Row.Cells(0).Text = ""
+            End If
+
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+
+
+#Region "ESTADO RESULTADOS"
+
+
+
+    Private Sub CargaDatosEstadoResultados()
+
+
+
+        LnkExportar.Visible = False
+        GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
+
+
+
+
+
+        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+
+
+        Dim objFinanzas As New ClsFinanzas
+        Dim dtTemp As New DataTable
+
+        Dim FechasConsultar As String = GetFechasConsultar()
+
+        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) 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
+            CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            '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
+                e.Row.Cells(0).Text = ""
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 3 Then
+                e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
+                e.Row.Cells(0).Text = ""
+            End If
+
+            If e.Row.DataKey("Tipo").ToEntero = 4 Then
+                e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
+                e.Row.Cells(0).Text = ""
+            End If
+
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+#Region "RATIOS"
+
+
+
+    Private Sub CargaDatosRatios()
+
+
+
+        DTRatios = New DataTable
+
+        LnkExportar.Visible = False
+        GVRatiosOcultarColumnas(GVRatios, 1)
+
+
+
+
+
+        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+
+        Dim FechasConsultar As String = GetFechasConsultar()
+
+
+        Dim objFinanzas As New ClsFinanzas
+
+        If objFinanzas.GetRazonesFinancierasRatiosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
+            DTRatios = objFinanzas.DtResultados
+
+            GVRatiosMostrarColumnas(DTRatios, GVRatios)
+            GVRatios.DataSource = DTRatios
+
+            If DTRatios.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 = 4
+
+
+        For index = 4 To dt.Columns.Count - 2
+            CType(Gv.Columns(index + 1), BoundField).DataField = dt.Columns(index + 1).ColumnName
+            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
+
+            For x = 1 To DTRatios.Columns.Count
+
+                If e.Row.DataKey("Ratio") = "INCREMENTO DE VENTAS" Then
+                    Dim asddas = ""
+                End If
+
+                If e.Row.Cells(x).Text.ToDecimal < 0 Then
+                    e.Row.Cells(x).ForeColor = Drawing.Color.Red
+                End If
+
+            Next
+
+            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 = $"&emsp;{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
+
+            If e.Row.DataKey("Tipo").ToEntero <> 1 AndAlso DTRatios.Columns.Count > 0 Then
+
+                Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False)
+
+                For x = 1 To DTRatios.Columns.Count - 2
+                    If EsPorcentaje Then
+                        e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
+                    Else
+                        e.Row.Cells(x).Text = $"{e.Row.Cells(x).Text.ToDecimal.ToString("###,###,###.00")}"
+                    End If
+                Next
+
+            End If
+            If e.Row.DataKey("Formula").Trim().Length > 0 Then
+
+                'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares"
+                e.Row.Attributes.Add("data-html", "true")
+                e.Row.Attributes.Add("data-toggle", "tooltip")
+                e.Row.Attributes.Add("data-placement", "top")
+                e.Row.Attributes.Add("title", $"{e.Row.DataKey("Formula").Trim()}")
+            End If
+
+
+
+
+
+
+
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+
+#Region "DESCARGA EXCEL"
+
+
+    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs)
+
+        Dim SubProyecto As String = ""
+
+        If DdlSubproyecto.SelectedValue.ToEntero > 0 Then
+            SubProyecto = DdlSubproyecto.SelectedItem.Text
+        End If
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.Append($"Año Inicio: {DdlEjercicio.SelectedItem.Text} Año Fin: {DdlEjercicio2.SelectedItem.Text} ")
+        SbFiltros.Append($"SubProyecto: {SubProyecto}")
+
+        Dim Titulo As String = ""
+        Dim NombreReporte As String = ""
+
+        If TAB.ActiveTabIndex = 0 Then
+            Titulo = "Balance General"
+            NombreReporte = "BalanceGenral"
+        End If
+
+        If TAB.ActiveTabIndex = 1 Then
+            Titulo = "Estado de Resultados"
+            NombreReporte = "Estado de Resultados"
+        End If
+
+        If TAB.ActiveTabIndex = 2 Then
+
+            Titulo = "Ratios"
+            NombreReporte = "Ratios"
+
+
+        End If
+
+
+        GVRatios.ExportToExcelGembox(NombreReporte, UsuarioActual, $"Reporte {Titulo}", "", DatosFiltros:=SbFiltros.ToString())
+
+    End Sub
+
+
+
+#End Region
+
+
+
+    Protected Sub DdlVista_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+        LblPeriodo.Visible = False
+        DivPeriodo.Visible = False
+        DdlPeriodo.SelectedValueExist(12)
+
+        DdlEjercicio.SelectedValue = Nothing
+        DdlEjercicio2.SelectedValue = Nothing
+
+        DdlEjercicio.Items.Clear()
+        DdlEjercicio2.Items.Clear()
+
+
+        If DdlVista.SelectedValue.ToEntero = 1 Then
+
+            LblPeriodo.Visible = True
+            DivPeriodo.Visible = True
+
+            AddHandler DdlEjercicio.SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
+            AddHandler DdlEjercicio2.SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
+            CargaEjercicios()
+        Else
+
+            RemoveHandler CType(DdlEjercicio, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
+            RemoveHandler CType(DdlEjercicio2, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
+            CargaMeses()
+        End If
+
+        UpFiltros.Update()
+
+    End Sub
+
+
+    Private Sub CargaDTEjercicios()
+
+        Dim ClsConta As New ClsContabilidad
+        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DTEjercicios = ClsConta.DtResultados
+        End If
+        ClsConta.Dispose()
+    End Sub
+
+    Private Sub CargaEjercicios()
+
+        Dim Count As Integer = 0
+
+        For Each dRow As DataRow In DTEjercicios.Rows
+            DdlEjercicio.Items.Add(New ListItem($"{dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}"))
+            DdlEjercicio2.Items.Add(New ListItem($"{dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}"))
+            Count = Count + 1
+        Next
+
+        If Count > 0 Then
+            DdlEjercicio.SelectedIndex = 0
+            DdlEjercicio2.SelectedIndex = 0
+        End If
+
+    End Sub
+
+
+    Private Sub CargaMeses()
+
+        Dim Count As Integer = 0
+
+        For Each dRow As DataRow In DTEjercicios.Rows
+
+            DdlEjercicio.Items.Add(New ListItem($"Enero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-01"))
+            DdlEjercicio.Items.Add(New ListItem($"Febrero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-02"))
+            DdlEjercicio.Items.Add(New ListItem($"Marzo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-03"))
+            DdlEjercicio.Items.Add(New ListItem($"Abril {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-04"))
+            DdlEjercicio.Items.Add(New ListItem($"Mayo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-05"))
+            DdlEjercicio.Items.Add(New ListItem($"Junio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-06"))
+            DdlEjercicio.Items.Add(New ListItem($"Julio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-07"))
+            DdlEjercicio.Items.Add(New ListItem($"Agosto {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-08"))
+            DdlEjercicio.Items.Add(New ListItem($"Septiembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-09"))
+            DdlEjercicio.Items.Add(New ListItem($"Octubre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-10"))
+            DdlEjercicio.Items.Add(New ListItem($"Noviembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-11"))
+            DdlEjercicio.Items.Add(New ListItem($"Diciembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-12"))
+
+
+            DdlEjercicio2.Items.Add(New ListItem($"Enero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-01"))
+            DdlEjercicio2.Items.Add(New ListItem($"Febrero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-02"))
+            DdlEjercicio2.Items.Add(New ListItem($"Marzo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-03"))
+            DdlEjercicio2.Items.Add(New ListItem($"Abril {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-04"))
+            DdlEjercicio2.Items.Add(New ListItem($"Mayo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-05"))
+            DdlEjercicio2.Items.Add(New ListItem($"Junio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-06"))
+            DdlEjercicio2.Items.Add(New ListItem($"Julio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-07"))
+            DdlEjercicio2.Items.Add(New ListItem($"Agosto {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-08"))
+            DdlEjercicio2.Items.Add(New ListItem($"Septiembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-09"))
+            DdlEjercicio2.Items.Add(New ListItem($"Octubre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-10"))
+            DdlEjercicio2.Items.Add(New ListItem($"Noviembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-11"))
+            DdlEjercicio2.Items.Add(New ListItem($"Diciembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-12"))
+
+
+            Count = Count + 1
+
+        Next
+
+        If Count > 0 Then
+            DdlEjercicio.SelectedIndex = 0
+            DdlEjercicio2.SelectedIndex = 0
+        End If
+
+
+    End Sub
+
+
+    Private Function GetFechasConsultar() As String
+        Dim ListaFechas As New List(Of String)
+
+        If DdlVista.SelectedValue.ToEntero = 1 Then 'POR EJERCICIO
+
+            If DdlEjercicio2.SelectedValue.ToEntero >= DdlEjercicio.SelectedValue.ToEntero Then
+
+                Dim x As Integer = DdlEjercicio.SelectedValue.ToEntero
+
+                For x = DdlEjercicio.SelectedValue.ToEntero To DdlEjercicio2.SelectedValue.ToEntero
+                    ListaFechas.Add($"{x}-12-31")
+                Next x
+            End If
+
+
+        Else ' POR MESES
+
+            ListaFechas.Add($"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
+            ListaFechas.Add($"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
+
+        End If
+
+
+        Return String.Join(",", ListaFechas)
+
+    End Function
+
+
+End Class
+
+
+

Inventarios/CatUnidades.aspx

@@ -166,7 +166,7 @@
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtNumPolizaSeguro" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
-                                    <label for="<%= TxtNumPolizaSeguro.ClientID.ToString()%>">Número Póliza Seguro:</label>
+                                    <label for="<%= TxtNumPolizaSeguro.ClientID.ToString()%>">Número Póliza Responsabildad Civil:</label>
                                     <asp:RequiredFieldValidator runat="server" ID="RfvTxtNumPolizaSeguro" ControlToValidate="TxtNumPolizaSeguro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Póliza Responsabilidad Civil''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
                                     <i></i>
                                 </div>
@@ -205,7 +205,7 @@
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtNumPolizaSeguroCarga" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
-                                    <label for="<%= TxtNumPolizaSeguroCarga.ClientID.ToString()%>">Número Póliza Seguro:</label>
+                                    <label for="<%= TxtNumPolizaSeguroCarga.ClientID.ToString()%>">Número Póliza Carga:</label>
                                     <i></i>
                                 </div>
                             </div>

Inventarios/EntradasSalidas.aspx

@@ -400,7 +400,7 @@
                     <ContentTemplate>
                         <div class="col-md-4">
 
-                            <div class="portlet smmallpadding light bordered" id="DivRegistro" runat="server" visible="false">
+                            <div class="portlet xspadding light bordered" id="DivRegistro" runat="server" visible="false">
                                 <div class="portlet-title">
                                     <div class="tools">
                                         <a href="javascript;" data-idchekbox="<%= chkexpand2.ClientID%>" class=" <%= IIf(chkexpand2.Checked = True, "collapse", "expand")%>"></a>
@@ -848,8 +848,8 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="LbLote" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
+                                        <ItemStyle Width="90px"></ItemStyle>
-                                        <FooterStyle HorizontalAlign="Right"></FooterStyle>
+                                        <FooterStyle ></FooterStyle>
                                     </asp:TemplateField>
                                     <%--<asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false"/>--%>
                                     <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">

Inventarios/TraspasoAlmacen.aspx

@@ -553,11 +553,8 @@
                         </div>
                     </ContentTemplate>
                 </asp:UpdatePanel>
-                <br />
-
                 <div class="row">
                     <div class="col-md-5">
-
                         <asp:UpdatePanel runat="server" ID="UPDatosAlmacen" UpdateMode="Conditional">
                             <ContentTemplate>
 
@@ -633,7 +630,6 @@
                         </asp:UpdatePanel>
                     </div>
                 </div>
-                <br />
                
                 <asp:UpdatePanel ID="UPDivCodigoSeriePSRecepcion" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
@@ -666,38 +662,38 @@
                             <ContentTemplate>
                                 <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,CveMovimientoDetalleTransitorio,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo,CveAlmacenTransitorioVirtual" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
                                     <Columns>
-                                        <asp:TemplateField ItemStyle-Width="2%" ItemStyle-HorizontalAlign="Center">                                            
+                                        <asp:TemplateField  HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center">                                            
                                             <ItemTemplate>
                                                 <asp:CheckBox ID="Chk" Checked="true" runat="server"></asp:CheckBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField HeaderText="Cantidad" HeaderStyle-Width="100px" ItemStyle-HorizontalAlign="Center">
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0"></asp:TextBox>
                                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
+                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.######}" ItemStyle-HorizontalAlign="Right"  HeaderStyle-Width="100px" />
                                         <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
                                         <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
                                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" /> 
-                                        <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="15%" />
+                                        <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
-                                        <asp:TemplateField HeaderText="Serie" ItemStyle-Width="15%"  Visible="false" >
+                                        <asp:TemplateField HeaderText="Serie" HeaderStyle-Width="105px"  Visible="false" >
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtSerie" Width="90px" runat="server" Text='<%# Eval("Serie") %>'></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Lote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center"  Visible="false" >
+                                        <asp:TemplateField HeaderText="Lote"  HeaderStyle-Width="105px" ItemStyle-HorizontalAlign="Center"  Visible="false" >
                                             <ItemTemplate>
-                                                <asp:TextBox ID="TxtLote" Width="60px" runat="server" Text='<%# Eval("Lote") %>'  Visible="false"></asp:TextBox>
+                                                <asp:TextBox ID="TxtLote" Width="100px" runat="server" Text='<%# Eval("Lote") %>'  Visible="false"></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Caducidad" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center"  Visible="false" >
+                                        <asp:TemplateField HeaderText="Caducidad" HeaderStyle-Width="95px" ItemStyle-HorizontalAlign="Center"  Visible="false" >
                                             <ItemTemplate>
-                                                <asp:TextBox ID="TxtCaducidad" Width="75px" runat="server" Text='<%# Eval("FechaCaducidad") %>' Visible="false" ></asp:TextBox>
+                                                <asp:TextBox ID="TxtCaducidad" Width="75px" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>' Visible="false" ></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>                                        
-                                        <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                        <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center"  HeaderStyle-Width="125px" Visible="false">
                                             <ItemTemplate>
                                                 <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                                 </asp:DropDownList>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1553,9 +1553,9 @@ Partial Class Inventarios_TraspasoAlmacen
                 e.Row.FCTextBox("TxtCantidad").Visible = False
                 e.Row.FCTextBox("TxtSerie").Visible = False
 
-                e.Row.Cells(2).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
+                e.Row.Cells(2).Text = String.Format("Folio: <a class='texto' target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
                 e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
-                e.Row.Cells(5).Text = String.Format("Almacen Origen: {0} &nbsp;&nbsp;&nbsp; Almacen Destino: {1} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
+                e.Row.Cells(5).Text = String.Format("Almacen Origen: {0} &nbsp;&nbsp;&nbsp; Almacen Destino: {1} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/> Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
 
             Else
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
@@ -1567,17 +1567,15 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 If e.Row.DBCampo("AplicaLote").ToString.Trim = "1" Then
                     e.Row.FCTextBox("TxtLote").Visible = True
+                    e.Row.FCTextBox("TxtLote").ReadOnly = True
                 End If
 
                 If e.Row.DBCampo("AplicaCaducidad").ToString.Trim = "1" Then
                     e.Row.FCTextBox("TxtCaducidad").Visible = True
+                    e.Row.FCTextBox("TxtCaducidad").ReadOnly = True
                 End If
-
                 e.Row.FCTextBox("TxtSerie").ReadOnly = True
 
-                'e.Row.FCTextBox("TxtSerie").Enabled = False
-
-
             End If
 
             'FUNCIONALIDAD PISTOLA DE CODIGOS

Nomina/CatConceptos.aspx

@@ -64,8 +64,8 @@
 
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
+            <div   style=" text-align: right" ">
-                <div style="margin-right: 15px">
+                <div  >
                     <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvConceptos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvConceptos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>

Nomina/ChecadorAsistencia.aspx.cs

@@ -369,7 +369,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
                 GvDetalleDias.DataBind();
             }
             DdlTipoAsistencias.Enabled = GvDetalleDias.Rows.Count > 0;
-            if (objRH.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, fechai, fechai, UsuarioActual.CveEmpresa))
+            if (objRH.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1,-1, fechai, fechai, UsuarioActual.CveEmpresa))
             {
                 if (objRH.DtResultados.Rows.Count > 0)
                 {

Nomina/Nomina.aspx.cs

@@ -2837,7 +2837,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         using (ClsRH objpersonal = new ClsRH())
         {
 
-            if (objpersonal.GetAsistencias(SRCvePersonal, -1, -1, -1, -1, -1, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa))
+            if (objpersonal.GetAsistencias(SRCvePersonal, -1, -1, -1, -1, -1,-1, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa))
             { GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL"); }
             else
             {
@@ -7111,7 +7111,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         using (ClsRH objpersonal = new ClsRH())
         {
-            if (objpersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, fecha, fecha, UsuarioActual.CveEmpresa))
+            if (objpersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, -1, fecha, fecha, UsuarioActual.CveEmpresa))
             {
                 if (objpersonal.DtResultados.Rows.Count > 0)
                 {

RH/Asistencias.aspx

@@ -75,30 +75,39 @@
                                                 <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                             </asp:DropDownList>
                                         </div>
+                                </div> 
                             </div>
                         </div>
-                    </div>
 
-                </div>
+                    </div>
                     <div class="portlet-body" style="display: none">
                     <div class="row">
-                      
+                        <asp:Label runat="server" class="col-md-1 truncate">Turno:</asp:Label>
-                                
+                         <div class="col-md-1">
-                        <asp:Label runat="server"  class="col-md-1 truncate">Turno:  </asp:Label>
-                         <div class="col-md-2">
-
                             <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno"
                                 Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                    </div>
+                        <asp:Label runat="server"  class="col-md-1 truncate">Tipo Periodo:  </asp:Label>
-                    </div>
+                         <div class="col-md-1">
 
+                          <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                </div>                   
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
   
+            <div   style=" text-align: right" ">
+                <div  >
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GV.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GV.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+            </div>
                 <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
                         <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveCliente" EmptyDataText="No se encontró Personal asignado al Proyecto o al Cliente" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
@@ -204,10 +213,10 @@
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input">
-                            <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                            <asp:DropDownList ID="DdlTipoPeriodoCarga" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
-                            <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo">Tipo:</asp:Label>
+                            <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCarga">Tipo:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
                             <asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">

RH/Asistencias.aspx.vb

@@ -68,14 +68,12 @@ Partial Class RH_Asistencias
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
             Dim objpersonal As New ClsRH
-            If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate, TxtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+            If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
                 Dim dt As DataTable = objpersonal.DtResultados
                 If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
                     dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
                 ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                     dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
-                Else
-
                 End If
                 GV.DataSource = dt
             Else
@@ -98,13 +96,12 @@ Partial Class RH_Asistencias
         Dim tablaReporte As New DataTable
 
         Dim objpersonal As New ClsRH
-        If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate, TxtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+        If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
             tablaReporte = objpersonal.DtResultados
             If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
                 tablaReporte = tablaReporte.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
             ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                 tablaReporte = tablaReporte.FiltraParametros("CvePersonalPadre IS NULL")
-
             Else
 
             End If
@@ -135,14 +132,7 @@ Partial Class RH_Asistencias
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
-        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        ImprimirPDF(RutaFormatoReporte("Asistencia.rdlc"), lrds, params, "Lista de asistencia")
-        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        'Dim rutardlc = "GPS/Asistencia.rdlc"
-        Dim rutardlc As String = UsuarioActual.Empresa.Ruta & "Formatos/Asistencia.rdlc"
-        If Not System.IO.File.Exists(rutardlc) Then
-            rutardlc = "Empresas/Grales/Formatos/Asistencia.rdlc"
-        End If
-        ImprimirPDF(rutardlc, lrds, params, "Lista de asistencia")
     End Sub
 
     Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
@@ -226,11 +216,8 @@ Partial Class RH_Asistencias
         Dim OcurrioError As Boolean = False
 
         If Not ObjPersonal.AddAsistenciaMasiva(DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-
             OcurrioError = True
-
         End If
-
         If OcurrioError Then
             ObjPersonal.RollBack()
             Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
@@ -242,18 +229,20 @@ Partial Class RH_Asistencias
         ObjPersonal.Dispose()
     End Sub
 
-    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
+    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoPeriodoCarga.SelectedIndexChanged
         CargaPeriodos()
     End Sub
 
     Private Sub CargaTiposPeriodo()
+        DdlTipoPeriodoCarga.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodoCarga.DataBind()
         DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
         DdlTipoPeriodo.DataBind()
     End Sub
 
     Private Sub CargaPeriodos()
         Dim ObjPeriodos As New ClsNominas
-        If ObjPeriodos.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, -1, -1) Then
+        If ObjPeriodos.GetPeriodos(DdlTipoPeriodoCarga.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, -1, -1) Then
 
             DdlPeriodo.DataSource = ObjPeriodos.DtResultados
         Else

RH/CalculoSBC.aspx

@@ -455,7 +455,8 @@
                 </ajax:TabPanel>
                 <ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
                     <ContentTemplate>
-                        <asp:GridView ID="GVDetalleParteVariable" HeaderStyle-CssClass="ADtr" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor"></asp:GridView>
+                        <asp:GridView ID="GVDetalleParteVariable" HeaderStyle-CssClass="ADtr" runat="server" GridLines="None" OnRowDataBound="GVDetalleParteVariable_RowDataBound"
+                            CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor"></asp:GridView>
                     </ContentTemplate>
                 </ajax:TabPanel>
             </ajax:TabContainer>

RH/CalculoSBC.aspx.cs

@@ -920,6 +920,18 @@ public partial class RH_CalculoSBC : ClsPaginas
         RegistraScript("$('#ModalDoctos').modal();");
     }
 
+
+    protected void GVDetalleParteVariable_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if(e.Row.RowType == DataControlRowType.DataRow)
+        {
+            for (int i = 0; i < e.Row.Cells.Count; i++)
+            {
+                e.Row.Cells[i].Text = Server.HtmlDecode(e.Row.Cells[i].Text);
+            }
+        }
+
+    }
 }
 public class archivosD
 {

RH/Personal.aspx.vb

@@ -914,35 +914,37 @@ Partial Class RH_Personal
                 ViewState("CvePersonal") = Request("CvePersonal")
                 DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing)
                 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero()
-                CargaDatos()
+                If CargaDatos() Then
-                CargaDocumentacionFirmaDecontratos()
+                    CargaDocumentacionFirmaDecontratos()
-                CargaPersonalIncapacidad()
+                    CargaPersonalIncapacidad()
-                CargaMovtoPermanente()
+                    CargaMovtoPermanente()
-                'LnkAddLicencias.Visible = True
+                    'LnkAddLicencias.Visible = True
-                'TabLicencias.Visible = True
+                    'TabLicencias.Visible = True
-                'Configuración de Modalidad Update
+                    'Configuración de Modalidad Update
-                BtnGuardar.Text = "Guardar Cambios"
+                    BtnGuardar.Text = "Guardar Cambios"
-                LtlTitulo.Text = "Consulta de Personal:"
+                    LtlTitulo.Text = "Consulta de Personal:"
-                If UsuarioActual.CveRol = 1 Then
+                    If UsuarioActual.CveRol = 1 Then
-                    'ImgImprimir.Visible = True
+                        'ImgImprimir.Visible = True
-                    ImgImprimirExpediente.Visible = True
+                        ImgImprimirExpediente.Visible = True
+                    End If
+
+                    'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
+                    If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero() - 1
+
+                    'Inicia Permisos
+                    If UsuarioActual.TienePermisoProceso(228) Then
+                        GVAsistencia.Columns(10).Visible = True
+                    End If
+                    'Fin Permisos
+                    HlEvento.Visible = True
+                    HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
+
+                    CargaViaticosPersonal()
+
+                    divBitacora.Visible = True
+                    CargaGvBitacora()
                 End If
 
-                'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
-                If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero() - 1
-
-                'Inicia Permisos
-                If UsuarioActual.TienePermisoProceso(228) Then
-                    GVAsistencia.Columns(10).Visible = True
-                End If
-                'Fin Permisos
-                HlEvento.Visible = True
-                HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
-
-                CargaViaticosPersonal()
-
-                divBitacora.Visible = True
-                CargaGvBitacora()
             Else
                 cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
@@ -956,11 +958,11 @@ Partial Class RH_Personal
                 BtnEliminar.Visible = False
                 CarcaConceptosNomina()
                 CargaFonacot()
+                CargaCuentasBancarias()
 
                 'Inicia Permisos
                 'Fin Permisos
             End If
-            CargaCuentasBancarias()
 
             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
 
@@ -1510,7 +1512,7 @@ Partial Class RH_Personal
             If CveCliente <= 0 Then
                 CveCliente = -1
             End If
-            If objpersonal.GetAsistencias(CvePersonal, CveCliente, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), DdlTurno.SelectedValue.ToEntero(), -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+            If objpersonal.GetAsistencias(CvePersonal, CveCliente, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), DdlTurno.SelectedValue.ToEntero(), -1, -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
                 GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
             Else
                 GVAsistencia.DataSource = Nothing
@@ -1613,11 +1615,13 @@ Partial Class RH_Personal
         End If
         ObjInventario.Dispose()
     End Sub
-    Private Sub CargaDatos()
+    Private Function CargaDatos() As Boolean
+        Dim Retorno As Boolean = False
         Dim ObjPersonal As New ClsRH()
         If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
             If ObjPersonal.DtResultados.Rows.Count > 0 Then
                 Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
+                Retorno = True
                 ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
                 CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
                 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
@@ -1909,7 +1913,8 @@ Partial Class RH_Personal
             End If
         End If
         ObjPersonal.Dispose()
-    End Sub
+        Return Retorno
+    End Function
 
     Private Sub CargaCuentasConceptos()
         Dim ObjConta As New ClsContabilidad
@@ -7486,25 +7491,20 @@ Partial Class RH_Personal
 
             End If
         End If
-        If continuar Then
+        'If continuar Then
-
+        '    Using onom As ClsNominas = New ClsNominas()
-            Using onom As ClsNominas = New ClsNominas()
+        '        onom.ValidaFechaFinPersonal(CvePersonal, UsuarioActual.CveEmpresa, fecha.ToString("yyyy/MM/dd"))
-                onom.ValidaFechaFinPersonal(CvePersonal, UsuarioActual.CveEmpresa, fecha.ToString("yyyy/MM/dd"))
+        '        If onom.DtResultados.Rows.Count > 0 Then
-
+        '            continuar = False
-                If onom.DtResultados.Rows.Count > 0 Then
+        '            Dim strbuild As StringBuilder = New StringBuilder()
-
+        '            strbuild.Append("No es posible desactivar con esta fecha ya que existen  asistencias posteriores a la fecha fin con nominas autorizadas, es necesario desautorizar la siguientes nominas  para reintentar el proceso.")
-                    continuar = False
+        '            For Each drow As DataRow In onom.DtResultados.Rows
-                    Dim strbuild As StringBuilder = New StringBuilder()
+        '                strbuild.AppendFormat("<br/> {0}", drow("PeriodoTexto"))
-                    strbuild.Append("No es posible desactivar con esta fecha ya que existen  asistencias posteriores a la fecha fin con nominas autorizadas, es necesario desautorizar la siguientes nominas  para reintentar el proceso.")
+        '            Next
-
+        '            Alert(strbuild.ToString(), TipoMensaje.MsgAdvertencia)
-                    For Each drow As DataRow In onom.DtResultados.Rows
+        '        End If
-                        strbuild.AppendFormat("<br/> {0}", drow("PeriodoTexto"))
+        '    End Using
-                    Next
+        'End If
-                    Alert(strbuild.ToString(), TipoMensaje.MsgAdvertencia)
-                End If
-
-            End Using
-        End If
         If continuar Then
             Using objrh As New ClsRH
                 continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlMotivoBaja.SelectedValue.ToEntero(), Txobservacionesbaja.Text)

Ventas/CatPS.aspx

@@ -115,7 +115,9 @@
     <li>
         <asp:LinkButton ID="LBExcelPersonalizado" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
     </li>
-
+     <li>
+        <asp:LinkButton ID="LnkExcelPSAdicional" runat="server" Visible="false" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Productos Adicionales</asp:LinkButton>
+    </li>
 
     <%--onclick="AbrirVentana('/Ventas/ProductosServicios.aspx', 700, 400, 'N', 'PS')"--%>
 </asp:Content>
@@ -373,7 +375,48 @@
                 </div>
             </div>
 
+    <div id="DivCargaExcelPSAdicionales" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Agregar Excel</h4>
+                </div>
+                <div class="modal-body">                    
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 10px;">
+                            <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-3" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargarPSAdicional" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargarPSAdicional" />
+                                </Triggers>
+                            </asp:UpdatePanel>
                             
+                        </div>
+                        <div class="col-md-9" style="text-align: right">
+                            <asp:Button ID="BtnCargaExcelPSAdicional" runat="server" CssClass="btn btn-success" Text="Aceptar"></asp:Button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
    
 
 

Ventas/CatPS.aspx.vb

@@ -46,6 +46,9 @@ Partial Class CatPS
             If UsuarioActual.CveEmpresa = 119 Then
                 DdlEstado.SelectedValue = "-1"
             End If
+            If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso Not UsuarioActual.TienePermisoProceso(122) Then
+                LnkExcelPSAdicional.Visible = True
+            End If
 
         End If
     End Sub
@@ -65,7 +68,6 @@ Partial Class CatPS
         If TxtCodigoBarras.Text.Trim = "" Then CodigoBarras = "-1" Else CodigoBarras = TxtCodigoBarras.Text.Trim
         If TxtNombre.Text.Trim = "" Then Nombre = "-1" Else Nombre = TxtNombre.Text.ToUpper.Trim
 
-
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.GetPSLite(Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, Codigo, CodigoBarras, Nombre, DdlAplicaVenta.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, DdlCveTipoPS.SelectedValue.ToEntero, DdlTipoClasificacion.SelectedValue.ToEntero) Then
             DtDatos = ObjPS.DtResultados
@@ -285,4 +287,163 @@ Partial Class CatPS
     End Sub
 #End Region
 
+
+#Region "P R O D U C T O S   A D I C I O N A L E S"
+
+    Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, CodigoPS As String, PSAdicional As String, Cantidad As Decimal, Opcion As Integer) As String
+        Dim Retorno As String = ""
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
+
+            Dim StrEmpresas As String = UsuarioActual.CveEmpresa & "," & UsuarioActual.Empresa.Funcionalidad(563)   ' agregamos la empresa actual
+            Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
+            For Each Franquicia As Integer In EmpresasFranquicia
+                Dim CvePSPagina As Integer = GlobalDTPSSimplificado(Franquicia, Codigo:=CodigoPS.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero
+                Dim CvePSAdicional As Integer
+
+                If Opcion = 1 Then CvePSAdicional = GlobalDTPSSimplificado(Franquicia, Codigo:=PSAdicional.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero
+
+                If CvePSPagina <= 0 Then
+                    Return String.Format("El producto:{0} no existe en la franquicia: '{1}'", CodigoPS, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
+                End If
+
+                If CvePSAdicional <= 0 AndAlso Opcion = 1 Then
+                    Return String.Format("El producto adicional: {0} no existe en la franquicia: '{1}'", PSAdicional, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
+                End If
+
+                If Opcion = 1 Then
+                    If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, Cantidad) Then
+                        Return String.Format("No se registró el producto adicional:{0} no existe en la franquicia: '{1}'", CodigoPS, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
+                    End If
+                End If
+                If Opcion = 2 Then
+                    If Not ObjPS.RemovePSAdicionales(CvePSPagina, -1) Then
+                        Return "No se pudo eliminar"
+                    End If
+                End If
+            Next
+        End If
+        Return ""
+    End Function
+
+    Private Sub LnkExcelPSAdicional_Click(sender As Object, e As EventArgs) Handles LnkExcelPSAdicional.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "DivCargaExcelPSAdicionales"))
+
+    End Sub
+
+    Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargarPSAdicional.Click
+
+        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim workbook As New GemBox.Spreadsheet.ExcelFile()
+        Dim worksheet = workbook.Worksheets.Add("Productos")
+        Dim DtExcel As New DataTable
+        DtExcel.Columns.Add("CodigoProducto", GetType(String))
+        DtExcel.Columns.Add("CodigoProductoAdicional", GetType(String))
+        DtExcel.Columns.Add("CantidadFija", GetType(String))
+
+        worksheet.InsertDataTable(DtExcel, New GemBox.Spreadsheet.InsertDataTableOptions() With
+                {
+                    .ColumnHeaders = True,
+                    .StartRow = 0,
+                    .StartColumn = 0
+                })
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+        workbook.Save(Response, $"CargaProductos.xlsx", GemBox.Spreadsheet.SaveOptions.XlsxDefault)
+
+    End Sub
+
+    Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelPSAdicional.Click
+        If TxtExcel.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+
+            Dim Directorio As String = Server.MapPath("~") & file.path
+
+            Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+            CargaArchivoPSAdicional(Directorio, file.filename, Tipo)
+        Else
+            Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
+        End If
+    End Sub
+
+    Private Sub CargaArchivoPSAdicional(Ruta As String, FileName As String, Tipo As String)
+        Dim dt As New DataTable
+        Dim ErrorArchivo = False
+        Dim ErrorExcel As Boolean = False
+
+        dt = ReadExcelFile(Ruta + FileName, True, 0).FiltraParametros("CodigoProducto <> ''")
+
+        If Not ErrorArchivo Then
+            If Not dt.Columns(0).ColumnName.ToUpper = "CODIGOPRODUCTO" Then
+                Alert("El nombre de la primera columna debe ser 'ConceptoAdministrativo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName.ToUpper = "CODIGOPRODUCTOADICIONAL" Then
+                Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+        End If
+
+        If Not ErrorArchivo Then
+
+            Try
+                Dim ContadorRegistros As Integer = 0
+                Dim ObjPS As ClsProductosServicios
+                Dim dtPS As DataTable = dt.FiltraParametros("", DistinctColumns:={"CodigoProducto"})
+                Dim strNoCargados As New StringBuilder
+
+                'antes de iniciar la carga se limpiarán los asignados, se filtran por codigops
+                For Each Row As DataRow In dtPS.Rows
+                    ObjPS = New ClsProductosServicios
+                    ObjPS.IniciaTransacSQL()
+                    ErrorExcel = False
+                    Dim msgg As String = GuardarProductosEquivalenteEnFranquicia(ObjPS, Row("CodigoProducto").ToString.Trim, "", 0, 2)
+                    If msgg = "" Then ''eliminar los ps 
+                        For Each dr As DataRow In dt.FiltraParametros($"CodigoProducto='{ Row("CodigoProducto").ToString.Trim}'").Rows
+                            Dim CodigoPS As String = dr("CodigoProducto").ToString.Trim
+                            Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim
+                            Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero
+                            msgg = GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1)
+                            If GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) <> "" Then
+                                ErrorExcel = True
+                                strNoCargados.AppendFormat(" {0}  <br/>", msgg)
+                                Exit For
+                            End If
+                            ContadorRegistros = ContadorRegistros + 1
+                        Next
+                    Else
+                        ErrorExcel = True
+                        strNoCargados.AppendFormat(" {0} <br/> ", msgg)
+                    End If
+                    If Not ErrorExcel Then
+                        ObjPS.Commit()
+                    Else
+                        ObjPS.RollBack()
+                    End If
+                    ObjPS.Dispose()
+                Next
+
+                If ContadorRegistros > 1 Then
+                    Dim StrEmpresas As String = UsuarioActual.Empresa.Funcionalidad(563) & "," & UsuarioActual.CveEmpresa ' agregamos la empresa actual
+                    Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
+                    'regenerar el global de cada empresa
+                    For Each Franquicia As Integer In EmpresasFranquicia
+                        GlobalDTPSAdicionales(-1, Franquicia) = Nothing
+                    Next
+                End If
+                Alert($"{ContadorRegistros} Registros aplicados.<br/>{If(strNoCargados.Length > 0, strNoCargados.ToString, "")}")
+            Catch ex As Exception
+                Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia)
+                GuardaLog(ex.Message)
+            End Try
+
+        End If
+    End Sub
+
+
+
+#End Region
+
 End Class

Ventas/Clientes.aspx.vb

@@ -3081,7 +3081,7 @@ Partial Class Clientes
 
     Protected Sub BtnConsultarAsistencia_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarAsistencia.Click
         Dim objpersonal As New ClsRH
-        If objpersonal.GetAsistencias(-1, CveCliente, -1, -1, -1, 1, txtFechaI.Text.Trim.ToDate(), txtFechaF.Text.Trim.ToDate(), UsuarioActual.CveEmpresa) Then
+        If objpersonal.GetAsistencias(-1, CveCliente, -1, -1, -1, 1, -1, txtFechaI.Text.Trim.ToDate(), txtFechaF.Text.Trim.ToDate(), UsuarioActual.CveEmpresa) Then
             GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
         Else
             GVAsistencia.DataSource = Nothing

Ventas/Ventas.aspx.vb

@@ -12607,19 +12607,20 @@ Partial Class Ventas
             ' If drr("ImporteIVA").ToString().ToDouble > 0 Then
 
             'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
-            If Timbre.Comprobante.Total > 0 AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0) Then
+            ' si es objimp = 01, significa que no lleva desglose de impuesto, está exento
+            If concepto.ObjetoImpuesto <> "01" AndAlso Timbre.Comprobante.Total > 0 AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0) Then
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(6), .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal})
             End If
 
-            If drr("ImporteIEPS").ToString().ToDouble > 0 Then
+            If concepto.ObjetoImpuesto <> "01" AndAlso drr("ImporteIEPS").ToString().ToDouble > 0 Then
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal})
             End If
 
-            If drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones
+            If concepto.ObjetoImpuesto <> "01" AndAlso drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal})
             End If
 
-            If drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR
+            If concepto.ObjetoImpuesto <> "01" AndAlso drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal})
             End If