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

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