; Rozvaha pro podnikatele pro rok 2016
; verze z 17.4.2015

Designed('')
Author('Milan Slíva','EMail: sliva@fi.cz','http://www.fi.cz')
Descr('Rozvaha pro podnikatele v plném rozsahu','podle Vyhl. 472/2003 Sb. pro rok 2004')

FileName('FIRO'+ObdMesic(2)+ObdRok(2)+'.WNS')

DeclareRec('Program')

Radkovani:Real=6

Procedure HlavickaA()
  DataHeight:Real=Polozek*Radkovani;
  Pen(0,0.7)
  RoundBox(ColPos[1],YHeadTop,Width,Height+DataHeight,3.3,3.3)
  Line(XZacatek1,YHeadTop+Height,Width,0)

  Pen(0,0.1)
  FontSize(3.5)
  FontFace(Normal);
  Line(ColPos[2],YHeadTop,0,Height+DataHeight);
  Line(ColPos[3],YHeadTop,0,Height+DataHeight);
  Line(ColPos[4],YHeadTop,0,Height+DataHeight);
  Line(ColPos[5],YHeadTop+7,0,Height+DataHeight-7);
  Line(ColPos[6],YHeadTop+7,0,Height+DataHeight-7);
  Line(ColPos[7],YHeadTop,0,Height+DataHeight);
  LineA(ColPos[4],YHeadTop+7,ColPos[7],YHeadTop+7);

  LocR=ColPos[1]
  LocR2=LocR+(ColAct[1]/2)
  XText(LocR2,YHeadTop+2,ColAct[1]-3,TA_CENTER,'Položka');
  XText(LocR2,YHeadTop+11,ColAct[1]-3,TA_CENTER,'a');
  LocR=LocR+ColAct[1]
  LocR2=LocR+(ColAct[2]/2)
  XText(LocR2,YHeadTop+2,ColAct[2]-3,TA_CENTER,'T E X T');
  XText(LocR2,YHeadTop+11,ColAct[2]-3,TA_CENTER,'b');
  LocR=LocR+ColAct[2]
  LocR2=LocR+(ColAct[3]/2)
  XText(LocR2,YHeadTop+11,ColAct[3]-3,TA_CENTER,'c');
  LocR=LocR+ColAct[3]
  LocR2=LocR+(ColAct[4]/2)
  XText(LocR2,YHeadTop+8,ColAct[4]-3,TA_CENTER,'Brutto');
  XText(LocR2,YHeadTop+11,ColAct[4]-3,TA_CENTER,'1');
  LocR=LocR+ColAct[4]
  LocR2=LocR+(ColAct[5]/2)
  XText(LocR2,YHeadTop+2,ColAct[4]+ColAct[5]+ColAct[6]-3,TA_CENTER,'Skutečnost v účetním období');
  XText(LocR2,YHeadTop+8,ColAct[5]-3,TA_CENTER,'Korekce');
  XText(LocR2,YHeadTop+11,ColAct[5]-3,TA_CENTER,'2');
  LocR=LocR+ColAct[5]
  LocR2=LocR+(ColAct[6]/2)
  XText(LocR2,YHeadTop+8,ColAct[6]-3,TA_CENTER,'Netto');
  XText(LocR2,YHeadTop+11,ColAct[6]-3,TA_CENTER,'3');
  LocR=LocR+ColAct[6]
  LocR2=LocR+(ColAct[7]/2)
  XText(LocR2,YHeadTop+2,ColAct[7]-3,TA_CENTER,'Minulé obd.');
  XText(LocR2,YHeadTop+8,ColAct[7]-3,TA_CENTER,'Netto');
  XText(LocR2,YHeadTop+11,ColAct[7]-3,TA_CENTER,'4');

  LineS(XZacatek1,YDataTop+Radkovani,Width,0,0,Radkovani,Polozek-1)
end;

