From 5bef565679af0866ede4d1afd04c846776efcf31 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 30 Dec 2024 16:54:20 -0700
Subject: [PATCH] -- FIX cambios en alta de cliente

---
 Ventas/Ventas.aspx    |  5 ++---
 Ventas/Ventas.aspx.vb | 39 +++++++++++++++++++++++++++++++++++----
 2 files changed, 37 insertions(+), 7 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index cc159a59b..b556ddb94 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8383,10 +8383,9 @@
                                 <label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label>
                             </div>
                             <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                                <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="100%">
-                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="100%">
                                 </asp:DropDownList>
-                                <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                <asp:RequiredFieldValidator ID="RFVFormaCliente" runat="server" ControlToValidate="DdlFormaCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                 <label for="<%= DdlFormaCliente.ClientID.ToString()%>">Forma Pago: </label>
                                 <i></i>
                             </div>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2b624ec92..1330474b2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25093,7 +25093,7 @@ Partial Class Ventas
         DivNombreCliente.Visible = False
         DivTipoPersona.Visible = False
         DivDireccionCliente.Visible = False
-
+        DVRegimenSociedad.Visible = False
         DivNumeroCPCliente.Visible = False
         'DivColoniaTelefonoCliente.Visible = False
         DivCiudadLocalidadCliente.Visible = False
@@ -25215,7 +25215,8 @@ Partial Class Ventas
 
             RdTipoPersona.SelectedValue = "0"
 
-            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente.SelectedValueExist("1")
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
 
             'DdlFormaCliente.SelectedValueExist(1)
 
@@ -25265,7 +25266,7 @@ Partial Class Ventas
 
         End If
 
-        If UsuarioActual.CveEmpresa = 189 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             divGiro.Visible = True
 
             Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
@@ -25282,6 +25283,32 @@ Partial Class Ventas
 
             End If
 
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            'PERSONA MORAL
+            If TxtRFCCliente.Text.Trim().Length = 12 Then
+                RdTipoPersona.SelectedValue = "1"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                DdlRegimenFiscalCliente.SelectedValueExist("1")
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+                'PERSONA FISICA
+            Else
+                RdTipoPersona.SelectedValue = "0"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                If TxtRFCCliente.Text.Trim() = "XAXX010101000" Then
+                    DdlRegimenFiscalCliente.SelectedValueExist("11")
+                Else
+                    DdlRegimenFiscalCliente.SelectedValueExist("9")
+                End If
+
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            End If
+
+            DdlUsoCFDICliente.SelectedValueExist("3")
         End If
 
     End Sub
@@ -38769,7 +38796,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
-        DdlFormaCliente.Items.Clear()
+
         If DdlMetodoCliente.SelectedValue = "3" Then
             DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
         Else
@@ -38777,6 +38804,10 @@ Partial Class Ventas
         End If
         DdlFormaCliente.DataBind()
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DdlFormaCliente.SelectedValueExist("1")
+        End If
+
     End Sub
 
     Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal()