diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 6164807ae..e253a0892 100644
--- a/App_Code/ClsInventarios.vb
+++ b/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
diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index 4a0e1d04e..505c30465 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -82,22 +82,22 @@
-
- Imprimir PDF
-
-
- Exportar a Excel Productos que Faltan
-
-
- Exporta a Excel Productos que Sobran
-
+
+ Imprimir PDF
+
+
+ Exportar a Excel Productos que Faltan
+
+
+ Exporta a Excel Productos que Sobran
+
-
- Exporta a Excel Productos Coincidentes
-
-
- Exporta a Excel
-
+
+ Exporta a Excel Productos Coincidentes
+
+
+ Exporta a Excel
+
@@ -105,7 +105,7 @@
Crear a partir de
- Guardar Nuevo Inventario Físico
+ Guardar Nuevo Inventario Físico
@@ -416,10 +416,17 @@
+
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 587c9d385..bb20e4c8d 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/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