Procedure HlavickaP()
  DataHeight:Real=Polozek*Radkovani;
  Pen(0,0.7)
  RoundBox(ColPos[1],YHeadTop,Width,Height+DataHeight,3.3,3.3)
  Line(XZacatek1,YHeadTop+Height,Width,0)

  Pen(0,0.1)
  FontSize(3.5)
  FontFace(Normal);
  Line(ColPos[2],YHeadTop,0,Height+DataHeight);
  Line(ColPos[3],YHeadTop,0,Height+DataHeight);
  Line(ColPos[4],YHeadTop,0,Height+DataHeight);
  Line(ColPos[5],YHeadTop,0,Height+DataHeight);

  LocR=ColPos[1]
  LocR2=LocR+(ColAct[1]/2)
  XText(LocR2,YHeadTop+2,ColAct[1]-3,TA_CENTER,'Položka');
  XText(LocR2,YHeadTop+11,ColAct[1]-3,TA_CENTER,'a');
  LocR=LocR+ColAct[1]
  LocR2=LocR+(ColAct[2]/2)
  XText(LocR2,YHeadTop+2,ColAct[2]-3,TA_CENTER,'T E X T');
  XText(LocR2,YHeadTop+11,ColAct[2]-3,TA_CENTER,'b');
  LocR=LocR+ColAct[2]
  LocR2=LocR+(ColAct[3]/2)
  XText(LocR2,YHeadTop+11,ColAct[3]-3,TA_CENTER,'c');
  LocR=LocR+ColAct[3]
  LocR2=LocR+(ColAct[4]/2)
  XText(LocR2,YHeadTop+2,ColAct[4]-3,TA_CENTER,'Běžné účetní období');
  XText(LocR2,YHeadTop+11,ColAct[4]-3,TA_CENTER,'1');
  LocR=LocR+ColAct[4]
  LocR2=LocR+(ColAct[5]/2)
  XText(LocR2,YHeadTop+2,ColAct[5]-3,TA_CENTER,'Minulé období');
  XText(LocR2,YHeadTop+11,ColAct[5]-3,TA_CENTER,'2');

  LineS(XZacatek1,YDataTop+Radkovani,Width,0,0,Radkovani,Polozek-1)
end;

Procedure PrintFromFile()
  LocW=0
  While((EOF(Soubor)=False) and (LocW<Polozek))
    begin
      ReadedLine=ReadLn(Soubor);
      FirstChar=Asc(ReadedLine)
      if(FirstChar<>Asc('$'))
        begin
          Inc(HotovoRadku)
          if(InArray(Radky,HotovoRadku))
            begin
              Inc(LocW)
              if(FirstChar=Asc('@'))
                begin
                  ReadedLine=FromChar('@',ReadedLine);
                end else
              if(FirstChar=Asc('#'))
                begin
                  ReadedLine=FromChar(',',FromChar(',',ReadedLine));
                end
              ReadedLine=ReadedLine+#9+Str(HotovoRadku);
              DynTab(ReadedLine)
            end;
        end
    end;
end;

INI:String=DataPath+'VYKAZY.INI'
LocStr:String
LocI:Integer
LocB:Byte
LocB2:Byte
LocR:Real
LocR2:Real
LocW:Word
Polozek:Word
TiskniSloupceA:Word
TiskniSloupceP:Word
LocBo:Boolean

VelikostPisma:Real=0
VelikostPisma=Val(GetFromIni('VYKAZY','VelikostPisma',INI))
if(VelikostPisma=0)
  VelikostPisma=3.5

TypVykazu:Byte=Val(GetFromIni('VYKAZY','TypVykazu',INI))

RadekVH:Byte

Global MinRok:Boolean=False
Global VyplMO:Byte=0
StatusWindowInCall(False)
ItsBlank:Boolean

FormName:String=GetTabName(3);

