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

Proceso(388). cambio

Browse Source
This commit is contained in:
rrene
2024-09-23 10:24:21 -07:00
parent 3b4f9c0cb9
commit fbf740a327
1 changed files with 7 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -446,8 +446,6 @@ Partial Class Inventarios_RecepcionAlmacen
End Set End Set
End Property End Property
Private Property CveImportacionSeleccionada As Integer Private Property CveImportacionSeleccionada As Integer
Get Get
@@ -463,8 +461,6 @@ Partial Class Inventarios_RecepcionAlmacen
End Set End Set
End Property End Property
Private Property CveFleteSeleccionado As Integer Private Property CveFleteSeleccionado As Integer
Get Get
@@ -488,10 +484,8 @@ Partial Class Inventarios_RecepcionAlmacen
If Not IsPostBack Then If Not IsPostBack Then
InicializaValores() InicializaValores()
CargaUrlParametros() CargaUrlParametros()
CargaPendientes() CargaPendientes()
CargaPermisos() CargaPermisos()
Dim PermisoEspecialCambioFecha As Boolean = False Dim PermisoEspecialCambioFecha As Boolean = False
@@ -501,10 +495,7 @@ Partial Class Inventarios_RecepcionAlmacen
TxtFecha.Enabled = False TxtFecha.Enabled = False
ImgFecha.Visible = False ImgFecha.Visible = False
End If End If
End If End If
End Sub End Sub
@@ -516,6 +507,10 @@ Partial Class Inventarios_RecepcionAlmacen
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
GvInv.Columns(8).Visible = TienePermisoImportes GvInv.Columns(8).Visible = TienePermisoImportes
GvInv.Columns(10).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 Sub
#End Region #End Region
@@ -1592,17 +1587,9 @@ Partial Class Inventarios_RecepcionAlmacen
e.Row.FCCheckBox("cbInv").Visible = False e.Row.FCCheckBox("cbInv").Visible = False
End If End If
e.Row.FCLabel("LbTotal").Text = ((e.Row.DBCampo("PU").ToDecimal + e.Row.DBCampo("CostoIndirecto").ToDecimal) * e.Row.DBCampo("CantidadF").ToDecimal).FormatoNumero 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 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 End If
If e.Row.RowType = DataControlRowType.Footer Then If e.Row.RowType = DataControlRowType.Footer Then
@@ -1791,6 +1778,9 @@ Partial Class Inventarios_RecepcionAlmacen
Else Else
BtnAgregarPS.Enabled = True BtnAgregarPS.Enabled = True
End If End If
If UsuarioActual.TienePermisoProceso(388) Then
BtnAgregarPS.Enabled = False
End If
'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD 'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD
Dim Contador As Integer = 0 Dim Contador As Integer = 0