source: trunk/Modules/Subject/Subject.php@ 891

<?php

class ModuleSubject extends AppModule
{
  function __construct(System $System)
  {
    parent::__construct($System);
    $this->Name = 'Subject';
    $this->Version = '1.0';
    $this->Creator = 'Chronos';
    $this->License = 'GNU/GPL';
    $this->Description = 'Subject management';
    $this->Dependencies = array('User', 'Map');
  }

  function DoStart(): void
  {
    $this->System->FormManager->RegisterClass('Subject', array(
      'Title' => 'Subjekty',
      'Table' => 'Subject',
      'DefaultSortColumn' => 'Name',
      'Items' => array(
        'Id' => array('Type' => 'Integer', 'Caption' => 'Identifikace', 'Default' => '', 'ReadOnly' => true),
        'Name' => array('Type' => 'String', 'Caption' => 'Celé jméno', 'Default' => '', 'Required' => true),
        'AddressStreet' => array('Type' => 'String', 'Caption' => 'Ulice', 'Default' => ''),
        'AddressTown' => array('Type' => 'String', 'Caption' => 'Město', 'Default' => ''),
        'AddressPSC' => array('Type' => 'Integer', 'Caption' => 'PSČ', 'Default' => '', 'Required' => true),
        'AddressCountry' => array('Type' => 'TCountry', 'Caption' => 'Země', 'Default' => ''),
        'IC' => array('Type' => 'String', 'Caption' => 'IČ', 'Default' => ''),
        'DIC' => array('Type' => 'String', 'Caption' => 'DIČ', 'Default' => ''),
        'PayVAT' => array('Type' => 'Boolean', 'Caption' => 'Plátce DPH', 'Default' => 0),
        'MapPosition' => array('Type' => 'TMapPosition', 'Caption' => 'Pozice na mapě', 'Default' => '', 'Null' => true),
        'WWW' => array('Type' => 'Hyperlink', 'Caption' => 'WWW', 'Default' => ''),
        'Note' => array('Type' => 'String', 'Caption' => 'Poznámka', 'Default' => ''),
        'Customer' => array('Type' => 'TMemberListSubject', 'Caption' => 'Členové', 'Default' => ''),
        'Operations' => array('Type' => 'TFinanceOperationListSubject', 'Caption' => 'Platby', 'Default' => ''),
        'Invoices' => array('Type' => 'TFinanceInvoiceListSubject', 'Caption' => 'Faktury', 'Default' => ''),
        'Payment' => array('Type' => 'Float', 'Caption' => 'Placení', 'Default' => '',
          'ReadOnly' => true, 'Suffix' => 'Kč', 'SQL' => 'ROUND(IFNULL((SELECT SUM(`FinanceOperation`.`Value`) FROM `FinanceOperation` '.
          'WHERE `FinanceOperation`.`Subject`=#Id), 0) - IFNULL((SELECT SUM(`FinanceInvoice`.`Value`) FROM `FinanceInvoice` '.
          'WHERE `FinanceInvoice`.`Subject`=#Id), 0))'),
        'BankAccounts' => array('Type' => 'TFinanceBankAccountListSubject', 'Caption' => 'Bankovní účty', 'Default' => ''),
      ),
    ));
    $this->System->FormManager->RegisterFormType('TFinanceBankAccountListSubject', array(
      'Type' => 'ManyToOne',
      'Table' => 'FinanceBankAccount',
      'Id' => 'Id',
      'Ref' => 'Subject',
      'Filter' => '1',
    ));
    $this->System->FormManager->RegisterClass('SubjectReport', array(
      'Title' => 'Přehled subjektů',
      'Table' => 'SubjectReport',
      'DefaultSortColumn' => 'Id',
      'SQL' => '(SELECT Id FROM Subject)',
      'Items' => array(
        'Id' => array('Type' => 'TSubject', 'Caption' => 'Subjekt', 'Default' => '', 'ReadOnly' => true),
        'Income' => array('Type' => 'Integer', 'Caption' => 'Příjmy', 'Default' => '0', 'Suffix' => 'Kč', 'ReadOnly' => true,
          'SQL' => '(SELECT ROUND(SUM(`FinanceOperation`.`Value`)) FROM `FinanceOperation` '.
            'LEFT JOIN `FinanceOperationGroup` ON `FinanceOperationGroup`.`Id`=`FinanceOperation`.`Group` '.
            'WHERE (`FinanceOperation`.`Subject` = TX.`Id`) '.
            'AND (`FinanceOperationGroup`.`ValueSign` = 1))'),
        'Spending' => array('Type' => 'Integer', 'Caption' => 'Výdaje', 'Default' => '0', 'Suffix' => 'Kč', 'ReadOnly' => true,
          'SQL' => '(SELECT -ROUND(SUM(`FinanceOperation`.`Value`)) FROM `FinanceOperation` '.
            'LEFT JOIN `FinanceOperationGroup` ON `FinanceOperationGroup`.`Id`=`FinanceOperation`.`Group` '.
            'WHERE (`FinanceOperation`.`Subject` = TX.`Id`) '.
            'AND (`FinanceOperationGroup`.`ValueSign` = -1))'),
        'OperationBalance' => array('Type' => 'Integer', 'Caption' => 'Zisk', 'Default' => '0', 'Suffix' => 'Kč', 'ReadOnly' => true,
          'SQL' => '(SELECT ROUND(SUM(`FinanceOperation`.`Value`)) FROM `FinanceOperation` WHERE (`FinanceOperation`.`Subject` = TX.`Id`) '.
          ')'),
      ),
    ));
    $this->System->FormManager->RegisterFormType('TContactCategory', array(
      'Type' => 'Reference',
      'Table' => 'ContactCategory',
      'Id' => 'Id',
      'Name' => 'Name',
      'Filter' => '1',
    ));
    $this->System->FormManager->RegisterFormType('TContactListCategory', array(
      'Type' => 'ManyToOne',
      'Table' => 'Contact',
      'Id' => 'Id',
      'Ref' => 'Category',
      'Filter' => '1',
    ));
    $this->System->FormManager->RegisterFormType('TContactListUser', array(
      'Type' => 'ManyToOne',
      'Table' => 'Contact',
      'Id' => 'Id',
      'Ref' => 'User',
      'Filter' => '1',
    ));
    $this->System->FormManager->RegisterClass('Contact', array(
      'Title' => 'Kontakty',
      'Table' => 'Contact',
      'Items' => array(
        'Category' => array('Type' => 'TContactCategory', 'Caption' => 'Druh', 'Default' => ''),
        'Value' => array('Type' => 'String', 'Caption' => 'Hodnota', 'Default' => ''),
        'User' => array('Type' => 'TUser', 'Caption' => 'Uživatel', 'Default' => '', 'Null' => true),
        'Subject' => array('Type' => 'TSubject', 'Caption' => 'Subject', 'Default' => '', 'Null' => true),
        'Description' => array('Type' => 'String', 'Caption' => 'Popis', 'Default' => ''),
        'Receive' => array('Type' => 'Boolean', 'Caption' => 'Přijímat zprávy', 'Default' => '0'),
      ),
    ));
    $this->System->FormManager->RegisterClass('ContactCategory', array(
      'Title' => 'Druh kontaktu',
      'Table' => 'ContactCategory',
      'Items' => array(
        'Name' => array('Type' => 'String', 'Caption' => 'Jméno', 'Default' => ''),
        'Items' => array('Type' => 'TContactListCategory', 'Caption' => 'Kontakty'),
      ),
    ));
    $this->System->FormManager->RegisterFormType('TContact', array(
      'Type' => 'Reference',
      'Table' => 'Contact',
      'Id' => 'Id',
      'Name' => 'Value',
      'Filter' => '1',
    ));
    $this->System->FormManager->RegisterFormType('TSubject', array(
      'Type' => 'Reference',
      'Table' => 'Subject',
      'Id' => 'Id',
      'Name' => 'Name',
      'Filter' => '1',
    ));
    ModuleIS::Cast($this->System->GetModule('IS'))->RegisterDashboardItem('Subject',
      array($this, 'ShowDashboardItem'));
  }

