Impacc_Export_CSV Class Reference

Collaboration diagram for Impacc_Export_CSV:

Public Member Functions
	__construct ()
	input_param ()
	Show a form to input the parameter , ledger , stard and end date. More...
	get_param ()
	export_csv ()
	export_sale (Noalyss_Csv $p_csv)
	Export a ledger of Sale. More...
	export_purchase (Noalyss_Csv $p_csv)
	Export a ledger of Purchase. More...
	export_fin (Noalyss_Csv $p_csv)
	Export a financial ledger. More...
	export_misc (Noalyss_Csv $p_csv)
	Export ODS ledger. More...

Data Fields
	$ledger
	Ledger id (jrn_def.jrn_def_id. More...
	$date_start
	date start More...
	$date_end
	date_end More...

Detailed Description

Definition at line 28 of file class_impacc_export.php.

Constructor & Destructor Documentation

Impacc_Export_CSV::__construct

(

)

Definition at line 35 of file class_impacc_export.php.

References $cn, $exercice, and $per.

    {
        global $g_user;
        $cn=Dossier::connect();
        $this->ledger=0;
        $exercice=$g_user->get_exercice();
        $per=new Periode($cn);
        $lim=$per->get_limit($exercice);
        $this->date_start=$lim[0]->first_day();
        $this->date_end=$lim[1]->last_day();
    }

Member Function Documentation

Impacc_Export_CSV::export_csv

(

)

Definition at line 73 of file class_impacc_export.php.

References $cn, $ledger, $type, export_fin(), export_misc(), export_purchase(), and export_sale().

    {
        $cn=Dossier::connect();
        $ledger=new Acc_Ledger($cn, $this->ledger);
        $cvs=new Noalyss_Csv("ledger".$ledger->get_name());
        $type=$ledger->get_type();
        if ($type=='ACH')
        {
            $cvs->send_header();
            $this->export_purchase($cvs);
        }
        else
        if ($type=='VEN')
        {
            $cvs->send_header();
            $this->export_sale($cvs);
        }
        else
        if ($type=="ODS")
        {
            $cvs->send_header();
            $this->export_misc($cvs);
        }
        else
        if ($type=="FIN")
        {
            $cvs->send_header();
            $this->export_fin($cvs);
        }
        else
        {
            throw new Exception(_("Journal invalide"));
        }
    }

Impacc_Export_CSV::export_fin

(

Noalyss_Csv

$p_csv

)

Export a financial ledger.

Definition at line 214 of file class_impacc_export.php.

References $cn, $ret, $row, and $sql.

Referenced by export_csv().

    {
        $cn=Dossier::connect();
        $sql="
        select 
            jr_id,
           to_char(jr_date,'DD.MM.YYYY') as sdate,
          (select ad_value from fiche_detail where f_id=qf_other and ad_id=23) as qcode,
           jr_pj_number,
           jr_comment,
           qf_amount
        from 
           quant_fin 
           join jrn using (jr_id)
        where 
          jr_date <= to_date($1,'DD.MM.YYYY') and
          jr_date >= to_date($2,'DD.MM.YYYY') and
          jr_def_id=$3
          order by jr_date
";
        $ret=$cn->exec_sql($sql,
                array($this->date_end, $this->date_start, $this->ledger));
        $nb=Database::num_row($ret);
        for ($i=0; $i<$nb; $i++)
        {
            $row=Database::fetch_array($ret, $i);
            $p_csv->add($row["sdate"]);
            $p_csv->add($row["jr_id"]);
            $p_csv->add($row["qcode"]);
            $p_csv->add($row["jr_pj_number"]);
            $p_csv->add($row["jr_comment"]);
            $p_csv->add($row["qf_amount"]);
            $p_csv->write();
        }
    }

Impacc_Export_CSV::export_misc

(

Noalyss_Csv

$p_csv

)

Export ODS ledger.

Definition at line 253 of file class_impacc_export.php.

References $cn, $ret, $row, and $sql.

Referenced by export_csv().

    {
        $cn=Dossier::connect();
        $sql="
            select 
                to_char(jr_date,'DD.MM.YYYY') as sdate,
                jr_id,
                coalesce(j_qcode,j_poste) as qcode,
                jr_pj_number,
                jr_comment,
                j_montant,
                case when j_debit = false then 'C'
                else  'D'
                end as deb
            from 
                jrn 
                join jrnx on (jr_grpt_id=j_grpt)
            where
                jr_date <= to_date($1,'DD.MM.YYYY') and
                jr_date >= to_date($2,'DD.MM.YYYY') and
                jr_def_id=$3
";
        $ret=$cn->exec_sql($sql,
                array($this->date_end, $this->date_start, $this->ledger));
        $nb=Database::num_row($ret);
        for ($i=0; $i<$nb; $i++)
        {
            $row=Database::fetch_array($ret, $i);
            $p_csv->add($row["sdate"]);
            $p_csv->add($row["jr_id"]);
            $p_csv->add($row["qcode"]);
            $p_csv->add($row["jr_pj_number"]);
            $p_csv->add($row["jr_comment"]);
            $p_csv->add($row["j_montant"],"number");
            $p_csv->add($row["deb"]);
            $p_csv->write();
        }
    }

Impacc_Export_CSV::export_purchase

(

Noalyss_Csv

$p_csv

)

Export a ledger of Purchase.

Definition at line 162 of file class_impacc_export.php.

References $cn, $ret, $row, and $sql.

Referenced by export_csv().

    {
        $cn=Dossier::connect();

        $sql="
        select 
          to_char(jr_date,'DD.MM.YYYY') as sdate,
          jr_id,
         (select ad_value from fiche_detail where f_id=qp_supplier and ad_id=23) as qcode,
          jr_pj,
          jr_comment,
          (select ad_value from fiche_detail where f_id=qp_fiche and ad_id=23) as qcode_serv,
          qp_unit,
          qp_price,
          qp_vat_code,
          qp_price+qp_vat  as price_tax,
          to_char(jr_ech,'DD.MM.YYYY') slimit,
          to_char(jr_date_paid,'DD.MM.YYYY') sdatepaid
        from jrn
            join jrnx on (j_grpt=jr_grpt_id)
            join public.quant_purchase using (j_id)
        where
          jr_date <= to_date($1,'DD.MM.YYYY') and
          jr_date >= to_date($2,'DD.MM.YYYY') and
          jr_def_id=$3
        order by jr_date,j_id
            ";
        $ret=$cn->exec_sql($sql,
                array($this->date_end, $this->date_start, $this->ledger));
        $nb=Database::num_row($ret);
        for ($i=0; $i<$nb; $i++)
        {
            $row=Database::fetch_array($ret, $i);
            $p_csv->add($row["sdate"]);
            $p_csv->add($row["jr_id"]);
            $p_csv->add($row["qcode"]);
            $p_csv->add($row["jr_pj"]);
            $p_csv->add($row["jr_comment"]);
            $p_csv->add($row["qcode_serv"]);
            $p_csv->add($row["qp_unit"], "number");
            $p_csv->add($row["qp_price"], "number");
            $p_csv->add($row["qp_vat_code"]);
            $p_csv->add($row["price_tax"], "number");
            $p_csv->add($row["slimit"]);
            $p_csv->add($row["sdatepaid"]);
            $p_csv->write();
        }
    }

Impacc_Export_CSV::export_sale

(

Noalyss_Csv

$p_csv

)

Export a ledger of Sale.

Definition at line 111 of file class_impacc_export.php.

References $cn, $ret, $row, and $sql.

Referenced by export_csv().

    {
        $cn=Dossier::connect();
        $sql="
        select 
          to_char(jr_date,'DD.MM.YYYY') as sdate,
          jr_id,
          (select ad_value from fiche_detail where f_id=qs_client and ad_id=23) as qcode,
          jr_pj,
          jr_comment,
          (select ad_value from fiche_detail where f_id=qs_fiche and ad_id=23) as qcode_serv,
          qs_unit,
          qs_price,
          qs_vat_code,
          qs_price+qs_vat as price_tax,
          to_char(jr_ech,'DD.MM.YYYY') slimit,
          to_char(jr_date_paid,'DD.MM.YYYY') sdatepaid
      from jrn
      join jrnx on (j_grpt=jr_grpt_id)
      join public.quant_sold using (j_id)
      where
          jr_date <= to_date($1,'DD.MM.YYYY') and
          jr_date >= to_date($2,'DD.MM.YYYY') and
          jr_def_id=$3
      order by jr_date,j_id
            ";
        $ret=$cn->exec_sql($sql,
                array($this->date_end, $this->date_start, $this->ledger));
        $nb=Database::num_row($ret);
        for ($i=0; $i<$nb; $i++)
        {
            $row=Database::fetch_array($ret, $i);
            $p_csv->add($row["sdate"]);
            $p_csv->add($row["jr_id"]);
            $p_csv->add($row["qcode"]);
            $p_csv->add($row["jr_pj"]);
            $p_csv->add($row["jr_comment"]);
            $p_csv->add($row["qcode_serv"]);
            $p_csv->add($row["qs_unit"], "number");
            $p_csv->add($row["qs_price"], "number");
            $p_csv->add($row["qs_vat_code"]);
            $p_csv->add($row["price_tax"], "number");
            $p_csv->add($row["slimit"]);
            $p_csv->add($row["sdatepaid"]);
            $p_csv->write();
        }
    }

Impacc_Export_CSV::get_param

(

)

Definition at line 64 of file class_impacc_export.php.

    {
        $this->ledger=HtmlInput::default_value_request("p_jrn", 0);
        $this->date_start=HtmlInput::default_value_request("date_start", 0);
        $this->date_end=HtmlInput::default_value_request("date_end", 0);
    }

Impacc_Export_CSV::input_param

(

)

Show a form to input the parameter , ledger , stard and end date.

Definition at line 50 of file class_impacc_export.php.

References $cn, $date_end, and $date_start.

    {
        $cn=Dossier::connect();
        $l=new Acc_Ledger($cn, $this->ledger);
        $select_ledger=$l->select_ledger();

        $date_start=new IDate("date_start", $this->date_start);
        $date_end=new IDate("date_end", $this->date_end);

        require DIR_IMPORT_ACCOUNT."/template/export_param.php";
    }

Field Documentation

Impacc_Export_CSV::$date_end

date_end

Definition at line 33 of file class_impacc_export.php.

Referenced by input_param().

Impacc_Export_CSV::$date_start

date start

Definition at line 32 of file class_impacc_export.php.

Referenced by input_param().

Impacc_Export_CSV::$ledger

Ledger id (jrn_def.jrn_def_id.

Definition at line 31 of file class_impacc_export.php.

Referenced by export_csv().

---

The documentation for this class was generated from the following file:

• import_account/include/class_impacc_export.php