; dosadi cisla druhu do skladu
; verze z 30.9.2002
; Autor: WinDUO Team

Name('Hromadné dosazení druhu')
Designed('SKL_MAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Doplní políčko druh')

WNSType(-1);

Druh:Word
NotNull:Boolean

DlgFollowMouse(False)
DefDialog('Dosazení čísla druhu do karet',380,144);
DlgShade(-1,'',4,4,370,70)
DlgStatic(-1,'Dosadit druh číslo',16,18,122,,,es_Left);
DlgEdit(101,Druh,140,14,64,,4,es_Left);
DlgCheckBox(102,NotNull,16,44,360,,'Dosadit i do položek se zadaným druhem');
DlgButton(id_OK,'',240,78);
DlgButton(id_Cancel,'',308,78);
if(DlgExecute(True)<>id_OK)
  Exit;

ModifyMode(True)

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

DeclareRec('Sklad')
DeclareRec('KeySklad1')
ClearKey(KeySklad1)
Pozice:LongInt
InitStatus(UsedKeys(KeySklad1))
Veta:LongInt
Zmeneno:LongInt
While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta)
    if(((Sklad.Druh=0) or (NotNull)) and InFilter(Sklad))
      begin
        if(Sklad.Druh<>Druh)
          begin
            Sklad.Druh=Druh
            ModifyRec(Sklad,Veta)
            Inc(Zmeneno)
          end;
      end;

    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end

Message('Dosazení bylo ukončeno.\rDruh '+Str(Druh)+' byl dosazen do karet: '+Str(Zmeneno),mb_IconInformation);

END;