-- se quito GlobalDTFolios

App_Code/Modelos.vb

@@ -6684,14 +6684,6 @@ Namespace Modelos
                 HttpContext.Current.Application("GlobalDTLeyendasFiscales") = value
             End Set
         End Property
-        Property GlobalDTFolios() As DataTable
-            Get
-                GlobalDTFolios = DirectCast(HttpContext.Current.Application("GlobalDTFolios"), DataTable)
-            End Get
-            Set(value As DataTable)
-                HttpContext.Current.Application("GlobalDTFolios") = value
-            End Set
-        End Property
         Property GlobalDTEstatusFactura() As DataTable
             Get
                 GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application("GlobalDTEstatusFactura"), DataTable)

Ashx/SIGFacturacion.ashx

@@ -1606,14 +1606,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             HttpContext.Current.Application("GlobalDTLeyendasFiscales") = value
         End Set
     End Property
-    Property GlobalDTFolios() As DataTable
+
-        Get
-            GlobalDTFolios = DirectCast(HttpContext.Current.Application("GlobalDTFolios"), DataTable)
-        End Get
-        Set(value As DataTable)
-            HttpContext.Current.Application("GlobalDTFolios") = value
-        End Set
-    End Property
     Property GlobalDTEstatusFactura() As DataTable
         Get
             GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application("GlobalDTEstatusFactura"), DataTable)

Contratos/FacturacionMasiva.aspx.vb

@@ -19,6 +19,15 @@ Partial Class Contratos_FacturacionMasiva
             ViewState("DTCicloComercial") = value
         End Set
     End Property
+    Private Property FolioVigentes As Boolean
+        Get
+            Return CType(ViewState("FolioVigentes"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("FolioVigentes") = value
+        End Set
+    End Property
+
     Private Property Mensaje As String
         Get
             Return CType(ViewState("Mensaje"), String)
@@ -100,6 +109,7 @@ Partial Class Contratos_FacturacionMasiva
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            FolioVigentes = False
             CargaCombos()
             txtFechaI.Text = DateTime.Today.ToString("d")
             txtFechaF.Text = DateTime.Today.ToString("d")
@@ -118,6 +128,8 @@ Partial Class Contratos_FacturacionMasiva
         DdlSucursal.DataBind()
     End Sub
     Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)
+        ValidaFolio()
+
         Dim ObjContratos As New ClsContratos
         If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then
             DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0")
@@ -127,9 +139,21 @@ Partial Class Contratos_FacturacionMasiva
         GvCiclosComerciales.DataBind()
         UpGv.Update()
     End Sub
+
+    Private Sub ValidaFolio()
+        Dim ObjFolios As New ClsGralFolios
+        If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then
+            If ObjFolios.DtResultados.Rows.Count > 0 Then
+                FolioVigentes = True
+            End If
+        End If
+
+        ObjFolios.Dispose()
+    End Sub
     Protected Sub GvCiclosComerciales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCiclosComerciales.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If GlobalDTFolios().FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto")} AND TipoDocto = 'Ing' ").Rows.Count = 0 Then
+            '' Pendiente de aplicar validacion
+            If Not FolioVigentes Then
                 e.Row.FCCheckBox("chkDis").Enabled = False
                 e.Row.FCCheckBox("chkDis").ToolTip = "La sucursal vinculada con este contrato no tiene folios"
             End If

GPS/FacturacionMasiva.aspx.vb

@@ -27,6 +27,14 @@ Partial Class Contratos_FacturacionMasiva
             ViewState("Mensaje") = value
         End Set
     End Property
+    Private Property FolioVigentes As Boolean
+        Get
+            Return CType(ViewState("FolioVigentes"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("FolioVigentes") = value
+        End Set
+    End Property
     Private Property ErrorList As List(Of String)
         Get
             Return CType(ViewState("ErrorList"), List(Of String))
@@ -79,6 +87,7 @@ Partial Class Contratos_FacturacionMasiva
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            FolioVigentes = False
             CargaCombos()
             txtFechaI.Text = DateTime.Today.ToString("d")
             txtFechaF.Text = DateTime.Today.ToString("d")
@@ -97,6 +106,7 @@ Partial Class Contratos_FacturacionMasiva
         DdlSucursal.DataBind()
     End Sub
     Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)
+        ValidaFolio()
         Dim ObjContratos As New ClsContratos
         If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then
             DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0")
@@ -106,9 +116,20 @@ Partial Class Contratos_FacturacionMasiva
         GvCiclosComerciales.DataBind()
         UpGv.Update()
     End Sub
+
+    Private Sub ValidaFolio()
+        Dim ObjFolios As New ClsGralFolios
+        If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then
+            If ObjFolios.DtResultados.Rows.Count > 0 Then
+                FolioVigentes = True
+            End If
+        End If
+
+        ObjFolios.Dispose()
+    End Sub
     Protected Sub GvCiclosComerciales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCiclosComerciales.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If GlobalDTFolios().FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto")} AND TipoDocto = 'Ing' ").Rows.Count = 0 Then
+            If Not FolioVigentes Then
                 e.Row.FCCheckBox("chkDis").Enabled = False
                 e.Row.FCCheckBox("chkDis").ToolTip = "La sucursal vinculada con este contrato no tiene folios"
             End If

Planeacion/CatFolios.aspx.vb

@@ -91,7 +91,7 @@ Partial Class CatFolios
         Dim ObjFolios As New ClsGralFolios
         If ObjFolios.GetFolios() Then
             ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTFolios = ObjFolios.DtResultados
+
             GvDatos.DataSource = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GvDatos.DataBind()
         Else
@@ -153,7 +153,7 @@ Partial Class CatFolios
         If ObjFolios.RemoveFolios(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTFolios = ObjFolios.DtResultados
+
             Alert("La Aprobación de Folios se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
         ObjFolios.Dispose()
@@ -194,7 +194,7 @@ Partial Class CatFolios
             Session("FileUpload") = ""
 
             Alert("La nueva Aprobación de Folios se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
-            GlobalDTFolios = ObjFolios.DtResultados
+
             ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
 
 

Sistemas/CatSesiones.aspx

@@ -21,7 +21,6 @@
         <asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
         <asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
         <asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>     
-        <asp:ListItem Text="Folios" Value="GlobalDTFolios"></asp:ListItem>
        <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
         <asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>       
         <asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>

Sistemas/CatSesiones.aspx.vb

@@ -24,8 +24,6 @@ Partial Class Sistemas_CatSesiones
             CargaSubProyectos()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSubProyectosUsuarios" Then
             CargaSubProyectos()
-        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTFolios" Then
-            CargaFolios()
             'ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSucursales" Then
             '    CargaSucursales()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCompProveedores" Then
@@ -341,18 +339,6 @@ Partial Class Sistemas_CatSesiones
         'Fin Carga Proyectos
     End Sub
 
-    Private Sub CargaFolios()
-        'Carga Folios
-        Dim ObjFolios As New ClsGralFolios()
-        If ObjFolios.GetFolios() Then
-            Application("GlobalDTFolios") = ObjFolios.DtResultados
-        Else
-            Application("GlobalDTFolios") = Nothing
-        End If
-        ObjFolios.Dispose()
-        'Fin Carga Folios
-    End Sub
-
     'Private Sub CargaSucursales()
     '    'Carga Sucursales
     '    Dim ObjSucursales As New ClsSucursales()