From 8e48ff449ea33ba6071987184a3e96f2fefc7524 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 5 Jan 2024 16:28:29 -0700
Subject: [PATCH] SMS - 2024.01.04 Ventas sugerir Sucursales , parte 2

---
 App_Code/ClsInventarios.vb          |  6 +++++-
 Inventarios/EntradasSalidas.aspx.vb |  5 +++--
 Inventarios/TraspasoAlmacen.aspx    | 18 ++++++++++++++++--
 3 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 7cc8c0f96..6a592dbcc 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4,6 +4,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
 Imports Microsoft.Web.XmlTransform
+Imports Telerik.Web.UI.ComboBox.ComboBoxStyles
 
 Public Class ClsInventarios
     Implements IDisposable
@@ -1375,7 +1376,8 @@ Public Class ClsInventarios
         Return Retorno
     End Function
     Public Function UpdateMovimientoDetalle(Cantidad As Decimal, CveUM As Integer, CvePS As Integer, PU As Decimal, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "",
-                                            Optional Observaciones As String = "-1", Optional PUTC As Decimal = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
+                                            Optional Observaciones As String = "-1", Optional PUTC As Decimal = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1,
+                                            Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_MovimientosDetalleUpdate")
@@ -1393,6 +1395,8 @@ Public Class ClsInventarios
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
+            .Add("@Lote", SqlDbType.VarChar).Value = Lote
+            .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad
         End With
 
         Try
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 7689a04e5..03c834585 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -5332,8 +5332,9 @@ Partial Class Inventarios_EntradasSalidas
 
             Dim ObjInventario As New ClsInventarios
             If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDecimal, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDecimal, CveAFEdit,
-                                                         CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
-                                                         CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero) Then
+                                                        CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
+                                                        CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero,
+                                                        Lote:=TxtnLote.Text.Trim, FechaCaducidad:=TxtnFechaCaducidad.Text.ToDate) Then
                 Alert("Error al Actualizar los movimientos")
             Else
                 GvM.EditIndex = -1
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index d8e67319f..cb944993a 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -450,8 +450,22 @@
                                         <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                                     </td>
                                     <td runat="server" id="TdFechaCaducidad" visible="false">
-                                        <asp:CheckBox ID="ChkSugiereFechaCaducidad" runat="server" Text="Auto Sugiere" ToolTip="Auto Sugiere Fecha de caducidad" AutoPostBack="true" OnCheckedChanged="ChkSugiereFechaCaducidad_CheckedChanged" />
-                                        <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+
+                                        <table>
+                                            <tr>
+                                                <td>
+                                                    <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                                                    <ajax:MaskedEditExtender ID="METxtnFechaCaducidad" runat="server" TargetControlID="TxtnFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    <ajax:CalendarExtender runat="server" ID="CETxtnFechaCaducidad" TargetControlID="TxtnFechaCaducidad" PopupButtonID="TxtnFechaCaducidad" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                </td>
+                                                <td>
+                                                    <asp:CheckBox ID="ChkSugiereFechaCaducidad" runat="server" Text="Auto Sugiere" ToolTip="Auto Sugiere Fecha de caducidad" AutoPostBack="true" OnCheckedChanged="ChkSugiereFechaCaducidad_CheckedChanged" />
+                                                </td>
+                                            </tr>
+                                        </table>
+                                        
+                                        
+
                                     </td>
                                     <td align="center">
                                         <asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" ValidationGroup="GrpAgregar" TabIndex="3" Text="Agregar" />