Name('Vytvoření účtů ze souboru')
Designed('URMAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Vytvoří neexistující účtu z importního souboru')
WNSType(1);

DeclareRec('UcetniRozvrh');
DeclareRec('KeyUcetniRozvrh1');

NewWNS('MCONSULT.WNS');

SetDescr(0,0,TA_LEFT|DESCR_DATE,'Datum: ');
SetDescr(1,0,TA_RIGHT|DESCR_DATE,'Strana: ');
SetDescr(2,1,TA_CENTER,'Protokol o vytvoření čísel účtů');
SetDescr(3,2,TA_CENTER,'');

SetColumn(0,TA_RIGHT,5);
SetColumn(1,TA_RIGHT,5);
SetColumn(2,TA_RIGHT,5);
SetColumn(3,TA_RIGHT,5);
SetColumn(4,TA_LEFT,25);
SetHead('MDSU\tMDAU\tDSU\tDAU\tNázev účtu');

Novych:LongInt;
WorkStr:String;
WorkStr2:String;
Veta:LongInt;
MDSU:Word;
MDAU:Word;
DSU:Word;
DAU:Word;
NazevUctu:String[25];

TXTName:String=GetDataIni('Importy','UR_mconsult');
TXTName=GetFileName(TXTName);
if(Length(TXTName)=0)
  begin
    Halt;
  end;
SetDataIni('Importy','UR_mconsult',TXTName)

TXT:TextFile;

Open(TXT,TXTName);

While(not EOF(TXT))
  begin
    WorkStr=ReadLn(TXT);
    if(CompareStr('U',ToChar(':',WorkStr))=0)
      begin
        Extract(4);
        MDSU=WorkStr2;
        Extract(1);
        MDAU=WorkStr2;
        Extract(3);
        DSU=WorkStr2;
        Extract(1);
        DAU=WorkStr2;
        Extract(12);
        NazevUctu=WorkStr2;
;        if(Word(MDSU/100)=9)
          begin
            KeyUcetniRozvrh1.Length=4;
            KeyUcetniRozvrh1.SU=Swap(MDSU);
            KeyUcetniRozvrh1.AU=Swap(MDAU);
            if(not FindKey(KeyUcetniRozvrh1,Veta))
              begin
                ClearRec(UcetniRozvrh);
                Ucetnirozvrh.Flags=$80000000;
                UcetniRozvrh.SU=MDSU;
                UcetniRozvrh.AU=MDAU;
                UcetniRozvrh.Nazev=NazevUctu;
                ModifyMode(True);
                Veta=AddRec(UcetniRozvrh);
                AddLine(NulL(MDSU,3)+#9+NulL(MDAU,3)+#9#9#9+NazevUctu);
                NextLine;
              end;
          end;
;        if(Word(DSU/100)=9)
          begin
            KeyUcetniRozvrh1.Length=4;
            KeyUcetniRozvrh1.SU=Swap(DSU);
            KeyUcetniRozvrh1.AU=Swap(DAU);
            if(not FindKey(KeyUcetniRozvrh1,Veta))
              begin
                ClearRec(UcetniRozvrh);
                Ucetnirozvrh.Flags=$80000000;
                UcetniRozvrh.SU=DSU;
                UcetniRozvrh.AU=DAU;
                UcetniRozvrh.Nazev=NazevUctu;
                ModifyMode(True);
                Veta=AddRec(UcetniRozvrh);
                AddLine(#9#9+NulL(DSU,3)+#9+NulL(DAU,3)+#9+NazevUctu);
                NextLine;
              end;
          end;
      end;
  end;

Procedure Extract(Kolik:Byte);
  WorkStr2='';
  While(Kolik>0)
    begin
      WorkStr2=ToChar(#9,WorkStr);
      WorkStr=FromChar(#9,WorkStr);
      Dec(Kolik);
    end;
end;

END