aplicando cambios visuales y funcionamiento en global para "ContratosTipos"

2020-01-23 16:03:35 -07:00
parent c2401bab59
commit 37057190f8
6 changed files with 124 additions and 106 deletions
--- a/Contratos/CatContratosTipos.aspx.vb
+++ b/Contratos/CatContratosTipos.aspx.vb
@@ -15,9 +15,9 @@ Partial Class Contratos_CatContratosTipos
 #Region "      CARGAS      "
    Private Sub CargaDatos()
        Dim Objeto As New ClsContratos
-        If Objeto.GetContratosTipos() Then
+        If Objeto.GetContratosTipos(UsuarioActual.CveEmpresa) Then
            GvContratos.DataSource = Objeto.DtResultados
-            GlobalDTContratosTipos = Objeto.DtResultados
+            GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Objeto.DtResultados
        End If
        GvContratos.DataBind()
        Objeto.Dispose()