Changeset 128 for trunk/Modules

Timestamp:

Feb 22, 2021, 11:20:53 PM (4 years ago)

Author:

chronos

Message:

• Added: Price list document.
• Modified: Updated internet page and documents according ČTÚ requirements.

Location:

trunk/Modules/ZdechovNET

Files:

• UDocumentsPage.pas (modified) (1 diff)
• UIPTVPage.pas (modified) (4 diffs)
• UInternetPage.lfm (modified) (1 diff)
• UInternetPage.pas (modified) (3 diffs)

trunk/Modules/ZdechovNET/UDocumentsPage.pas

@@ -44 +44 @@
         IconedLink(NavigationLink('/docs/Všeobecné smluvní podmínky.pdf'), 'Všeobecné smluvní podmínky') + ' ' +
         IconedLink(NavigationLink('/docs/Všeobecné smluvní podmínky.odt'), 'ODT') + '<br/>' +
+        IconedLink(NavigationLink('/docs/Ceník.pdf'), 'Ceník') + ' ' +
+        IconedLink(NavigationLink('/docs/Ceník.odt'), 'ODT') + '<br/>' +
         '<br/>';
 

trunk/Modules/ZdechovNET/UIPTVPage.pas

@@ -30 +30 @@
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
   private
-    { private declarations }
+    function Row(Cell1: string; Cell2: string = ''; Cell3: string = ''; Cell4: string = ''): string;
   public
     ModuleUser: TModuleUser;
@@ -255 +255 @@
       '<li>možnost pozastavení přehrávání vysílání</li>' +
       '<li>možnost záznamu pořadů</li>' +
-      '<li>televizi lze sledovat přes set-top box, Smart TV Samsung a Android, tablet, smartphone nebo internetový prohlížeč</li>' +
+      '<li>televizi lze sledovat přes set-top box, Smart TV Samsung, LG a Android, tablet, smartphone nebo internetový prohlížeč</li>' +
       '<li>lze spárovat až 4 zařízení na jeden účet</li>' +
       '<li>vyzkoušení na měsíc zdarma</li>' +
       '<li>převzaté vysílání zajišťuje společnost <a href="www.4net.tv">4NET.TV services s.r.o.</a></li>' +
-      '<li>pro provoz služby stačí i nejnižší internetový tarif Internet 200k/140M za 190 Kč/měsíc</li>' +
+      '<li>pro provoz služby stačí i nejnižší internetový tarif Internet 20M za 190 Kč/měsíc</li>' +
       '</ul><br/>' +
 
       '<h3>Základní balíčky</h3>' +
       '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
-      '<tr><td>Basic</td><td>95</td><td>' + IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic) + '</td></tr>' +
-      '<tr><td>Basic + tématika</td><td>103</td><td>' + IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic) + '</td></tr>' +
-      '<tr><td>Standard</td><td>367</td><td>' + IntToStr(Channels.GetCountByGroup(cpStandard)) + '</td><td>' + Channels.GetNamesByGroup(cpStandard) + '</td></tr>' +
-      '<tr><td>Max</td><td>530</td><td>' + IntToStr(Channels.GetCountByGroup(cpMax)) + '</td><td>' + Channels.GetNamesByGroup(cpMax) + '</td></tr>' +
+      Row('Basic', '95', IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic)) +
+      Row('Basic + tématika', '103', IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic)) +
+      Row('Standard', '367', IntToStr(Channels.GetCountByGroup(cpStandard)) + '</td><td>' + Channels.GetNamesByGroup(cpStandard)) +
+      Row('Max', '530', IntToStr(Channels.GetCountByGroup(cpMax)) + '</td><td>' + Channels.GetNamesByGroup(cpMax)) +
       '</table>' +
       'Balíček Basic obsahuje stejné kanály jako Basic + tématika. Pro možnost volby tématických balíčků je ale nutné mít balíček Basic + tématika.<br/>' +
@@ -273 +273 @@
       '<h3>Tématické balíčky</h3>' +
       '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
