From 474a817d08c2310119baf1738bc92ee42ab331f9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 27 Sep 2021 10:02:31 -0700
Subject: [PATCH] -- carga de documetno, en las importaciones

---
 Inventarios/RecepcionAlmacen.aspx.vb | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 7c9e2fa5b..c8f5f2624 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/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