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

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

Global MultiMode:Boolean=True

DeclareRec('Pohledavka');
DeclareRec('KeyPohledavka1');

ClearKey(KeyPohledavka1)

LocBo:Boolean
Global VetaP:LongInt
Global Oznaceno:LongInt=GetSignsCount(Pohledavka);
Pozice:Longint;
Beru:Boolean

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

LocBo=NextKey(KeyPohledavka1,VetaP);
While(LocBo)
  begin
    ReadRec(Pohledavka,VetaP);
    if(InFilter(Pohledavka))
      begin
        if(Oznaceno<>0)
          begin
            Beru=IsSigned(Pohledavka)
          end else
          begin
            Beru=True
          end;
        if(Beru)
          begin
            CallDDT('BalikPPL.DDT');
          end;
      end;
    Inc(Pozice);
    SetStatus(Pozice);
    LocBo=NextKey(KeyPohledavka1,VetaP);
  end;

END