Contratos, Indicadores reportes

2020-11-13 19:02:03 -07:00
parent a241dca5b1
commit 1d49c40910
11 changed files with 904 additions and 399 deletions
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -966,6 +966,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
    Private Function GETUMSAT(ByVal context As HttpContext) As String
        Dim retorno As String = ""

+
+        If context.Application("GlobalDTPSATUM") Is Nothing Then
+            Dim ObjGrales As New ClsGenerales
+            If ObjGrales.GetSATUnidadMedida Then context.Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else context.Application("GlobalDTPSATUM") = Nothing
+            ObjGrales.Dispose()
+        End If
+
        Dim DTUM = DirectCast(context.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow))
        Dim DtPSRetorno As DataTable