; Přehled nákupů k aktuální firmě
; verze z 3.5.2012
; Autor: Milan Slíva

Name('Přehled nákupů')
FileName('PrehlNak.WNS')
Designed('Adrman','Adresar')
Descr('Přehled nakoupeného zboží','u aktuálně zvolené firmy')

UsageFilter(Program.Sklady);

WNSType(1)

DeclareRec('SkladFirmy')
DeclareRec('KeySkladFirmy3')
DeclareRec('Adresar')
DeclareRec('Sklad')
DeclareRec('KeySklad14')

Record TempKey
  Length:Byte;
  Datum:Word;
  Nazev:Array[1..30] of Char;
end

Record TempKey2
  Material:String[14]
end

Record TempRec
  Dummy:LongInt;
  Datum:Word;
  Sklad:Word;
  Material:String[14];
  Nazev:String[30];
end

Veta:LongInt
VetaS:LongInt
VetaT:LongInt
Pozice:LongInt
Datum:Word=GetDate()

if(GetCountBindRec(Adresar)=0)
  Halt();

GetBindRec('Adresar',Veta)

InitStatus(UsedKeys(KeySkladFirmy3),'Třídím data')

MakeTempFile(TempRec,TempKey,false);
MakeTempFile(,TempKey2,false);
TempRec2:TempRec

KeySkladFirmy3.Length=4
KeySkladFirmy3.ICO=SwapL(Adresar.ICO)

OK:Boolean=SearchKey(KeySkladFirmy3,Veta)

While((OK)and(KeySkladFirmy3.ICO=SwapL(Adresar.ICO)))
  begin
    ReadRec(SkladFirmy,Veta);
    if(SkladFirmy.LastDateV<>0)
      begin
        KeySklad14.Length=6
        KeySklad14.SpolRok=Swap(SkladFirmy.SpolRok)
        KeySklad14.SpolCislo=SwapL(SkladFirmy.SpolCislo)
        if(FindKey(KeySklad14,VetaS))
          begin
            ReadRec(Sklad,VetaS);
            ClearRec(TempRec);
            TempRec.Datum=SkladFirmy.LastDateV
            TempRec.Material=Sklad.Material
            TempRec.Nazev=Sklad.Nazev
            TempKey2.Material=Sklad.Material
            if(FindKey(TempKey2,VetaT))
              begin
                ReadRec(TempRec2,VetaT)
                if(TempRec2.Datum<TempRec.Datum)
                  begin
                    ModifyRec(TempRec,VetaT);
                  end;
              end else
              begin
                AddKey(TempKey2,AddRec(TempRec));
              end;
          end
      end;
    Inc(Pozice);
    SetStatus(Pozice);
    OK=NextKey(KeySkladFirmy3,Veta)
  end;

if(UsedKeys(TempKey2)=0)
  Halt('Pro zvolený záznam nebyla nalezena žádná položka...');

ClearKey(TempKey2);
while(NextKey(TempKey2,VetaT))
  begin
    ReadRec(TempRec,VetaT);
    TempKey.Length=SizeOf(TempKey)-1;
    TempKey.Datum=Swap($FFFF!TempRec.Datum);
    StrToChars(TempKey.Nazev,XTransStr(TempRec.Nazev))
    AddKey(TempKey,VetaT);
  end;

InitStatus(UsedKeys(TempKey),'Vytvářím sestavu')
Pozice=0

NewWNS('PrehlNak.WNS');

SetDescr(0,0,TA_Right|descr_PageNum,'Strana: ');
SetDescr(1,0,TA_Center,'Přehled nákupů');
SetDescr(2,0,TA_Left|descr_Date,'Datum: ');
SetDescr(3,1,TA_Center,'pro firmu IČ '+Str(Adresar.ICO));
SetDescr(4,2,TA_Center,Adresar.Nazev);
SetDescr(5,3,TA_Center,Adresar.Mesto);

SetColumn(0,TA_LEFT,14)
SetColumn(1,TA_LEFT,30)
SetColumn(2,TA_RIGHT,4)
SetColumn(3,TA_LEFT,10)
SetColumn(4,TA_RIGHT,10)
SetColumn(5,TA_RIGHT,10)

SetHead('Číslo\tNázev\tSklad\tDatum\tpřed dny\tpřed měs.')

ClearKey(TempKey)

While(NextKey(TempKey,Veta))
  begin
    ReadRec(TempRec,Veta);
    AddLine(TempRec.Material,TempRec.Nazev,Str(TempRec.Sklad),StrDate(TempRec.Datum),Str(CountDay(TempRec.Datum,Datum)),Str(CountMonth(TempRec.Datum,Datum)));
    Inc(Pozice);
    SetStatus(Pozice);
  end


END