-      '<tr><td>Film</td><td>49</td><td>7</td><td>AXN, AXN Black, AXN White, Film Europe, Film Europe HD, Filmbox, JOJ Cinema HD</td></tr>' +
-      '<tr><td>Superbox</td><td>146</td><td>9</td><td>Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filbox, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus</td></tr>' +
-      '<tr><td>Sport</td><td>67</td><td>9</td><td>ArenaSPORT 1 HD, ArenaSPORT 2, Eurosport 1 HD, Eurosport 2 HD, Golf Channel HD, Nova Sport 1, Nova Sport 1 HD, Nova Sport 2 HD, Sport 5</td></tr>' +
-      '<tr><td>Dětské</td><td>37</td><td>5</td><td>Baby TV, Disney Channel, Disney junior, Nickelodeon, Nickelodeon Jr.</td></tr>' +
-      '<tr><td>Česky</td><td>43</td><<td>4</td><td>CS Film/CS Horor, CS History, CS Mystery, Film Europe + HD</td></tr>' +
-      '<tr><td>Láska</td><td>49</td><td>4</td><td>Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV</td></tr>' +
-      '<tr><td>Zpravodaj</td><td>15</td><td>6</td><td>BBC World New, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde</td></tr>' +
-      '<tr><td>Dokument</td><td>103</td><td>12</td><td>Animal Planet, Discovery channel, Discovery Science, Discovery Showcase HD, DTX HD, Fishing & Hunting, Investigation discovery, National Geographic, National Geographic HD, National Geographic Wild, TLC, Travel Channel HD</td></tr>' +
+      Row('Film', '49', '7', 'AXN, AXN Black, AXN White, Film Europe, Film Europe HD, Filmbox, JOJ Cinema HD') +
+      Row('Superbox', '146', '9', 'Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filbox, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus') +
+      Row('Sport', '67', '9', 'ArenaSPORT 1 HD, ArenaSPORT 2, Eurosport 1 HD, Eurosport 2 HD, Golf Channel HD, Nova Sport 1, Nova Sport 1 HD, Nova Sport 2 HD, Sport 5') +
+      Row('Dětské', '37', '5', 'Baby TV, Disney Channel, Disney junior, Nickelodeon, Nickelodeon Jr.') +
+      Row('Česky', '43', '4', 'CS Film/CS Horor, CS History, CS Mystery, Film Europe + HD') +
+      Row('Láska', '49', '4', 'Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV') +
+      Row('Zpravodaj', '15', '6', 'BBC World New, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde') +
+      Row('Dokument', '103', '12', 'Animal Planet, Discovery channel, Discovery Science, Discovery Showcase HD, DTX HD, Fishing & Hunting, Investigation discovery, National Geographic, National Geographic HD, National Geographic Wild, TLC, Travel Channel HD') +
       '</table>' +
       'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
@@ -302 +302 @@
 end;
 
+function TIPTVPage.Row(Cell1: string; Cell2: string; Cell3: string;
+  Cell4: string): string;
+begin
+  Result := '<td>' + Cell1 + '</td>';
+  if Cell2 <> '' then Result := Result + '<td>' + Cell2 + '</td>';
+  if Cell3 <> '' then Result := Result + '<td>' + Cell3 + '</td>';
+  if Cell4 <> '' then Result := Result + '<td>' + Cell4 + '</td>';
+  Result := '<tr>' + Result + '</tr>';
+end;
+
 end.
 

trunk/Modules/ZdechovNET/UInternetPage.lfm

@@ -3 +3 @@
   Caption = 'Internet'
   OnProduce = DataModuleProduce
-  Height = 50
-  HorizontalOffset = 259
-  VerticalOffset = 250
-  Width = 50
+  Height = 75
+  HorizontalOffset = 389
+  VerticalOffset = 375
+  Width = 75
+  PPI = 144
 end

trunk/Modules/ZdechovNET/UInternetPage.pas

@@ -42 +42 @@
 
       '<table class="WideTable">' +
