Designed('POHLMAN#1');

Name('Zjištění slev na desetiny');

DeclareRec('Pohledavka');
DeclareRec('KeyPohledavka1');
DeclareRec('Faktura');
DeclareRec('KeyFaktura1');

InitStatus(UsedKeys(KeyPohledavka1));

WNSType(1);

NewWNS('ZjiFSJe.WNS');

SetColumn(0,TA_Left,10);
SetColumn(1,TA_Left,10);
SetColumn(2,TA_Right,6);

Veta:LongInt;
VetaF:LongInt;
Pozice:LongInt;

ClearKey(KeyPohledavka1);
While(NextKey(KeyPohledavka1,Veta))
  begin
    ReadRec(Pohledavka,Veta);
    if(InFilter(Pohledavka))
      begin
        KeyFaktura1.Length=6
        KeyFaktura1.Cislo=SwapL(Pohledavka.Cislo);
        KeyFaktura1.Radek=0
        if(FindKey(KeyFaktura1,VetaF))
          begin
            ReadRec(Faktura,VetaF);
            if(Faktura.FSleva<>Round(Faktura.FSleva))
              begin
                AddLine(Pohledavka.Doklad,StrDate(Pohledavka.Datum),Str(Faktura.FSleva,,2));
              end;
          end;
      end;
    Inc(Pozice);
    SetStatus(Pozice)
  end;

end;