From 46eb6c28d8dce44ddc71429b84716371b64473cd Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Jan 2025 10:20:52 -0700 Subject: [PATCH] =?UTF-8?q?--=20SMS=20=20-=20consignaci=C3=B3n=20defina=20?= =?UTF-8?q?el=20almacen=20de=20consigna=20cuando=20es=20factura?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 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 be1ef0a10..5b98f44a9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14377,7 +14377,7 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso factura.TipoDocto.Contiene("Ped", "Rem") Then + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso (factura.TipoDocto.Contiene("Ped", "Rem") OrElse (factura.TipoDocto.Contiene("Ing") AndAlso RBLTipoVenta.SelectedValue = "4")) Then Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal() If CveClientesucursatTemp > 0 Then