RepAnomalias, Se agrega CveInventarioFisicoPadre al crear apartir de, al finalizar inventario agregar productos coicidentes del padre

App_Code/ClsInventarios.vb

@@ -132,6 +132,7 @@ Public Class ClsInventarios
     Public Property ResponsableRecibio As String
     Public Property Modulo As String
     Public Property ConAplicacion As Boolean
+    Public Property CveInventarioFisicoPadre As Integer
 
 
 
@@ -2216,7 +2217,7 @@ Public Class ClsInventarios
 
 #Region "  INVENTARIOS - INVENTARIO FISICO  "
 
-    Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer, Optional ConAplicacion As Boolean = False) As Boolean
+    Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer, Optional ConAplicacion As Boolean = False, Optional CveInventarioFisicoPadre As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_InventarioFisicoAdd")
@@ -2227,6 +2228,7 @@ Public Class ClsInventarios
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@ConAplicacion", SqlDbType.Int).Value = If(ConAplicacion, 1, 0)
+            .Add("@CveInventarioFisicoPadre", SqlDbType.Int).Value = CveInventarioFisicoPadre
             .Add("@CveInventarioFisico", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -2318,6 +2320,7 @@ Public Class ClsInventarios
                 FechaF = dr("FechaFin").ToString
                 Estatus = dr("Estatus").ToString
                 ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
+                CveInventarioFisicoPadre = dr("CveInventarioFisicoPadre").ToString.ToEntero
                 Retorno = True
             End If
 

Inventarios/RepAnomalias.aspx

@@ -82,22 +82,22 @@
         <ContentTemplate>
 
 
-               <li>
+            <li>
-                    <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
+                <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
-                </li>
+            </li>
-                <li>
+            <li>
-                    <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exportar a Excel Productos que Faltan </asp:LinkButton>
+                <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exportar a Excel Productos que Faltan </asp:LinkButton>
-                </li>
+            </li>
-                 <li>
+            <li>
-                    <asp:LinkButton ID="ImgExcel2" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos que Sobran</asp:LinkButton>
+                <asp:LinkButton ID="ImgExcel2" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos que Sobran</asp:LinkButton>
-                </li>
+            </li>
 
-                 <li>
+            <li>
-                    <asp:LinkButton ID="ImgExcelProdcutosCoinciden" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos Coincidentes</asp:LinkButton>
+                <asp:LinkButton ID="ImgExcelProdcutosCoinciden" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos Coincidentes</asp:LinkButton>
-                </li>
+            </li>
-                  <li>
+            <li>
-                        <asp:LinkButton ID="LnkDescarExcelGrupos" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel </asp:LinkButton>
+                <asp:LinkButton ID="LnkDescarExcelGrupos" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel </asp:LinkButton>
-                    </li>
+            </li>
             <li>
                 <asp:LinkButton ID="btnFin" runat="server" Text="Finalizar Inventario" data-toggle="confirmation" data-popout="true" data-original-title="Finalizar el inventario" data-btn-ok-label="si" />
             </li>
@@ -105,7 +105,7 @@
                 <asp:LinkButton ID="LnkCrear" runat="server"><i class=""></i> Crear a partir de</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkGuardar" runat="server" Visible="false" > <i class="fa fa-floppy-o" style="font-weight:bold;"></i>  Guardar Nuevo Inventario Físico</asp:LinkButton>
+                <asp:LinkButton ID="LnkGuardar" runat="server" Visible="false"> <i class="fa fa-floppy-o" style="font-weight:bold;"></i>  Guardar Nuevo Inventario Físico</asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>
@@ -416,10 +416,17 @@
                                 <asp:UpdatePanel runat="server" ID="UpFecha" UpdateMode="Conditional">
                                     <ContentTemplate>
                                         <div class="form-group form-md-line-input input-iconright">
+
                                             <asp:TextBox ID="TxtTitulo" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVTitulos" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTitulo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Titulo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtTitulo.ClientID.ToString()%>">Titulo:</label>
+
+                                            
+
                                         </div>
+                                          <div class="form-group form-md-line-input input-iconright">
+                                              <asp:CheckBox runat="server" ID="ChkRelacionarInventario" CssClass="form-control" Text="Relacionar Inventario Físico" />
+                                          </div>
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
                             </div>

Inventarios/RepAnomalias.aspx.vb

@@ -16,7 +16,21 @@ Partial Class Inventarios_RepAnomalias
         Set(value As Integer)
             ViewState("CveInventarioFisico") = value
         End Set
+    End Property
+
+    Public Property CveInventarioFisicoPadre As Integer
+        Get
+            If ViewState("CveInventarioFisicoPadre") Is Nothing Then
+                Return -1
+            Else
+                Return CType(ViewState("CveInventarioFisicoPadre"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveInventarioFisicoPadre") = value
+        End Set
     End Property
+
     Public Property CveAlmacen As Integer
         Get
             Return CType(ViewState("CveAlmacen"), Integer)
@@ -110,6 +124,8 @@ Partial Class Inventarios_RepAnomalias
             lbFechaF.Text = Inventario.FechaF
             CveSubProyecto = Inventario.CveSubProyectoInventario
             aplicacion = Inventario.ConAplicacion
+            CveInventarioFisicoPadre = Inventario.CveInventarioFisicoPadre
+
             If Inventario.Estatus = "Finalizado" Then
                 btnFin.Visible = False
             End If
@@ -340,7 +356,9 @@ Partial Class Inventarios_RepAnomalias
 #Region "  FINALIZAR  "
     Protected Sub btnFin_Click(sender As Object, e As EventArgs) Handles btnFin.Click
         Dim Inventarios As New ClsInventarios
-        Inventarios.IniciaTransacSQL()
+        Inventarios.IniciaTransacSQL()
+
+
         If Inventarios.AddInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             If Inventarios.UpdateInventarioFisicoEstatus(CveInventarioFisico, 3, UsuarioActual.CveEmpresa) Then
                 Dim url As String = ("/Inventarios/RepAnomalias.aspx?CveInventarioFisico=" + CveInventarioFisico.ToString)
@@ -623,8 +641,11 @@ Partial Class Inventarios_RepAnomalias
         DtProveedor = Nothing
         DtUsuario = Nothing
 
+        Dim CveInventarioFisicoPadre As Integer = If(ChkRelacionarInventario.Checked, CveInventarioFisico, -1)
+
+
         ObjInventario.IniciaTransacSQL()
-        If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, lbObservaciones.Text, 0, CveSubProyecto, aplicacion) Then
+        If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, lbObservaciones.Text, 0, CveSubProyecto, aplicacion, CveInventarioFisicoPadre:=CveInventarioFisicoPadre) Then
             CveInventarioFisicoNew = ObjInventario.CveInventarioFisico
 
             If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then