From 75e8c54f41c76660c98e164b4bfafe95e45227d1 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 15 May 2024 13:31:59 -0700
Subject: [PATCH] --FIX. valores duplicados de lote y caducidad

---
 Inventarios/EntregaAlmacen.aspx.vb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index a50d87edf..fceee23e9 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1287,6 +1287,8 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
     Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList, ValorAsignado As String)
+        DdlLoteFechaCaducidad.Items.Clear()
+        DdlLoteFechaCaducidad.Items.Add(New ListItem("-", "|"))
 
         Dim almacenes As String = DdlAlmacen.SelectedValue
         If almacenes = "" Then
@@ -1294,13 +1296,10 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         Dim ObjInventarios As New ClsInventarios
-
         If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
-
-            For Each dr As DataRow In ObjInventarios.DtResultados.Rows
+            For Each dr As DataRow In ObjInventarios.DtResultados.FiltraParametros("", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
                 DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
             Next
-
         End If
         ObjInventarios.Dispose()