From 247b768e36fb855ab784ef57814c6f969eb0c7b4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 20 Sep 2023 12:09:05 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20monedapreferente?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 1611935e6..a68e38494 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -5686,7 +5686,7 @@ Partial Class OC_OC
                 Else
                     DivIVAFacturar.Visible = True
                 End If
-                CveMonedaPreferente = dtt.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                CveMonedaPreferente = dtt.FiltroPrimeroValor("CveMonedaPreferente").ToEntero()
                 If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                     Me.CveConfianzaProveedor = dtt.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
                     'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
@@ -5698,7 +5698,7 @@ Partial Class OC_OC
                 End If
 
                 'MUESTRA IVA PROVEEDOR EXTRANJERO
-                If UsuarioActual.CveEmpresa <> 119 AndAlso GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
+                If UsuarioActual.CveEmpresa <> 119 AndAlso dtt.FiltraParametros("RFC = 'XEXX010101000'").Rows.Count = 1 Then
                     'Alert("Proveedor extranjero")
                     LblLeyendaProveedorIVA.Text = "IVA 0%"
                     'Si es proveedor extranjero selecciona iva al 0%