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

--

Browse Source
This commit is contained in:
rrene
2023-11-29 10:51:17 -07:00
parent 79fc8be245
commit 67b74818db
2 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/Transferencias.aspx
View File

@@ -56,7 +56,7 @@
<tr id="TrCuentaDestino" runat="server">
<td>Cuenta Destino:</td>
<td>
<asp:DropDownList ID="DdlCuentaDestino" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="400px" ValidationGroup="GrpGuardar">
<asp:DropDownList ID="DdlCuentaDestino" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="400px" ValidationGroup="GrpGuardar" AutoPostBack="true">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVCuentaDestino" runat="server" ControlToValidate="DdlCuentaDestino" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta Destino''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOCuentaDestino" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDestino" Width="300px"></ajax:ValidatorCalloutExtender>

25
Bancos/Transferencias.aspx.vb
View File

@@ -56,6 +56,7 @@ Partial Class Bancos_Transferencias
End If
DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
TxtFechaDocumento.Text = NowADS().ToShortDateString
If Opcion = 1 Then
LtlTitulo.Text = "Domicializaci<EFBFBD>n de tarjeta"
@@ -73,7 +74,7 @@ Partial Class Bancos_Transferencias
CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
End If
TxtFechaDocumento.Text = NowADS().ToShortDateString
DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
@@ -156,22 +157,22 @@ Partial Class Bancos_Transferencias
End Sub
'Protected Sub DdlCuentaDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaDestino.SelectedIndexChanged
Protected Sub DdlCuentaDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaDestino.SelectedIndexChanged
' VerificaMonedas()
VerificaMonedas()
' If Opcion = 1 Then
' CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
' End If
'If Opcion = 1 Then
' CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
'End If
' If chkMovimientoTarjeta.Checked AndAlso GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
' CargaGridTarjetas()
' Else
' GvTC.Visible = False
' End If
'If chkMovimientoTarjeta.Checked AndAlso GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
' CargaGridTarjetas()
'Else
' GvTC.Visible = False
'End If
'End Sub
End Sub
Private Sub CargaGridTarjetas()
Dim ObjCreditos As New ClsBancos