if(Length(ObdMesic(2))<>0)
  begin
    Name('Rozvaha - Formulář za '+ObdMesic(2)+ObdRok(2))
    CallDDT('DoplMOR.ddt')
    IF(MinRok)
      begin
        TiskniSloupceA=$78
        TiskniSloupceP=$18
      end else
      begin
        TiskniSloupceA=$38
        TiskniSloupceP=$8
      end
    TypVykazu=Program.TypJednotky
  end else
  begin
    Name('Rozvaha - Prázdný formulář')
    DefName:String=GetRelevantName(form_Rozvaha,TypVykazu);
    NamesCount:Word=GetRelevantTable(form_Rozvaha,'Names');
    DefDialog('Rozsah formuláře',256,112);
    DlgShade(-1,,8,8,240,32);
    DlgCombo(101,DefName,12,12,232,256,33,CBS_DropDownList,Names);
    DlgButton(id_OK,'OK',56,46);
    DlgButton(id_Cancel,'Zpět',138,46);
    if(DlgExecute(True)<>id_OK)
      Halt;
    TypVykazu=GetRelevantID(form_Rozvaha,DefName);
    ItsBlank=True
    ReadedLine:String
    FirstChar:Byte
  end;

Global NazevSest2:String=GetRelevantName(form_Rozvaha,TypVykazu);

if(ItsBlank)
  begin
    Soubor:TextFile;
    Open(Soubor,FormName);
  end else
  begin
    OpenWNS(WNSName)
    SaveWnsPos(1)
  end;

Rozhrani:Word=GetTableBoundary(form_Rozvaha);

SouborTab:TextFile
Open(SouborTab,GetTabName(1))
While(not(EOF(SouborTab)))
  begin
    LocStr=Readln(SouborTab)
    if(CompareStr(Copy(LocStr,1,1),'*'))
      begin
        if(CompareStr(UpCase(Copy(LocStr,2,3)),'VH='))   ;*VH=  číslo řádku s Výsledkem hospodaření
           begin
             LocStr=ToChar(' ',LocStr)
             RadekVH=Val(FromChar('=',LocStr))
             GoTo(KonecCyklu)
           end
      end
  end
KonecCyklu:

RadkuCelkem:Word=GetTableLines(form_Rozvaha);
RadkuAktiva:Word
RadkuPasiva:Word
Radku:Word=GetRelevantLines(form_Rozvaha,TypVykazu,'Radky')
HotovoRadku:Word
HotovoRadkuSave:Word

IndexOd:Word=GetFirstIndex(Radky)
IndexDo:Word=GetLastIndex(Radky)

While(IndexOd<=IndexDo)
  begin
    if(Radky[IndexOd]<Rozhrani)
      begin
        Inc(RadkuAktiva)
      end else
      begin
        Inc(RadkuPasiva)
      end
    Inc(IndexOd);
  end;

;{hlavicka}
Global NazevSest1:String='Rozvaha (bilance)'
Global Opatr1:String='Podle Sbírky zákonů'
Global Opatr2:String='vyhlášky č. 250/2015 z 2.10.2015'
Global Opatr3:String='a vyhlášky č. 472/2003 z 17.12.2003'
Global XZacatek1:Real=0  ; x souradnice zacatku tabulky na 1. straně
Global YTlusta1:Real=72   ; Y-souradnice prvni tluste cary
Global Y1Hlav1:Real=16
Global XKonec1:Real=188  ; x souradnice konce tabulky na 1. straně
CallDDT('HlavVyk.ddt')

FONTSIZE(5)
FontFace(Bold)
TEXT(XZacatek1,YTlusta1-Y1Hlav1-6,TA_LEFT,'AKTIVA')

YBottom:Real=285
Height:Real=Y1Hlav1
YHeadTop:Real=YTlusta1-Height
YDataTop:Real=YTlusta1
Width:Real=XKonec1-XZacatek1

ColAct:Array[1..7] of Real=15,0,7,23,23,23,23 ; druha polozka musi byt 0
ColPos:Array[1..7] of Real;

LocB=1
LocB2=GetLastIndex(ColAct);
LocR=Width
While(LocB<=LocB2)
  begin
    LocR=LocR-ColAct[LocB];
    Inc(LocB);
  end;
ColAct[2]=LocR

LocR=XZacatek1
LocB=1
While(LocB<=LocB2)
  begin
    ColPos[LocB]=LocR;
    LocR=LocR+ColAct[LocB];
    Inc(LocB);
  end;

Polozek=Int((YBottom-YDataTop)/Radkovani);
if(Polozek>RadkuAktiva)
  Polozek=RadkuAktiva;

HlavickaA();

