From ac4d0c2e4bd8ff03f763937b7fb363d26598ff30 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 4 Mar 2021 19:40:37 -0700
Subject: [PATCH] Ajuste de inventario fisico

---
 Inventarios/EntradasSalidas.aspx    | 22 +++++++++++-----------
 Inventarios/EntradasSalidas.aspx.vb | 22 +++++++++++++++-------
 2 files changed, 26 insertions(+), 18 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 3d45b4103..8c24fa9af 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -1073,13 +1073,13 @@
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title">
-                            <asp:Literal ID="Literal2" runat="server">Ajuste Inventario Fisico</asp:Literal></h4>
+                            <asp:Literal ID="Literal2" runat="server">Ajuste Inventario Físico</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                         <div class="row">
                             <div class="col-md-6">
                                 <div style="text-align: center">
-                                    <label for="<%= DdlAlmacenInventarioFisico.ClientID.ToString()%>">Almacen:</label>
+                                    <label for="<%= DdlAlmacenInventarioFisico.ClientID.ToString()%>">Almacén:</label>
                                     <asp:DropDownList ID="DdlAlmacenInventarioFisico" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" Width="60%" CssClass="form-control input-sm select2me" AppendDataBoundItems="true"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVAlmacenInvFisico" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenInventarioFisico" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="InvFisico"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="CERFVAlmacenInvFisico" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenInvFisico" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -1183,14 +1183,14 @@
                                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                                         </asp:DropDownList>
                                                                     </td>
-                                                                    <td runat="server" id="TrSerieEntrada" visible="false">
-                                                                        <asp:TextBox ID="TxtSerieEntrada" runat="server" Width="50px"></asp:TextBox>
+                                                                    <td runat="server" id="TrSerieEntrada" visible="false" >
+                                                                        <asp:TextBox ID="TxtSerieEntrada" runat="server" Width="50px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrLoteEntrada" visible="false">
-                                                                        <asp:TextBox ID="TxtLoteEntrada" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtLoteEntrada" runat="server" Width="70px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrCaducidadEntrada" visible="false">
-                                                                        <asp:TextBox ID="TxtCaducidadEntrada" runat="server" Width="80px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtCaducidadEntrada" runat="server" Width="80px" CssClass="form-control input-sm"></asp:TextBox>
                                                                          <asp:LinkButton ID="ImgFechaCadEntrada" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                                         <asp:RequiredFieldValidator ID="RFVFechaCadEntrada" runat="server" ControlToValidate="TxtCaducidadEntrada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="AddPSInvFisico"></asp:RequiredFieldValidator>
                                                                         <ajax:ValidatorCalloutExtender ID="VCFechaCadEntrada" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCadEntrada" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -1265,7 +1265,7 @@
                                                                     <th style="width: 10%" runat="server" id="ThSeccionSalida" visible="false">Sección almacén</th>
                                                                     <th style="width: 10%" runat="server" id="ThSerieSalida" visible="false">Serie</th>
                                                                     <th style="width: 10%" runat="server" id="ThLoteSalida" visible="false">Lote</th>
-                                                                    <th style="width: 10%" runat="server" id="ThCaducidadSalida" visible="false">Caducidad</th>
+                                                                    <th style="width: 25%" runat="server" id="ThCaducidadSalida" visible="false">Caducidad</th>
                                                                     <th style="width: 73px;"></th>
                                                                 </tr>
                                                                 <tr align="center">
@@ -1284,14 +1284,14 @@
                                                                         </asp:DropDownList>
                                                                     </td>
                                                                     <td runat="server" id="TrSerieSalida" visible="false">
-                                                                        <asp:TextBox ID="TxtSerieSalida" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtSerieSalida" runat="server" Width="50px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrLoteSalida" visible="false">
-                                                                        <asp:TextBox ID="TxtLoteSalida" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtLoteSalida" runat="server" Width="70px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrCaducidadSalida" visible="false">
-                                                                        <asp:TextBox ID="TxtCaducidadSalida" runat="server" Width="50px"></asp:TextBox>
-                                                                        <asp:LinkButton ID="ImgFechaCadSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                        <asp:TextBox ID="TxtCaducidadSalida" runat="server" Width="75px" CssClass="form-control input-sm"></asp:TextBox>
+                                                                        <asp:LinkButton ID="ImgFechaCadSalida" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server" ></asp:LinkButton>
                                                                         <asp:RequiredFieldValidator ID="RFVFechaCadSalida" runat="server" ControlToValidate="TxtCaducidadSalida" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="AddPSInvFisicoSalida"></asp:RequiredFieldValidator>
                                                                         <ajax:ValidatorCalloutExtender ID="VCFechaCadSalida" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCadSalida" Width="350px"></ajax:ValidatorCalloutExtender>
                                                                         <ajax:MaskedEditExtender ID="MEEFechaCadSalida" runat="server" TargetControlID="TxtCaducidadSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index ae8df5126..a379f3922 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3819,16 +3819,21 @@ Partial Class Inventarios_EntradasSalidas
 #Region "SALIDAS"
     Private Sub BtnAgregarSalida_Click(sender As Object, e As EventArgs) Handles BtnAgregarSalida.Click
         Dim ObjProductosServicios As New ClsProductosServicios()
+        Dim ObjInventario As New ClsInventarios
         Dim CveUM As Integer
         Dim Mensaje As String = ""
+        Dim FechaCaducidad As Date
+        Dim lote As String
         If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
             If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
                 CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
             End If
         End If
-        ObjProductosServicios.Dispose()
-        Dim ObjInventario As New ClsInventarios
-        If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= TxtCantidadSalidaInv.Text.ToDouble Then
+
+        FechaCaducidad = If(ObjProductosServicios.AplicaCaducidad, TxtCaducidadSalida.Text.ToDate, MinFecha)
+        lote = If(ObjProductosServicios.AplicaLote, TxtLoteSalida.Text.ToString, "-1")
+
+        If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=lote, FechaCaducidad:=FechaCaducidad) >= TxtCantidadSalidaInv.Text.ToDouble Then
             If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                 Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
@@ -3841,7 +3846,10 @@ Partial Class Inventarios_EntradasSalidas
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             Alert(Mensaje, TipoMensaje.MsgError)
         End If
+
         ObjInventario.Dispose()
+        ObjProductosServicios.Dispose()
+
     End Sub
 
     Protected Sub AddPSSalida(CvePS As Integer, Cantidad As Double)
@@ -3898,7 +3906,7 @@ Partial Class Inventarios_EntradasSalidas
             GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
             GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
             GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
-            GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+            GvSalidas.Columns(5).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
         End If
     End Sub
 
@@ -4030,7 +4038,7 @@ Partial Class Inventarios_EntradasSalidas
             GvSalidasCambioVigencia.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
             GvSalidasCambioVigencia.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
             GvSalidasCambioVigencia.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
-            GvSalidasCambioVigencia.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+            GvSalidasCambioVigencia.Columns(5).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
         End If
         UpGvCambioSalidas.Update()
     End Sub
@@ -4423,7 +4431,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'activa caducidad
                 ThCaducidadEntrada.Visible = AplicaCaducidad
-                ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+                ThCaducidadEntrada.InnerText = UsuarioActual.Empresa.Funcionalidad(147)
                 TrCaducidadEntrada.Visible = AplicaCaducidad
 
             Else
@@ -4457,7 +4465,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'activa caducidad
                 ThCaducidadSalida.Visible = AplicaCaducidad
-                ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+                ThCaducidadSalida.InnerText = UsuarioActual.Empresa.Funcionalidad(147)
                 TrCaducidadSalida.Visible = AplicaCaducidad
 
             Else