-- limpieza
This commit is contained in:
@@ -488,7 +488,6 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
InicializaClientes()
|
|
||||||
InicializaBitacoraTemporal()
|
InicializaBitacoraTemporal()
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||||
@@ -514,7 +513,6 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
PermisoVerImportes()
|
PermisoVerImportes()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
|
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
|
||||||
|
|
||||||
TxtFecha.Enabled = False
|
TxtFecha.Enabled = False
|
||||||
@@ -3941,17 +3939,7 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
|
|
||||||
|
|
||||||
#Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
|
#Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
|
||||||
Private Sub InicializaClientes()
|
|
||||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso CveMovimiento <= 0 Then
|
|
||||||
|
|
||||||
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
|
||||||
DdlClientes.DataBind()
|
|
||||||
|
|
||||||
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
||||||
DdlClientes.SelectedValue = "-1"
|
|
||||||
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
Protected Sub ActivaClientes()
|
Protected Sub ActivaClientes()
|
||||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||||
DivCliente.Visible = True
|
DivCliente.Visible = True
|
||||||
@@ -3959,10 +3947,6 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
'TxtDepartamentoEntrega.Text = ""
|
'TxtDepartamentoEntrega.Text = ""
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'If UsuarioActual.CveRol = 1 Then
|
|
||||||
' RfvCliente.Enabled = False
|
|
||||||
'End If
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
|
Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
CambiaCliente()
|
CambiaCliente()
|
||||||
|
|||||||
Reference in New Issue
Block a user