AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- FIX cambios en alta de cliente

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-12-30 16:54:20 -07:00
parent 48a7c08fb2
commit 5bef565679
2 changed files with 37 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Ventas.aspx
View File

@@ -8383,10 +8383,9 @@
<label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label> <label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright col-xs-6"> <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:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </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> <label for="<%= DdlFormaCliente.ClientID.ToString()%>">Forma Pago: </label>
<i></i> <i></i>
</div> </div>

39
Ventas/Ventas.aspx.vb
View File

@@ -25093,7 +25093,7 @@ Partial Class Ventas
DivNombreCliente.Visible = False DivNombreCliente.Visible = False
DivTipoPersona.Visible = False DivTipoPersona.Visible = False
DivDireccionCliente.Visible = False DivDireccionCliente.Visible = False
DVRegimenSociedad.Visible = False
DivNumeroCPCliente.Visible = False DivNumeroCPCliente.Visible = False
'DivColoniaTelefonoCliente.Visible = False 'DivColoniaTelefonoCliente.Visible = False
DivCiudadLocalidadCliente.Visible = False DivCiudadLocalidadCliente.Visible = False
@@ -25215,7 +25215,8 @@ Partial Class Ventas
RdTipoPersona.SelectedValue = "0" RdTipoPersona.SelectedValue = "0"
DdlMetodoCliente.SelectedValueExist(1) DdlMetodoCliente.SelectedValueExist("1")
DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
'DdlFormaCliente.SelectedValueExist(1) 'DdlFormaCliente.SelectedValueExist(1)
@@ -25265,7 +25266,7 @@ Partial Class Ventas
End If End If
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
divGiro.Visible = True divGiro.Visible = True
Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("") Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
@@ -25282,6 +25283,32 @@ Partial Class Ventas
End If 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 If
End Sub End Sub
@@ -38769,7 +38796,7 @@ Partial Class Ventas
End Sub End Sub
Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
DdlFormaCliente.Items.Clear()
If DdlMetodoCliente.SelectedValue = "3" Then If DdlMetodoCliente.SelectedValue = "3" Then
DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20") DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
Else Else
@@ -38777,6 +38804,10 @@ Partial Class Ventas
End If End If
DdlFormaCliente.DataBind() DdlFormaCliente.DataBind()
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DdlFormaCliente.SelectedValueExist("1")
End If
End Sub End Sub
Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal() Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal()