quitar funcionalidad 147

This commit is contained in:
rrene
2020-07-06 14:23:24 -07:00
parent e4c23226b5
commit da49d3d1ad

View File

@@ -340,7 +340,6 @@ Partial Class Inventarios_EntradasSalidas
BtnContabilizar.Enabled = PermiteContabilizar()
BtnNuevo.Enabled = PermiteCrearNuevo()
ActivaPermisoSeccionAlmacen()
If CveMovimiento > 0 Then
PermisoVerImportes()
End If
@@ -367,11 +366,7 @@ Partial Class Inventarios_EntradasSalidas
Private Function PermiteCrearNuevo() As Boolean
Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False)
End Function
Private Sub ActivaPermisoSeccionAlmacen()
If CveMovimiento <= 0 Then
GvM.Columns(11).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
End If
End Sub
Private Sub PermisoVerImportes()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
' tdPU.Visible = TienePermisoImportes
@@ -2279,13 +2274,6 @@ Partial Class Inventarios_EntradasSalidas
e.Row.FCTextBox("LblEditCodigo").Attributes.Add("onblur", String.Format("AFBlurEdit(this,{0},{1});", e.Row.FCHiddenField("HdnCveActivoFijo").ClientID, e.Row.FCHiddenField("HdnCodigoAF").ClientID))
e.Row.FCImage("ImgAF").Attributes.Add("onclick", String.Format("AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OCE&RI={0}',950,600,'N');", e.Row.RowIndex))
'If UsuarioActual.Empresa.Funcionalidad(147) = "1" Then
' e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
' e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
' e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedValueExist(e.Row.DBCampo("CveSeccionAlmacen"))
'End If
'PERMISO SOLO PARA EDITAR OBSERVACIONES
If PermiteGuardarObservacionDetalle() Then
e.Row.FCTextBox("txtPrecio").Enabled = False