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

-- cambio en cuenta de tarjetas

Browse Source
This commit is contained in:
rrene
2023-12-12 13:29:35 -07:00
parent 17624cebe0
commit 849d487a34
2 changed files with 17 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/IE.aspx
View File

@@ -145,22 +145,13 @@
<asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
<%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
</div>
</div>
<div class="row" id="DivCheques" runat="server" visible="false">
<label class="col-md-2 control-label">Movimiento Relacionado:</label>
<div class="col-md-5">
<asp:DropDownList ID="DDlCheques" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="FolioFecha" DataValueField="CveIE" AutoPostBack="True"></asp:DropDownList>
</div>
</div>
<div class="row" runat="server" id="DivTarjeta" visible="false">
<label class="col-xs-2 control-label">Tarjeta:</label>
<div class="col-xs-4">
<asp:DropDownList ID="DdlTarjeta" runat="server" CssClass="input-sm form-control select2me" AppendDataBoundItems="true" DataValueField="CveCuentaTarjeta" DataTextField="ConcatDatos" Width="250px" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="chequesie2" id="checkesie2">
<div class="row">

32
Bancos/IE.aspx.vb
View File

@@ -1515,11 +1515,11 @@ Partial Class Bancos_IE
CargaCorteCaja()
End If
If dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas()
Else
DivTarjeta.Visible = False
End If
'If dr("UsaTarjeta").ToString = "True" Then
' CargaGridTarjetas()
'Else
' DivTarjeta.Visible = False
'End If
End If
If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then
@@ -2001,7 +2001,7 @@ Partial Class Bancos_IE
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
If CveIE > 0 Then
@@ -3987,18 +3987,18 @@ Partial Class Bancos_IE
UpDatos.Update()
End Sub
Private Sub CargaGridTarjetas()
Dim ObjCreditos As New ClsBancos
ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
'Private Sub CargaGridTarjetas()
' Dim ObjCreditos As New ClsBancos
' ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
DdlTarjeta.Items.Clear()
DdlTarjeta.DataSource = ObjCreditos.DtResultados
DdlTarjeta.DataBind()
DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
' DdlTarjeta.Items.Clear()
' DdlTarjeta.DataSource = ObjCreditos.DtResultados
' DdlTarjeta.DataBind()
' DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
ObjCreditos.Dispose()
DivTarjeta.Visible = True
End Sub
' ObjCreditos.Dispose()
' DivTarjeta.Visible = True
'End Sub
#End Region