--FIX merge

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