Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -1621,11 +1621,21 @@ Partial Class Compras_Compras
         '    'End If
         'End If
 
-
         'RegistraScript("ScrollVentanaAddProducto();")
     End Sub
 
 #Region "C A R G A S"
+    Private Sub CargaRegistarEntradaAlmacenAutomatico()
+        'REGISTRA ENTRADA DE ALMACÉN EN AUTOMÁTICO
+        If UsuarioActual.Empresa.Funcionalidad(585) = "1" Then
+            GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    GvRow.FCCheckBox("cbInv").Checked = True
+                End If
+            Next
+        End If
+    End Sub
     Private Sub CargaOrdenCorte()
         Dim ObjCGame As New ClsCGame()
         If ObjCGame.GetOrdenCorte(UsuarioActual.CveEmpresa) Then
@@ -3847,6 +3857,34 @@ Partial Class Compras_Compras
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
         '------------------INICIA VALIDACIONES------------------
+        'REGISTRA ENTRADA DE ALMACÉN EN AUTOMÁTICO
+        If UsuarioActual.Empresa.Funcionalidad(585) = "1" Then
+
+            If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked Then
+                Alert("Debe seleccionar aplicar el inventario", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un almacen para el inventario", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    If Not GvRow.FCCheckBox("cbInv").Checked Then
+                        Alert("Debe seleccionar todos los productos para el inventario", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+
+                    If GvRow.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero() <= 0 Then
+                        Alert("Debe seleccionar un almacen para todos los productos para el inventario", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                End If
+            Next
+        End If
+
         Dim EstatusCredito As Integer = 0
         'Credito Multiple
         If RBLPago.SelectedValue.ToEntero = 4 Then
@@ -11170,6 +11208,8 @@ Partial Class Compras_Compras
         If ChkConsignacion.Checked Then
         End If
 
+        CargaRegistarEntradaAlmacenAutomatico()
+
         UpINV.Update()
 
     End Sub
@@ -11222,7 +11262,9 @@ Partial Class Compras_Compras
                 If e.Row.DBCampo("AlmacenRegistrado").ToString = "1" Then
                     e.Row.FCCheckBox("cbInv").Checked = True
                 End If
-                e.Row.FCCheckBox("cbInv").Enabled = False
+                e.Row.FCCheckBox("cbInv").Enabled = False
+            Else
+
             End If
 
             'CONSIGNACIONES