';
echo '';
echo '';
/* Get MaxLine */
include_once("poste.php");
include_once ("top_menu_compta.php");
ShowMenuCompta($g_dossier);
ShowMenuComptaRight($g_dossier);
if ( CheckAdmin() == 0 ) {
$r=CheckAction($g_dossier,$user,ENCJRN);
if ($r == 0 ){
/* Cannot Access */
NoAccess();
}
$right=CheckJrn($g_dossier,$user,$g_jrn);
if ($right == 0 ){
/* Cannot Access */
NoAccess();
exit -1;
}
}
ShowMenuJrnUser($g_dossier,$user);
if ( isset ( $_GET["action"] )) {
if ( $_GET["action"] == "view" ) {
ShowMenuRecherche($g_dossier,$g_jrn);
echo '';
ViewJrn($g_dossier,$user,$g_jrn);
echo '
';
}
if ( $_GET["action"] == "record" ) {
if ( CheckJrn($g_dossier,$user,$g_jrn) < 2 ) {
NoAccess();
exit -1;
}
echo_debug("record");
$max_deb=$_GET["max_deb"];
$max_cred=$_GET["max_cred"];
RecordJrn($g_dossier,$user,$g_jrn,$max_deb,$max_cred);
}
if ($_GET["action"]=="update" ) {
if ( CheckJrn($g_dossier,$user,$g_jrn) < 2 ) {
NoAccess();
exit -1;
}
$p_id=$_GET["line"];
list($l_array,$max_deb,$max_cred)=GetData($cn,$p_id);
foreach ($l_array as $key => $element) {
echo_debug("update $key $element");
}
UpdateJrn($g_dossier,$g_jrn,$max_deb,$max_cred,$l_array);
}
}
?>
';
foreach ( $HTTP_POST_VARS as $key=>$element) {
${"p_$key"}=$element;
}
$p_MaxDeb+=2;
echo "";
CorrectRecord($g_dossier,$user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
echo_debug("CorrectRecord($g_dossier,$user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);");
}
if ( isset ($_POST['add_line_cred']) ) {
echo '';
foreach ( $HTTP_POST_VARS as $key=>$element) {
${"p_$key"}=$element;
}
$p_MaxCred+=2;
echo "
";
CorrectRecord($g_dossier,$user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
echo_debug("CorrectRecord($g_dossier,$user,$g_jrn,$p_MaxDeb,$p_MaxCred+10,$HTTP_POST_VARS);");
}
if ( isset ($_POST['viewsearch']) ) {
reset($HTTP_POST_VARS);
ShowMenuRecherche($g_dossier,$g_jrn,$HTTP_POST_VARS);
echo '';
ViewJrn($g_dossier,$user,$g_jrn,$HTTP_POST_VARS);
echo '
';
}
if ( isset($_POST['add_record']) ) {
echo '';
foreach ( $HTTP_POST_VARS as $name=>$element ) {
echo_debug("element $name -> $element ");
// Sauve les données dans des variables
${"p_$name"}=$element;
}
$result=VerifData($cn,$HTTP_POST_VARS,$user);
switch( $result) {
case NOERROR:
break;
case BADPARM:
break;
case BADDATE:
echo "";
break;
case NOTPERIODE:
echo "";
break;
case PERIODCLOSED:
echo "";
break;
case INVALID_ECH:
echo "";
break;
case RAPPT_ALREADY_USED:
echo '";
break;
case RAPPT_NOT_EXIST:
echo '";
break;
case DIFF_AMOUNT:
echo "";
break;
case RAPPT_NOMATCH_AMOUNT:
echo '";
break;
}
if ($result != NOERROR) {
echo "
";
CorrectRecord($g_dossier,$user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
return;
}
$Res=StartSql($cn);
$userPref=GetUserPeriode($cn,$user);
$seq=GetNextId($cn,'j_grpt')+1;
$s_op=GetNextId($cn,'j_id')+1;
$tot_cred=0;
$tot_deb=0;
//debit
for ( $i = 0; $i < $p_MaxDeb; $i++) {
$montant=${"p_mont_deb$i"};
$l_class=${"p_class_deb$i"};
if ( strlen(trim($montant)) != 0 && $montant != 0) {
$p_text=(FormatString(${"p_text_deb$i"})==null)?FormatString(GetPosteLibelle($g_dossier,$l_class)):FormatString(${"p_text_deb$i"});
$Sql="insert into jrnx(j_id,j_date,j_montant,j_text,j_poste,j_grpt,
j_jrn_def,j_debit,j_tech_user,j_tech_per)
values ( $s_op,to_date('$p_op_date','DD.MM.YYYY'), ".$montant.",'$p_text',
$l_class,$seq,
$g_jrn,true,'$user',$userPref)";
echo_debug("sql $Sql");
$s_op++;
$tot_deb+=$montant;
$Res=ExecSql($cn,$Sql);
if ( $Res == false ) { Rollback($cn); EndSql($cn); return;}
}
}
for ( $i = 0; $i < $p_MaxCred; $i++) {
$montant=${"p_mont_cred$i"};
$l_class=${"p_class_cred$i"};
if ( strlen(trim($montant)) != 0 && $montant != 0) {
$p_text=(FormatString(${"p_text_cred$i"})==null)?FormatString(GetPosteLibelle($g_dossier,$l_class)):FormatString(${"p_text_cred$i"});
$Sql="insert into jrnx(j_id,j_date,j_montant,j_text,j_poste,j_grpt,
j_jrn_def,j_debit,j_tech_user,j_tech_per)
values ( $s_op,to_date('$p_op_date','DD.MM.YYYY'), $montant,'$p_text',
$l_class,$seq,
$g_jrn,false,'$user',$userPref)";
echo_debug("sql $Sql");
$s_op++;
$tot_cred+=$montant;
$Res=ExecSql($cn,$Sql);
if ( $Res == false ) { Rollback($cn); EndSql($cn); break;}
}
}
// si rappt
if ( trim($p_rapt) != '' ) {
$jrn_id=GetNextJrnId($cn,'jr_id')+1;
$l_date=isDate($p_ech);
if ( $l_date == null) {
$p_ech='null';
} else {
$p_ech="to_date('".$p_ech."','DD.MM.YYYY')";
}
$comment=FormatString($p_comment);
$Sql=sprintf("insert into jrn(jr_id,jr_def_id,jr_comment,jr_date,jr_grpt_id,
jr_rapt,jr_montant,jr_tech_per) values(%s,%s,'%s',%s,%d,'%s',%f,%d)",
$jrn_id,
$g_jrn,
$comment,
$p_ech,
$seq,
$p_rapt, $tot_deb,
$userPref);
echo_debug($Sql);
$Res=ExecSql($cn,$Sql);
// $l_dest=GetRaptDest($cn,$p_rapt);
if ($Res)
$internal=SetInternalCode($cn,$jrn_id,$g_jrn,$g_dossier);
$sql=sprintf("update jrn set jr_rapt='%s' where jr_internal='%s'",$internal,$p_rapt);
echo_debug("add $sql");
$Res=ExecSql($cn,$sql);
} else {
$jrn_id=GetNextJrnId($cn,'jr_id')+1;
if ( ! isset ($p_ech) ) $p_ech="";
$l_date=isDate($p_ech);
if ( $l_date == null) {
$p_ech='null';
} else {
$p_ech="to_char('".$l_date."','DD.MM.YYYY')";
}
$comment=FormatString($p_comment);
$Sql=sprintf("insert into jrn(jr_id,jr_def_id,jr_comment,jr_date,jr_grpt_id,
jr_montant,jr_tech_per) values(%s,%s,'%s',%s,%d,%f,%d)",
$jrn_id,
$g_jrn,
$comment,
$p_ech,
$seq,$tot_deb,$userPref);
echo_debug("Sql $Sql");
$Res=ExecSql($cn,$Sql);
if ($Res)
SetInternalCode($cn,$jrn_id,$g_jrn,$g_dossier);
}
if ( $Res) {
Commit($cn);
EndSql($cn);
// AlterSequence($cn,"s_grpt",$seq+1);
//AlterSequence($cn,"s_jrn_op",$s_op);
ViewRecord($g_dossier,$g_jrn,$seq,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
echo_debug("ViewRecord($g_dossier,$g_jrn,$seq,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);");
} else
{
Rollback($cn);
EndSql($cn);
}
} // _POST['add_record']
if ( isset($_POST['update_record']) ) {
ShowMenuRecherche($g_dossier,$g_jrn);
// Montre ce qu'on a encodé et demande vérif
echo_debug ("######## UPDATE ##############");
$l_Db=sprintf("dossier%d",$g_dossier);
$cn=DbConnect($l_Db);
echo '';
foreach ( $HTTP_POST_VARS as $name=>$element ) {
echo_debug("element $name -> $element ");
// Sauve les données dans des variables
${"p_$name"}=$element;
}
reset($HTTP_POST_VARS);
$result=VerifData($cn,$HTTP_POST_VARS,$user);
switch( $result) {
case NOERROR:
break;
case BADPARM:
break;
case BADDATE:
echo "";
break;
case NOTPERIODE:
echo "";
break;
case PERIODCLOSED:
echo "";
break;
case INVALID_ECH:
echo "";
break;
case RAPPT_ALREADY_USED:
echo '";
break;
case RAPPT_NOT_EXIST:
echo '";
break;
case DIFF_AMOUNT:
echo "";
break;
case RAPPT_NOMATCH_AMOUNT:
echo '";
break;
}
foreach ( $HTTP_POST_VARS as $name=>$element ) {
echo_debug("element $name -> $element ");
// Sauve les données dans des variables
${"p_$name"}=$element;
}
if ($result != NOERROR) {
echo "
";
UpdateJrn($g_dossier,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
return;
}
$Res=StartSql($cn);
foreach ( $HTTP_POST_VARS as $name=>$element ) {
// Sauve les données dans des variables
${"p_$name"}=$element;
echo_debug("p_name p_$name = $element");
}
$userPref=GetUserPeriode($cn,$user);
for ( $i = 0; $i < $p_MaxDeb; $i++) {
$j_id=${"p_op_deb$i"};
$montant=${"p_mont_deb$i"};
$l_class=${"p_class_deb$i"};
if ( strlen(trim($montant)) == 0) $montant=0;
$p_text=(FormatString(${"p_text_deb$i"})==null)?GetPosteLibelle($g_dossier,$l_class):FormatString(${"p_text_deb$i"});
$Sql=sprintf("update jrnx set j_montant=%f, j_poste=%d,j_tech_user='%s',j_date=to_date('%s','DD.MM.YYYY'),j_text='%s' where j_id=%d",
$montant,$l_class,$user,$p_op_date,$p_text,$j_id);
echo_debug("sql $Sql");
$Res=ExecSql($cn,$Sql);
if ( $Res == false ) { Rollback($cn); EndSql($cn); return;}
}
for ( $i = 0; $i < $p_MaxCred; $i++) {
$j_id=${"p_op_cred$i"};
$montant=${"p_mont_cred$i"};
$l_class=${"p_class_cred$i"};
if ( strlen(trim($montant)) == 0 ) $montant=0;
$p_text=(FormatString(${"p_text_cred$i"})==null)?GetPosteLibelle($g_dossier,$l_class):FormatString(${"p_text_cred$i"});
$Sql=sprintf("update jrnx set j_montant=%f,j_poste=%d,j_tech_user='%s', j_date=to_date('%s','DD.MM.YYYY'),j_text='%s' where j_id=%d",
$montant,$l_class,$user,$p_op_date,$p_text,$j_id);
echo_debug("sql $Sql");
// $s_op++;
$Res=ExecSql($cn,$Sql);
if ( $Res == false ) { Rollback($cn); EndSql($cn); return;}
}
$l_src=-1;
$l_dest=-1;
if ( strlen(trim($p_rapt)) != 0 ) {
$l_src=GetRapt($cn,$p_rapt);
$l_dest=GetRaptDest($cn,$p_rapt);
echo_debug("l_src = $l_src l_dest = $l_dest");
// if the operation match already => set rappt to null
if ( $l_src != -1 ) {
$Sql=sprintf("update jrn set jr_rapt=null where jr_internal='%s'",$l_src);
$Res=ExecSql($cn,$Sql);
}
if ( !isset ($p_ech) ) $p_ech="";
$l_date=isDate($p_ech);
if ( $l_date == null ) {
$l_date="null";
}else {
$l_date="to_date('".$_POST["ech"]."','DD.MM.YYYY')";
}
if ( FormatString( $p_rapt ) != null ) {
$comment=FormatString($_POST["comment"]);
$Sql=sprintf("update jrn set jr_comment='%s',jr_date=%s,jr_rapt='%s',".
"jr_montant=%f where
jr_id=%d",
$comment,
$l_date,
$p_rapt,
$p_sum_deb,
$p_jr_id);
$Res=ExecSql($cn,$Sql);
$current_internal=GetInternal($cn,$p_jr_id);
$Sql=sprintf("update jrn set jr_rapt='%s' where jr_internal='%s'",
$current_internal,
$p_rapt);
$Res=ExecSql($cn,$Sql);
} else {
$comment=FormatString($_POST["comment"]);
$Sql=sprintf("update jrn set jr_comment='%s',
jr_date=%s,jr_rapt=null,jr_montant=%f where jr_id=%d",
$comment,
$l_date,$tot_deb,
$p_jr_id);
$Res=ExecSql($cn,$Sql);
}
} // if strlen(p_rappt
if ($Res) {
Commit($cn);
EndSql($cn);
} else
{
Rollback($cn);
EndSql($cn);
}
ViewJrn($g_dossier,$user,$g_jrn);
} // if update_record
$l_Db=sprintf("dossier%d",$g_dossier);
$cn=DbConnect($l_Db);
?>