From 8c3a0fbe11465ce9ee47edc1f6a9656b2291a9c2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 26 Mar 2024 22:40:17 -0700
Subject: [PATCH] -

---
 Ventas/Ventas.aspx    |  4 +++-
 Ventas/Ventas.aspx.vb | 46 +++++++++++++++++++++----------------------
 2 files changed, 26 insertions(+), 24 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 7192e1e97..826b0006e 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -454,7 +454,7 @@
                                 <td width="135px">
                                     <asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
                             </tr>
-                            <tr runat="server" id="trsucursalciente" visible="false">
+                            <tr runat="server" id="trsucursalcliente" visible="false">
                                 <td align="left"><b>
                                     <asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
                                     :</b></td>
@@ -7964,6 +7964,7 @@
                         <div class="row" style="padding-left: 16px;">
                             <div class="col-md-8">
                                 <div class="row">
+                                    <asp:Panel ID="PnlRFCCliente" runat="server" DefaultButton="BtnValidarRFC">
                                     <div class="form-group form-md-line-input input-iconright col-xs-9">
                                         <asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
                                         <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
@@ -7972,6 +7973,7 @@
                                     <div class="form-group form-md-line-input input-iconright col-xs-3">
                                         <asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
                                     </div>
+                                        </asp:Panel>
                                 </div>
                             </div>
                             <div class="col-md-4">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 83fec084d..e5164f720 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6639,7 +6639,7 @@ Partial Class Ventas
                     'UpEmpresaCRM.Visible = True
 
                     trNombreCliente.Visible = False
-                    trsucursalciente.Visible = False
+                    trsucursalcliente.Visible = False
                     TrDireccion.Visible = False
                     TrCiudad.Visible = False
                     TrRFC.Visible = False
@@ -6697,6 +6697,10 @@ Partial Class Ventas
                 Me.PermiteCredito = ObjCliente.PermiteCredito
                 LnkAgregarCliente.Visible = False
 
+                If UsuarioActual.Empresa.Funcionalidad(714) = "1" Then 'cuando inicia cargado con el cliente. publico general
+                    LnkAgregarCliente.Visible = True
+                End If
+
                 ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString())
                 TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString())
                 DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero()
@@ -7002,19 +7006,16 @@ Partial Class Ventas
                 End If
 
                 DdlSucursalCliente.Items.Clear()
-                If ObjCliente.GetSucursales(CveCliente) Then
-                    DdlSucursalCliente.DataSource = ObjCliente.DtResultados
-                    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                        trsucursalciente.Visible = True
-                    Else
-                        trsucursalciente.Visible = False
-                    End If
+                Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente)
+                If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
+                    DdlSucursalCliente.DataSource = dtts
+                    DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
+                    trsucursalcliente.Visible = True
+                    DdlSucursalCliente.DataBind()
                 Else
-                    trsucursalciente.Visible = False
+                    trsucursalcliente.Visible = False
                     DdlSucursalCliente.DataSource = Nothing
                 End If
-                DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
-                DdlSucursalCliente.DataBind()
 
                 'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
                 If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
@@ -20366,7 +20367,7 @@ Partial Class Ventas
                     LblCP.Text = "00000"
                     LblRFC.Text = "AAA010101AAA"
                     LblTelefono.Text = "9999999999"
-                    trsucursalciente.Visible = False
+                    trsucursalcliente.Visible = False
                 End If
             End If
             ObjClientes.Dispose()
@@ -20380,7 +20381,7 @@ Partial Class Ventas
         End If
     End Sub
     Private Sub HabilitarFacturacionSucursal()
-        trsucursalciente.Visible = True
+        trsucursalcliente.Visible = True
         LnkAgregarSucursal.Visible = True
         LblSucursal.Text = "Cliente"
         If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
@@ -20432,12 +20433,12 @@ Partial Class Ventas
                     If ObjCliente.GetSucursales(CveCliente) Then
                         DdlSucursalCliente.DataSource = ObjCliente.DtResultados
                         If ObjCliente.DtResultados.Rows.Count > 0 Then
-                            trsucursalciente.Visible = True
+                            trsucursalcliente.Visible = True
                         Else
-                            trsucursalciente.Visible = False
+                            trsucursalcliente.Visible = False
                         End If
                     Else
-                        trsucursalciente.Visible = False
+                        trsucursalcliente.Visible = False
                         DdlSucursalCliente.DataSource = Nothing
                     End If
                     DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -20448,12 +20449,9 @@ Partial Class Ventas
                 OnError("Ocurrió un error al agregar la sucursal", ex)
             End Try
             ObjCliente.Dispose()
-
         End If
-
         UpCliente.Update()
         RegistraScript("hideDivAgregarSucursal();")
-
     End Sub
 
 
@@ -23816,6 +23814,7 @@ Partial Class Ventas
         divRegimenCliente.Visible = False
         UpAgregarCliente.Update()
         CargaEstados()
+        TxtRFCCliente.Focus()
 
         RegistraScript("showDivEC();")
     End Sub
@@ -23905,7 +23904,7 @@ Partial Class Ventas
                 Dim RegimenFiscalCliente As String = "-1"
 
                 If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
-                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
+                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue}")
                 End If
 
                 DdlUsoCFDICliente.Items.Clear()
@@ -35616,7 +35615,7 @@ Partial Class Ventas
         DivRazonSocial2.Attributes.Add("class", "col-md-12")
 
         DivRazonSocial2.Attributes.Add("class", "col-md-8")
-        DVRegimenSociedad.Visible = True
+        DVRegimenSociedad.Visible = RdTipoPersona.SelectedValue = "1"
 
         If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
             DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
@@ -35642,8 +35641,9 @@ Partial Class Ventas
 
         DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlUsoCFDICliente.Items.Clear()
-        DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlUsoCFDICliente.Items.Clear()
+        'DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        CargaComboCFDICliente()
 
         UpAgregarCliente.Update()
     End Sub