Name('Přesun z kódu do krátkého názvu')      ; pod tímto názvem bude sestava v menu
Designed('Skl_Man#1')                ; sestava bude dostupná z okna Skladovych karet
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')  ;informace o autorovi
Descr('Přesune údaj z políčka kód do názvu pro zákaznický display a políčko kód vynuluje')  ;popis sestavy, tento text bude v bublince

WNSType(1)

NewWns('PBCom1.ddt');

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

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

SetHead('Skladové číslo\tDruh\tNázev položky\tpůvodní Kód\tpůvodní název\tnový Kód\tnový název')

ClearKey(KeySklad1);

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

ModifyMode(True);

InitStatus(UsedKeys(KeySklad1),'Upravuji karty');

While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta);
    if(InFilter(Sklad))
      begin
        if(Length(Sklad.Kod)<>0)
          begin
            AddText(Sklad.Material+#9+Str(Sklad.Druh,True)+#9+Sklad.Nazev+#9+Sklad.Kod+#9+Sklad.DisplayText+#9);
            Sklad.DisplayText=Sklad.Kod
            Sklad.Kod='';
            AddLine(Sklad.Kod+#9+Sklad.DisplayText);
            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