From ac056390d0ba91c84e6c1ff082d76a0c88e4972b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 2 Dec 2023 12:42:16 -0700 Subject: [PATCH] -- carga excel, que no sea obligatorio, lote/cad/serie --- Inventarios/EntradasSalidas.aspx.vb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 0c3230e3e..6cee2aee4 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5008,10 +5008,10 @@ Partial Class Inventarios_EntradasSalidas 'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal - Dim Serie As String = Row("Serie").ToString - Dim Lote As String = Row("Lote").ToString - Dim Caducidad As String = Row("Caducidad").ToString - Dim SeccionAlmacen As String = Row("SeccionAlmacen").ToString + Dim Serie As String = If(Row.Table.Columns.Contains("Serie"), Row("Serie").ToString().Trim, "") + Dim Lote As String = If(Row.Table.Columns.Contains("Lote"), Row("Lote").ToString().Trim, "") + Dim Caducidad As String = If(Row.Table.Columns.Contains("Caducidad"), Row("Caducidad").ToString().Trim, "") + Dim SeccionAlmacen As String = If(Row.Table.Columns.Contains("SeccionAlmacen"), Row("SeccionAlmacen").ToString().Trim, "") Dim CvePS As Integer = 0 Dim CveUM As Integer = 0 @@ -5024,8 +5024,6 @@ Partial Class Inventarios_EntradasSalidas CveSeccionAlmacen = DTSeccionesAlmacen.FiltroPrimeroValor("CveSeccion", String.Format("SeccionAlmacen = '{0}'", SeccionAlmacen)).ToEntero End If - - If Codigo <> "" Then DataTemp = PSTemp.FiltraParametros(String.Format("Codigo = '{0}'", Codigo)) CvePS = DataTemp.FiltroPrimeroValor("CvePS", "").ToEntero