From a9ca8e9d17d64b9aa2e6a53d25eb009fe3298ee5 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Dec 2024 08:04:09 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20registro=20sin=20lo?= =?UTF-8?q?te/cad?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index a974ad4ba..dd56a1943 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2186,16 +2186,17 @@ Partial Class Inventarios_EntregaAlmacen DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero() - If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then - 'Esto es por que + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + Dim DdlCaducidadProducto As DropDownList = gvr.FCDropDownList("DdlCaducidadProducto") - Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) - Dim Lote As String = ArrayCaducidad(0) - Dim FechaCaducidad As String = ArrayCaducidad(1) - - DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate - DtDatos.Rows(Index)("Lote") = Lote + If DdlCaducidadProducto.SelectedValue <> "" AndAlso DdlCaducidadProducto.SelectedValue <> "|" Then + Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) + Dim Lote As String = ArrayCaducidad(0) + Dim FechaCaducidad As String = ArrayCaducidad(1) + DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate + DtDatos.Rows(Index)("Lote") = Lote + End If Else DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text