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

Clientes restriccion Forma de pago ,Portal Proveedores Descarga de comprobantes

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-23 12:00:19 -07:00
parent b129de0176
commit 11b90a6367
6 changed files with 63 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Ventas/Clientes.aspx
View File

@@ -1111,7 +1111,8 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlMetodoPago33" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
<asp:DropDownList ID="DdlMetodoPago33" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar" AutoPostBack="true"
OnSelectedIndexChanged="DdlMetodoPago33_SelectedIndexChanged" >
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlMetodoPago33.ClientID.ToString()%>">Método de Pago:</label>

34
Ventas/Clientes.aspx.vb
View File

@@ -1656,7 +1656,8 @@ Partial Class Clientes
DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
CargaFormaDePago(ObjClientes.CveFormaPago33)
If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
@@ -10583,5 +10584,36 @@ Partial Class Clientes
UpLineaAdicionalmodal.Update()
End Sub
Protected Sub DdlMetodoPago33_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaFormaDePago(-1)
End Sub
Private Sub CargaFormaDePago(Optional CveFormaPago As Integer = -1)
DdlFormaPago33.Items.Clear()
If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
Else
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
End If
DdlFormaPago33.DataBind()
If Not DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
DdlFormaPago33.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End If
If CveFormaPago > 0 Then
DdlFormaPago33.SelectedValueExist(CveFormaPago)
End If
UpFiscalContable.Update()
End Sub
End Class