From 5166b17d17b68f12939ff44bc97c5c99fb2315cc Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 18 May 2020 13:26:48 -0700
Subject: [PATCH] -- serie,Lote,Caducidad Seccion Almacen

---
 AF/AF.aspx    | 2 +-
 AF/AF.aspx.vb | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/AF/AF.aspx b/AF/AF.aspx
index 96b070b57..8ce476197 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -2847,7 +2847,7 @@
                                 <ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
-                        <div id="DivSerieLote" runat="server" visible="false" class="row">
+                        <div id="DivSerie" runat="server" visible="false" class="row">
                             <div class="col-md-2">Serie:</div>
                             <div class="col-md-10">
                                 <asp:TextBox CssClass="form-control input-sm" ID="TxtAFInvSerie" Width="125px" runat="server" />
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index f705a3c26..b6ad9ae04 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2052,7 +2052,7 @@ Partial Class AF_AF
                 Dim CveUMInv = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero
                 If CveUMInv > 0 Then
                     CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}")
-                    If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, SerieLote:=AFInvSerie) Then
+                    If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie) Then
                         ErrorGuardar = True
                     End If
                 Else
@@ -3001,7 +3001,7 @@ Partial Class AF_AF
         AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1")
 
         Dim ObjInventario As New ClsInventarios
-        Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, FechaMovto:=Now.ToDateTime.ToString("yyyy/MM/dd HH:mm"), SerieLote:=AFInvSerie)
+        Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, FechaMovto:=Now.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie)
         Dim Costo As Decimal = 0
         If Inv_CveMetodoInventario = 5 Then
             Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
@@ -3585,7 +3585,7 @@ Partial Class AF_AF
     End Sub
 #End Region
     Protected Sub DdlAFInvPS_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DivSerieLote.Visible = GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario").ToEntero() = 5
+        DivSerie.Visible = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimeroValor("AplicaSerie"))
 
     End Sub
     Protected Sub BtnPDFCompras_Click(sender As Object, e As EventArgs)