-- log error contabilizar

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

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