This commit is contained in:
2022-09-10 13:54:45 -07:00
31 changed files with 3908 additions and 689 deletions

View File

@@ -226,15 +226,14 @@ Partial Class Inventarios_TraspasoAlmacen
CantidadTotal = 0
CvePS = 0
TipoSeccionAlmacen = 0
Dim PermisoEspecialCambioFecha As Boolean = False
If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then
TxtFecha.Enabled = False
ImgFecha.Visible = False
TxtFechaRecepcion.Enabled = False
ImgFechaRecepcion.Visible = False
End If
Else
@@ -965,9 +964,10 @@ Partial Class Inventarios_TraspasoAlmacen
Next
If ErrorExistencia Then
ObjInventario.Dispose()
Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
ObjInventario.Dispose()
Exit Sub
End If