From 171f49c76bcc943abd8a743ffa0d1995de937d86 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 18 May 2023 16:04:10 -0700 Subject: [PATCH] -- cambio de uso a globaldtsimp... --- Ventas/CatPS.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb index 8a5b17b99..dbf73e938 100644 --- a/Ventas/CatPS.aspx.vb +++ b/Ventas/CatPS.aspx.vb @@ -297,10 +297,10 @@ Partial Class CatPS Dim StrEmpresas As String = UsuarioActual.Empresa.Funcionalidad(563) & "," & UsuarioActual.CveEmpresa ' agregamos la empresa actual Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x)) For Each Franquicia As Integer In EmpresasFranquicia - Dim CvePSPagina As Integer = GlobalDTPS(Franquicia, Codigo:=CodigoPS).FiltroPrimeroValor("CvePS", "").ToEntero + Dim CvePSPagina As Integer = GlobalDTPSSimplificado(Franquicia, Codigo:=CodigoPS.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero Dim CvePSAdicional As Integer - If Opcion = 1 Then CvePSAdicional = GlobalDTPS(Franquicia,, Codigo:=PSAdicional).FiltroPrimeroValor("CvePS", "").ToEntero + If Opcion = 1 Then CvePSAdicional = GlobalDTPSSimplificado(Franquicia, Codigo:=PSAdicional.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero If CvePSPagina <= 0 Then Return String.Format("El producto:{0} no existe en la franquicia: '{1}'", CodigoPS, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")) @@ -402,8 +402,8 @@ Partial Class CatPS Dim msgg As String = GuardarProductosEquivalenteEnFranquicia(ObjPS, Row("CodigoProducto").ToString.Trim, "", 0, 2) If msgg = "" Then ''eliminar los ps For Each dr As DataRow In dt.FiltraParametros($"CodigoProducto='{ Row("CodigoProducto").ToString.Trim}'").Rows - Dim CodigoPS As String = dr("CodigoProducto").ToString - Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString + Dim CodigoPS As String = dr("CodigoProducto").ToString.Trim + Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero If GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) <> "" Then ErrorExcel = True