<?php

/*
 *   This file is part of NOALYSS.
 *
 *   PhpCompta is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   PhpCompta 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 General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with PhpCompta; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
// Copyright (2018) Author Dany De Bontridder <dany@alchimerys.be>

/**
 * @file
 * @brief Currency thanks the view v_currency_last_value
 */
require_once NOALYSS_INCLUDE.'/database/currency_sql.class.php';
require_once NOALYSS_INCLUDE.'/database/currency_history_sql.class.php';

/**
 * Manage the configuration of currency , add currency, rate, remove  and update
 * Concerned tables are v_currency_last_value_SQL , Currency_SQL , Currency_History_SQL
 * currency_id = 0 for the default currency , -1 for a new one
 */
class Currency_MTable extends Manage_Table_SQL
{

    /**
     * constructor
     * @param Data $p_table
     * @example test_currency_mtable.php
     */
    function __construct(V_Currency_Last_Value_SQL $p_table)
    {
        parent::__construct($p_table);

        // If currency , cannot be deleted
        if ($this->is_currency_used($p_table->currency_id)==TRUE)
        {
            $this->set_delete_row(FALSE);
        }
        else
        {
            $this->set_delete_row(TRUE);
        }
        $this->set_property_visible("currency_id", FALSE);
        $this->set_property_visible("currency_history_id", FALSE);
        $this->set_col_label("cr_code_iso", "ISO");
        $this->set_col_label("cr_name", _("Nom"));
        $this->set_col_label('ch_value', _("Valeur"));
        $this->set_col_label('str_from', _("Date"));
        $this->set_col_type("str_from", "date");
        $this->a_order=array("cr_code_iso", "currency_id", "currency_history_id", "cr_name", "ch_value", "str_from");
        $this->set_icon_mod("first");
        $this->set_sort_column("cr_code_iso");
    }

