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 12:39:22 -07:00
parent 209fa5af95
commit b89978e478
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -637,12 +637,10 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim CveCuentaComplementaria As Integer = 0
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("CveMoneda").ToString.ToEntero
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
CveCuenta = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
If CveMoneda > 1 Then
CveCuentaComplementaria = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContableComplementaria").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
End If
If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
CveCuenta = ObjConta.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveConceptoContable = 30 AND CveBancoCuenta = {DdlCuenta.SelectedValue}").ToEntero
If CveMoneda > 1 Then
CveCuentaComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveConceptoContable = 204 AND CveBancoCuenta = {DdlCuenta.SelectedValue}").ToEntero
End If
End If
If CveCuenta > 0 Then