; vynuluje ceny v ceníku
; verze z 18.7.2003
; Autor: WinDUO Team

Name('Označení karet')
Designed('SKL_MAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Označí značkami karty dle algoritmu v DDT')

WNSType(-1);

;****************************************************************************

LocL:LongInt

DeclareRec('Sklad')
DeclareRec('KeySklad1')

if(not MayBeSigned(Sklad))
  begin
    Message('Nemůžu značkovat věty skladu. Pravděpodobně nevoláno ze seznamu skladu',mb_IconStop);
    Exit;
  end;

LocL=GetSignsCount(Sklad)

if(LocL<>0)
  begin
    if(Question('Momentálně je už vybráno vět: '+Str(LocL)+#13+'Přejete si zrušit stávající výběr ?'))
      begin
        ClearSigns(Sklad);
      end;
  end;

ClearKey(KeySklad1)
Pozice:LongInt
InitStatus(UsedKeys(KeySklad1))
Veta:LongInt
While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta)
    if(InFilter(Sklad))
      begin
        if(StrPos('q',Sklad.Nazev))
          SignRec(Sklad);
      end;
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end

Message('Celkem je nyní označeno vět: '+Str(GetSignsCount(Sklad)),mb_IconInformation);

END;