<?
$infoses='aavyr005';
$infotem='poh';
$infotyp='trf';
$infovstup='fps001';
$infovystup='aavyr005.pdf';
$infonazev='XPDF - Vyrovnání jen VS';
$infodatum='17022019';
$infoautor='TOPSPIN Solutions - Martin Matoušek';
$infopopis='TIS - Vyrovnání je VS';
$sirka=20;
$vyska=29.7;

if (!($LevyOkraj>0))  { $LevyOkraj=0; }
if (!($HorniOkraj>0)) { $HorniOkraj=0; }
if (!($DolniOkraj>0)) { $DolniOkraj=2; }

ZacatekSestavy;
NovaStranka();

if (!($fr = fopen ($tis_tmpdir."aafps001.out", "r"))) {
 exit;
}   
$buffer = fgets($fr, 4096);
list ($segment,$orgnazev,$orgic,$orgulicecpopcor,$orgpscmisto,$orgbanka,$orgucet,$uzivatel,$tfp,$tfpnazev,$datvyst,$od,$do,$alg,$algtxt) = split ('[|]', $buffer);


Pismo('Tahoma','',10);

function HlavickaStranky() {
  global $infonazev, $orgnazev, $orgic, $orgulicecpopcor, $orgpscmisto, $stranka, $infoses, $infodatum, $sirka,$tfp,$tfpnazev,$alg,$algtxt,$od,$do,$datvyst;
  
  FormatovanyText($infonazev,0,1,$sirka,0.1,'C');
  Text('IS TIS - Topspin Solutions',1,1);
  Text($orgnazev,1,1.6);
  Text('IČ: '.$orgic,1,2);
  Text($orgulicecpopcor,1,2.4);
  Text($orgpscmisto,1,2.8); 
  
  Text('Stranka:',15,1);
  Text('Identifikace:',15,2);
  Text('Verze:',15,2.4);
  Text('Datum:',15,2.8);
  
  Text('TFP:     '.$tfp.' - '.$tfpnazev,6,2);
  Text('Výpočet: '.$alg.' '.$algtxt.' '.$od.' - '.$do,6,2.4);
  
  FormatovanyText($stranka,15,1,4,0.1,'R');
  FormatovanyText($infoses,15,2,4,0.1,'R');
  FormatovanyText($infodatum,15,2.4,4,0.1,'R');    
  FormatovanyText($datvyst,15,2.8,4,0.1,'R');    
  VystredenaCara(1,3);
}  

$y=3.5;

function HlavickaSloupcu() {
  RamecekKolemStranky(0.5);
  FormatovanyText('VS'     , 1,   3.5, 2,  0.1,'L');
//  FormatovanyText('ID'     , 3,   3.5, 2,  0.1,'L');    
//  FormatovanyText('Název'  , 4.5,   3.5, 3,  0.1,'L');    
  FormatovanyText('Stav'   , 9,   3.5, 2.5,0.1,'R');           
  FormatovanyText('Předpis',11.5, 3.5, 2.5,0.1,'R');         
  FormatovanyText('Platba' ,14,   3.5, 2.5,0.1,'R');         
  FormatovanyText('Saldo'  ,16.5, 3.5, 2.5,0.1,'R');        
}

HlavickaStranky();

Pismo('Tahoma','',9);

HlavickaSloupcu();

$stavcelkem=0;
$predpiscelkem=0;
$platbacelkem=0;
$saldocelkem=0;
$preplatky=0;
$nedoplatky=0;

$buffer = fgets($fr, 4096);
while(!feof($fr)) {
  if ((substr($buffer,0,3)=='fps') and (substr($buffer,0,6)!='fpsppl')) {
    list ($segment,$cislo,$vs,$ss,$ks,$saldo,$ccelk,$objmeno,$nazev,$ulicecpopcor,$pscmisto,$id,$predmet,$predpis,$platba,$stav) = split ('[|]', $buffer);
    $y+=0.4;
    
    FormatovanyText($vs,1,$y,2,0,'L');
//    FormatovanyText($id,3,$y,2,0,'L');    
//    FormatovanyText($nazev,4.5,$y,3,0,'L');    
    FormatovanyText($stav,     9,  $y,2.5,0,'R');              
    FormatovanyText($predpis, 11.5,$y,2.5,0,'R');          
    FormatovanyText($platba,  14,  $y,2.5,0,'R');             
    FormatovanyText($saldo,   16.5,$y,2.5,0,'R');         
    
    if ($y>($vyska-$DolniOkraj)) {
      $y=3.5;
      NovaStranka();
      HlavickaStranky();
      HlavickaSloupcu();
    }
    
    $stavcelkem=$stavcelkem+$stav;
    $predpiscelkem=$predpiscelkem+$predpis;
    $platbacelkem=$platbacelkem+$platba;  
    $saldocelkem=$saldocelkem+$saldo;
    if ($saldo<0) $preplatky+=$saldo;
    if ($saldo>0) $nedoplatky+=$saldo; 
  }
  $buffer = fgets($fr, 4096); 
} 

$y+=1;
VystredenaCara(1,$y); $y+=0.4;

FormatovanyText(money2str2($stavcelkem),       9,  $y, 2.5, 0,'R');              
FormatovanyText(money2str2($predpiscelkem), 11.5,  $y, 2.5, 0,'R');          
FormatovanyText(money2str2($platbacelkem),    14,  $y, 2.5, 0,'R');             
FormatovanyText(money2str2($saldocelkem),   16.5,  $y, 2.5, 0,'R');         

$y+=1;


Text('Nedoplatky:',13,$y);
FormatovanyText(money2str2($nedoplatky),13,$y,6,0,'R'); $y+=0.4;
Text('Přeplatky:',13,$y);
FormatovanyText(money2str2($preplatky),13,$y,6,0,'R'); $y+=0.6;         
Text('Celkem:',13,$y);
FormatovanyText(money2str2($saldocelkem),13,$y,6,0,'R'); 

fclose($fr);

KonecSestavy();
?>