-

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2999,7 +2999,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+        If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
             ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
             ObjContaAC.IniciaTransacSQL()
             If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
@@ -3029,6 +3029,7 @@ Partial Class Inventarios_RecepcionAlmacen
             ObjInventario.RollBack()
             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+            GuardaLog(MensajeError)
             Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If