-- log error contabilizar

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