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

<?php

class ModuleContract extends Module
{
  public int $DirectoryId;

  function __construct(System $System)
  {
    parent::__construct($System);
    $this->Name = 'Contract';
    $this->Version = '1.0';
    $this->Creator = 'Chronos';
    $this->License = 'GNU/GPLv3';
    $this->Description = 'Contract documents management';
    $this->Dependencies = array(ModuleDocument::GetName(), ModuleSubject::GetName(), ModuleFile::GetName(), ModuleFinance::GetName());
    $this->Models = array(Contract::GetClassName());

    $this->DirectoryId = 0;
  }

  function DoStart(): void
  {
    global $Config;

    $this->DirectoryId = $Config['Contract']['DirectoryId'];
    $this->System->RegisterPage(['smlouvy', 'generovat'], 'PageContractGenerate');
    $this->System->FormManager->RegisterClass('Contract', array(
      'Title' => 'Smlouvy',
      'Table' => 'Contract',
      'Items' => array(
        'DocumentLine' => array('Type' => 'TDocumentLine', 'Caption' => 'Dokladová řada', 'Default' => ''),
        'BillCode' => array('Type' => 'TDocumentLineCode', 'Caption' => 'Kód', 'Default' => '', 'Null' => true),
        'Subject' => array('Type' => 'TSubject', 'Caption' => 'Subjekt', 'Default' => ''),
        'ValidFrom' => array('Type' => 'Date', 'Caption' => 'Platnost od', 'Default' => ''),
        'ValidTo' => array('Type' => 'Date', 'Caption' => 'Platnost do', 'Default' => '', 'Null' => true),
        'File' => array('Type' => 'TFile', 'Caption' => 'Soubor', 'Default' => '', 'Null' => true),
        'Generate' => array('Type' => 'Boolean', 'Caption' => 'Generovat', 'Default' => ''),
        'EmployeeSalaries' => array('Type' => 'TEmployeeSalaryListContract', 'Caption' => 'Výplaty zaměstnanců', 'Default' => ''),
        'Customers' => array('Type' => 'TCustomerListContract', 'Caption' => 'Zákazníci', 'Default' => ''),
      ),
      'BeforeInsert' => array($this, 'BeforeInsertContract'),
      'ItemActions' => array(
        array('Caption' => 'Generovat', 'URL' => '/smlouvy/generovat/?i=#RowId'),
      )
    ));
    $this->System->FormManager->RegisterFormType('TContract', array(
      'Type' => 'Reference',
      'Table' => 'Contract',
      'Id' => 'Id',
      'Name' => '(SELECT `DocumentLineCode`.`Name` FROM `DocumentLineCode` WHERE `Id`=`Contract`.`BillCode`)',
      'Filter' => '1',
    ));
  }

  function BeforeInsertContract(Form $Form): array
  {
    if (array_key_exists('Time', $Form->Values)) $Year = date("Y", $Form->Values['Time']);
      else $Year = date("Y", $Form->Values['ValidFrom']);
    $Form->Values['BillCode'] = ModuleDocument::Cast($this->System->GetModule('Document'))->GetNextDocumentLineNumberId($Form->Values['DocumentLine'], $Year);
    return $Form->Values;
  }

  static function Cast(Module $Module): ModuleContract
  {
    if ($Module instanceof ModuleContract)
    {
      return $Module;
    }
    throw new Exception('Expected ModuleContract type but '.gettype($Module));
  }
}

class PageContractGenerate extends Page
{
  function __construct(System $System)
  {
    parent::__construct($System);
    $this->FullTitle = 'Generování smlouvy';
    $this->ShortTitle = 'Generování smlouvy';
    $this->ParentClass = 'PagePortal';
  }

  function GenerateContract($Where = '')
  {
    $DirectoryId = ModuleContract::Cast($this->System->GetModule('Contract'))->DirectoryId;
    $Output = '';
    $DbResult = $this->Database->query('SELECT * FROM `Contract` WHERE (`BillCode` <> "") '.
      'AND (`ValidFrom` IS NOT NULL) AND (`Generate` = 1)'.$Where);
    while ($Row = $DbResult->fetch_assoc())
    {
      if ($Row['File'] == null)
      {
        $this->Database->insert('File', array('Name' => '', 'Size' => 0, 'Directory' => $DirectoryId, 'Time' => 'NOW()'));
        $FileId = $this->Database->insert_id;
      } else $FileId = $Row['File'];
      $FileName = 'smlouva-'.$FileId.'.pdf';
      $Bill = new BillContract($this->System);
      $Bill->Database = &$this->System->Database;
      $Bill->System = &$this->System;
      $Bill->ContractId = $Row['Id'];
      $FullFileName = ModuleFile::Cast($this->System->GetModule('File'))->File->GetDir($DirectoryId).$FileName;
      $Bill->SaveToFile($FullFileName);
      if (file_exists($FullFileName))
      {
        $this->Database->update('File', 'Id='.$FileId, array('Name' => $FileName, 'Size' => filesize($FullFileName), 'Hash' => 'SHA1(CONCAT(Id,Name,Size,Time))'));
        $this->Database->update('Contract', 'Id='.$Row['Id'], array('File' => $FileId));
        $Output .= 'Smlouva '.$Row['Id'].' vygenerována do souboru '.$FileName.'<br/>'."\n";
      } else $Output .= 'Soubor "'.$FullFileName.'" se nepodařilo uložit.';
    }
    return $Output;
  }

  function Show(): string
  {
    if (array_key_exists('i', $_GET))
    {
      $Output = $this->GenerateContract(' AND (Id='.($_GET['i'] * 1).')');
    } else $Output = 'Missing contract id.';
    return $Output;
  }
}

class BillContract extends Pdf
{
  public string $ContractId;

  function GenerateHTML(): string
  {
    $Output = '<table width="100%"><tr><td colspan="2">'.
      '<font size="6"><div align="center">Smlova o připojení k internetu a poskytování datových služeb</font></div>'.
      '<font size="3"><div align="center">Číslo:</font></div>'.
      '<hr></td></tr>'.
      '<hr>'.
      '<br>'.
      '<tr><td colspan="2">'.
      '<strong>I. Předmět smlouvy:</strong><br/>'.
      '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/>'.
      '<br/>'.
      '<strong>II. Poskytované služby:</strong><br/>'.
      ''.
      '<br/>'.
      '<strong>III. Cena a platební podmínky:</strong><br/>'.
      '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/>'.
      '<br/>'.
      '<strong>IV. Závěrečná ustanovení:</strong><br/>'.
      '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álestvrzuje, ž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/>'.
      '<br/>'.
      '</td></tr>'.
      '</table>';

    return $Output;
  }
}

class Contract extends Model
{
  static function GetModelDesc(): ModelDesc
  {
    $Desc = new ModelDesc(self::GetClassName());
    $Desc->AddReference('DocumentLine', DocumentLine::GetClassName());
    $Desc->AddReference('BillCode', DocumentLineCode::GetClassName());
    $Desc->AddReference('Subject', Subject::GetClassName());
    $Desc->AddDate('ValidFrom');
    $Desc->AddDate('ValidTo');
    $Desc->AddReference('File', File::GetClassName());
    return $Desc;
  }
}