<?php
if ($inside_dossier) {
$l_user_per = $g_user->get_periode();
if ($l_user_per == "") {
$l_user_per = $cn->get_value("select min(p_id) from parm_periode where p_closed='f'");
}
// if periode is closed then warns the users
$period = new Periode($cn, $l_user_per);
$period->p_id = $l_user_per;
$period->jrn_def_id = 0;
if ($period->is_closed($l_user_per) == 1) {
$msg = _('Attention cette période est fermée, vous ne pourrez rien modifier dans le module comptable');
$msg = '<h2 class="notice">' . $msg . '</h2>';
}
$period = new IPeriod("period");
$period->user = $g_user;
$period->cn = $cn;
$period->filter_year = false;
$period->value = $l_user_per;
$period->type = ALL;
$l_form_per = $period->input();
?>
<tr><td><?php
echo _('Période');
?>
</td>
<td>
<?php
printf(' %s ', $l_form_per);
?>
echo HtmlInput::get_to_hidden(array('ac'));
echo HtmlInput::hidden('type', 'bal');
echo HtmlInput::get_to_hidden(array('exercice'));
echo dossier::hidden();
// filter on the current year
$from = HtmlInput::default_value_get("from_periode", "");
$input_from = new IPeriod("from_periode", $from, $exercice);
$input_from->show_end_date = false;
$input_from->type = ALL;
$input_from->cn = $cn;
$input_from->filter_year = true;
$input_from->user = $g_user;
echo _('Depuis') . ' :' . $input_from->input();
// filter on the current year
$to = HtmlInput::default_value_get("to_periode", "");
$input_to = new IPeriod("to_periode", $to, $exercice);
$input_to->show_start_date = false;
$input_to->filter_year = true;
$input_to->type = ALL;
$input_to->cn = $cn;
$input_to->user = $g_user;
echo " " . _('jusque') . ' :' . $input_to->input();
echo '<br>';
echo HtmlInput::button_action(_('Avancé'), " if (\$('balance_advanced_div').style.display=='none') { \$('balance_advanced_div').show();} else { \$('balance_advanced_div').hide();}");
//-------------------------------------------------
echo '<div id="balance_advanced_div" style="display:none">';
/* add a all ledger choice */
echo _('Filtre') . " ";
$rad = new IRadio();
$array_ledger = $g_user->get_ledger('ALL', 3);
$array = get_array_column($array_ledger, 'jrn_def_id');
/**
* @brief Show the form to encode your operation
* @param$p_array if you correct or use a predef operation (default = null)
* @param$p_readonly 1 for readonly 0 for writable (default 0)
*@exception if ledger not found
* \return a string containing the form
*/
function input($p_array = null, $p_readonly = 0)
{
global $g_parameter, $g_user;
$this->nb = $this->get_min_row();
if ($p_readonly == 1) {
return $this->confirm($p_array);
}
if ($p_array != null) {
extract($p_array);
}
$add_js = "";
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$add_js = "update_pj();";
}
if ($g_parameter->MY_DATE_SUGGEST == 'Y') {
$add_js .= 'get_last_date();';
}
$add_js .= 'update_row("quick_item");';
$ret = "";
if ($g_user->check_action(FICADD) == 1) {
/* Add button */
$f_add_button = new IButton('add_card');
$f_add_button->label = _('Créer une nouvelle fiche');
$f_add_button->set_attribute('ipopup', 'ipop_newcard');
$f_add_button->set_attribute('jrn', $this->id);
$f_add_button->javascript = " this.jrn=\$('p_jrn').value;select_card_type(this);";
$f_add_button->input();
}
$wLedger = $this->select_ledger('ODS', 2);
if ($wLedger == null) {
throw new Exception(_('Pas de journal disponible'));
}
$wLedger->javascript = "onChange='update_name();update_predef(\"ods\",\"t\",\"" . $_REQUEST['ac'] . "\");{$add_js}'";
$label = " Journal " . HtmlInput::infobulle(2);
$ret .= $label . $wLedger->input();
// Load the javascript
//
$ret .= "<table>";
$ret .= '<tr ><td colspan="2" style="width:auto">';
$wDate = new IDate('e_date');
$wDate->readonly = $p_readonly;
$e_date = isset($e_date) && trim($e_date) != '' ? $e_date : '';
$wDate->value = $e_date;
$ret .= _("Date") . ' : ' . $wDate->input();
$ret .= '</td>';
/* insert periode if needed */
// Periode
//--
if ($this->check_periode() == true) {
$l_user_per = $g_user->get_periode();
$def = isset($periode) ? $periode : $l_user_per;
$period = new IPeriod("period");
$period->user = $g_user;
$period->cn = $this->db;
$period->value = $def;
$period->type = OPEN;
try {
$l_form_per = $period->input();
} catch (Exception $e) {
if ($e->getCode() == 1) {
echo _("Aucune période ouverte");
exit;
}
}
$label = HtmlInput::infobulle(3);
$f_periode = _("Période comptable") . " {$label} " . $l_form_per;
$ret .= td($f_periode);
}
$wPJ = new IText('e_pj');
$wPJ->readonly = false;
$wPJ->size = 10;
/* suggest PJ ? */
$default_pj = '';
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$default_pj = $this->guess_pj();
}
$wPJ->value = isset($e_pj) ? $e_pj : $default_pj;
$ret .= '</tr>';
$ret .= '<tr >';
$ret .= '<td colspan="2" style="width:auto"> ' . _('Pièce') . ' : ' . $wPJ->input();
$ret .= HtmlInput::hidden('e_pj_suggest', $default_pj);
$ret .= '</tr>';
$ret .= '</td>';
$ret .= '<tr>';
$ret .= '<td colspan="2" style="width:auto">';
$ret .= _('Libellé');
$wDescription = new IText('desc');
$wDescription->readonly = $p_readonly;
$wDescription->size = "50";
$wDescription->value = isset($desc) ? $desc : '';
$ret .= $wDescription->input();
$ret .= '</td>';
$ret .= '</tr>';
$ret .= '</table>';
$nb_row = isset($nb_item) ? $nb_item : $this->nb;
$ret .= HtmlInput::hidden('nb_item', $nb_row);
$ret .= dossier::hidden();
$ret .= dossier::hidden();
$ret .= HtmlInput::hidden('jrn_type', $this->get_type());
$info = HtmlInput::infobulle(0);
$info_poste = HtmlInput::infobulle(9);
if ($g_user->check_action(FICADD) == 1) {
$ret .= $f_add_button->input();
}
$ret .= '<table id="quick_item" style="position:float;width:100%">';
$ret .= '<tr>' . '<th style="text-align:left">Quickcode' . $info . '</th>' . '<th style="text-align:left">' . _('Poste') . $info_poste . '</th>' . '<th style="text-align:left">' . _('Libellé') . '</th>' . '<th style="text-align:left">' . _('Montant') . '</th>' . '<th style="text-align:left">' . _('Débit') . '</th>' . '</tr>';
for ($i = 0; $i < $nb_row; $i++) {
// Quick Code
$quick_code = new ICard('qc_' . $i);
$quick_code->set_dblclick("fill_ipopcard(this);");
$quick_code->set_attribute('ipopup', 'ipopcard');
// name of the field to update with the name of the card
$quick_code->set_attribute('label', "ld" . $i);
// name of the field to update with the name of the card
$quick_code->set_attribute('typecard', 'filter');
// Add the callback function to filter the card on the jrn
$quick_code->set_callback('filter_card');
$quick_code->set_function('fill_data');
$quick_code->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $quick_code->name);
$quick_code->value = isset(${'qc_' . $i}) ? ${'qc_' . $i} : "";
$quick_code->readonly = $p_readonly;
$label = '';
if ($quick_code->value != '') {
$Fiche = new Fiche($this->db);
$Fiche->get_by_qcode($quick_code->value);
$label = $Fiche->strAttribut(ATTR_DEF_NAME);
}
// Account
$poste = new IPoste();
$poste->name = 'poste' . $i;
$poste->set_attribute('jrn', $this->id);
$poste->set_attribute('ipopup', 'ipop_account');
$poste->set_attribute('label', 'ld' . $i);
$poste->set_attribute('account', 'poste' . $i);
$poste->set_attribute('dossier', Dossier::id());
$poste->value = isset(${'poste' . $i}) ? ${"poste" . $i} : '';
$poste->dbl_click_history();
$poste->readonly = $p_readonly;
if ($poste->value != '') {
$Poste = new Acc_Account($this->db);
$Poste->set_parameter('value', $poste->value);
$label = $Poste->get_lib();
}
// Description of the line
$line_desc = new IText();
$line_desc->name = 'ld' . $i;
$line_desc->size = 30;
$line_desc->value = isset(${"ld" . $i}) ? ${"ld" . $i} : $label;
// Amount
$amount = new INum();
$amount->size = 10;
$amount->name = 'amount' . $i;
$amount->value = isset(${'amount' . $i}) ? ${"amount" . $i} : '';
$amount->readonly = $p_readonly;
$amount->javascript = ' onChange="format_number(this);checkTotalDirect()"';
// D/C
$deb = new ICheckBox();
$deb->name = 'ck' . $i;
$deb->selected = isset(${'ck' . $i}) ? true : false;
$deb->readonly = $p_readonly;
$deb->javascript = ' onChange="checkTotalDirect()"';
$ret .= '<tr>';
$ret .= '<td>' . $quick_code->input() . $quick_code->search() . '</td>';
$ret .= '<td>' . $poste->input() . '<script> document.getElementById(\'poste' . $i . '\').onblur=function(){ if (trim(this.value) !=\'\') {document.getElementById(\'qc_' . $i . '\').value="";}}</script>' . '</td>';
$ret .= '<td>' . $line_desc->input() . '</td>';
$ret .= '<td>' . $amount->input() . '</td>';
$ret .= '<td>' . $deb->input() . '</td>';
$ret .= '</tr>';
// If readonly == 1 then show CA
}
$ret .= '</table>';
if (isset($this->with_concerned) && $this->with_concerned == true) {
$oRapt = new Acc_Reconciliation($this->db);
$w = $oRapt->widget();
$w->name = 'jrn_concerned';
$w->value = isset($jrn_concerned) ? $jrn_concerned : "";
$ret .= "Réconciliation/rapprochements : " . $w->input();
}
$ret .= create_script("\$('" . $wDate->id . "').focus()");
return $ret;
}
/**
*@brief Display a form for adding an new anticipation
*@return html string with the form
*/
private function form_cat_new()
{
global $g_user;
$r = "";
$str_action = _('Nouveau');
$name = new IText('an_name');
$str_name = $name->input();
$start_date = new IPeriod('start_date');
$start_date->type = ALL;
$start_date->cn = $this->cn;
$start_date->show_end_date = false;
$start_date->show_start_date = true;
$start_date->user = $g_user;
$start_date->filter_year = false;
$end_date = new IPeriod('end_date');
$end_date->type = ALL;
$end_date->cn = $this->cn;
$end_date->show_end_date = true;
$end_date->show_start_date = false;
$end_date->user = $g_user;
$end_date->filter_year = false;
$period = $g_user->get_periode();
$per = new Periode($this->cn, $period);
$year = $per->get_exercice();
list($per_start, $per_end) = $per->get_limit($year);
$start_date->value = $per_start->p_id;
$end_date->value = $per_end->p_id;
$str_start_date = $start_date->input();
$str_end_date = $end_date->input();
$aLabel = array(_('Ventes'), _('Dépense'), _('Banque'));
$aCat = array();
for ($i = 0; $i < MAX_CAT; $i++) {
/* category name */
$name = new IText('fr_cat' . $i);
$name->value = isset($aLabel[$i]) ? $aLabel[$i] : '';
$aCat[$i]['name'] = $name->input();
/* category order */
$order = new IText('fr_order' . $i);
$order->value = $i + 1;
$aCat[$i]['order'] = $order->input();
}
ob_start();
require_once NOALYSS_INCLUDE . '/template/forecast_cat.php';
$r .= ob_get_contents();
ob_end_clean();
return $r;
}
function input($p_array = null, $p_readonly = 0)
{
global $g_parameter, $g_user;
if ($p_array != null) {
extract($p_array);
}
$flag_tva = $g_parameter->MY_TVA_USE;
/* Add button */
$f_add_button = new IButton('add_card');
$f_add_button->tabindex = -1;
$f_add_button->label = _('Créer une nouvelle fiche');
$f_add_button->set_attribute('ipopup', 'ipop_newcard');
$f_add_button->set_attribute('jrn', $this->id);
$f_add_button->javascript = "this.jrn=\$('p_jrn').value; select_card_type(this);";
$f_add_button2 = new IButton('add_card2');
$f_add_button2->tabindex = -1;
$f_add_button2->label = _('Créer une nouvelle fiche');
$f_add_button2->set_attribute('ipopup', 'ipop_newcard');
$f_add_button2->set_attribute('filter', $this->get_all_fiche_def());
// $f_add_button2->set_attribute('jrn',$this->id);
$f_add_button2->javascript = " this.jrn=\$('p_jrn').value;select_card_type(this);";
$str_add_button = "";
$str_add_button2 = "";
if ($g_user->check_action(FICADD) == 1) {
$str_add_button = $f_add_button->input();
$str_add_button2 = $f_add_button2->input();
}
// The first day of the periode
$oPeriode = new Periode($this->db);
list($l_date_start, $l_date_end) = $oPeriode->get_date_limit($g_user->get_periode());
if ($g_parameter->MY_DATE_SUGGEST == 'Y') {
$op_date = !isset($e_date) ? $l_date_start : $e_date;
} else {
$op_date = !isset($e_date) ? '' : $e_date;
}
$e_ech = isset($e_ech) ? $e_ech : "";
$e_comm = isset($e_comm) ? $e_comm : "";
$r = '';
$r .= dossier::hidden();
$f_legend = _('Client');
$Echeance = new IDate();
$Echeance->setReadOnly(false);
$Echeance->tabindex = 2;
$label = HtmlInput::infobulle(4);
$f_echeance = $Echeance->input('e_ech', $e_ech, _('Echéance') . $label);
$Date = new IDate();
$Date->setReadOnly(false);
$f_date = $Date->input("e_date", $op_date);
$f_periode = '';
// Periode
//--
if ($this->check_periode() == true) {
$l_user_per = $g_user->get_periode();
$def = isset($periode) ? $periode : $l_user_per;
$period = new IPeriod("period");
$period->user = $g_user;
$period->cn = $this->db;
$period->value = $def;
$period->type = OPEN;
try {
$l_form_per = $period->input();
} catch (Exception $e) {
if ($e->getCode() == 1) {
throw new Exception(_("Aucune période ouverte"));
}
}
$label = HtmlInput::infobulle(3);
$f_periode = '<td>' . _("Période comptable") . "</td> <td> {$label} " . $l_form_per . '</td>';
}
/* if we suggest the next pj, then we need a javascript */
$add_js = "";
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$add_js = "update_pj();";
}
if ($g_parameter->MY_DATE_SUGGEST == 'Y') {
$add_js .= 'get_last_date();';
}
$add_js .= 'update_name();';
$add_js .= 'update_pay_method();';
$add_js .= 'update_row("sold_item");';
$wLedger = $this->select_ledger('VEN', 2);
if ($wLedger == null) {
throw new Exception(_('Pas de journal disponible'));
}
$wLedger->table = 1;
$wLedger->javascript = "onChange='update_predef(\"ven\",\"f\",\"" . $_REQUEST['ac'] . "\");{$add_js}'";
$wLedger->label = " Journal " . HtmlInput::infobulle(2);
$f_jrn = $wLedger->input();
$Commentaire = new IText();
$Commentaire->table = 0;
$Commentaire->setReadOnly(false);
$Commentaire->size = 60;
$Commentaire->tabindex = 3;
$label = HtmlInput::infobulle(1);
$f_desc = $Commentaire->input("e_comm", h($e_comm));
// PJ
//--
/* suggest PJ ? */
$default_pj = '';
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$default_pj = $this->guess_pj();
}
$pj = new IText();
$pj->table = 0;
$pj->name = "e_pj";
$pj->size = 10;
$pj->value = isset($e_pj) ? $e_pj : $default_pj;
$f_pj = $pj->input() . HtmlInput::hidden('e_pj_suggest', $default_pj);
// Display the customer
//--
$fiche = 'deb';
// Save old value and set a new one
//--
$e_client = isset($e_client) ? $e_client : "";
$e_client_label = " ";
//str_pad("",100,".");
// retrieve e_client_label
//--
if (strlen(trim($e_client)) != 0) {
$fClient = new Fiche($this->db);
$fClient->get_by_qcode($e_client);
$e_client_label = $fClient->strAttribut(ATTR_DEF_NAME) . ' ' . ' Adresse : ' . $fClient->strAttribut(ATTR_DEF_ADRESS) . ' ' . $fClient->strAttribut(ATTR_DEF_CP) . ' ' . $fClient->strAttribut(ATTR_DEF_CITY) . ' ';
}
$W1 = new ICard();
$W1->label = "Client " . HtmlInput::infobulle(0);
$W1->name = "e_client";
$W1->tabindex = 3;
$W1->value = $e_client;
$W1->table = 0;
$W1->set_dblclick("fill_ipopcard(this);");
$W1->set_attribute('ipopup', 'ipopcard');
// name of the field to update with the name of the card
$W1->set_attribute('label', 'e_client_label');
// name of the field to update with the name of the card
$W1->set_attribute('typecard', 'deb');
// Add the callback function to filter the card on the jrn
$W1->set_callback('filter_card');
$W1->set_function('fill_data');
$W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
$f_client_qcode = $W1->input();
$client_label = new ISpan();
$client_label->table = 0;
$f_client = $client_label->input("e_client_label", $e_client_label);
$f_client_bt = $W1->search();
// Record the current number of article
$Hid = new IHidden();
$p_article = isset($nb_item) ? $nb_item : $this->get_min_row();
$r .= $Hid->input("nb_item", $p_article);
$max = $p_article < $this->get_min_row() ? $this->get_min_row() : $p_article;
$f_legend_detail = _("Détail articles vendus");
// For each article
//--
for ($i = 0; $i < $max; $i++) {
// Code id, price & vat code
//--
$march = isset(${"e_march{$i}"}) ? ${"e_march{$i}"} : "";
$march_price = isset(${"e_march" . $i . "_price"}) ? ${"e_march" . $i . "_price"} : "";
if ($flag_tva == 'Y') {
$march_tva_id = isset(${"e_march{$i}" . "_tva_id"}) ? ${"e_march{$i}" . "_tva_id"} : "";
$march_tva_amount = isset(${"e_march{$i}" . "_tva_amount"}) ? ${"e_march{$i}" . "_tva_amount"} : "";
}
$march_label = isset(${"e_march" . $i . "_label"}) ? ${"e_march" . $i . "_label"} : "";
// retrieve the tva label and name
//--
if (strlen(trim($march)) != 0 && strlen(trim($march_label)) == 0) {
$fMarch = new Fiche($this->db);
$fMarch->get_by_qcode($march);
$march_label = $fMarch->strAttribut(ATTR_DEF_NAME);
if ($flag_tva == 'Y') {
if (!isset(${"e_march{$i}" . "_tva_id"})) {
$march_tva_id = $fMarch->strAttribut(ATTR_DEF_TVA);
}
}
}
// Show input
//--
$W1 = new ICard();
$W1->label = "";
$W1->name = "e_march" . $i;
$W1->value = $march;
$W1->table = 1;
$W1->set_attribute('typecard', 'cred');
$W1->set_dblclick("fill_ipopcard(this);");
$W1->set_attribute('ipopup', 'ipopcard');
// name of the field to update with the name of the card
$W1->set_attribute('label', 'e_march' . $i . '_label');
// name of the field with the price
$W1->set_attribute('price', 'e_march' . $i . '_price');
// name of the field with the TVA_ID
$W1->set_attribute('tvaid', 'e_march' . $i . '_tva_id');
// Add the callback function to filter the card on the jrn
$W1->set_callback('filter_card');
$W1->set_function('fill_data');
$W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
$W1->readonly = false;
$array[$i]['quick_code'] = $W1->input();
$array[$i]['bt'] = $W1->search();
// For computing we need some hidden field for holding the value
$array[$i]['hidden'] = '';
if ($flag_tva == 'Y') {
$array[$i]['hidden'] .= HtmlInput::hidden('tva_march' . $i, 0);
}
$htva = new INum('htva_march' . $i);
$htva->readOnly = 1;
$htva->value = 0;
$array[$i]['htva'] = $htva->input();
if ($g_parameter->MY_TVA_USE == 'Y') {
$tvac = new INum('tvac_march' . $i);
} else {
$tvac = new IHidden('tvac_march' . $i);
}
$tvac->readOnly = 1;
$tvac->value = 0;
$array[$i]['tvac'] = $tvac->input();
if ($g_parameter->MY_UPDLAB == 'Y') {
$Span = new IText("e_march" . $i . "_label");
$Span->css_size = "100%";
} else {
$Span = new ISpan("e_march" . $i . "_label");
}
$Span->value = $march_label;
$Span->setReadOnly(false);
// card's name, price
//--
$array[$i]['denom'] = $Span->input("e_march" . $i . "_label", $march_label);
// price
$Price = new INum();
$Price->setReadOnly(false);
$Price->size = 9;
$Price->javascript = "onBlur='format_number(this);clean_tva({$i});compute_ledger({$i})'";
$array[$i]['pu'] = $Price->input("e_march" . $i . "_price", $march_price);
$array[$i]['tva'] = '';
$array[$i]['amount_tva'] = '';
// if tva is not needed then no tva field
if ($flag_tva == 'Y') {
// vat label
//--
$Tva = new ITva_Popup($this->db);
$Tva->in_table = true;
$Tva->set_attribute('compute', $i);
$Tva->js = 'onblur="format_number(this);clean_tva(' . $i . ');compute_ledger(' . $i . ')"';
$Tva->value = $march_tva_id;
$array[$i]['tva'] = $Tva->input("e_march{$i}" . "_tva_id");
// vat amount
//--
$wTva_amount = new INum();
$wTva_amount->readOnly = false;
$wTva_amount->size = 6;
$wTva_amount->javascript = "onBlur='format_number(this);compute_ledger({$i})'";
$array[$i]['amount_tva'] = $wTva_amount->input("e_march" . $i . "_tva_amount", $march_tva_amount);
}
// quantity
//--
$quant = isset(${"e_quant{$i}"}) ? ${"e_quant{$i}"} : "1";
$Quantity = new INum();
$Quantity->setReadOnly(false);
$Quantity->size = 8;
$Quantity->javascript = "onChange='format_number(this);clean_tva({$i});compute_ledger({$i})'";
$array[$i]['quantity'] = $Quantity->input("e_quant" . $i, $quant);
}
// foreach article
$f_type = _('Client');
ob_start();
require_once NOALYSS_INCLUDE . '/template/form_ledger_detail.php';
$r .= ob_get_contents();
ob_end_clean();
// Set correctly the REQUEST param for jrn_type
$r .= HtmlInput::hidden('jrn_type', 'VEN');
$r .= HtmlInput::button('add_item', _('Ajout article'), ' onClick="ledger_add_row()"');
$r .= create_script("\$('" . $Date->id . "').focus()");
return $r;
}
function input($p_array = null, $notused = 0)
{
global $g_parameter, $g_user;
if ($p_array != null) {
extract($p_array);
}
$pview_only = false;
$min_article = $this->get_min_row();
$f_add_button = new IButton('add_card');
$f_add_button->label = _('Créer une nouvelle fiche');
$f_add_button->set_attribute('ipopup', 'ipop_newcard');
$f_add_button->set_attribute('jrn', $this->id);
$f_add_button->javascript = " this.jrn=\$('p_jrn').value;select_card_type(this);";
$str_add_button = $g_user->check_action(FICADD) == 1 ? $f_add_button->input() : "";
// The first day of the periode
$pPeriode = new Periode($this->db);
list($l_date_start, $l_date_end) = $pPeriode->get_date_limit($g_user->get_periode());
if ($g_parameter->MY_DATE_SUGGEST == 'Y') {
$op_date = !isset($e_date) ? $l_date_start : $e_date;
} else {
$op_date = !isset($e_date) ? '' : $e_date;
}
$r = "";
$r .= dossier::hidden();
$f_legend = 'Banque, caisse';
// Date
//--
$Date = new IDate("e_date", $op_date);
$Date->setReadOnly($pview_only);
$f_date = $Date->input();
$f_period = '';
if ($this->check_periode() == true) {
// Periode
//--
$l_user_per = isset($periode) ? $periode : $g_user->get_periode();
$period = new IPeriod();
$period->cn = $this->db;
$period->type = OPEN;
$period->value = $l_user_per;
$period->user = $g_user;
$period->name = 'periode';
try {
$l_form_per = $period->input();
} catch (Exception $e) {
if ($e->getCode() == 1) {
throw new Exception(_("Aucune période ouverte"));
}
}
$label = HtmlInput::infobulle(3);
$f_period = "Période comptable {$label}" . $l_form_per;
}
// Ledger (p_jrn)
//--
$onchange = "update_bank();ajax_saldo('first_sold');update_name();update_row('fin_item');";
if ($g_parameter->MY_DATE_SUGGEST == 'Y') {
$onchange .= 'get_last_date();';
}
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$onchange .= 'update_pj();';
}
$add_js = 'onchange="' . $onchange . '"';
$wLedger = $this->select_ledger('FIN', 2);
if ($wLedger == null) {
throw new Exception(_('Pas de journal disponible'));
}
$wLedger->javascript = $add_js;
$label = " Journal " . HtmlInput::infobulle(2);
$f_jrn = $label . $wLedger->input();
// retrieve bank name, code and account from the jrn_def.jrn_def_bank
$f_bank = '<span id="bkname">' . $this->get_bank_name() . '</span>';
if ($this->bank_id == "") {
echo h2("Journal de banque non configuré " . $this->get_name(), ' class="error"');
echo '<span class="error"> vous devez donner à ce journal un compte en banque (fiche), modifiez dans CFGLED</span>';
alert("Journal de banque non configuré " . $this->get_name());
}
$f_legend_detail = 'Opérations financières';
//--------------------------------------------------
// Saldo begin end
//-------------------------------------------------
// Extrait
$default_pj = '';
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$default_pj = $this->guess_pj();
}
$wPJ = new IText('e_pj');
$wPJ->readonly = false;
$wPJ->size = 10;
$wPJ->value = isset($e_pj) ? $e_pj : $default_pj;
$f_extrait = $wPJ->input() . HtmlInput::hidden('e_pj_suggest', $default_pj);
$label = HtmlInput::infobulle(7);
$first_sold = isset($first_sold) ? $first_sold : "";
$wFirst = new INum('first_sold', $first_sold);
$last_sold = isset($last_sold) ? $last_sold : "";
$wLast = new INum('last_sold', $last_sold);
$max = isset($nb_item) ? $nb_item : $min_article;
$r .= HtmlInput::hidden('nb_item', $max);
//--------------------------------------------------
// financial operation
//-------------------------------------------------
$array = array();
// Parse each " tiers"
for ($i = 0; $i < $max; $i++) {
$tiers = isset(${"e_other" . $i}) ? ${"e_other" . $i} : "";
$tiers_amount = isset(${"e_other{$i}" . "_amount"}) ? round(${"e_other{$i}" . "_amount"}, 2) : 0;
$tiers_comment = isset(${"e_other{$i}" . "_comment"}) ? ${"e_other{$i}" . "_comment"} : "";
$operation_date = new IDate("dateop" . $i);
$operation_date->value = isset(${'dateop' . $i}) ? ${'dateop' . $i} : "";
$array[$i]['dateop'] = $operation_date->input();
${"e_other{$i}" . "_amount"} = isset(${"e_other{$i}" . "_amount"}) ? ${"e_other{$i}" . "_amount"} : 0;
$W1 = new ICard();
$W1->label = "";
$W1->name = "e_other" . $i;
$W1->id = "e_other" . $i;
$W1->value = $tiers;
$W1->extra = 'deb';
// credits
$W1->typecard = 'deb';
$W1->style = ' style = "vertical-align:65%"';
$W1->set_dblclick("fill_ipopcard(this);");
$W1->set_attribute('ipopup', 'ipopcard');
// name of the field to update with the name of the card
$W1->set_attribute('label', 'e_other_name' . $i);
// name of the field to update with the name of the card
$W1->set_attribute('typecard', 'filter');
// Add the callback function to filter the card on the jrn
$W1->set_callback('filter_card');
$W1->set_function('fill_data');
$W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
$W1->readonly = $pview_only;
$array[$i]['qcode'] = $W1->input();
$array[$i]['search'] = $W1->search();
// Card name
//
$card_name = "";
if ($tiers != "") {
$fiche = new Fiche($this->db);
$fiche->get_by_qcode($tiers);
$card_name = $this->db->get_value("Select ad_value from fiche_detail where ad_id=\$1 and f_id=\$2", array(ATTR_DEF_NAME, $fiche->id));
}
$wcard_name = new IText("e_other_name" . $i, $card_name);
$wcard_name->id = $wcard_name->name;
$wcard_name->readOnly = true;
$array[$i]['cname'] = $wcard_name->input();
// Comment
$wComment = new IText("e_other{$i}" . "_comment", $tiers_comment);
$wComment->size = 35;
$wComment->setReadOnly($pview_only);
$array[$i]['comment'] = $wComment->input();
// amount
$wAmount = new INum("e_other{$i}" . "_amount", $tiers_amount);
$wAmount->size = 7;
$wAmount->setReadOnly($pview_only);
$array[$i]['amount'] = $wAmount->input();
// concerned
${"e_concerned" . $i} = isset(${"e_concerned" . $i}) ? ${"e_concerned" . $i} : "";
$wConcerned = new IConcerned("e_concerned" . $i, ${"e_concerned" . $i});
$wConcerned->tiers = "e_other" . $i;
$wConcerned->setReadOnly($pview_only);
$wConcerned->amount_id = "e_other" . $i . "_amount";
$wConcerned->paid = 'paid';
$array[$i]['concerned'] = $wConcerned->input();
}
ob_start();
require_once NOALYSS_INCLUDE . '/template/form_ledger_fin.php';
$r .= ob_get_contents();
ob_end_clean();
$r .= create_script("\$('" . $Date->id . "').focus()");
return $r;
}
