From 33ca3da04adf65e0f0d82c4e71aa512a4fc823d0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 9 Nov 2022 13:34:31 -0700
Subject: [PATCH] --mejoras

---
 Ventas/Clientes.aspx.vb | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 444ff4848..8adeebce2 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1858,7 +1858,8 @@ Partial Class Clientes
 
                 'Ocultamos la mayoria de informacion si es no-frecuente
                 If ObjClientes.TipoCliente = 2 Then
-                    TabFiscalContable.Visible = False
+                    If UsuarioActual.CveEmpresa <> 141 Then TabFiscalContable.Visible = False
+
                     TabCxC.Visible = False
                     'TabAnticipos.Visible = False
                     TabRetenciones.Visible = False
@@ -2510,12 +2511,12 @@ Partial Class Clientes
 
             If DdlPais.SelectedValue.ToEntero() = 151 Then
                 If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then
-                    Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia)
+                    Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
 
                 If Not DdlColonia.SelectedValue.ToEntero() > 0 Then
-                    Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia)
+                    Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
             End If
@@ -2533,7 +2534,7 @@ Partial Class Clientes
 
             If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then
 
-                Alert("El Regimen fiscal del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
 
             End If
@@ -8739,10 +8740,11 @@ Partial Class Clientes
         DTPorcentajePrecios = DTPorcentajeTemp.Clone
     End Sub
     Private Sub CargaMarcas()
-        Dim ObjMarcas As New ClsProductosServicios
-        ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
-        DdlMarcaPS.DataSource = ObjMarcas.DtResultados
-        ObjMarcas.Dispose()
+        'Dim ObjMarcas As New ClsProductosServicios
+        'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
+        'DdlMarcaPS.DataSource = ObjMarcas.DtResultados
+        'ObjMarcas.Dispose()
+        DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarcaPS.DataBind()
         DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1"))