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: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" />--%> <%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
</div> </div>
</div> </div>
<div class="row" id="DivCheques" runat="server" visible="false"> <div class="row" id="DivCheques" runat="server" visible="false">
<label class="col-md-2 control-label">Movimiento Relacionado:</label> <label class="col-md-2 control-label">Movimiento Relacionado:</label>
<div class="col-md-5"> <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> <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> </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="chequesie2" id="checkesie2">
<div class="row"> <div class="row">

32
Bancos/IE.aspx.vb
View File

@@ -1515,11 +1515,11 @@ Partial Class Bancos_IE
CargaCorteCaja() CargaCorteCaja()
End If End If
If dr("UsaTarjeta").ToString = "True" Then 'If dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas() ' CargaGridTarjetas()
Else 'Else
DivTarjeta.Visible = False ' DivTarjeta.Visible = False
End If 'End If
End If End If
If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then 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, 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, 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) ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
If CveIE > 0 Then If CveIE > 0 Then
@@ -3987,18 +3987,18 @@ Partial Class Bancos_IE
UpDatos.Update() UpDatos.Update()
End Sub End Sub
Private Sub CargaGridTarjetas() 'Private Sub CargaGridTarjetas()
Dim ObjCreditos As New ClsBancos ' Dim ObjCreditos As New ClsBancos
ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero) ' ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
DdlTarjeta.Items.Clear() ' DdlTarjeta.Items.Clear()
DdlTarjeta.DataSource = ObjCreditos.DtResultados ' DdlTarjeta.DataSource = ObjCreditos.DtResultados
DdlTarjeta.DataBind() ' DdlTarjeta.DataBind()
DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1")) ' DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
ObjCreditos.Dispose() ' ObjCreditos.Dispose()
DivTarjeta.Visible = True ' DivTarjeta.Visible = True
End Sub 'End Sub
#End Region #End Region