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

-- corrección colectivas

Browse Source
This commit is contained in:
rrene
2023-10-16 13:45:51 -07:00
parent de64e0cdba
commit 5d806e8728
5 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/OtrosIE.aspx.vb
View File

@@ -565,7 +565,7 @@ Partial Class Bancos_OtrosIE
End If
If TipoBeneficiario > 0 And TipoBeneficiario < 7 Then
If ObjColectiva.GetColectivas(CveColectiva, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, CveColectiva:=CveColectiva) Then
If ObjColectiva.DtResultados.Rows.Count > 0 Then
TxtPagueseA.Text = ObjColectiva.Colectiva
Else

2
Bancos/PopUpBuscarColectiva.aspx.vb
View File

@@ -46,7 +46,7 @@ Partial Class Bancos_PopUpBuscarColectiva
If TxtColectiva.Text.Trim <> String.Empty Then Colectiva = TxtColectiva.Text.Trim
If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
If ObjColectiva.GetColectivas(-1, Colectiva, Codigo, DdlTipo.SelectedValue, UsuarioActual.CveEmpresa) Then
If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, Tipo:=DdlTipo.SelectedValue) Then
If ObjColectiva.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjColectiva.DtResultados.Rows.Count.ToString.FormatoNumero(0)