-- se quito GlobalDTFolios

2020-05-30 15:33:13 -07:00
parent e8031755ee
commit 28351c58e0
7 changed files with 129 additions and 114 deletions
--- a/App_Code/Modelos.vb
+++ b/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)
--- a/Ashx/SIGFacturacion.ashx
+++ b/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)
--- a/Contratos/FacturacionMasiva.aspx.vb
+++ b/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
--- a/GPS/FacturacionMasiva.aspx.vb
+++ b/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
--- a/Planeacion/CatFolios.aspx.vb
+++ b/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)


--- a/Sistemas/CatSesiones.aspx
+++ b/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>
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/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()