source: trunk/Modules/Contract/Contract.php@ 904

Last change on this file since 904 was 904, checked in by chronos, 4 years ago
  • Added: Show gateway and net mask in contract.
File size: 16.7 KB
Line 
1<?php
2
3class ModuleContract extends Module
4{
5 public int $DirectoryId;
6
7 function __construct(System $System)
8 {
9 parent::__construct($System);
10 $this->Name = 'Contract';
11 $this->Version = '1.0';
12 $this->Creator = 'Chronos';
13 $this->License = 'GNU/GPLv3';
14 $this->Description = 'Contract documents management';
15 $this->Dependencies = array(ModuleDocument::GetName(), ModuleSubject::GetName(), ModuleFile::GetName(), ModuleFinance::GetName());
16 $this->Models = array(Contract::GetClassName());
17
18 $this->DirectoryId = 0;
19 }
20
21 function DoStart(): void
22 {
23 global $Config;
24
25 $this->DirectoryId = $Config['Contract']['DirectoryId'];
26 $this->System->RegisterPage(['smlouvy', 'generovat'], 'PageContractGenerate');
27 $this->System->FormManager->RegisterClass('Contract', array(
28 'Title' => 'Smlouvy',
29 'Table' => 'Contract',
30 'Items' => array(
31 'DocumentLine' => array('Type' => 'TDocumentLine', 'Caption' => 'Dokladová řada', 'Default' => ''),
32 'BillCode' => array('Type' => 'TDocumentLineCode', 'Caption' => 'Kód', 'Default' => '', 'Null' => true),
33 'Subject' => array('Type' => 'TSubject', 'Caption' => 'Subjekt', 'Default' => ''),
34 'ValidFrom' => array('Type' => 'Date', 'Caption' => 'Platnost od', 'Default' => ''),
35 'ValidTo' => array('Type' => 'Date', 'Caption' => 'Platnost do', 'Default' => '', 'Null' => true),
36 'File' => array('Type' => 'TFile', 'Caption' => 'Soubor', 'Default' => '', 'Null' => true),
37 'Generate' => array('Type' => 'Boolean', 'Caption' => 'Generovat', 'Default' => ''),
38 'EmployeeSalaries' => array('Type' => 'TEmployeeSalaryListContract', 'Caption' => 'Výplaty zaměstnanců', 'Default' => ''),
39 'Customers' => array('Type' => 'TCustomerListContract', 'Caption' => 'Zákazníci', 'Default' => ''),
40 ),
41 'BeforeInsert' => array($this, 'BeforeInsertContract'),
42 'ItemActions' => array(
43 array('Caption' => 'Generovat', 'URL' => '/smlouvy/generovat/?i=#RowId'),
44 )
45 ));
46 $this->System->FormManager->RegisterFormType('TContract', array(
47 'Type' => 'Reference',
48 'Table' => 'Contract',
49 'Id' => 'Id',
50 'Name' => '(SELECT `DocumentLineCode`.`Name` FROM `DocumentLineCode` WHERE `Id`=`Contract`.`BillCode`)',
51 'Filter' => '1',
52 ));
53 }
54
55 function BeforeInsertContract(Form $Form): array
56 {
57 if (array_key_exists('Time', $Form->Values)) $Year = date("Y", $Form->Values['Time']);
58 else $Year = date("Y", $Form->Values['ValidFrom']);
59 $Form->Values['BillCode'] = ModuleDocument::Cast($this->System->GetModule('Document'))->GetNextDocumentLineNumberId($Form->Values['DocumentLine'], $Year);
60 return $Form->Values;
61 }
62
63 static function Cast(Module $Module): ModuleContract
64 {
65 if ($Module instanceof ModuleContract)
66 {
67 return $Module;
68 }
69 throw new Exception('Expected ModuleContract type but '.gettype($Module));
70 }
71}
72
73class PageContractGenerate extends Page
74{
75 function __construct(System $System)
76 {
77 parent::__construct($System);
78 $this->FullTitle = 'Generování smlouvy';
79 $this->ShortTitle = 'Generování smlouvy';
80 $this->ParentClass = 'PagePortal';
81 }
82
83 function GenerateContract($Where = '')
84 {
85 $DirectoryId = ModuleContract::Cast($this->System->GetModule('Contract'))->DirectoryId;
86 $Output = '';
87 $DbResult = $this->Database->query('SELECT * FROM `Contract` WHERE (`BillCode` <> "") '.
88 'AND (`ValidFrom` IS NOT NULL) AND (`Generate` = 1)'.$Where);
89 while ($Row = $DbResult->fetch_assoc())
90 {
91 if ($Row['File'] == null)
92 {
93 $this->Database->insert('File', array('Name' => '', 'Size' => 0, 'Directory' => $DirectoryId, 'Time' => 'NOW()',
94 'Hash' => 'SHA1(CONCAT(Id,Name,Size,Time))'));
95 $FileId = $this->Database->insert_id;
96 } else $FileId = $Row['File'];
97 $FileName = 'smlouva-'.$FileId.'.pdf';
98 $Bill = new BillContract($this->System);
99 $Bill->ContractId = $Row['Id'];
100 $FullFileName = ModuleFile::Cast($this->System->GetModule('File'))->File->GetDir($DirectoryId).$FileName;
101 $Bill->SaveToFile($FullFileName);
102 if (file_exists($FullFileName))
103 {
104 $this->Database->update('File', 'Id='.$FileId, array('Name' => $FileName, 'Size' => filesize($FullFileName), 'Hash' => 'SHA1(CONCAT(Id,Name,Size,Time))'));
105 $this->Database->update('Contract', 'Id='.$Row['Id'], array('File' => $FileId));
106 $Output .= 'Smlouva '.$Row['Id'].' vygenerována do souboru '.$FileName.'<br/>'."\n";
107 } else $Output .= 'Soubor "'.$FullFileName.'" se nepodařilo uložit.';
108 }
109 return $Output;
110 }
111
112 function Show(): string
113 {
114 if (array_key_exists('i', $_GET))
115 {
116 $Output = $this->GenerateContract(' AND (Id='.($_GET['i'] * 1).')');
117 } else $Output = 'Missing contract id.';
118 return $Output;
119 }
120}
121
122class BillContract extends Pdf
123{
124 public string $ContractId;
125
126 function GenerateHTML(): string
127 {
128 $this->BorderTop = '0cm';
129 $this->BorderLeft = '1cm';
130 $this->BorderRight = '1cm';
131 $this->BorderBottom = '0cm';
132 $this->FontSize = 10;
133
134 $DbResult = $this->Database->select('Subject', '*', '`Id`='.$this->System->Config['Finance']['MainSubjectId']);
135 if ($DbResult->num_rows > 0)
136 {
137 $Supplier = $DbResult->fetch_assoc();
138 } else die('MainSubjectId not found in Subjects.');
139
140 $DbResult = $this->Database->query('SELECT * FROM `Contract`');
141 if ($DbResult->num_rows > 0)
142 {
143 $Contract = $DbResult->fetch_array();
144 $DbResult = $this->Database->query('SELECT * FROM `Subject` WHERE `Id`='.$Contract['Subject']);
145 if ($DbResult->num_rows > 0)
146 {
147 $Subject = $DbResult->fetch_assoc();
148 } else die('Customer Subject not found.');
149 } else die('Contract not found.');
150
151 $DbResult = $this->Database->select('DocumentLineCode', '*', '`Id`='.$Contract['BillCode']);
152 if ($DbResult->num_rows > 0)
153 {
154 $SupplierBillCode = $DbResult->fetch_assoc();
155 } else die('BillCode not found.');
156 $ContractCode = $SupplierBillCode['Name'];
157
158 $DbResult = $this->Database->select('Member', '*', '`Subject`='.$Contract['Subject']);
159 if ($DbResult->num_rows > 0)
160 {
161 $Customer = $DbResult->fetch_assoc();
162 } else die('Customer not found.');
163
164 $DbResult = $this->Database->query('SELECT * FROM ServiceCustomerRel '.
165 'LEFT JOIN Service ON Service.Id=ServiceCustomerRel.Service '.
166 'WHERE `ServiceCustomerRel`.`Customer`='.$Customer['Id'].' ');
167 if ($DbResult->num_rows > 0)
168 {
169 $Service = $DbResult->fetch_assoc();
170 } else die('Service not found.');
171 $ServiceType = $Service['Name'];
172 $Price = $Service['Price'];
173
174 $DbResult = $this->Database->query('SELECT NetworkInterface.LocalIP, NetworkInterface.MAC FROM NetworkDevice '.
175 'LEFT JOIN NetworkInterface ON NetworkInterface.Device=NetworkDevice.Id '.
176 'WHERE `NetworkDevice`.`Member`='.$Customer['Id'].' ');
177 if ($DbResult->num_rows > 0)
178 {
179 $NetworkInterface = $DbResult->fetch_assoc();
180 } else die('NetworkDevice not found.');
181
182 $PrefixMultiplier = new PrefixMultiplier();
183 $MaxSpeed = $PrefixMultiplier->Add($Service['InternetSpeedMax'], 'bit/s');
184 $MinSpeed = $PrefixMultiplier->Add($Service['InternetSpeedMin'], 'bit/s');
185 $IpAddress = $NetworkInterface['LocalIP'];
186 $MacAddress = $NetworkInterface['MAC'];
187
188 $DbResult = $this->Database->query('SELECT * FROM NetworkSubnet '.
189 'WHERE CompareNetworkPrefix(INET_ATON("'.$IpAddress.'"), INET_ATON(`AddressRange`), `Mask`)');
190 if ($DbResult->num_rows > 0)
191 {
192 $Subnet = $DbResult->fetch_assoc();
193 $DefaultGateway = $Subnet['Gateway'];
194 $NetworkAddressIPv4 = new NetworkAddressIPv4();
195 $NetworkAddressIPv4->Prefix = $Subnet['Mask'];
196 $NetworkAddressIPv4->Address = $NetworkAddressIPv4->GetNetMask();
197 $NetMask = $NetworkAddressIPv4->AddressToString();
198 } else die('Subnet not found.');
199
200 $Interface = 'Ethernet';
201 $PrimaryDNS = '10.145.64.8';
202
203 $VarSymbol = $Subject['Id'];
204 $DbResult = $this->Database->query('SELECT FinanceBankAccount.*, CONCAT(FinanceBankAccount.Number, "/", FinanceBank.Code) AS NumberFull FROM FinanceBankAccount '.
205 'JOIN FinanceBank ON FinanceBank.Id=FinanceBankAccount.Bank '.
206 'WHERE (FinanceBankAccount.`Subject`='.$this->System->Config['Finance']['MainSubjectId'].') AND (FinanceBankAccount.`Use`=1)');
207 if ($DbResult->num_rows > 0)
208 {
209 $SupplierBankAccount = $DbResult->fetch_assoc();
210 } else die('Bank account not found.');
211
212 $DbResult = $this->Database->select('FinanceBillingPeriod', '*', 'Id='.$Customer['BillingPeriod']);
213 if ($DbResult->num_rows > 0)
214 {
215 $BillingPeriod = $DbResult->fetch_assoc();
216 } else die('BillingPeriod not found.');
217 $PaymentPeriod = $BillingPeriod['Name'];
218
219 $BankAccount = $SupplierBankAccount['NumberFull'];
220
221 $DbResult = $this->Database->select('Member', '*', '`Subject`='.$this->System->Config['Finance']['MainSubjectId']);
222 if ($DbResult->num_rows > 0)
223 {
224 $SupplierMember = $DbResult->fetch_assoc();
225 } else die('Customer not found.');
226
227 $DbResult = $this->Database->query('SELECT Contact.Value AS Phone FROM User '.
228 'LEFT JOIN Contact ON Contact.User=User.ID AND Contact.Category=1 '.
229 'WHERE User.Id='.$SupplierMember['ResponsibleUser']);
230 if ($DbResult->num_rows > 0)
231 {
232 $SupplierUser = $DbResult->fetch_assoc();
233 $SupplierPhone = $SupplierUser['Phone'];
234 } else $SupplierPhone = '';
235
236 $DbResult = $this->Database->query('SELECT Contact.Value AS Phone FROM User '.
237 'LEFT JOIN Contact ON Contact.User=User.ID AND Contact.Category=1 '.
238 'WHERE User.Id='.$Customer['ResponsibleUser']);
239 if ($DbResult->num_rows > 0)
240 {
241 $CustomerUser = $DbResult->fetch_assoc();
242 $CustomerPhone = $CustomerUser['Phone'];
243 if ($CustomerPhone == null) $CustomerPhone = '';
244 } else $CustomerPhone = '';
245
246 $DbResult = $this->Database->query('SELECT Contact.Value AS Email FROM User '.
247 'LEFT JOIN Contact ON Contact.User=User.ID AND Contact.Category=4 '.
248 'WHERE User.Id='.$Customer['ResponsibleUser']);
249 if ($DbResult->num_rows > 0)
250 {
251 $CustomerUser = $DbResult->fetch_assoc();
252 $CustomerEmail = $CustomerUser['Email'];
253 if ($CustomerEmail == null) $CustomerEmail = '';
254 } else $CustomerEmail = '';
255
256 $SupplierName = $Supplier['Name'];
257 $SupplierStreet = $Supplier['AddressStreet'];
258 $SupplierTown = $Supplier['AddressTown'];
259 $SupplierPsc = $Supplier['AddressPSC'];
260 $SupplierIC = $Supplier['IC'];
261 $SupplierDIC = 'neplátce DPH';
262
263 $Web = '<a href="https://www.zdechov.net/">www.zdechov.net</a>';
264
265 $CustomerName = $Subject['Name'];
266 $CustomerStreet = $Subject['AddressStreet'];
267 $CustomerTown = $Subject['AddressTown'];
268 $CustomerPsc = $Subject['AddressPSC'];
269 $CustomerIC = $Subject['IC'];
270 $CustomerDIC = $Subject['DIC'];
271 $CustomerPhone = $CustomerPhone;
272 $CustomerEmail = $CustomerEmail;
273
274 $SignDate = HumanDate($Contract['ValidFrom']);
275
276
277 $Output = '<html>
278 <head></head>
279 <body><table width="100%"><tr><td colspan="2">'.
280 '<font size="6"><div align="center">Smlova o připojení k internetu a poskytování datových služeb</font></div>'.
281 '<font size="3"><div align="center">Číslo: '.$ContractCode.'</font></div>'.
282 '</td></tr>'.
283 '</table>'.
284 '<br>'.
285 '<table width="100%">'.
286 '<tr><th width="25%">Poskytovatel:</td><td width="25%"></td><th width="25%">Odběratel:</th><td width="25%"></td></tr>'.
287 '<tr><td>'.NotBlank($SupplierName).'</td><td></td><td>'.NotBlank($CustomerName).'</td><td></td></tr>'.
288 '<tr><td>'.NotBlank($SupplierStreet).'</td><td></td><td>'.NotBlank($CustomerStreet).'</td><td></td></tr>'.
289 '<tr><td>'.NotBlank($SupplierTown).'</td><td></td><td>'.NotBlank($CustomerTown).'</td><td></td></tr>'.
290 '<tr><td>'.NotBlank($SupplierPsc).'</td><td></td><td>'.NotBlank($CustomerPsc).'</td><td></td></tr>'.
291 '<tr><td colspan="4">&nbsp;</td></tr>'.
292 '<tr><td>IČ:</td><td>'.NotBlank($SupplierIC).'</td><td>Telefon:</td><td>'.NotBlank($CustomerPhone).'</td></tr>'.
293 '<tr><td>DIČ:</td><td>'.NotBlank($SupplierDIC).'</td><td>E-mail:</td><td>'.NotBlank($CustomerEmail).'</td></tr>'.
294 '<tr><td>Telefon:</td><td>'.NotBlank($SupplierPhone).'</td><td>RČ/IČ:</td><td>'.NotBlank($CustomerIC).'</td></tr>'.
295 '<tr><td>Web:</td><td>'.NotBlank($Web).'</td><td>OP/DIČ:</td><td>'.NotBlank($CustomerDIC).'</td></tr>'.
296 '<tr><td>Bank. spojení:</td><td>'.NotBlank($BankAccount).'</td><td>Přípojné místo:</td><td></td></tr>'.
297 '</table>'.
298 '<br/>'.
299 '<strong>I. Předmět smlouvy:</strong><br/>'.
300 'Smlouva se uzavírá mezi Poskytovatelem a Odběratelem a předmětem smlouvy je poskytování datových služeb a připojení k síti internet, umožňující Odběrateli odebírat v koncovém bodě za úplatu internetovou konektivitu prostřednictvím telekomunikační sítě Poskytovatele. Odběratel se zavazuje za tyto služby Poskytovateli platit cenu ve výši a pravidelných intervalech uvedených v této smlouvě. Smlouva se sjednává na dobu neurčitou.<br/>'.
301 '<br/>'.
302 '<strong>II. Poskytované služby:</strong><br/>'.
303 '<table width="100%" border="1">'.
304 '<tr><td width="50%">Zvolený typ (tarif) služby:</td><td>'.NotBlank($ServiceType).'</td></tr>'.
305 '</table>'.
306 '<br/>'.
307 '<table width="100%" border="1">'.
308 '<tr><th colspan="4" align="center">Technické specifikace služby</th></tr>'.
309 '<tr><td width="25%">Max. rychlost:</td><td width="25%">'.NotBlank($MaxSpeed).'</td><td width="25%">IP adresa:</td><td width="25%">'.NotBlank($IpAddress).'</td></tr>'.
310 '<tr><td>Min. rychlost:</td><td>'.NotBlank($MinSpeed).'</td><td>Maska podsítě:</td><td>'.NotBlank($NetMask).'</td></tr>'.
311 '<tr><td>MAC adresa:</td><td>'.NotBlank($MacAddress).'</td><td>Výchozí brána:</td><td>'.NotBlank($DefaultGateway).'</td></tr>'.
312 '<tr><td>Předávací rozhraní:</td><td>'.NotBlank($Interface).'</td><td>Primární DNS:</td><td>'.NotBlank($PrimaryDNS).'</td></tr>'.
313 '</table>'.
314 '<br/>'.
315 '<strong>III. Cena a platební podmínky:</strong><br/>'.
316 'Poplatky a pravidelné platby budou na základě této smlouvy hrazeny Odběratelem na bankovní účet Poskytovatele bankovním převodem, nebo složenkou, v uvedené výši a s uvedenou frekvencí. Jako VS bude uvedeno přidělené číslo. V případě prodlení s platbou mohou být uplatněny sankce, či služba pozastavena, nebo zrušena (dle Ceníku a Všeobecných smluvních podmínek).<br/>'.
317 '<table width="100%">'.
318 '<tr><td width="25%">Cena služby:</td><td width="25%">'.NotBlank($Price).' Kč</td><td width="25%">Číslo účtu:</td><td width="25%">'.NotBlank($BankAccount).'</td></tr>'.
319 '<tr><td>Pronájem zařízení:</td><td>0 Kč</td><td>Variabilní symbol:</td><td>'.NotBlank($VarSymbol).'</td></tr>'.
320 '<tr><td>Frekvence platby:</td><td>'.NotBlank($PaymentPeriod).'</td><td></td><td></td></tr>'.
321 '<tr><td>První platba:</td><td></td><td></td><td></td></tr>'.
322 '<tr><td>Splatnost:</td><td>do 21. dne uvedeného měsíce</td><td></td><td></td></tr>'.
323 '</table>'.
324 '<br/>'.
325 '<strong>IV. Závěrečná ustanovení:</strong><br/>'.
326 'Odběratel svým podpisem stvrzuje, že se seznámil a souhlasí se Všeobecnými smluvními podmínkami, aktuálním Ceníkem Poskytovatele a výše uvedenými skutečnostmi, které tvoří součást této Smlouvy. Dále stvrzuje, že souhlasí s provedením instalace a umístěním přijímacího zařízení a kabeláže a nemá proti nim námitky, příp., že vlastní veškerá příslušná povolení a souhlas s jejich umístěním. Smlouva je vyhotovena ve dvou provedeních, kdy Odběratel i Poskytovatel obdrží po jedné. Aktivace služby začíná dnem podpisu této Smlouvy. Výpovědní lhůta je 30 dnů. Případné změny této Smlouvy vyžadují formy vzájemně oběma stranami podepsaného dodatku.<br/>'.
327 '<br/>'.
328 '<table width="100%">'.
329 '<tr><td width="20%" aling="left">Ve Zděchově</td><td width="20%">dne '.NotBlank($SignDate).'</td></tr>'.
330 '</table>'.
331 '<br/><br/><br/><br/>'.
332 '<table width="100%">'.
333 '<tr><td width="50%" align="center">odběratel</td><td width="50%" align="center">dodavatel</td></tr>'.
334 '</table>'.
335 '</td></tr>'.
336 '</table>'.
337 '</body></html>';
338 return $Output;
339 }
340}
341
342class Contract extends Model
343{
344 static function GetModelDesc(): ModelDesc
345 {
346 $Desc = new ModelDesc(self::GetClassName());
347 $Desc->AddReference('DocumentLine', DocumentLine::GetClassName());
348 $Desc->AddReference('BillCode', DocumentLineCode::GetClassName());
349 $Desc->AddReference('Subject', Subject::GetClassName());
350 $Desc->AddDate('ValidFrom');
351 $Desc->AddDate('ValidTo');
352 $Desc->AddReference('File', File::GetClassName());
353 return $Desc;
354 }
355}
Note: See TracBrowser for help on using the repository browser.