From 62551bf1a2d303b2dc960b76a6e4494968c3515d Mon Sep 17 00:00:00 2001
From: Desarrollo2019 <Desarrollo2019@DESKTOP-F7RCSVR>
Date: Mon, 19 Aug 2019 16:28:17 -0700
Subject: [PATCH] Cambio en RepRembolososComprobaciones

---
 Compras/RepRembolsoComprobaciones.aspx.vb | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index b3484860e..f0681b57d 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -201,14 +201,15 @@ Partial Class Compras_RepRembolsoComprobaciones
         If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
             If ObjAC Is Nothing Then
                 TieneError = True
-                Return
             End If
 
-            If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
-                TieneError = True
-                Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
-            Else
-                IdPoliza = ObjMov.ContaIdPoliza
+            If Not TieneError Then
+                If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
+                    TieneError = True
+                    Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+                Else
+                    IdPoliza = ObjMov.ContaIdPoliza
+                End If
             End If
 
             If IdPoliza > 0 AndAlso Not TieneError Then