  function DoInstall(): void
  {
    $this->InstallModel(Country::GetDesc());
    $this->InstallModel(Subject::GetDesc());
    $this->InstallModel(ContactCategory::GetDesc());
    $this->InstallModel(Contact::GetDesc());
  }

  function DoUninstall(): void
  {
    $this->UninstallModel(Contact::GetDesc());
    $this->UninstallModel(ContactCategory::GetDesc());
    $this->UninstallModel(Subject::GetDesc());
    $this->UninstallModel(Country::GetDesc());
  }

  function ShowDashboardItem(): string
  {
    $DbResult = $this->Database->select('Subject', 'COUNT(*)', '1');
    $DbRow = $DbResult->fetch_row();
    $Output = 'Subjektů: '.$DbRow['0'].'<br/>';
    return $Output;
  }
}

class Subject extends Model
{
  static function GetDesc(): ModelDesc
  {
    $Desc = new ModelDesc('Subject');
    $Desc->AddString('Name');
    $Desc->AddString('AddressStreet');
    $Desc->AddString('AddressTown');
    $Desc->AddString('AddressPSC');
    $Desc->AddReference('AddressCountry', 'Country', true);
    $Desc->AddString('IC');
    $Desc->AddString('DIC');
    $Desc->AddBoolean('PayVAT');
    $Desc->AddReference('MapPosition', 'MapPosition', true);
    $Desc->AddString('WWW');
    $Desc->AddString('Note');
    return $Desc;
  }
}

class Country extends Model
{
  static function GetDesc(): ModelDesc
  {
    $Desc = new ModelDesc('Country');
    $Desc->AddString('Name');
    return $Desc;
  }
}

class Contact extends Model
{
  static function GetDesc(): ModelDesc
  {
    $Desc = new ModelDesc('Contact');
    $Desc->AddReference('Category', 'ContactCategory', true);
    $Desc->AddString('Value');
    $Desc->AddReference('Subject', 'Subject', true);
    $Desc->AddReference('User', 'User', true);
    $Desc->AddString('Description');
    $Desc->AddBoolean('Receive');
    return $Desc;
  }
}

class ContactCategory extends Model
{
  static function GetDesc(): ModelDesc
  {
    $Desc = new ModelDesc('ContactCategory');
    $Desc->AddString('Name');
    return $Desc;
  }
}