--SMS sugerir los lote/cad, en devolución

Inventarios/EntregaAlmacen.aspx.vb

@@ -1249,7 +1249,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
             If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
-                CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"))
+                Dim ValorAsignado As String = ""
+                If GvDatos.Columns(8).Visible AndAlso EsDevolucionVenta = 1 Then
+                    ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}"
+                End If
+                CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"), ValorAsignado)
             End If
 
 
@@ -1282,7 +1286,7 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Sub
 
-    Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList)
+    Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList, ValorAsignado As String)
 
         Dim almacenes As String = DdlAlmacen.SelectedValue
         If almacenes = "" Then
@@ -1300,6 +1304,10 @@ Partial Class Inventarios_EntregaAlmacen
         End If
         ObjInventarios.Dispose()
 
+        If Not String.IsNullOrEmpty(ValorAsignado) Then
+            DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
+        End If
+
     End Sub
 
     Private Sub CargaDocumentos(tCveVenta As Integer)