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)

NewWns('UprKodJe.ddt');

DeclareRec('Sklad')
DeclareRec('KeySklad4')

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

SetHead('Skladové číslo\tDruh\tNázev\tPůvodní kód\tNový kód')

ClearKey(KeySklad4);

Veta:LongInt
Zmeneno:LongInt
LocL:LongInt;
Pocet:LongInt
OldKod:String[14];

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
            OldKod=Sklad.Kod
            Sklad.Kod=Copy(Sklad.Kod,2,255);
            AddLine(Sklad.Material,Str(Sklad.Druh),Sklad.Nazev,OldKod,Sklad.Kod);
            ModifyRec(Sklad,Veta);
            Inc(Zmeneno);
          end;
      end;
    Inc(Pocet);
    SetStatus(Pocet);
  end;

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

END