source: trunk/Modules/FinanceBankAPI/FioAPI.php@ 805

Last change on this file since 805 was 805, checked in by chronos, 9 years ago
  • Fixed: Improve behaviour of Fio CVS import in case of empty page content.
File size: 4.5 KB
Line 
1<?php
2
3// Specifikace API: http://www.fio.cz/docs/cz/API_Bankovnictvi.pdf
4
5include('GPC.php');
6
7function RemoveComma($Text)
8{
9 if((mb_strlen($Text) >= 2) and ($Text[0] == '"') and (mb_substr($Text, -1, 1) == '"')) return(mb_substr($Text, 1, -1));
10 else return($Text);
11}
12
13class FioAPI
14{
15 var $Token;
16 var $Encoding;
17 var $Format;
18
19 function __construct()
20 {
21 $this->Encoding = 'utf-8';
22 $this->Format = 'csv';
23 }
24
25 function Import($TimeFrom, $TimeTo)
26 {
27 if($this->Token == '') throw new Exception('Missing value for Token property.');
28
29 // URL format: https://www.fio.cz/ib_api/rest/periods/{token}/{datum od}/{datum do}/transactions.{format}
30 // Send request
31 $RequestURL = '/ib_api/rest/periods/'.$this->Token.'/'.
32 date('Y-m-d', $TimeFrom).'/'.date('Y-m-d', $TimeTo).'/transactions.'.$this->Format;
33 $Response = file_get_contents('https://www.fio.cz'.$RequestURL);
34 if($Response == FALSE)
35 {
36 throw new Exception('Connection error');
37 } else
38 {
39 if($this->Format == 'gpc') $Response = iconv('windows-1250', $this->Encoding, $Response);
40 $Response = explode("\n", $Response);
41
42 if($this->Format == 'gpc')
43 {
44 // Parse all GPC lines
45 $GPC = new GPC();
46 $Result = array();
47 foreach($Response as $Index => $Line)
48 {
49 if(($Index == 0) and (substr($Line, 0, strlen(GPC_TYPE_REPORT)) != GPC_TYPE_REPORT)) $this->NoValidDataError($Response);
50 $GPCLine = $GPC->ParseLine($Line);
51 if($GPCLine != NULL) $Result[] = $GPCLine;
52 }
53 } else
54 if($this->Format == 'csv')
55 {
56 $Result = array(
57 'Items' => array(),
58 );
59
60 // CVS header
61 while((count($Response) > 0) and ($Response[0] != ''))
62 {
63 $Line = explode(';', $Response[0]);
64 if($Line[0] == 'accountId') $Result['AccountNumber'] = $Line[0];
65 else if($Line[0] == 'bankId') $Result['BankId'] = $Line[0];
66 else if($Line[0] == 'currency') $Result['Currency'] = $Line[0];
67 else if($Line[0] == 'iban') $Result['IBAN'] = $Line[0];
68 else if($Line[0] == 'bic') $Result['BIC'] = $Line[0];
69 else if($Line[0] == 'openingBalance') $Result['OpeningBalance'] = $Line[0];
70 else if($Line[0] == 'closingBalance') $Result['ClosingBalance'] = $Line[0];
71 else if($Line[0] == 'dateStart') $Result['DateStart'] = $Line[0];
72 else if($Line[0] == 'dateEnd') $Result['DateEnd'] = $Line[0];
73 else if($Line[0] == 'idFrom') $Result['IdFrom'] = $Line[0];
74 else if($Line[0] == 'idTo') $Result['IdTo'] = $Line[0];
75 array_shift($Response);
76 }
77 array_shift($Response); // Remove empty line
78
79 if((count($Response) == 0) or
80 ($Response[0] != 'ID pohybu;Datum;Objem;Měna;Protiúčet;Název protiúčtu;Kód banky;Název banky;KS;VS;SS;Uživatelská identifikace;Zpráva pro příjemce;Typ;Provedl;Upřesnění;Komentář;BIC;ID pokynu')
81 ) throw new Exception('Unsupported CSV header');
82 array_shift($Response);
83 array_pop($Response);
84 foreach($Response as $Index => $Line)
85 {
86 $Line = explode(';', $Line);
87 $Date = explode('.', $Line[1]);
88 $Date = mktime(0, 0, 0, $Date[1], $Date[0], $Date[2]);
89 $NewRecord = array('ID' => $Line[0], 'Date' => $Date, 'Value' => $Line[2], 'CurrencyCode' => $Line[3],
90 'OffsetAccount' => $Line[4], 'OffsetAccountName' => $Line[5], 'BankCode' => $Line[6], 'BankName' => RemoveComma($Line[7]),
91 'ConstantSymbol' => $Line[8], 'VariableSymbol' => $Line[9], 'SpecificSymbol' => $Line[10],
92 'UserIdent' => RemoveComma($Line[11]), 'Message' => RemoveComma($Line[12]), 'Type' => RemoveComma($Line[13]),
93 'User' => RemoveComma($Line[14]), 'Details' => RemoveComma($Line[15]), 'Comment' => RemoveComma($Line[16]),
94 'BIC' => $Line[17], 'OrderID' => $Line[18]);
95 $Result['Items'][] = $NewRecord;
96 }
97 }
98 return($Result);
99 }
100 }
101
102 function NoValidDataError($Response)
103 {
104 // Try to get error message
105 // If something go wrong fio show HTML login page and display error message
106 $Response = implode('', $Response);
107 $ErrorMessageStart = '<div id="oldform_warning">';
108 if(strpos($Response, $ErrorMessageStart) !== false)
109 {
110 $Response = substr($Response, strpos($Response, $ErrorMessageStart) + strlen($ErrorMessageStart));
111 $ErrorMessage = trim(substr($Response, 0, strpos($Response, '</div>')));
112 } else $ErrorMessage = '';
113 throw new Exception('No valid GPC data: '.$ErrorMessage);
114 }
115}
Note: See TracBrowser for help on using the repository browser.