From 26691f7e7078856525f633c1d47c01ce9bf6a21f Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Sat, 14 Nov 2020 11:47:40 -0700
Subject: [PATCH] funcionalidad de replicacion de productos

---
 Ventas/ProductosServicios.aspx.vb | 57 ++++++++++++++-----------------
 1 file changed, 25 insertions(+), 32 deletions(-)

diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index ff50f1b94..4311727ff 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2866,44 +2866,37 @@ Partial Class ProductosyServicios
     End Function
 
     Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
-        Dim EmpresasFranquicia = ObtenerFranquiciasInt()
-        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
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
 
-            If CvePSPagina <= 0 Then
-                Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
-            End If
+            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
 
-            If CvePSPagina <= 0 Then
-                Alert(String.Format("El producto adicional no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
-            End If
-
-            If Agregar Then
-                If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
-                    Return True
+                If CvePSPagina <= 0 Then
+                    Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
                 End If
-            Else
-                Dim PSAnterior As String = GlobalDTPS(Franquicia).FiltroPrimeroValor("PS", String.Format("CvePS = '{0}'", CvePSAdicional))
-                Dim CvePSAnterio As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", PSAnterior)).ToEntero
 
-                If Not ObjPS.UpdatePSAdicionales(CvePSPagina, CvePSAdicional, CvePSAnterio, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
-                    Return True
+                If CvePSPagina <= 0 Then
+                    Alert(String.Format("El producto adicional no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
                 End If
-            End If
-        Next
+
+                If Agregar Then
+                    If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
+                        Return True
+                    End If
+                Else
+                    Dim PSAnterior As String = GlobalDTPS(Franquicia).FiltroPrimeroValor("PS", String.Format("CvePS = '{0}'", CvePSAdicional))
+                    Dim CvePSAnterio As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", PSAnterior)).ToEntero
+
+                    If Not ObjPS.UpdatePSAdicionales(CvePSPagina, CvePSAdicional, CvePSAnterio, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
+                        Return True
+                    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