Changeset 134 for trunk


Ignore:
Timestamp:
Mar 25, 2022, 10:24:06 AM (3 years ago)
Author:
chronos
Message:
  • Modified: Corrected IPTV prices.
Location:
trunk/Modules/ZdechovNET
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Modules/ZdechovNET/UIPTVPage.lfm

    r133 r134  
    33  Caption = 'IPTV'
    44  OnProduce = DataModuleProduce
    5   Height = 78
    6   HorizontalOffset = 405
    7   VerticalOffset = 391
    8   Width = 78
    9   PPI = 150
     5  Height = 75
     6  HorizontalOffset = 389
     7  VerticalOffset = 375
     8  Width = 75
     9  PPI = 144
    1010end
  • trunk/Modules/ZdechovNET/UIPTVPage.pas

    r133 r134  
    244244      '<h3>Základní balíčky</h3>' +
    245245      '<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>' +
    246       Row(['Basic', '95', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
    247       Row(['Basic + tématika', '103', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
    248       Row(['Standard', '367', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
    249       Row(['Max', '530', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
     246      Row(['Basic', '103', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
     247      Row(['Basic + tématika', '111', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
     248      Row(['Standard', '379', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
     249      Row(['Max', '540', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
    250250      '</table>' +
    251251      '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/>' +
     
    253253      '<h3>Tématické balíčky</h3>' +
    254254      '<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>' +
    255       Row(['Film', '49', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
     255      Row(['Film', '48', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
    256256      Row(['Superbox', '143', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
    257       Row(['Sport', '67', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
    258       Row(['Dětské', '37', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
     257      Row(['Sport', '72', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
     258      Row(['Dětské', '36', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
    259259      Row(['Česky', '43', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
    260       Row(['Láska', '49', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
     260      Row(['Láska', '48', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
    261261      Row(['Zpravodaj', '15', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
    262       Row(['Dokument', '103', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
    263       Row(['Leo TV', '103', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
     262      Row(['Dokument', '118', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
     263      Row(['Leo TV', '48', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
    264264      '</table>' +
    265265      'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
     
    276276      'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' +
    277277      '<br/>' +
    278       'Ceny uvedeny včetně DPH platné od 1.4.2021.';
     278      'Ceny uvedeny včetně DPH platné od 1.4.2022.';
    279279      Channels.Free;
    280280    end;
Note: See TracChangeset for help on using the changeset viewer.