-      '<tr><th>Označení</th><th>Minimální rychlost</th><th>Maximální rychlost</th><th>Bonusová rychlost</th><th>Cena</th></tr>' +
-      '<tr><td>Zdarma</td><td align="center">0</td><td align="center">256 kbit/s</td><td align="center">&nbsp;</td><td align="center">0 Kč</td></tr>' +
-      '<tr><td>Internet 20M</td><td align="center">6 Mbit/s</td><td align="center">20 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">190 Kč</td></tr>' +
-      '<tr><td>Internet 40M</td><td align="center">12 Mbit/s</td><td align="center">40 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">260 Kč</td></tr>' +
-      '<tr><td>Internet 60M</td><td align="center">18 Mbit/s</td><td align="center">60 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">360 Kč</td></tr>' +
-      '<tr><td>Internet 80M</td><td align="center">24 Mbit/s</td><td align="center">80 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">520 Kč</td></tr>' +
-      '<tr><td>Internet 100M</td><td align="center">30 Mbit/s</td><td align="center">100 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">750 Kč</td></tr>' +
+      '<tr><th>Označení</th><th>Minimální rychlost</th><th>Běžně dostupná</th><th>Maximální rychlost</th><th>Bonusová rychlost</th><th>Cena</th></tr>' +
+      '<tr><td>Zdarma</td><td align="center">0</td><td align="center">&nbsp;</td><td align="center">256 kbit/s</td><td align="center">&nbsp;</td><td align="center">0 Kč</td></tr>' +
+      '<tr><td>Internet 20M</td><td align="center">6 Mbit/s</td><td align="center">12 Mbit/s</td><td align="center">20 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">190 Kč</td></tr>' +
+      '<tr><td>Internet 40M</td><td align="center">12 Mbit/s</td><td align="center">24 Mbit/s</td><td align="center">40 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">260 Kč</td></tr>' +
+      '<tr><td>Internet 60M</td><td align="center">18 Mbit/s</td><td align="center">36 Mbit/s</td><td align="center">60 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">360 Kč</td></tr>' +
+      '<tr><td>Internet 80M</td><td align="center">24 Mbit/s</td><td align="center">48 Mbit/s</td><td align="center">80 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">520 Kč</td></tr>' +
+      '<tr><td>Internet 100M</td><td align="center">30 Mbit/s</td><td align="center">60 Mbit/s</td><td align="center">100 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">750 Kč</td></tr>' +
       '</table>' +
       '<br/>' +
       'Minimální rychlost je rychlost garantovaná, na tuto hodnotu může rychlost klesnout ve výjimečných případech.<br/>' +
       'Maximální rychlost se rovná rychlosti inzerované, jde o rychlost maximálně dosažitelnou.<br/>' +
-      'Běžně dostupná rychlost odpovídá alespoň 60% rychlosti maximální a jde o běžně dostupnou rychlost v 95% času kalendářního dne.<br/>' +
+      'Běžně dostupná rychlost odpovídá 60% rychlosti maximální a jde o běžně dostupnou rychlost v 95% času kalendářního dne.<br/>' +
       'Bonusová rychlost je negarantovaná rychlost ze společné sdílené kapacity, na kterou může rychlost stoupnout nad rámec maximální rychlosti.<br/>' +
       '<br/>' +
@@ -66 +66 @@
       '</ul>' +
       'Podle minimální a maximální rychlosti se také určuje poměrově přerozdělení sdílené rychlosti při vytížené lince. ' +
-      'Uživatelé s vyšší minimální a maximální rychlostí dostanou přidělnu poměrově větší kapacitu.<br/>' +
+      'Uživatelé s vyšší minimální a maximální rychlostí dostanou přidělenu poměrově větší kapacitu.<br/>' +
       '<br/>' +
       'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' +
@@ -72 +72 @@
       '<br/>' +
       '<i>Za velkou trvající odchylku od běžně dostupné rychlosti stahování se považuje souvislý pokles skutečně dosahované rychlosti odpovídající měřením stanovené TCP propustnosti pod hodnotu běžně dostupné rychlosti v intervalu delším než 70 minut.</i><br/>' +
+      '<i>Za velkou opakující se odchylku od běžně dostupné rychlosti se považuje taková odchylka, při které dojde alespoň ke třem poklesům skutečně dosahované rychlosti odpovídající měřením stanovené TCP propustnosti pod hodnotu běžně dostupné rychlosti v intervalu delším nebo rovno 3,5 minutám v časovém úseku 90 minut.</i><br/>' +
+      '<i>V případě velkých odchylek od běžně dostupné rychlosti stahování nebo vkládání dat, má účastník právo službu reklamovat.</i><br/>' +
       '<br/>' +
-      '<i>Za velkou opakující se odchylku od běžně dostupné rychlosti se považuje taková odchylka, při které dojde alespoň ke třem poklesům skutečně dosahované rychlosti odpovídající měřením stanovené TCP propustnosti pod hodnotu běžně dostupné rychlosti v intervalu delším nebo rovno 3,5 minutám v časovém úseku 90 minut.</i><br/>' +
-      '<br/>' +
-      'Aktualizováno: 18.2.2021';
+      'Aktualizováno: 22.2.2021';
     end;
     GeneratePage(Self);