funcionalidad de replicacion de productos

Ventas/ProductosServicios.aspx.vb

@@ -2866,7 +2866,10 @@ Partial Class ProductosyServicios
     End Function
 
     Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
-        Dim EmpresasFranquicia = ObtenerFranquiciasInt()
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
+
+            Dim StrEmpresas As String = UsuarioActual.Empresa.Funcionalidad(563)
+            Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
             For Each Franquicia As Integer In EmpresasFranquicia
                 Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
                 Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
@@ -2892,18 +2895,8 @@ Partial Class ProductosyServicios
                     End If
                 End If
             Next
+        End If
         Return False
     End Function
 
-    Private Function ObtenerFranquiciasInt() As Integer()
-        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
-        Dim Franquicias = FranquiciasStr.Split(","c)
-        Dim ReturnFranquicias(Franquicias.Length) As Integer
-        Dim Contador As Integer = 0
-        For Each Franquicia In Franquicias
-            ReturnFranquicias(Contador) = Franquicia.ToEntero
-            Contador += 1
-        Next
-        Return ReturnFranquicias
-    End Function
 End Class