; výpis číselných řad
; verze z 23.8.2002
; Autor: WinDUO Team

FileID:Word=GetBindFileID();
Agenda:Byte=GetAgendaFromFileID(FileID);
if((FileID=0) or (Agenda=$FF))
  begin
    Halt('V tomto okně nelze výpis číselných řad provést',mb_IconStop);
  end;

Name('Výpis číselných řad '+GetAgendaName(Agenda))
Designed('CRada')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Výpis číselných řad','zadaných v číselníku číselných řad','dostupném po F7 na čísle dokladu')
WnsType(1);

DeclareRec('CiselnikRetezcu');
DeclareRec('KeyCiselnikRetezcu1');

KeyCiselnikRetezcu1.Length=4
KeyCiselnikRetezcu1.Druh=Swap(0);
KeyCiselnikRetezcu1.Kod=Swap(FileID);

Veta:LongInt;
IsNext:Boolean=SearchKey(KeyCiselnikRetezcu1,Veta))

NewWNS('CRady.WNS');

SetDescr(0,0,TA_Left|Descr_Date,'Datum: ');
SetDescr(1,0,TA_Right|Descr_PageNum,'Strana: ');
SetDescr(2,1,TA_Center,'Výpis číselných řad pro agendu: '+GetAgendaName(Agenda));
SetDescr(3,2,TA_Center|Descr_UserDescr);

SetColumn(0,TA_Left,10);
SetColumn(1,TA_Left,30);
SetHead('Řada\tPopis číselné řady');

While((IsNext) and (KeyCiselnikRetezcu1.Druh=Swap(0)) and (KeyCiselnikRetezcu1.Kod=Swap(FileID)))
  begin
    ReadRec(CiselnikRetezcu,Veta);
    AddLine(CiselnikRetezcu.Klic,CiselnikRetezcu.Popis);
    IsNext=NextKey(KeyCiselnikRetezcu1,Veta)
  end;

END