245 lines
9.4 KiB
PHP
245 lines
9.4 KiB
PHP
|
<?php /** @noinspection PhpUnusedLocalVariableInspection */
|
||
|
|
/*********************************************************************************
|
||
|
|
*
|
||
|
|
* TimeTrex is a Workforce Management program developed by
|
||
|
|
* TimeTrex Software Inc. Copyright (C) 2003 - 2021 TimeTrex Software Inc.
|
||
|
|
*
|
||
|
|
* This program is free software; you can redistribute it and/or modify it under
|
||
|
|
* the terms of the GNU Affero General Public License version 3 as published by
|
||
|
|
* the Free Software Foundation with the addition of the following permission
|
||
|
|
* added to Section 15 as permitted in Section 7(a): FOR ANY PART OF THE COVERED
|
||
|
|
* WORK IN WHICH THE COPYRIGHT IS OWNED BY TIMETREX, TIMETREX DISCLAIMS THE
|
||
|
|
* WARRANTY OF NON INFRINGEMENT OF THIRD PARTY RIGHTS.
|
||
|
|
*
|
||
|
|
* This program is distributed in the hope that it will be useful, but WITHOUT
|
||
|
|
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||
|
|
* FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
|
||
|
|
* details.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* You should have received a copy of the GNU Affero General Public License along
|
||
|
|
* with this program; if not, see http://www.gnu.org/licenses or write to the Free
|
||
|
|
* Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||
|
|
* 02110-1301 USA.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* You can contact TimeTrex headquarters at Unit 22 - 2475 Dobbin Rd. Suite
|
||
|
|
* #292 West Kelowna, BC V4T 2E9, Canada or at email address info@timetrex.com.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* The interactive user interfaces in modified source and object code versions
|
||
|
|
* of this program must display Appropriate Legal Notices, as required under
|
||
|
|
* Section 5 of the GNU Affero General Public License version 3.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* In accordance with Section 7(b) of the GNU Affero General Public License
|
||
|
|
* version 3, these Appropriate Legal Notices must retain the display of the
|
||
|
|
* "Powered by TimeTrex" logo. If the display of the logo is not reasonably
|
||
|
|
* feasible for technical reasons, the Appropriate Legal Notices must display
|
||
|
|
* the words "Powered by TimeTrex".
|
||
|
|
*
|
||
|
|
********************************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @package Modules\Install
|
||
|
|
*/
|
||
|
|
class InstallSchema_1011A extends InstallSchema_Base {
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @return bool
|
||
|
|
*/
|
||
|
|
function preInstall() {
|
||
|
|
Debug::text( 'preInstall: ' . $this->getVersion(), __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @return bool
|
||
|
|
*/
|
||
|
|
function postInstall() {
|
||
|
|
|
||
|
|
// @codingStandardsIgnoreStart
|
||
|
|
global $cache;
|
||
|
|
// @codingStandardsIgnoreEnd
|
||
|
|
|
||
|
|
Debug::text( 'postInstall: ' . $this->getVersion(), __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
|
||
|
|
//Configure currencies for Standard Edition.
|
||
|
|
if ( $this->getIsUpgrade() == true ) {
|
||
|
|
|
||
|
|
$clf = TTnew( 'CompanyListFactory' ); /** @var CompanyListFactory $clf */
|
||
|
|
$clf->StartTransaction();
|
||
|
|
$clf->getAll();
|
||
|
|
if ( $clf->getRecordCount() > 0 ) {
|
||
|
|
foreach ( $clf as $c_obj ) {
|
||
|
|
if ( $c_obj->getStatus() == 10 ) {
|
||
|
|
//Converting to new Accrual Policy table.
|
||
|
|
Debug::text( 'Converting to new Accrual Policy Table: ' . $c_obj->getName() . ' ID: ' . $c_obj->getId(), __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
$pglf = TTnew( 'PolicyGroupListFactory' ); /** @var PolicyGroupListFactory $pglf */
|
||
|
|
$pglf->getByCompanyId( $c_obj->getId() );
|
||
|
|
if ( $pglf->getRecordCount() > 0 ) {
|
||
|
|
foreach ( $pglf as $pg_obj ) {
|
||
|
|
Debug::text( 'Accrual Policy ID: ' . $pg_obj->getColumn( 'accrual_policy_id' ), __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
if ( $pg_obj->getColumn( 'accrual_policy_id' ) != ''
|
||
|
|
&& $pg_obj->getColumn( 'accrual_policy_id' ) != 0 ) {
|
||
|
|
$pg_obj->setAccrualPolicy( [ $pg_obj->getColumn( 'accrual_policy_id' ) ] );
|
||
|
|
if ( $pg_obj->isValid() ) {
|
||
|
|
$pg_obj->Save();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
Debug::text( 'Adding Currency Information to Company: ' . $c_obj->getName() . ' ID: ' . $c_obj->getId(), __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
$crlf = TTnew( 'CurrencyListFactory' ); /** @var CurrencyListFactory $crlf */
|
||
|
|
$crlf->getByCompanyId( $c_obj->getId() );
|
||
|
|
if ( $crlf->getRecordCount() == 0 ) {
|
||
|
|
$cf = TTnew( 'CurrencyFactory' ); /** @var CurrencyFactory $cf */
|
||
|
|
$country_to_currency_map_arr = $cf->getOptions( 'country_currency' );
|
||
|
|
|
||
|
|
if ( isset( $country_to_currency_map_arr[$c_obj->getCountry()] ) ) {
|
||
|
|
$base_currency = $country_to_currency_map_arr[$c_obj->getCountry()];
|
||
|
|
Debug::text( 'Found Base Currency For Country: ' . $c_obj->getCountry() . ' Currency: ' . $base_currency, __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
} else {
|
||
|
|
Debug::text( 'DID NOT Find Base Currency For Country: ' . $c_obj->getCountry() . ' Using default USD.', __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
$base_currency = 'USD';
|
||
|
|
}
|
||
|
|
|
||
|
|
$cf->setCompany( $c_obj->getId() );
|
||
|
|
$cf->setStatus( 10 );
|
||
|
|
$cf->setName( $base_currency );
|
||
|
|
$cf->setISOCode( $base_currency );
|
||
|
|
|
||
|
|
$cf->setConversionRate( '1.000000000' );
|
||
|
|
$cf->setAutoUpdate( false );
|
||
|
|
$cf->setBase( true );
|
||
|
|
$cf->setDefault( true );
|
||
|
|
|
||
|
|
if ( $cf->isValid() ) {
|
||
|
|
$base_currency_id = $cf->Save();
|
||
|
|
|
||
|
|
Debug::text( 'Base Currency ID: ' . $base_currency_id, __FILE__, __LINE__, __METHOD__, 10 );
|
||
|
|
|
||
|
|
//Set Employee Hire Defaults.
|
||
|
|
$udlf = TTnew( 'UserDefaultListFactory' ); /** @var UserDefaultListFactory $udlf */
|
||
|
|
$udlf->getByCompanyId( $c_obj->getId() );
|
||
|
|
if ( $udlf->getRecordCount() > 0 ) {
|
||
|
|
$ud_obj = $udlf->getCurrent();
|
||
|
|
$ud_obj->setCurrency( $base_currency_id );
|
||
|
|
$ud_obj->setLanguage( 'en' );
|
||
|
|
if ( $ud_obj->isValid() ) {
|
||
|
|
$ud_obj->Save();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unset( $udlf, $ud_obj );
|
||
|
|
|
||
|
|
if ( is_numeric( $base_currency_id ) ) {
|
||
|
|
$ulf = TTnew( 'UserListFactory' ); /** @var UserListFactory $ulf */
|
||
|
|
$ulf->getByCompanyId( $c_obj->getId() );
|
||
|
|
if ( $ulf->getRecordCount() > 0 ) {
|
||
|
|
foreach ( $ulf as $u_obj ) {
|
||
|
|
$user_id = $u_obj->getID();
|
||
|
|
|
||
|
|
Debug::text( 'Setting Base Currency For User: ' . $u_obj->getUserName() . ' ID: ' . $user_id, __FILE__, __LINE__, __METHOD__, 10 );
|
||
|
|
|
||
|
|
$u_obj->setCurrency( $base_currency_id );
|
||
|
|
|
||
|
|
if ( $u_obj->isValid() ) {
|
||
|
|
if ( $u_obj->Save() == true ) {
|
||
|
|
//Set User Default Language
|
||
|
|
$uplf = TTnew( 'UserPreferenceListFactory' ); /** @var UserPreferenceListFactory $uplf */
|
||
|
|
$uplf->getByUserIDAndCompanyID( $user_id, $c_obj->getId() );
|
||
|
|
if ( $uplf->getRecordCount() > 0 ) {
|
||
|
|
$up_obj = $uplf->getCurrent();
|
||
|
|
$up_obj->setLanguage( 'en' ); //Englist
|
||
|
|
if ( $up_obj->isValid() ) {
|
||
|
|
$up_obj->Save();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unset( $uplf, $up_obj );
|
||
|
|
|
||
|
|
Debug::text( ' Setting Base Currency for Pay Stubs, User ID: ' . $user_id, __FILE__, __LINE__, __METHOD__, 10 );
|
||
|
|
|
||
|
|
//Change all pay stubs for this user to the base currency.
|
||
|
|
//Do this in a single query for speed purposes.
|
||
|
|
$ph = [
|
||
|
|
'currency_id' => $base_currency_id,
|
||
|
|
'currency_rate' => '1.000000000',
|
||
|
|
'user_id' => $user_id,
|
||
|
|
];
|
||
|
|
$query = 'update pay_stub set currency_id = ?, currency_rate = ? where user_id = ?';
|
||
|
|
$u_obj->db->Execute( $query, $ph );
|
||
|
|
/*
|
||
|
|
$pslf = TTnew( 'PayStubListFactory' );
|
||
|
|
$pslf->getByUserIdAndCompanyId( $user_id, $c_obj->getId() );
|
||
|
|
if ( $pslf->getRecordCount() > 0 ) {
|
||
|
|
foreach( $pslf as $ps_obj ) {
|
||
|
|
//Debug::text(' Setting Base Currency for Pay Stub ID: '. $ps_obj->getId(), __FILE__, __LINE__, __METHOD__, 10);
|
||
|
|
|
||
|
|
$ps_obj->setCurrency( $base_currency_id );
|
||
|
|
if ( $ps_obj->isValid() ) {
|
||
|
|
|
||
|
|
$ps_obj->setEnableLinkedAccruals( FALSE );
|
||
|
|
$ps_obj->setEnableCalcYTD( FALSE );
|
||
|
|
$ps_obj->setEnableProcessEntries( FALSE );
|
||
|
|
|
||
|
|
$ps_obj->Save();
|
||
|
|
}
|
||
|
|
|
||
|
|
unset($ps_obj);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unset($pslf);
|
||
|
|
*/
|
||
|
|
} else {
|
||
|
|
Debug::text( 'Failed saving user ID: ' . $user_id, __FILE__, __LINE__, __METHOD__, 10 );
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
Debug::text( 'Failed saving user ID: ' . $user_id, __FILE__, __LINE__, __METHOD__, 10 );
|
||
|
|
}
|
||
|
|
unset( $u_obj, $user_id );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unset( $ulf );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
unset( $cf );
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
Debug::text( 'Company is not active! ' . $c_obj->getId(), __FILE__, __LINE__, __METHOD__, 10 );
|
||
|
|
}
|
||
|
|
unset( $c_obj, $base_currency, $base_currency_id, $crlf );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//$clf->FailTransaction();
|
||
|
|
$clf->CommitTransaction();
|
||
|
|
}
|
||
|
|
|
||
|
|
//Add currency updating to cron.
|
||
|
|
$maint_base_path = Environment::getBasePath() . DIRECTORY_SEPARATOR . 'maint' . DIRECTORY_SEPARATOR;
|
||
|
|
if ( PHP_OS == 'WINNT' ) {
|
||
|
|
$cron_job_base_command = 'php-win.exe ' . $maint_base_path;
|
||
|
|
} else {
|
||
|
|
$cron_job_base_command = 'php ' . $maint_base_path;
|
||
|
|
}
|
||
|
|
Debug::text( 'Cron Job Base Command: ' . $cron_job_base_command, __FILE__, __LINE__, __METHOD__, 9 );
|
||
|
|
|
||
|
|
$cjf = TTnew( 'CronJobFactory' ); /** @var CronJobFactory $cjf */
|
||
|
|
$cjf->setName( 'UpdateCurrencyRates' );
|
||
|
|
$cjf->setMinute( 45 );
|
||
|
|
$cjf->setHour( 1 );
|
||
|
|
$cjf->setDayOfMonth( '*' );
|
||
|
|
$cjf->setMonth( '*' );
|
||
|
|
$cjf->setDayOfWeek( '*' );
|
||
|
|
$cjf->setCommand( $cron_job_base_command . 'UpdateCurrencyRates.php' );
|
||
|
|
$cjf->Save();
|
||
|
|
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
?>
|