From dbe40ab4d516715f99b1f7e61c5f585c93bcad7f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 20 Jul 2024 15:48:28 -0700
Subject: [PATCH] --FIX merge

---
 Ventas/Ventas.aspx.vb | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 886952b47..e571f3701 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5284,8 +5284,12 @@ Partial Class Ventas
                                 Trsaldo.Visible = True
                                 HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                                 HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
-                                TrMotivoDev.Visible = True
-                                lblMotivoDev.Text = DbRowVenta("MotivoDevolucion").ToString()
+
+                                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                                    TrMotivoDev.Visible = True
+                                    lblMotivoDev.Text = DbRowVenta("MotivoDevolucion").ToString()
+                                End If
+
                             Case "Ped"
                                 DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped"))
                                 CvePedido = CveVenta
@@ -12279,7 +12283,13 @@ Partial Class Ventas
         ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
         ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
-        ObjFactura.MonedaAbreviatura = DdlMoneda.SelectedItem.Text
+        ObjFactura.MonedaAbreviatura = ""
+
+        Try
+            ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
+        Catch ex As Exception
+
+        End Try
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
             ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime