; Vytisteni samolepek na baliky, PPL
; verze z 1.12.2005
; Autor: WinDUO Team (Milan Slíva)

Name('Samolepky PPL označených')
Designed('BALMAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Vytiskne samolepky PPL k balíkům u označených položek ve filtru')
WNSType(2);

Global MultiMode:Boolean=True

DeclareRec('Balik');
DeclareRec('KeyBalik1');

ClearKey(KeyBalik1)

LocBo:Boolean
Global VetaB:LongInt

Global Oznaceno:LongInt=GetSignsCount(Balik);

Global DatumOdeslani:Word

if(Oznaceno=0)
  begin
    if(not Question('Nebyla označena žádná položka pro tisk, chcete tisknout všechny ?'))
      Halt;
  end;

Pozice:Longint;
Beru:Boolean

InitStatus(UsedKeys(KeyBalik1),'Tisknu samolepky ...');

StatusWindowInCall(False);

LocBo=NextKey(KeyBalik1,VetaB);
While(LocBo)
  begin
    ReadRec(Balik,VetaB);
    if(InFilter(Balik))
      begin
        if(Oznaceno<>0)
          begin
            Beru=IsSigned(Balik)
          end else
          begin
            Beru=True
          end;
        if(Beru)
          begin
            CallDDT('BlikPPL3.DDT');
          end;
      end;
    Inc(Pozice);
    SetStatus(Pozice);
    LocBo=NextKey(KeyBalik1,VetaB);
  end;

END