    /**
     * returns TRUE the currency is used otherwise FALSE. We cannot delete a currency which is used in a
     * operation
     * @param integer $p_id currency_id
     * @returns boolean true if currency is used
     */
    function is_currency_used($p_id)
    {
        global $cn;
        $cnt_used=$cn->get_value(" select count(*) from jrn where currency_id=$1",[$p_id]);
        if ($cnt_used > 0)
        {
            return TRUE;
        }
        return FALSE;
    }
    /**
     * Box to enter either a new currency or update a existing one
     */
    function input()
    {
        $record=$this->get_table();
        $cr_code_iso=new IText("cr_code_iso", $record->cr_code_iso);
        $cr_code_iso->size=10;
        $cr_name=new IText("cr_name", $record->cr_name);
        $cr_name->size=50;
        $a_histo=$record->cn->get_array("select id,to_char(ch_from,'DD.MM.YYYY') as str_from,ch_value 
               from 
                currency_history 
               where 
                currency_id=$1", array($record->currency_id));
        $new_rate_date=new IDate("new_rate_date");
        $new_rate_value=new INum("new_rate_value");
        $new_rate_value->prec=6;
        if ($record->currency_id!=-1)
        {
            require NOALYSS_TEMPLATE."/currency_mtable_input.php";
        }
        else
        {
            require NOALYSS_TEMPLATE."/currency_mtable_input_new.php";
        }
    }

    /**
     * Check that the value are correct : 
     *      - Code iso must be unique
     *      - Name cannot be empty
     *      - At least one rate 
     *      - Date of the rate 
     *      - code iso is max 10 char
     *      - name is max 80
     * Default currency (id=0) cannot be changed
     */
    function check()
    {
        global $cn;
        $table=$this->get_table();
        $is_error=0;
        if ( $table->currency_id == 0) {
            $is_error++;
            $this->set_error("cr_code_iso", _("Devise par défaut ne peut être changée"));
        }
        // ------ cr_code_iso can not be empty
        if (trim($table->cr_code_iso)=="")
        {
            $is_error++;
            $this->set_error("cr_code_iso", _("Code iso ne peut pas être vide"));
        }
        // ------ cr_name can not be empty
        if (trim($table->cr_name)=="")
        {
            $is_error++;
            $this->set_error("cr_name", _("Nom ne peut pas être vide"));
        }
        // ----- for new record than we need at leat a date + value
        if ($table->currency_id==-1)
        {
            // -- for new record , we need a date + value
            if (isDate($table->str_from)==0||trim($table->str_from)=="")
            {
                $is_error++;
                $this->set_error("str_from", _("Date incorrecte, il faut au moins une valeur"));
            }
            if (isNumber($table->ch_value)==0||trim($table->ch_value)=="")
            {
                $is_error++;
                $this->set_error("ch_value", _("Valeur incorrecte, il faut au moins une valeur"));
            }
        }
        else
        {
             if (trim($table->str_from) =="" && trim($table->ch_value)=="")
            {
                // we don't add any new date
                
            }
            // -- for update, the date and value must be valid
            elseif (trim($table->str_from)!=""&&trim($table->ch_value)!="")
            {
                if (isDate($table->str_from)==0)
                {
                    $is_error++;
                    $this->set_error("str_from", _("Date incorrecte"));
                }
                if (isNumber($table->ch_value)==0)
                {
                    $is_error++;
                    $this->set_error("ch_value", _("Valeur incorrecte"));
                }
                // Date must be the greatest
                $count=$cn->get_value("select count(*) 
                        from 
                            currency_history 
                        where 
                            currency_id =$1 
                            and ch_from >= to_date($2,'DD.MM.YYYY') ", array($table->currency_id, $table->str_from));
                if ($count>0)
                {
                    $is_error++;
                    $this->set_error("str_from", _("Date doit être après la dernière valeur"));
                }
            }
            elseif (trim($table->str_from)!=""||trim($table->ch_value)!="")
            {
                $is_error++;
                $this->set_error("str_from", _("Valeur manquante"));
            }
        }
        //-- duplicate iso code
        $cnt=$cn->get_value("select count(*) from currency where id != $1 and cr_code_iso=$2",
                array($table->currency_id, $table->cr_code_iso));
        if ($cnt>0)
        {
            $is_error++;
            $this->set_error("cr_code_iso", _("Code ISO existe déjà"));
        }
        // - check size
        if ( trim(mb_strlen($table->cr_code_iso))>10)
        {
            $is_error++;
            $this->set_error("cr_code_iso", _("Code ISO trop long max = 10"));
        }
        // - check size
        if ( trim(mb_strlen($table->cr_name))>80)
        {
            $is_error++;
            $this->set_error("cr_name", _("Nom trop long max=80"));
        }
        if ( $table->ch_value  != "" && ($table->ch_value < 0 || $table->ch_value == 0)) {
            $is_error++;
            $this->set_error("ch_value", _("Valeur incorrecte"));
        }
        if ($is_error==0)
        {
            return TRUE;
        }

        return FALSE;
    }

    /**
     * Either insert a new currency + one rate or add a rate to an existing currency
     */
    function save()
    {
        $cn=Dossier::connect();
        try
        {
            $cn->start();
            $record=$this->get_table();

            if ($record->currency_id==-1)
            {
                // Append a new currency and a default value
                $currency=new Currency_SQL($cn);
                $currency->setp("cr_code_iso", mb_strtoupper($record->cr_code_iso));
                $currency->setp("cr_name", $record->cr_name);
                $currency->insert();

                $currency_history=new Currency_history_SQL($cn);
                $currency_history->setp("ch_value", $record->ch_value);
                $currency_history->setp("ch_from", $record->str_from);
                $currency_history->setp("currency_id", $currency->id);
                $currency_history->insert();

                $this->table->currency_id=$currency->id;
                $this->table->load();
            }
            else
            {
                // append a value in currency_historique and update currency
                $currency=new Currency_SQL($cn, $record->currency_id);
                $currency->setp("cr_code_iso", mb_strtoupper($record->cr_code_iso));
                $currency->setp("cr_name", $record->cr_name);
                $currency->update();

                if ($record->str_from!="")
                {
                    $currency_history=new Currency_history_SQL($cn);
                    $currency_history->setp("ch_value", $record->ch_value);
                    $currency_history->setp("ch_from", $record->str_from);
                    $currency_history->setp("currency_id", $currency->id);
                    $currency_history->insert();
                }
            }
            $cn->commit();
        }
        catch (Exception $ex)
        {
            $cn->rollback();
            throw ($ex);
        }
    }
    /**
     * Fill the object from request 
     * parameters : 
     *          - cr_code_iso
     *          - cr_name
     *          - p_id
     *          - new_rate_date
     *          - new_rate_value
     * 
     */
    function from_request()
    {
        $http=new HttpInput();
        $this->table->cr_code_iso=mb_strtoupper($http->request("cr_code_iso"));
        $this->table->cr_name=$http->request("cr_name");
        $this->table->currency_id=$http->request("p_id", "number");
        $this->table->ch_value=$http->request("new_rate_value");
        $this->table->str_from=$http->request("new_rate_date");
    }
    /**
     * 
     * We cannot modify the default currency (id := 0)
     */
    function display_row($p_row)
    {
        if ($p_row['currency_id']==0)
        {
            $this->set_update_row(FALSE);
            $this->set_delete_row(FALSE);
            parent::display_row($p_row);
            return;
        }
        if ($this->is_currency_used($p_row['currency_id'])==TRUE)
        {
            $this->set_delete_row(FALSE);
        } else {
            $this->set_delete_row(TRUE);
            
        }

        $this->set_update_row(TRUE);
        parent::display_row($p_row);
    }
    /**
     * Delete after checking the currency is not used
     */
    function delete()
    {
        $id=$this->get_table()->currency_id;
        if ( $this->is_currency_used($id) == FALSE)         $this->table->delete();
    }
}