BDH. Validacion de proceso de Apoyo Logistico,AL2

Inventarios/RecepcionAlmacen.aspx

@@ -350,7 +350,7 @@
             </asp:UpdatePanel>
 
             <%--ADVERTENCIA--%>
-            <asp:UpdatePanel runat="server">
+            <asp:UpdatePanel runat="server" ID="UpAdvertencias" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="row">
                         <div class="col-md-12" style="vertical-align: middle;" align="center">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -977,11 +977,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         SumarImporteUsados = True
                         DtRecepcion = ObjInventario.DtResultados.Copy()
                         If TipoMovimiento <> 3 Then 'sino es devolucion/NC
-                            If UsuarioActual.CveRol = 1 Then
+                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                                CargaAlmacenes(-1, "22", CveTipoCompra)
-                            Else
-                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                            End If
                         End If
 
                     Else
@@ -1009,6 +1005,12 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivVirtualAdvertencia.Visible = False
                     End If
 
+                    'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL
+                    If Not SumarImporteUsados AndAlso CveTipoCompra = 9 Then
+                        RealizarMovimientoVirtual = False
+                        DivVirtualAdvertencia.Visible = False
+                    End If
+
                     If TipoMovimiento = 2 AndAlso CveAlmacenDevolucionProveedor > 0 Then
                         RealizarTraspasoAlmacenDevolucion = True
 
@@ -1142,6 +1144,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         CargaGVInv()
 
+        UpAdvertencias.Update()
         UpDocumentos.Update()
     End Sub
 
@@ -4687,6 +4690,13 @@ Partial Class Inventarios_RecepcionAlmacen
         Return Retorno
     End Function
 
+
+    Public Class MMovimientoAlmacen
+        Public Property CveMovimiento As Integer
+        Public Property Folio As Integer
+
+    End Class
+
     'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
     '    Dim Retorno = True
     '    Dim Archivo As System.IO.FileInfo = Nothing
@@ -4717,8 +4727,3 @@ Partial Class Inventarios_RecepcionAlmacen
 
 End Class
 
-'Public Class MMovimientoAlmacen
-'    Public Property CveMovimiento As Integer
-'    Public Property Folio As Integer
-
-'End Class