1-- Определить варианты событий рождения 2 3for i = 0, gt_get_records_count() - 1 do 4 R = gt_get_record(i); -- получить запись 5 rt = gt_get_record_type(R); -- узнать её тип 6 if (rt == rtIndividual) then 7 local b_count = 0; 8 local birthes = {}; 9 10 for at = 0, gt_get_person_events_count(R) - 1 do 11 evt = gt_get_person_event(R, at); 12 ev_name = gt_get_event_name(evt); 13 ev_date = gt_get_event_date(evt); 14 15 if (ev_name == "BIRT") then 16 b_count = b_count + 1; 17 birthes[b_count] = ev_date; 18 end 19 end 20 21 if (b_count > 1) then 22 -- вывод на экран 23 gk_print("Персона "..gt_get_record_xref(R)..", имя: "..gt_get_person_name(R)..", событий рождения "..b_count); 24 25 for k = 1, #birthes do 26 gk_print(" > факт "..birthes[k]); 27 end 28 end 29 end 30end 31