Proceso(388). cambio

Inventarios/RecepcionAlmacen.aspx.vb

@@ -446,8 +446,6 @@ Partial Class Inventarios_RecepcionAlmacen
         End Set
     End Property
 
-
-
     Private Property CveImportacionSeleccionada As Integer
         Get
 
@@ -463,8 +461,6 @@ Partial Class Inventarios_RecepcionAlmacen
         End Set
     End Property
 
-
-
     Private Property CveFleteSeleccionado As Integer
         Get
 
@@ -488,10 +484,8 @@ Partial Class Inventarios_RecepcionAlmacen
         If Not IsPostBack Then
 
             InicializaValores()
-
             CargaUrlParametros()
             CargaPendientes()
-
             CargaPermisos()
 
             Dim PermisoEspecialCambioFecha As Boolean = False
@@ -501,10 +495,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                 TxtFecha.Enabled = False
                 ImgFecha.Visible = False
-
             End If
-
-
         End If
     End Sub
 
@@ -516,6 +507,10 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
         GvInv.Columns(8).Visible = TienePermisoImportes
         GvInv.Columns(10).Visible = TienePermisoImportes
+        'permiso para bloquear la captura de la serie por este medio y que sea solo por lectura del ps y luego serie
+        If UsuarioActual.TienePermisoProceso(388) Then
+            BtnAgregarPS.Enabled = False
+        End If
 
     End Sub
 #End Region
@@ -1592,17 +1587,9 @@ Partial Class Inventarios_RecepcionAlmacen
                 e.Row.FCCheckBox("cbInv").Visible = False
             End If
 
-
             e.Row.FCLabel("LbTotal").Text = ((e.Row.DBCampo("PU").ToDecimal + e.Row.DBCampo("CostoIndirecto").ToDecimal) * e.Row.DBCampo("CantidadF").ToDecimal).FormatoNumero
-
             TotalGV += (e.Row.DBCampo("PU").ToDecimal + e.Row.DBCampo("CostoIndirecto").ToDecimal) * e.Row.DBCampo("CantidadF").ToDecimal
 
-
-
-            If UsuarioActual.TienePermisoProceso(388) Then
-                e.Row.FCButton("BtnSerie").Visible = False
-            End If
-
         End If
 
         If e.Row.RowType = DataControlRowType.Footer Then
@@ -1791,6 +1778,9 @@ Partial Class Inventarios_RecepcionAlmacen
         Else
             BtnAgregarPS.Enabled = True
         End If
+        If UsuarioActual.TienePermisoProceso(388) Then
+            BtnAgregarPS.Enabled = False
+        End If
 
         'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD
         Dim Contador As Integer = 0