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

-- limpieza de cuentas

Browse Source
This commit is contained in:
rrene
2022-06-30 16:57:19 -07:00
parent aa8090a344
commit fa57f67cff
1 changed files with 0 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Compras/Compras.aspx.vb
View File

@@ -385,14 +385,6 @@ Partial Class Compras_Compras
ViewState("IdCuentaBancaria") = value ViewState("IdCuentaBancaria") = value
End Set End Set
End Property End Property
Private Property CveCuentaBancaria As Integer
Get
Return ViewState("CveCuentaBancaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBancaria") = value
End Set
End Property
Private Property IdCuentaBancariaComplementaria As Integer Private Property IdCuentaBancariaComplementaria As Integer
Get Get
Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
@@ -401,14 +393,6 @@ Partial Class Compras_Compras
ViewState("IdCuentaBancariaComplementaria") = value ViewState("IdCuentaBancariaComplementaria") = value
End Set End Set
End Property End Property
Private Property CveCuentaBancariaComplementaria As Integer
Get
Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBancariaComplementaria") = value
End Set
End Property
Private Property IvaAcumulado As Double Private Property IvaAcumulado As Double
Get Get
Return ViewState("IvaAcumulado").ToString.ToDouble Return ViewState("IvaAcumulado").ToString.ToDouble
@@ -1210,11 +1194,9 @@ Partial Class Compras_Compras
CompraSaldo = 0 CompraSaldo = 0
ViewState("CvePersonal") = -1 ViewState("CvePersonal") = -1
IdCuentaBancaria = 0 IdCuentaBancaria = 0
CveCuentaBancaria = 0
End If End If
IdCuentaBancariaComplementaria = 0 IdCuentaBancariaComplementaria = 0
CveCuentaBancariaComplementaria = 0
'If UsuarioActual.TienePermisoProceso(259) Then 'If UsuarioActual.TienePermisoProceso(259) Then
DivEsNoDeducible.Visible = True DivEsNoDeducible.Visible = True
@@ -12864,9 +12846,7 @@ Partial Class Compras_Compras
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 IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
If dr("UsaTarjeta").ToString = "True" Then If dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas() CargaGridTarjetas()
Else Else
@@ -12891,7 +12871,6 @@ Partial Class Compras_Compras
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 IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
EstaAsociadoACajaChica = True EstaAsociadoACajaChica = True
End If End If