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

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