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

-- quitar idcta

Browse Source
This commit is contained in:
rrene
2023-12-02 14:41:16 -07:00
parent 30f318c99e
commit fe680f5fb6
1 changed files with 4 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/Reembolsos.aspx.vb
View File

@@ -26,14 +26,6 @@ Partial Class Compras_Reembolsos
ViewState("CveMoneda") = value ViewState("CveMoneda") = value
End Set End Set
End Property End Property
Private Property IdCuentaBancaria As Integer
Get
Return ViewState("IdCuentaBancaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("IdCuentaBancaria") = value
End Set
End Property
Private Property DtCheques As DataTable Private Property DtCheques As DataTable
Get Get
Return CType(ViewState("DtCheques"), DataTable) Return CType(ViewState("DtCheques"), DataTable)
@@ -202,7 +194,6 @@ Partial Class Compras_Reembolsos
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
End If End If
If HdnTipoTransaccion.Value = "Egs" Then If HdnTipoTransaccion.Value = "Egs" Then
@@ -309,7 +300,6 @@ Partial Class Compras_Reembolsos
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
End If End If
If ChkChequeExcedente.Checked Then If ChkChequeExcedente.Checked Then
@@ -325,9 +315,9 @@ Partial Class Compras_Reembolsos
'inserto los movimientos de la conta para abonar al saldo 'inserto los movimientos de la conta para abonar al saldo
If (TxtImporte.Text.ToDouble > 0 And CvePrePolizaNueva > 0) Or (TxtImporteVinculado.Text.ToDouble > 0 And HdnCheque.Value.ToEntero > 0 And CvePrePolizaVieja > 0) Then If (TxtImporte.Text.ToDouble > 0 And CvePrePolizaNueva > 0) Or (TxtImporteVinculado.Text.ToDouble > 0 And HdnCheque.Value.ToEntero > 0 And CvePrePolizaVieja > 0) Then
Dim SaldoCheque = TxtChequeSaldo.Text.ToDecimal Dim SaldoCheque As Decimal = TxtChequeSaldo.Text.ToDecimal
Dim SaldoActual = 0.0D Dim SaldoActual As Decimal = 0
Dim SaldoAbonado = 0.0D Dim SaldoAbonado As Decimal = 0
Dim PorcentajePago As Decimal = 1 Dim PorcentajePago As Decimal = 1
'inserto las compras que voy a pagar 'inserto las compras que voy a pagar
For Each gvr As GridViewRow In GvCxP.Rows For Each gvr As GridViewRow In GvCxP.Rows
@@ -588,8 +578,7 @@ Partial Class Compras_Reembolsos
'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue) 'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue)
'If dr IsNot Nothing Then 'If dr IsNot Nothing Then
' CveMoneda = dr("CveMoneda").ToString.ToEntero ' CveMoneda = dr("CveMoneda").ToString.ToEntero
' IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
'End If 'End If
'If HdnTipoTransaccion.Value = "Egs" Then 'If HdnTipoTransaccion.Value = "Egs" Then