.

Compras/Compras.aspx.vb

@@ -19052,7 +19052,7 @@ Partial Class Compras_Compras
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.AddPSSimplificado(PS) > 0 Then
             Alert("El P/S fue agregado correctamente.")
-            RecargaGlobalEquivalencias()
+            GeneraGlobalDT(Nothing)
         End If
         ObjPS.Dispose()
 
@@ -19064,18 +19064,11 @@ Partial Class Compras_Compras
 
         UpAgregarPS.Update()
 
-        RegistraScript("$('#DivAgregarPS').modal('hide');")
-        RecargaPSGlobal()
-    End Sub
-    Private Sub RecargaPSGlobal()
-        'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
-        'Dim ObjPS As New ClsProductosServicios
+        RegistraScript("$('#DivAgregarPS').modal('hide');")
 
-        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
-
-        'ObjPS.Dispose()
     End Sub
 
+
 #End Region
 
 #Region "TIPO DE COMPRA"