-- carga de documetno, en las importaciones

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2229,6 +2229,14 @@ Partial Class Inventarios_RecepcionAlmacen
             Return False
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+            Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+            If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
+                Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
+                Return False
+            End If
+        End If
+
         'VERIFICA EXISTENCIAS
         If TipoMovimiento > 1 Then
             Dim MensajeExistencias As New StringBuilder
@@ -2263,14 +2271,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
-            Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
-            If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
-                Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
-                Return False
-            End If
-        End If
-
         Return True
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
@@ -3883,6 +3883,14 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
                 End If
 
+                'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
+                If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                    If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
+                        ErrorMovInv = True
+                        Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
+                    End If
+                End If
+
 
             Else
                 ErrorMovInv = True