From 339f67aa0cbf018cf22b0a9e0e1ec8880e1ce50a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Nov 2021 16:26:10 -0700 Subject: [PATCH] filtro de ps, que no marque error si no regresa resultados --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fb3db29dc..eb24512e6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -30902,7 +30902,7 @@ Partial Class Ventas Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) If ArrayNC.Length >= 4 Then Dim CvePSNC As Integer = ArrayNC(3).ToEntero() - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).Rows(0) + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("") Else Dim CveSATNC = "84111506" DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0)