TabPos(YDataTop+1.5)
DefTab(3,Radkovani,ColPos[1]+2,ColAct[1]-4,TA_LEFT|TA_Constrict,ColPos[2]+2,ColAct[2]-4,TA_Both|TA_Constrict,ColPos[3]+ColAct[3]/2,ColAct[3],TA_Center|TA_ConStrict)
if(ItsBlank)
  begin
    PrintFromFile()
  end else
  begin
    HotovoRadkuSave=HotovoRadku
    LoadWnsPos(1)
    LocW=0
    While(LocW<Polozek)
      begin
        Inc(HotovoRadku)
        if(InArray(Radky,HotovoRadku))
          begin
            Inc(LocW)
            TabFromWns(1,0,1,$7)
          end else
          begin
            SkipWNSLine(1,0,1)
          end;
      end;
    LoadWnsPos(1)
    HotovoRadku=HotovoRadkuSave
    FontSize(4.5)
    FontFace(Bold|Italic)
    DefTab(4,Radkovani,ColPos[4]+ColAct[4]-2,ColAct[4]-4,TA_RIGHT|TA_Constrict,ColPos[5]+ColAct[5]-2,ColAct[5]-4,TA_RIGHT|TA_Constrict,ColPos[6]+ColAct[6]-2,ColAct[6]-4,TA_RIGHT|TA_Constrict,ColPos[7]+ColAct[7]-2,ColAct[7]-4,TA_RIGHT|TA_Constrict)

    TabPos(YDataTop+1)

    LocW=0
    While(LocW<Polozek)
      begin
        Inc(HotovoRadku)
        if(InArray(Radky,HotovoRadku))
          begin
            Inc(LocW)
            TabFromWns(1,0,1,TiskniSloupceA)
          end else
          begin
            SkipWNSLine(1,0,1)
          end;
      end;
    SaveWnsPos(1)

    FontSize(3.3)
    FontFace(Normal)
    Text(XKonec1,YBottom-1,TA_RIGHT,'Vytištěno systémem WinDUO')
  end;

Dec(RadkuAktiva,Polozek);

; {dalsi strany aktiv}

While(RadkuAktiva<>0)
  begin
    NextPage();
    YBottom:Real=285
    Height:Real=Y1Hlav1
    YHeadTop:Real=15
    YDataTop:Real=15+Height
    Width:Real=XKonec1-XZacatek1

    Polozek=Int((YBottom-YDataTop)/Radkovani);
    if(Polozek>RadkuAktiva)
      Polozek=RadkuAktiva;

    FONTSIZE(5)
    FontFace(Bold)
    TEXT(XZacatek1+Width,YHeadTop-7,TA_RIGHT,'AKTIVA')

    HlavickaA();


    TabPos(YDataTop+1.5)
    DefTab(3,Radkovani,ColPos[1]+2,ColAct[1]-4,TA_LEFT|TA_Constrict,ColPos[2]+2,ColAct[2]-4,TA_Both|TA_Constrict,ColPos[3]+ColAct[3]/2,ColAct[3],TA_Center|TA_ConStrict)
    if(ItsBlank)
      begin
        PrintFromFile()
      end else
      begin
        LoadWnsPos(1)
        HotovoRadkuSave=HotovoRadku
        LocW=0
        While(LocW<Polozek)
          begin
            Inc(HotovoRadku)
            if(InArray(Radky,HotovoRadku))
              begin
                Inc(LocW)
                TabFromWns(1,0,1,$7)
              end else
              begin
                SkipWNSLine(1,0,1)
              end;
          end;

        LoadWnsPos(1)
        HotovoRadku=HotovoRadkuSave
        FontSize(4.5)
        FontFace(Bold|Italic)
        DefTab(4,Radkovani,ColPos[4]+ColAct[4]-2,ColAct[4]-4,TA_RIGHT|TA_Constrict,ColPos[5]+ColAct[5]-2,ColAct[5]-4,TA_RIGHT|TA_Constrict,ColPos[6]+ColAct[6]-2,ColAct[6]-4,TA_RIGHT|TA_Constrict,ColPos[7]+ColAct[7]-2,ColAct[7]-4,TA_RIGHT|TA_Constrict)

        TabPos(YDataTop+1)

        LocW=0
        While(LocW<Polozek)
          begin
            Inc(HotovoRadku)
            if(InArray(Radky,HotovoRadku))
              begin
                Inc(LocW)
                TabFromWns(1,0,1,TiskniSloupceA)
              end else
              begin
                SkipWNSLine(1,0,1)
              end;
          end;
        SaveWnsPos(1)
        FontSize(3.3)
        FontFace(Normal)
        Text(XKonec1,YBottom-1,TA_RIGHT,'Vytištěno systémem WinDUO')
      end;

    Dec(RadkuAktiva,Polozek);
  end;

