AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

funcionalidad para las empresas de replicacion

Browse Source
This commit is contained in:
rrene
2020-11-11 20:07:28 -07:00
parent 875fbbe41f
commit 98cffb70c3
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/ProductosServicios.aspx.vb
View File

@@ -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