-- mejora para visualizar cambio de vigencia

Ventas/ProductosServicios.aspx.vb

@@ -242,14 +242,6 @@ Partial Class ProductosyServicios
                 DdlIVA.Enabled = False
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                DivPSAdicionalVigencia.Visible = True
-                divCodigo2.Visible = True
-                divLitraje.Visible = True
-
-                CargaPSAdicionalesVigencias()
-            End If
-
             If CvePS > 0 Then
                 CargaEquivalencias()
                 CargaPSAdicionales()
@@ -329,6 +321,14 @@ Partial Class ProductosyServicios
         CargarMetodosInv()
         'CargaPSAdicional(DdlPSAdicional)
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            DivPSAdicionalVigencia.Visible = True
+            divCodigo2.Visible = True
+            divLitraje.Visible = True
+
+            CargaPSAdicionalesVigencias()
+        End If
+
         'Nuevo R: 26/09/2017
         CargaProveedores()