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

-- mejora, si el concepto bancario (30). primero busca las cuentas bancarias de tipo cheque y luego las demás

Browse Source
This commit is contained in:
rrene
2025-01-20 18:25:23 -07:00
parent f206f1e854
commit 8fc357dbc0
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -2469,8 +2469,22 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim objconta3 As New ClsContabilidad
objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)
If objconta3.DtResultados.Rows.Count > 0 Then
Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
'si solo hay una cuenta asignada, toma el primero
If objconta3.DtResultados.Rows.Count = 1 Then
Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
CveBancoCuenta = rowcc("CveBancoCuenta").ToString.ToEntero()
Else
CveBancoCuenta = objconta3.DtResultados.Rows(0)("CveBancoCuenta").ToString.ToEntero() 'toma el primero sino hay del tipo cheque
'casos que tienen la misma cuenta, que primero tome las cuentas de tipo cheque, y luego las demás
Dim dttC As DataTable = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1)
For Each drcta As DataRow In objconta3.DtResultados.Rows
Dim tCveTipoCuentas As Integer = dttC.FiltroPrimeroValor("CveTipoCuenta", $"CveCuenta= {drcta("CveBancoCuenta")}").ToEntero
If tCveTipoCuentas = 2 Then 'tipo cheques
CveBancoCuenta = drcta("CveBancoCuenta").ToString.ToEntero()
Exit For
End If
Next
End If
Else
CveBancoCuenta = 0
End If