Changeset 134 for trunk

Timestamp:

Mar 25, 2022, 10:24:06 AM (3 years ago)

Author:

chronos

Message:

• Modified: Corrected IPTV prices.

Location:

trunk/Modules/ZdechovNET

Files:

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

trunk/Modules/ZdechovNET/UIPTVPage.lfm

@@ -3 +3 @@
   Caption = 'IPTV'
   OnProduce = DataModuleProduce
-  Height = 78
-  HorizontalOffset = 405
-  VerticalOffset = 391
-  Width = 78
-  PPI = 150
+  Height = 75
+  HorizontalOffset = 389
+  VerticalOffset = 375
+  Width = 75
+  PPI = 144
 end

trunk/Modules/ZdechovNET/UIPTVPage.pas

@@ -244 +244 @@
       '<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>' +
-      Row(['Basic', '95', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
-      Row(['Basic + tématika', '103', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
-      Row(['Standard', '367', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
-      Row(['Max', '530', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
+      Row(['Basic', '103', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
+      Row(['Basic + tématika', '111', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
+      Row(['Standard', '379', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
+      Row(['Max', '540', IntToStr(Channels.GetCountByGroup(cpMax)), 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/>' +
@@ -253 +253 @@
       '<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>' +
-      Row(['Film', '49', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
+      Row(['Film', '48', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
       Row(['Superbox', '143', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
-      Row(['Sport', '67', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
-      Row(['Dětské', '37', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
+      Row(['Sport', '72', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
+      Row(['Dětské', '36', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
       Row(['Česky', '43', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
-      Row(['Láska', '49', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
+      Row(['Láska', '48', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
       Row(['Zpravodaj', '15', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
-      Row(['Dokument', '103', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
-      Row(['Leo TV', '103', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
+      Row(['Dokument', '118', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
+      Row(['Leo TV', '48', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
       '</table>' +
       'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
@@ -276 +276 @@
       'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' +
       '<br/>' +
-      'Ceny uvedeny včetně DPH platné od 1.4.2021.';
+      'Ceny uvedeny včetně DPH platné od 1.4.2022.';
       Channels.Free;
     end;