Name('Částka Faktura<>Pohledávka')
Designed('POHLMAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Vypíše pohledávky, jejichž částka neodpovídá faktuře')
WNSType(1);

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

InitStatus(UsedKeys(KeyPohledavka1))

ClearKey(KeyPohledavka1);

Veta:LongInt
Pozice:LongInt

NewWNS('Janas1.WNS');

SetColumn(0,ta_Left,10)    ;Doklad
SetColumn(1,ta_Right,10)   ;Datum
SetColumn(2,ta_Left,30)    ;Popis
SetColumn(3,ta_Right,30)   ;Castka pohledavka
SetColumn(4,ta_Right,30)   ;Castka faktura
SetHead('Doklad\tz data\tPopis\tPohledávka\tFaktura');


While(NextKey(KeyPohledavka1,Veta))
  begin
    ReadRec(Pohledavka,Veta)
    if(InFilter(Pohledavka))
      begin
        GetRozpisFaktury(RozpisFaktury,Pohledavka);
        if((Pohledavka.Mena>=0)and(Pohledavka.Castka<>RozpisFaktury.Doklad))
          begin
            AddLine(Pohledavka.Doklad+#9+StrDate(Pohledavka.Datum)+#9+Pohledavka.Popis+#9+StrFinanc(Pohledavka.Castka,2)+#9+StrFinanc(RozpisFaktury.Doklad,2));
          end;
      end;
    Inc(Pozice);
    SetStatus(Pozice);
  end;

END