;{PASIVA}

ColAct:Array[1..5] of Real=15,0,10,35,35 ; druha polozka musi byt 0
ColPos:Array[1..5] of Real;

LocB=1
LocB2=GetLastIndex(ColAct);
LocR=Width
While(LocB<=LocB2)
  begin
    LocR=LocR-ColAct[LocB];
    Inc(LocB);
  end;
ColAct[2]=LocR

LocR=XZacatek1
LocB=1
While(LocB<=LocB2)
  begin
    ColPos[LocB]=LocR;
    LocR=LocR+ColAct[LocB];
    Inc(LocB);
  end;

; {strana 2}

While(RadkuPasiva<>0)
  begin
    YBottom:Real=285
    Height:Real=Y1Hlav1
    if(TypVykazu=0)or(HotovoRadku>Rozhrani)
      begin
        NextPage();
        YHeadTop=15
        YDataTop=15+Height
        LocBo=true
      end else
      begin
        YHeadTop=YHeadTop+Height+DataHeight+15;
        YDataTop=YHeadTop+Height
        LocBo=false
      end;
    Width:Real=XKonec1-XZacatek1

    Polozek=Int((YBottom-YDataTop)/Radkovani);
    if(Polozek>RadkuPasiva)
      Polozek=RadkuPasiva;

    FONTSIZE(5)
    FontFace(Bold)
    TEXT(XZacatek1+Width,YHeadTop-7,TA_RIGHT,'PASIVA')

    HlavickaP();

    TabPos(YDataTop+1.5)
    DefTab(3,Radkovani,ColPos[1]+2,ColAct[1]-4,TA_LEFT|TA_Constrict,ColPos[2]+2,ColAct[2]-4,TA_Both|TA_Constrict,ColPos[3]+ColAct[3]/2,ColAct[3],TA_Center|TA_ConStrict)
    if(ItsBlank)
      begin
        PrintFromFile()
      end else
      begin
        LoadWnsPos(1)
        HotovoRadkuSave=HotovoRadku
        LocW=0
        While(LocW<Polozek)
          begin
            Inc(HotovoRadku)
            if(InArray(Radky,HotovoRadku))
              begin
                Inc(LocW)
                TabFromWns(1,0,1,$7)
              end else
              begin
                SkipWNSLine(1,0,1)
              end;
          end;

        LoadWnsPos(1)
        HotovoRadku=HotovoRadkuSave
        FontSize(4.5)
        FontFace(Bold|Italic)
        DefTab(2,Radkovani,ColPos[4]+ColAct[4]-2,ColAct[4]-4,TA_RIGHT|TA_Constrict,ColPos[5]+ColAct[5]-2,ColAct[5]-4,TA_RIGHT|TA_Constrict)

        TabPos(YDataTop+1)

        LocW=0
        While(LocW<Polozek)
          begin
            Inc(HotovoRadku)
            if(InArray(Radky,HotovoRadku))
              begin
                Inc(LocW)
                TabFromWns(1,0,1,TiskniSloupceP)
              end else
              begin
                SkipWNSLine(1,0,1)
              end;
          end;
        SaveWnsPos(1)
        if(LocBo)
          begin
            FontSize(3.3)
            FontFace(Normal)
            Text(XKonec1,YBottom-1,TA_RIGHT,'Vytištěno systémem WinDUO')
          end;
      end;

    Dec(RadkuPasiva,Polozek);
  end;
END