From 008dd3381c8f6f9f6802d881a3e2ae28e4fe6856 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 5 Feb 2022 12:09:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20al=20obtner=20la=20venta,=20que=20no=20val?= =?UTF-8?q?ide=20almacen,=20para=20generaci=C3=B3n=20de=20pdf?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 11c6901a0..221b694d8 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -952,7 +952,7 @@ Partial Class PopUpVerFactura Dim EnvioContacto As String = "" Dim EnvioDireccion As String = "" Dim Guia As String = "" - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) Then If ObjVentas.DtResultados.Rows.Count > 0 Then SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString @@ -1838,7 +1838,7 @@ Partial Class PopUpVerFactura TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double)) TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer)) - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then Dim dtVentas As DataTable = ObjVentas.DtResultados ' se rellenan los campos de la factura @@ -4849,7 +4849,7 @@ Partial Class PopUpVerFactura Dim drv As DataRow = Nothing Dim ObjVentas As New ClsVentas - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then drv = ObjVentas.DtResultados.FiltroPrimero("") End If ObjVentas.Dispose()