-

App_Code/ClsFinanzas.vb

@@ -261,21 +261,20 @@ Public Class ClsFinanzas
 
 
 
-    Public Function GetRazonesFinancierasBalanceGeneralRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+    Public Function GetRazonesFinancierasBalanceGeneralRep(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_BalanceGeneralRepGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
-
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
-
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -288,20 +287,20 @@ Public Class ClsFinanzas
 
 
 
-    Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+    Public Function GetRazonesFinancierasEstadoResultadosRep(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_EstadoResultadosRepGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
-
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
 
         End With
         Try
@@ -314,20 +313,19 @@ Public Class ClsFinanzas
     End Function
 
 
-    Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+    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")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
-
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
 
         End With
         Try

App_Code/LogicNominas.vb

@@ -366,7 +366,7 @@ Public Class LogicNominas
                     'End If
                     Dim horasextra As Integer = If(Row("ImporteValor").ToString().Replace("-", "").ToEntero() > 0, Row("ImporteValor").ToString().Replace("-", "").ToEntero(), 1)
 
-                    Dim diasextra As Integer = (horasextra / 3).ToString().ToEntero()
+                    Dim diasextra As Integer = (horasextra / 3).ToString("N0").ToEntero() + If((horasextra Mod 3) > 0, 1, 0)
                     If Row("CveSistema").ToString().ToEntero() = 12 Then
                         ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(),
                                            .TipoHoras = "01", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal()})

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2772,10 +2772,18 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             If Archivo.Exists Then
+
                 ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
+
             Else
+                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                 ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
             End If
+
+
+
+
             ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
 
         End If

Contabilidad2/RepEstadoActividades.aspx

@@ -66,8 +66,8 @@
                                 </asp:DropDownList>
                             </div>
 
-                            <label class="col-md-1" >Consolidado: </label>
+                            <label class="col-md-1"  runat="server" id="DVConsolidado1" visible="false">Consolidado: </label>
-                             <div class="col-md-1">
+                             <div class="col-md-1" runat="server" id="DVConsolidado2" visible="false">
                                 <asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me"   Width="100%">
                                     <asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
                                     <asp:ListItem Value ="2">Consolidado</asp:ListItem>

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -98,6 +98,13 @@ Partial Class AC_RepEstadoActividades
             CargaEjercicios()
 
             CargaDatos()
+
+
+            If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
+                DVConsolidado1.Visible = True
+                DVConsolidado2.Visible = True
+            End If
+
         End If
     End Sub
 

Contabilidad2/RepSituacionFinanciera.aspx

@@ -64,8 +64,8 @@
                                 </asp:DropDownList>
                             </div>
 
-                             <label class="col-md-1"  >Consolidado: </label>
+                              <label class="col-md-1"  runat="server" id="DVConsolidado1" visible="false">Consolidado: </label>
-                             <div class="col-md-1">
+                             <div class="col-md-1" runat="server" id="DVConsolidado2" visible="false">
                                 <asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me"   Width="100%">
                                     <asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
                                     <asp:ListItem Value ="2">Consolidado</asp:ListItem>

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -149,6 +149,11 @@ Partial Class AC2_SituacionFinanciera
 
             CargaEjercicios()
 
+            If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
+                DVConsolidado1.Visible = True
+                DVConsolidado2.Visible = True
+            End If
+
             'CargaDatos()
         End If
     End Sub

Finanzas/RepRazonesFinancieras2.aspx

@@ -40,19 +40,29 @@
                         <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-1 " runat="server" id="LiEjercicioDdl">
+                                <div class="col-md-2 " runat="server" id="LiEjercicioDdl">
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
                                     </asp:DropDownList>
                                 </div>
 
                                 <label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="True">Ejercicio Fin: </label>
-                                <div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="True">
+                                <div class="col-md-2" runat="server" id="LiEjercicioDdl2" visible="True">
-                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
                                     </asp:DropDownList>
                                 </div>
-                                  <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
+                                 <label class="col-md-2" style="width: 80px;"  runat="server" id="LblPeriodo" visible="false"  >Periodo: </label>    
-                                <div class="col-md-2 " runat="server" id="LiPeriodoDdl">
+                                <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>

Finanzas/RepRazonesFinancieras2.aspx.vb

@@ -31,18 +31,32 @@ Partial Class Finanzas_RepRazonesFinancieras2
     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
 
-            CargaEjercicios()
+            CargaDTEjercicios()
+            DdlVista_SelectedIndexChanged(Nothing, Nothing)
 
             CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
 
-
-
             DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
             ValidaEjercicios()
 
@@ -85,26 +99,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         UpFiltros.Update()
     End Sub
 
-    Private Sub CargaEjercicios()
-        'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim ClsConta As New ClsContabilidad
-        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
-            DdlEjercicio.DataSource = ClsConta.DtResultados
-            DdlEjercicio2.DataSource = ClsConta.DtResultados
-        Else
-            DdlEjercicio.DataSource = Nothing
-            DdlEjercicio2.DataSource = Nothing
-        End If
-        ClsConta.Dispose()
-        DdlEjercicio.DataBind()
-        DdlEjercicio2.DataBind()
 
-        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        If DdlEjercicio.Items.Count = 0 Then
-            DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
-        End If
-
-    End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
@@ -137,8 +132,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         LnkExportar.Visible = False
         GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
 
-        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+
-        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
 
 
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
@@ -147,7 +141,12 @@ Partial Class Finanzas_RepRazonesFinancieras2
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
 
-        If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
+        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)
@@ -168,6 +167,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
     End Sub
 
+
+
     Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
 
         For index = 2 To Gv.Columns.Count - 1
@@ -232,8 +233,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
 
 
-        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+
-        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
 
 
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
@@ -242,7 +242,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
 
-        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
+        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)
@@ -280,11 +282,12 @@ Partial Class Finanzas_RepRazonesFinancieras2
             CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
             Gv.Columns(index + 4).Visible = True
             Dim tmpDate As Date
-            If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
+            CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
-                CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
+            'If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
-            Else
+            '    CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
-                CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            'Else
-            End If
+            '    CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            'End If
         Next
     End Sub
 
@@ -329,17 +332,17 @@ Partial Class Finanzas_RepRazonesFinancieras2
         GVRatiosOcultarColumnas(GVRatios, 1)
 
 
-        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+
-        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
 
 
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
 
+        Dim 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
-        If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
             DTRatios = objFinanzas.DtResultados
 
             GVRatiosMostrarColumnas(DTRatios, GVRatios)
@@ -477,15 +480,143 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 
 
+    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
 
+
+

Nomina/Nomina.aspx.cs

@@ -259,7 +259,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
 
         if (!IsPostBack)
-        {
+        { 
             enviarCorreoEnTimbrado = (UsuarioActual.CveEmpresa == 141 ? true : true);
             LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") || (UsuarioActual.CveRol == 1);
             if (UsuarioActual.CveEmpresa == 141) { ddlfiniquito.SelectedValueExist("2"); }
@@ -5217,7 +5217,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
     private void ImprimirReporte()
     {
-        string RutaDocumento = System.IO.Path.Combine(UsuarioActual.Empresa.Ruta , "/Lista de Raya.docx");
+        string RutaDocumento = System.IO.Path.Combine(UsuarioActual.Empresa.Ruta, "/Lista de Raya.docx");
         if (!System.IO.File.Exists(RutaDocumento))
         {
             RutaDocumento = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Lista de Raya.docx");