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

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

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

Veta:LongInt;
ClearKey(KeyCiselnikRetezcu1)

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');
SetDescr(3,2,TA_Center|Descr_UserDescr);

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

FileID:Word=$FFFF

While((NextKey(KeyCiselnikRetezcu1,Veta)) and (KeyCiselnikRetezcu1.Druh=Swap(0)))
  begin
    ReadRec(CiselnikRetezcu,Veta);
    if(KeyCiselnikRetezcu1.Kod<>Swap(FileID))
      begin
        FileID=Swap(KeyCiselnikRetezcu1.Kod)
        AddComment();
        AddLine('\t'+GetAgendaName(GetAgendaFromFileID(CiselnikRetezcu.Kod))+':');
      end
    AddLine(CiselnikRetezcu.Klic,CiselnikRetezcu.Popis);
  end;

END