cambios global

- permiso inv fisico
- oc, recarga global ps
- actualiza precio,s que considere funcionalidad de listas de precio

OC/OC.aspx.vb

@@ -7299,6 +7299,7 @@ Partial Class OC
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.AddPSSimplificado(PS) > 0 Then
             RecargaGlobalEquivalencias()
+            RecargaPSGlobal()
             Alert("El P/S fue agregado correctamente.")
         End If
         ObjPS.Dispose()
@@ -7312,10 +7313,10 @@ Partial Class OC
         UpAgregarPS.Update()
 
         RegistraScript("$('#DivAgregarPS').modal('hide');")
-        RecargaPSGlobal()
+
     End Sub
     Private Sub RecargaPSGlobal()
-        'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjPS As New ClsProductosServicios
 
         'If ObjPS.GetPSSimplificado(UsuarioActual.CveEmpresa) Then Application(String.Format("GlobalDTPSSimplificado{0}", UsuarioActual.CveEmpresa)) = ObjPS.DtResultados.AsEnumerable()
@@ -7325,10 +7326,12 @@ Partial Class OC
 
 
     Private Sub RecargaGlobalEquivalencias()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
-        Hilo.Start()
+        GeneraGlobalEquivalencias()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
+        'Hilo.Start()
     End Sub
     Private Sub GeneraGlobalEquivalencias()
+        GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
         'Dim dtt As DataTable = GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa)
         'Dim ObjPS = New ClsProductosServicios
         'If ObjPS.GetPSEquivalencias(-1, UsuarioActual.CveEmpresa) Then