Name('Nulovaní Kč u nulových PS'); pod tímto názvem bude sestava v menu
Designed('Skl_Man#1')                ; sestava bude dostupná z okna Adrman
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')  ;informace o autorovi
Descr('Vynuluje Kč v počátečních stavech, v případě že je nulový stav počátečního stavu v množství')  ;popis sestavy, tento text bude v bublince

WNSType(1)

NewWns('UprPocJe.ddt');

DeclareRec('Sklad')
DeclareRec('KeySklad4')
TempSklad:Sklad

SetColumn(0,ta_Left,14);
SetColumn(1,ta_Right,4);
SetColumn(2,ta_Left,30);
SetColumn(3,ta_Left,12);
SetColumn(4,ta_Left,12);

SetHead('Skladové číslo\tDruh\tNázev\tPůvodní Kč\tNové Kč')

ClearKey(KeySklad4);

Veta:LongInt
Zmeneno:LongInt
LocL:LongInt;
Pocet:LongInt
LocB:Byte;
LocR:Real;
LocR2:Real;
LocR3:Real;

ModifyMode(True);

InitStatus(UsedKeys(KeySklad4),'Upravuji počáteční stavy');

LocStr:String;
LocStr2:String;

While(NextKey(KeySklad4,Veta))
  begin
    ReadRec(Sklad,Veta);
    if(InFilter(Sklad))
      begin
        if((Sklad.PocStav=0)and(Sklad.PocStavKC<>0))
          begin
            LocR2=Sklad.PocStavKC
            Sklad.PocStavKC=0;
            AddLine(Sklad.Material,Str(Sklad.Druh),Sklad.Nazev,StrFinanc(LocR2),StrFinanc(Sklad.PocStavKC));
            ModifyRec(Sklad,Veta);
            Inc(Zmeneno);
          end;
      end;
    Inc(Pocet);
    SetStatus(Pocet);
  end;

Message('Byla upravena cena u počátečního stavu u počtu položek: '+Str(Zmeneno),mb_IconInformation);

END