-- si tiene que permiso para cambiar vendedor, que se active el ddlvendedor
This commit is contained in:
@@ -800,11 +800,11 @@ Partial Class Clientes
|
|||||||
|
|
||||||
If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
|
If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
|
||||||
Tab.ActiveTabIndex = Request("ATI").ToEntero()
|
Tab.ActiveTabIndex = Request("ATI").ToEntero()
|
||||||
End If
|
End If
|
||||||
'CargaCuentasyConceptos()
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
|
||||||
DVLnkCambiarVendedor.Visible = True
|
DVLnkCambiarVendedor.Visible = True
|
||||||
|
DdlVendedor.Enabled = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -10325,12 +10325,6 @@ Partial Class Clientes
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
|
|
||||||
Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim ObjVentas As New ClsVentas
|
Dim ObjVentas As New ClsVentas
|
||||||
Dim ErrorCambio As Boolean = False
|
Dim ErrorCambio As Boolean = False
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user