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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Bancos/OtrosIE.aspx.vb
View File

@@ -214,7 +214,7 @@ Partial Class Bancos_OtrosIE
'SACO LA CLAVE DE LA CUENTA BANCARIA SELECCIONADO
If DdlCuenta.SelectedValue.ToEntero > 0 And DRt("CveConcepto").ToString = "30" Then 'DTCuentasContables
Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
' Dim DRr As DataRow = DTCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
If DRr IsNot Nothing Then
CodigoCuenta = DRr("CuentaFormato").ToString()
EsComodin = 1
@@ -463,27 +463,15 @@ Partial Class Bancos_OtrosIE
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If DdlCuenta.SelectedValue.ToEntero > 0 Then
Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue)
If DR IsNot Nothing Then
TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("IdCtaContable").ToString).ToString
UPPDocumento.Update()
End If
'Dim DR As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue)
'If DR IsNot Nothing Then
' TxtImporte.Text = DTMovimientos.SUM("Abono", "IdCuenta =" & DR("Id0CtaContable").ToString).ToString
' UPPDocumento.Update()
'End If
End If
End Sub
Private Function IdCuentaBancos(CveCuenta As Integer) As Integer
Dim Retorno As Integer = 0
'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
If CveCuenta > 0 Then
Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta=" & CveCuenta)
If drr IsNot Nothing Then
Retorno = drr("IdCtaContable").ToString.ToEntero
End If
End If
Return Retorno
End Function
Private Sub CargaCuentasDepositos(CveProveedor As Integer, CveCliente As Integer, CvePersonal As Integer, CveColectiva As Integer)
DdlCuentaDeposito.Items.Clear()
If DdlTipoTransaccion.SelectedValue = "2" Then