Name('Úprava kódu zboží - ruší úvodní 0')      ; 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('Zruší úvodní nuly ze 14 místných kódů zboží')  ;popis sestavy, tento text bude v bublince

WNSType(1)
DeclareRec('Sklad')
DeclareRec('KeySklad4')

ClearKey(KeySklad4);

Veta:LongInt
Zmeneno:LongInt
LocL:LongInt;
Pocet:LongInt

ModifyMode(True);

InitStatus(UsedKeys(KeySklad4),'Upravuji kódy');

While(NextKey(KeySklad4,Veta))
  begin
    ReadRec(Sklad,Veta);
    if(InFilter(Sklad))
      begin
        if(Length(Sklad.Kod)=14)and(Asc(Sklad.Kod)=Asc('0'))
          begin
            Inc(Zmeneno);
          end;
      end;
    Inc(Pocet);
    SetStatus(Pocet);
  end;

Message('Byl upraven kód u počtu položek: '+Str(Zmeneno),mb_IconInformation);

END