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

quitar funcionalidad 147

Browse Source
This commit is contained in:
rrene
2020-07-06 14:23:24 -07:00
parent e4c23226b5
commit da49d3d1ad
1 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -340,7 +340,6 @@ Partial Class Inventarios_EntradasSalidas
BtnContabilizar.Enabled = PermiteContabilizar() BtnContabilizar.Enabled = PermiteContabilizar()
BtnNuevo.Enabled = PermiteCrearNuevo() BtnNuevo.Enabled = PermiteCrearNuevo()
ActivaPermisoSeccionAlmacen()
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
PermisoVerImportes() PermisoVerImportes()
End If End If
@@ -367,11 +366,7 @@ Partial Class Inventarios_EntradasSalidas
Private Function PermiteCrearNuevo() As Boolean Private Function PermiteCrearNuevo() As Boolean
Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False) Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False)
End Function 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() Private Sub PermisoVerImportes()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
' tdPU.Visible = TienePermisoImportes ' 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.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)) 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 'PERMISO SOLO PARA EDITAR OBSERVACIONES
If PermiteGuardarObservacionDetalle() Then If PermiteGuardarObservacionDetalle() Then
e.Row.FCTextBox("txtPrecio").Enabled = False e.Row.FCTextBox("txtPrecio").Enabled = False