-- corrección colectivas

2023-10-16 13:45:51 -07:00
parent de64e0cdba
commit 5d806e8728
5 changed files with 10 additions and 10 deletions
--- a/Bancos/OtrosIE.aspx.vb
+++ b/Bancos/OtrosIE.aspx.vb
@@ -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