From 5f07f30873ed03c66cc4b2d139f233a3ddaee462 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 20:35:09 -0700
Subject: [PATCH] -- log error contabilizar

---
 App_Code/ClsContabilidad.vb         |  2 +-
 Inventarios/TraspasoAlmacen.aspx.vb | 22 +++++++++++-----------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index a8263551a..39fd883db 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1429,7 +1429,7 @@ Public Class ClsContabilidad
 
             If Not ContaCompartida Then ObjConta.Dispose()
         End If
-        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1} ", Retorno, OcurrioError)
+        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1}) ", Retorno, OcurrioError)
         StrLog.AppendFormat(" - Fin")
         StrLog.ToString.GuardaLogAD("LogContabilizacion")
         Return Retorno
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 2c26b3865..8f0dc0e82 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1054,7 +1054,7 @@ Partial Class Inventarios_TraspasoAlmacen
             'DdlClasificacion.SelectedValue = "-1"
             'DdlClasificacion_SelectedIndexChanged(DdlClasificacion, EventArgs.Empty)
 
-            If ChkEmitirTimbrado.Checked Then CveMovimientoTimbrado = CveMovimientoSalida : Timbrar()
+            If ChkEmitirTimbrado.Checked AndAlso ChkTransitorio.Checked Then CveMovimientoTimbrado = CveMovimientoSalida : Timbrar()
 
             Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
 
@@ -1072,21 +1072,21 @@ Partial Class Inventarios_TraspasoAlmacen
 
             LimpiaMovimiento()
 
-        Else
+            Else
             ObjInventario.RollBack()
             Alert(TextoError, TipoMensaje.MsgError)
             RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-        End If
+            End If
 
-        ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
+            ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
 
-        'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
-        If ErrorExistencia Then
-            CargaGvDatos()
-        End If
-        ObjConta.Dispose()
-        ObjInventario.Dispose()
-    End Sub
+            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
+            If ErrorExistencia Then
+                CargaGvDatos()
+            End If
+            ObjConta.Dispose()
+            ObjInventario.Dispose()
+            End Sub
 
     Function ConsumoInterno(TipoAlmacenOrigen As Integer, TipoAlmacenDestino As Integer) As Boolean
         Dim Retorno As Boolean = False