Check();
$User->check_dossier($gDossier);
include_once("check_priv.php");
include_once ("user_menu.php");
$User->can_request(PARJRN);
echo JS_SEARCH_POSTE;
if ( isset ($_POST["add"]) ) {
if ( !isset($_POST["p_jrn_name"]) || ! isset($_POST["p_jrn_type"] )) {
echo ' Un paramètre manque
';
}
else {
/* if name already use we stop */
if ( CountSql($cn,"select * from jrn_def where jrn_def_name=$1",array($_POST['p_jrn_name'])) >0 ) {
alert ('Un journal de ce nom existe déjà');
} else {
if (strlen(trim($_POST['p_jrn_deb_max_line'])) == 0 ||
(string) (int)$_POST['p_jrn_deb_max_line'] != (string)$_POST['p_jrn_deb_max_line'] )
$l_deb_max_line=1;
else
$l_deb_max_line=$_POST['p_jrn_deb_max_line'];
$p_jrn_name=$_POST["p_jrn_name"];
echo_debug('jrn_add.php',__LINE__,"nom journal $p_jrn_name");
$p_jrn_class_deb=FormatString($_POST["p_jrn_class_deb"]);
if (strlen(trim($p_jrn_name))==0) return;
// compute the jrn_def.jrn_def_code
$p_code=sprintf("%s-%02d",trim($_POST['p_jrn_type']),Acc_Ledger::next_number($cn,$_POST['p_jrn_type']));
$p_jrn_fiche_deb="";
$p_jrn_fiche_cred="";
if ( isset ($_POST["FICHEDEB"])) {
$p_jrn_fiche_deb=join(",",$_POST["FICHEDEB"]);
}
if ( isset ($_POST["FICHEDEB"])) {
$p_jrn_fiche_cred=join(",",$_POST["FICHEDEB"]);
}
$l_cred_max_line=$l_deb_max_line;
StartSql($cn);
$Sql="insert into jrn_def(jrn_def_name,jrn_def_class_deb,jrn_def_class_cred,jrn_deb_max_line,jrn_cred_max_line,
jrn_def_type,jrn_def_fiche_deb,jrn_def_fiche_cred,jrn_def_code,jrn_def_pj_pref)
values ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10)";
$sql_array=array(
$p_jrn_name,$p_jrn_class_deb,$p_jrn_class_deb,
$l_deb_max_line,$l_cred_max_line,$_POST['p_jrn_type'],
$p_jrn_fiche_deb,$p_jrn_fiche_cred,
$p_code,$_POST['jrn_def_pj_pref']);
$Res=ExecSqlParam($cn,$Sql,$sql_array);
$ledger_id=GetSequence($cn,'s_jrn_def');
$Res=create_sequence($cn,'s_jrn_pj'.$ledger_id);
AlterSequence($cn,'s_jrn_pj'.$ledger_id,$_POST['jrn_def_pj_seq']);
Commit($cn);
}
}
echo '';
exit();
}
echo '';
$sessid=$_REQUEST['PHPSESSID'];
echo '';
/* widget for searching an account */
$wSearch=new widget('js_search_poste_only');
$wSearch->extra="p_jrn_class_deb";
$wSearch->extra2='jrn';
$wJrn=new widget('text');
$wJrn->name='p_jrn_class_deb';
$wJrn->size=40;
$wJrn->value='';
$search=$wJrn->IOValue().$wSearch->IOValue();
/* construct all the hidden */
$hidden= widget::hidden('p_jrn',0);
$hidden.= widget::hidden('p_action','jrn');
$hidden.= widget::hidden('sa','add');
$hidden.= dossier::hidden();
$hidden.=widget::hidden('p_jrn_deb_max_line',10);
$hidden.=widget::hidden('p_ech_lib','echeance');
/* properties of the ledger */
$name="";
$code="";
$wType=new widget('select');
$wType->value=make_array($cn,'select jrn_type_id,jrn_desc from jrn_type');
$wType->name="p_jrn_type";
$type=$wType->IOValue();
$rcred=$rdeb=array();
$wPjPref=new widget('text');
$wPjPref->name='jrn_def_pj_pref';
$pj_pref=$wPjPref->IOValue();
$wPjSeq=new widget('text');
$wPjSeq->value=0;
$wPjSeq->name='jrn_def_pj_seq';
$pj_seq=$wPjSeq->IOValue();
echo '';
echo "
";
html_page_stop();
?>