AccountancyExport::exportQuadratus()

Complexity

Conditions	9
Paths	41

Size

Total Lines	126
Code Lines	64

Duplication

Lines	0
Ratio	0 %

Importance

Changes	2
Bugs	0	Features	0

<?php
	public function exportQuadratus(&$TData)
	{
		global $conf, $db;

		$end_line = "\r\n";

		// We should use dol_now function not time however this is wrong date to transfert in accounting
		// $date_ecriture = dol_print_date(dol_now(), $conf->global->ACCOUNTING_EXPORT_DATE); // format must be ddmmyy
		// $date_ecriture = dol_print_date(time(), $conf->global->ACCOUNTING_EXPORT_DATE); // format must be ddmmyy
		foreach ($TData as $data) {
			$code_compta = $data->numero_compte;
			if (!empty($data->subledger_account)) {
				$code_compta = $data->subledger_account;
			}

			$Tab = array();

			if (!empty($data->subledger_account)) {
				$Tab['type_ligne'] = 'C';
				$Tab['num_compte'] = str_pad(self::trunc($data->subledger_account, 8), 8);
				$Tab['lib_compte'] = str_pad(self::trunc($data->subledger_label, 30), 30);

				if ($data->doc_type == 'customer_invoice') {
					$Tab['lib_alpha'] = strtoupper(str_pad('C'.self::trunc($data->subledger_label, 6), 6));
					$Tab['filler'] = str_repeat(' ', 52);
					$Tab['coll_compte'] = str_pad(self::trunc($conf->global->ACCOUNTING_ACCOUNT_CUSTOMER, 8), 8);
				} elseif ($data->doc_type == 'supplier_invoice') {
					$Tab['lib_alpha'] = strtoupper(str_pad('F'.self::trunc($data->subledger_label, 6), 6));
					$Tab['filler'] = str_repeat(' ', 52);
					$Tab['coll_compte'] = str_pad(self::trunc($conf->global->ACCOUNTING_ACCOUNT_SUPPLIER, 8), 8);
				} else {
					$Tab['filler'] = str_repeat(' ', 59);
					$Tab['coll_compte'] = str_pad(' ', 8);
				}

				$Tab['filler2'] = str_repeat(' ', 110);
				$Tab['Maj'] = 2; // Partial update (alpha key, label, address, collectif, RIB)

				if ($data->doc_type == 'customer_invoice') {
					$Tab['type_compte'] = 'C';
				} elseif ($data->doc_type == 'supplier_invoice') {
					$Tab['coll_compte'] = 'F';
				} else {
					$Tab['coll_compte'] = 'G';
				}

				$Tab['filler3'] = str_repeat(' ', 235);

				$Tab['end_line'] = $end_line;

				print implode($Tab);
			}

			$Tab = array();
			$Tab['type_ligne'] = 'M';
			$Tab['num_compte'] = str_pad(self::trunc($code_compta, 8), 8);
			$Tab['code_journal'] = str_pad(self::trunc($data->code_journal, 2), 2);
			$Tab['folio'] = '000';

			// We use invoice date $data->doc_date not $date_ecriture which is the transfert date
			// maybe we should set an option for customer who prefer to keep in accounting software the tranfert date instead of invoice date ?
			//$Tab['date_ecriture'] = $date_ecriture;
			$Tab['date_ecriture'] = dol_print_date($data->doc_date, '%d%m%y');
			$Tab['filler'] = ' ';
			$Tab['libelle_ecriture'] = str_pad(self::trunc(dol_string_unaccent($data->doc_ref).' '.dol_string_unaccent($data->label_operation), 20), 20);

			// Credit invoice - invert sens
			/*
			if ($data->montant < 0) {
				if ($data->sens == 'C') {
					$Tab['sens'] = 'D';
				} else {
					$Tab['sens'] = 'C';
				}
				$Tab['signe_montant'] = '-';
			} else {
				$Tab['sens'] = $data->sens; // C or D
				$Tab['signe_montant'] = '+';
			}*/
			$Tab['sens'] = $data->sens; // C or D
			$Tab['signe_montant'] = '+';

			// The amount must be in centimes without decimal points.
			$Tab['montant'] = str_pad(abs(($data->debit - $data->credit) * 100), 12, '0', STR_PAD_LEFT);
			$Tab['contrepartie'] = str_repeat(' ', 8);

			// Force date format : %d%m%y
			if (!empty($data->date_lim_reglement)) {
				//$Tab['date_echeance'] = dol_print_date($data->date_lim_reglement, $conf->global->ACCOUNTING_EXPORT_DATE);
				$Tab['date_echeance'] = dol_print_date($data->date_lim_reglement, '%d%m%y'); // Format must be ddmmyy
			} else {
				$Tab['date_echeance'] = '000000';
			}

			// Please keep quadra named field lettrage(2) + codestat(3) instead of fake lettrage(5)
			// $Tab['lettrage'] = str_repeat(' ', 5);
			$Tab['lettrage'] = str_repeat(' ', 2);
			$Tab['codestat'] = str_repeat(' ', 3);
			$Tab['num_piece'] = str_pad(self::trunc($data->piece_num, 5), 5);

			// Keep correct quadra named field instead of anon filler
			// $Tab['filler2'] = str_repeat(' ', 20);
			$Tab['affaire'] = str_repeat(' ', 10);
			$Tab['quantity1'] = str_repeat(' ', 10);
			$Tab['num_piece2'] = str_pad(self::trunc($data->piece_num, 8), 8);
			$Tab['devis'] = str_pad($conf->currency, 3);
			$Tab['code_journal2'] = str_pad(self::trunc($data->code_journal, 3), 3);
			$Tab['filler3'] = str_repeat(' ', 3);

			// Keep correct quadra named field instead of anon filler libelle_ecriture2 is 30 char not 32 !!!!
			// as we use utf8, we must remove accent to have only one ascii char instead of utf8 2 chars for specials that report wrong line size that will exceed import format spec
			// TODO: we should filter more than only accent to avoid wrong line size
			// TODO: remove invoice number doc_ref in libelle,
			// TODO: we should offer an option for customer to build the libelle using invoice number / name / date in accounting software
			//$Tab['libelle_ecriture2'] = str_pad(self::trunc(dol_string_unaccent($data->doc_ref) . ' ' . dol_string_unaccent($data->label_operation), 30), 30);
			$Tab['libelle_ecriture2'] = str_pad(self::trunc(dol_string_unaccent($data->label_operation), 30), 30);
			$Tab['codetva'] = str_repeat(' ', 2);

			// We need to keep the 10 lastest number of invoice doc_ref not the beginning part that is the unusefull almost same part
			// $Tab['num_piece3'] = str_pad(self::trunc($data->piece_num, 10), 10);
			$Tab['num_piece3'] = substr(self::trunc($data->doc_ref, 20), -10);
			$Tab['filler4'] = str_repeat(' ', 73);

			$Tab['end_line'] = $end_line;

			print implode($Tab);
		}