Compras inventario como Gasto

Compras/Compras.aspx.vb

@@ -3917,30 +3917,6 @@ Partial Class Compras_Compras
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
 
-        Dim EntradaComoGastoConAlmacen As Boolean = False
-        If GvInv.Rows.Count > 0 Then
-
-            Dim CvealamcenSeleccionado As Integer = -1
-
-            For Each GvRow As GridViewRow In GvInv.Rows
-                If GvRow.RowType = DataControlRowType.DataRow Then
-                    CvealamcenSeleccionado = GvRow.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
-                    If CvealamcenSeleccionado > 0 Then
-                        Exit For
-                    End If
-                End If
-            Next
-
-            If CvealamcenSeleccionado > 0 Then
-                Dim ModalidadAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CvealamcenSeleccionado).FiltroPrimeroValor("Modalidad").ToEntero
-                If ModalidadAlmacen = 0 Then
-                    EntradaComoGastoConAlmacen = True
-                End If
-            End If
-
-        End If
-
-
 
         '------------------ INICIA VALIDACIONES ------------------
 
@@ -4396,14 +4372,35 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        'If DdlFolioGarantia.Visible AndAlso DdlFolioGarantia.SelectedValue <> "-1" Then
-        '    If Not ValidaFolioGarantia() Then Exit Sub
-        'End If
-
-
         '------------------TERMINA VALIDACIONES------------------
 
 
+
+        Dim EntradaComoGastoConAlmacen As Boolean = False
+        If GvInv.Rows.Count > 0 AndAlso GvInv.HeaderRow.FCCheckBox("cbAll").Checked Then
+
+            Dim CvealamcenSeleccionado As Integer = -1
+
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    CvealamcenSeleccionado = GvRow.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
+                    If CvealamcenSeleccionado > 0 Then
+                        Exit For
+                    End If
+                End If
+            Next
+
+            If CvealamcenSeleccionado > 0 Then
+                Dim ModalidadAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CvealamcenSeleccionado).FiltroPrimeroValor("Modalidad").ToEntero
+                If ModalidadAlmacen = 0 Then
+                    EntradaComoGastoConAlmacen = True
+                End If
+            End If
+
+        End If
+
+
+
         'si hay necesidad de actualizar el globaldtps
         If RegeneraPS Then
             'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)