select his_modi
                    set order to clave
                    if seek(str(docufia.documento,8)+"SUELDO")
                       do while not eof() and his_modi.documento=docufia.documento and upper(allt(his_modi.campobase))="SUELDO"
                          replace viesuesol with val(his_modi.viejo)
                          select his_modi
                          skip
                       enddo
                    endif