From fd82fb823cef599399a8c8f2b5e319b09ed9b92a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Jan 2024 19:05:20 -0700 Subject: [PATCH] -- cambio en globalDT --- Inventarios/TraspasoAlmacen.aspx.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 97a972044..35b9b9014 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2933,11 +2933,10 @@ Partial Class Inventarios_TraspasoAlmacen Dim RowsNoCargados As Integer = 0 Dim NoPSConSerie As Integer = 0 Try - Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa) + Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) For Each RowExcel As DataRow In dt.Rows If RowExcel("Codigo").ToString() <> "" Then - Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() @@ -2954,7 +2953,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Valido As Boolean = True Dim ValidarLote As Boolean = True - If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then + If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}") = "6" Then ValidarLote = False End If