From 98cffb70c38e3d99a739c64c3ccc6322b28f2672 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Nov 2020 20:07:28 -0700 Subject: [PATCH] funcionalidad para las empresas de replicacion --- Ventas/ProductosServicios.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 0d7861c1e..ff50f1b94 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1238,7 +1238,7 @@ Partial Class ProductosyServicios End If Next End If - If UsuarioActual.CveEmpresa = 141 Then + If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, True) End If @@ -1304,7 +1304,7 @@ Partial Class ProductosyServicios Next End If - If UsuarioActual.CveEmpresa = 141 Then + If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, False) End If @@ -2763,7 +2763,8 @@ Partial Class ProductosyServicios End Sub Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, Agregar As Boolean) As Boolean - Dim EmpresasFranquicia = New Integer() {152} + 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 nombreEmpresa As String = GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa") Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero