Check();
$User->check_dossier($gDossier);
include_once("check_priv.php");
$User->can_request(PARJRN);
// Javascript
echo JS_SEARCH_POSTE;
if ( isset( $_REQUEST['p_jrn'] )) {
$p_jrn=$_REQUEST['p_jrn'];
} else {
echo 'Journal inexistant
';
exit();
}
//--------------------------------------------------
// remove ledger
//--------------------------------------------------
if ( isset($_POST["efface"])) {
if ( CountSql($cn,"select * from jrn where jr_def_id=".$_POST['p_jrn']." limit 3") == 0 )
{
ExecSqlParam($cn,"delete from jrn_def where jrn_def_id=$1",array($_POST['p_jrn']));
} else { echo '
';
}
}
//--------------------------------------------------
// Update ledger
If ( isset ($_POST["update"] )) {
if ( !isset($_POST["p_jrn_name"]) ) {
echo ' Un paramètre manque
';
}
else {
if ( isset ($_POST['p_ech']) && $_POST['p_ech'] == 'no' ) {
$p_ech='false';
$p_ech_lib='null';
} else {
$p_ech='true';
$p_ech_lib="'".$_POST['p_ech_lib']."'";
}
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'] ||
$_POST['p_jrn_deb_max_line'] <= 0
)
$l_deb_max_line=1;
else
$l_deb_max_line=$_POST['p_jrn_deb_max_line'];
$l_cred_max_line=$l_deb_max_line;
$p_jrn_name=$_POST['p_jrn_name'];
if (strlen(trim($p_jrn_name))==0) return;
$p_jrn_name=FormatString($p_jrn_name);
$p_jrn_fiche_deb="";
$p_jrn_fiche_cred="";
if ( isset ($_POST["FICHEDEB"])) {
$p_jrn_fiche_deb=join(",",$_POST["FICHEDEB"]);
}
if ( isset ($_POST["FICHECRED"])) {
$p_jrn_fiche_cred=join(",",$_POST["FICHECRED"]);
}
$Sql="update jrn_def set jrn_def_name=$1,jrn_def_class_deb=$2,jrn_def_class_cred=$3,
jrn_deb_max_line=$4,jrn_cred_max_line=$5,jrn_def_ech=$6,jrn_def_ech_lib=$7,jrn_def_fiche_deb=$8,
jrn_def_fiche_cred=$9, jrn_def_pj_pref=upper($10)
where jrn_def_id=$11";
$sql_array=array(
$p_jrn_name,$_POST['p_jrn_class_deb'],$_POST['p_jrn_class_deb'],
$l_deb_max_line,$l_cred_max_line,
$p_ech,$p_ech_lib,
$p_jrn_fiche_deb,$p_jrn_fiche_cred,
$_POST['jrn_def_pj_pref'],
$_GET['p_jrn']
);
echo_debug($Sql);
$Res=ExecSqlParam($cn,$Sql,$sql_array);
$Res=AlterSequence($cn,"s_jrn_pj".$_GET['p_jrn'],$_POST['jrn_def_pj_seq']);
}
}
echo '';
?>
get_propertie();
$type=$prop['jrn_def_type'];
$name=$prop['jrn_def_name'];
$code=$prop['jrn_def_code'];
/* 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=$prop['jrn_def_class_deb'];
$search=$wJrn->IOValue().$wSearch->IOValue();
$wPjPref=new widget('text');
$wPjPref->name='jrn_def_pj_pref';
$wPjPref->value=$prop['jrn_def_pj_pref'];
$pj_pref=$wPjPref->IOValue();
$wPjSeq=new widget('text');
$wPjSeq->value=$Ledger->get_last_pj();
$wPjSeq->name='jrn_def_pj_seq';
$pj_seq=$wPjSeq->IOValue();
$name=$l_line['jrn_def_name'];
/* construct all the hidden */
$hidden= widget::hidden('p_jrn',$_GET['p_jrn']);
$hidden.= widget::hidden('p_action','jrn');
$hidden.= widget::hidden('sa','detail');
$hidden.= dossier::hidden();
$hidden.=widget::hidden('p_jrn_deb_max_line',10);
$hidden.=widget::hidden('p_ech_lib','echeance');
/* Load the card */
$card=$Ledger->get_fiche_def();
$rdeb=split(',',$card['deb']);
$rcred=split(',',$card['cred']);
echo '';
echo '';
echo "
";
html_page_stop();
?>