-- Шаблон создан мастером бланков
-- 18.10.2012 13:38:20
--
БланкСШаблоном "Список детей";


СписокДетей:   I;
КОДГРУППЫ:     S;
var Buf[]:     S;
расч:          S ="Показать список";
Г1[]:          I;
Г2[]:          S;
Г3[]:          I;


proc ВыборГруппы;
 var num :Integer;
 var w            : integer;
 var i            : integer;
 var g            : integer;
 ClearVariable(Buf);
 w = OpenWorkArea('РПО_ДЕТСАД_ГРУППА','');
       for i=1..records(w) do
                Buf[i] = GetFieldS(w,i,'КОД');
        od;
 CloseWorkArea(w);
 num=Alternate("Выберите группу...", Buf, -1, 1, 12);
 КОДГРУППЫ = Buf[num];
end;

proc РасчитатьСписокДетей;
  var w:       I;
  var i:       I;
  var g:       I;
  var s:       N;
  clearvariable(СПИСОКДЕТЕЙ);
     if СПИСОКДЕТЕЙ = 0: InsertFrame(СПИСОКДЕТЕЙ, 1); fi;
   w = OpenWorkArea('РПО_ДЕТСАД_ДЕТИ',''); --getcardfield
   SetFilter(w,"ГРУПП='"+КОДГРУППЫ+"'");
     for i=1..records(w) do
     if i <> 1: g=InsertFrame(СПИСОКДЕТЕЙ,i); fi;
        Г1[i] = i;
        Г2[i] = GetFieldS(w,i,"ФАМИЛИЯ") +" "+GetFieldS(w,i,"ИМЯ") ; 
        Г3[i] = GetFieldI(w,i,"НОМЕР");
     od;
   CloseWorkArea(w);
end;


proc ОчиститьВедомость;
        clearvariable(СПИСОКДЕТЕЙ);
        if СПИСОКДЕТЕЙ = 0: InsertFrame(СПИСОКДЕТЕЙ, 1); fi;
end;



Func КОДГРУППЫ_OnEnter(FieldName: String; Iter: Integer): logical;
    ВыборГруппы;
    Return  false;
end;


Proc AfterOpen(Destroy: Logical);
   ОчиститьВедомость;
end;


Func Расч_OnEnter(FieldName: String; Iter: Integer): logical;
   РасчитатьСписокДетей;
  Return  false;
end;



Конец
