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

2021-12-05 22:49:13 -07:00
parent f98d32451c
commit 34733b0ee2
3 changed files with 50 additions and 19 deletions
--- 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

--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -82,22 +82,22 @@
        <ContentTemplate>


-               <li>
-                    <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
-                </li>
-                <li>
-                    <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exportar a Excel Productos que Faltan </asp:LinkButton>
-                </li>
-                 <li>
-                    <asp:LinkButton ID="ImgExcel2" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos que Sobran</asp:LinkButton>
-                </li>
+            <li>
+                <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exportar a Excel Productos que Faltan </asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="ImgExcel2" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos que Sobran</asp:LinkButton>
+            </li>

-                 <li>
-                    <asp:LinkButton ID="ImgExcelProdcutosCoinciden" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos Coincidentes</asp:LinkButton>
-                </li>
-                  <li>
-                        <asp:LinkButton ID="LnkDescarExcelGrupos" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel </asp:LinkButton>
-                    </li>
+            <li>
+                <asp:LinkButton ID="ImgExcelProdcutosCoinciden" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel Productos Coincidentes</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkDescarExcelGrupos" runat="server"><i class="fa fa-ad-excel"></i> Exporta a Excel </asp:LinkButton>
+            </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>
--- 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