$e) { ${"e_$n"}= $e; } } /* Get Jrn's properties */ $l_line=GetJrnProp($p_dossier,$p_jrn); if ( $l_line == null ) return; echo '
'; printf ('

%s %s

',$l_line['jrn_def_name'],$l_line['jrn_def_code']); echo '
'; echo ""; echo ""; // Date echeance - paiement if ( $l_line['jrn_def_ech'] == 't' ) { echo $l_line['jrn_def_ech_lib'].''; } echo '
'; echo 'Date : '; echo '

débit

'; // Chargement comptes disponibles if ( strlen(trim ($l_line['jrn_def_class_deb']) ) > 0 ) { $valid_deb=split(" ",$l_line['jrn_def_class_deb']); // Creation query $SqlDeb="select pcm_val,pcm_lib from tmp_pcmn where "; foreach ( $valid_deb as $item_deb) { if ( strlen (trim($item_deb))) { echo_debug("l_line[jrn_def_class_deb] $l_line[jrn_def_class_deb] item_deb $item_deb"); if ( strstr($item_deb,"*") == true ) { $item_deb=strtr($item_deb,"*","%"); $Sql=" pcm_val like '$item_deb' or"; } else { $Sql=" pcm_val = '$item_deb' or"; } $SqlDeb=$SqlDeb.$Sql; } } $SqlDeb = substr($SqlDeb,0,strlen($SqlDeb)-2)." order by pcm_val::text"; } else { $SqlDeb="select pcm_val,pcm_lib from tmp_pcmn order by pcm_val::text"; } echo_debug("SqlDeb $SqlDeb"); $Res=ExecSql($cn,$SqlDeb); $Count=pg_NumRows($Res); for ( $i=0;$i<$Count;$i++) { $l2_line=pg_fetch_array($Res,$i); $lib=substr($l2_line['pcm_lib'],0,35); $poste [$l2_line['pcm_val']]= $lib; } echo ""; for ( $i=0;$i < $p_MaxDeb;$i++) { echo ""; echo "'); printf('', $i, ${"e_text_deb$i"}); printf('', $i,$i,${"e_mont_deb$i"},$i); echo ""; } if ( $p_update == 0 ) echo ""; echo "
"; printf ('"; printf (' Montant :
"; echo '
'; echo '
'; echo '

crédit

'; // Chargement comptes disponibles if ( strlen(trim ($l_line['jrn_def_class_cred']) ) > 0 ) { $valid_cred=split(" ",$l_line['jrn_def_class_cred']); // Creation query $SqlCred="select pcm_val,pcm_lib from tmp_pcmn where "; foreach ( $valid_cred as $item_cred) { if ( strlen (trim($item_cred))) { echo_debug("l_line[jrn_def_class_cred] $l_line[jrn_def_class_cred] item_cred $item_cred"); if ( strstr($item_cred,"*") == true ) { $item_cred=strtr($item_cred,"*","%"); $Sql=" pcm_val like '$item_cred' or"; } else { $Sql=" pcm_val = '$item_cred' or"; } $SqlCred=$SqlCred.$Sql; } } $SqlCred = substr($SqlCred,0,strlen($SqlCred)-2)." order by pcm_val::text" ; } else { $SqlCred="select pcm_val,pcm_lib from tmp_pcmn order by pcm_val::text"; } echo_debug("SqlCred $SqlCred"); $Res=ExecSql($cn,$SqlCred); $Count=pg_NumRows($Res); echo ""; for ( $i=0;$i<$Count;$i++) { $l2_line=pg_fetch_array($Res,$i); $lib=substr($l2_line['pcm_lib'],0,35); $poste_c[$l2_line['pcm_val']]=$lib; } for ( $i=0;$i < $p_MaxCred;$i++) { echo ""; echo ""; printf('', $i, ${"e_text_cred$i"}); printf ('', $i,$i,${"e_mont_cred$i"}); echo ""; } echo ""; if ( isset ($_GET["PHPSESSID"]) ) { $sessid=$_GET["PHPSESSID"]; } else { $sessid=$_POST["PHPSESSID"]; } $search='"; echo_debug("search $search"); // To avoid problem with unknown variable if ( ! isset ($e_rapt) ) { $e_rapt=""; } echo ''; echo "
"; printf ('"; echo " Montant :
rapprochement : '.$search.'
"; echo '
'; // To avoid problem with unknown variable if ( ! isset ($e_comment) ) { $e_comment=""; } echo ''; echo $e_comment; echo ""; if ( $p_update==0) { echo ''; } else { echo ''; } echo ''; // echo ''; // To avoid problem with unknown variable if ( ! isset ($e_sum_deb) ) { $e_sum_deb=0; } // To avoid problem with unknown variable if ( ! isset ($e_sum_cred) ) { $e_sum_cred=0; } echo ''; echo ''; echo ''; echo ""; echo '
'; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function UpdateJrn($p_dossier,$p_jrn,$p_MaxDeb,$p_MaxCred,$p_array) { include_once("postgres.php"); echo_debug("function UpdateJrn($p_dossier,$p_jrn,$p_MaxDeb,$p_MaxCred,$p_array)"); foreach ( $p_array as $n=>$e) { ${"e_$n"}= $e; echo_debug("e_$n= $e"); } /* Get Jrn's properties */ $l_line=GetJrnProp($p_dossier,$p_jrn); if ( $l_line == null ) return; $l_dossier=sprintf("dossier%d",$p_dossier); $cn=DbConnect($l_dossier); echo '
'; printf ('

%s (%s)

',$l_line['jrn_def_name'],$l_line['jrn_def_code']); echo '
'; echo ""; echo ""; echo ""; // Date echeance - paiement if ( $l_line['jrn_def_ech'] == 't' ) { echo $l_line['jrn_def_ech_lib'].''; } echo '
'; echo '

débit

'; // Chargement comptes disponibles if ( strlen(trim ($l_line['jrn_def_class_deb']) ) > 0 ) { $valid_deb=split(" ",$l_line['jrn_def_class_deb']); // Creation query $SqlDeb="select pcm_val,pcm_lib from tmp_pcmn where "; foreach ( $valid_deb as $item_deb) { if ( strlen (trim($item_deb))) { echo_debug("l_line[jrn_def_class_deb] $l_line[jrn_def_class_deb] item_deb $item_deb"); if ( strstr($item_deb,"*") == true ) { $item_deb=strtr($item_deb,"*","%"); $Sql=" pcm_val like '$item_deb' or"; } else { $Sql=" pcm_val = '$item_deb' or"; } $SqlDeb=$SqlDeb.$Sql; } } $SqlDeb = substr($SqlDeb,0,strlen($SqlDeb)-2)." order by pcm_val::text"; } else { $SqlDeb="select pcm_val,pcm_lib from tmp_pcmn order by pcm_val::text"; } echo_debug("SqlDeb $SqlDeb"); $Res=ExecSql($cn,$SqlDeb); $Count=pg_NumRows($Res); for ( $i=0;$i<$Count;$i++) { $l2_line=pg_fetch_array($Res,$i); $lib=substr($l2_line['pcm_lib'],0,35); $poste [$l2_line['pcm_val']]= $lib; } echo ""; echo '"; echo ""; printf('', $i, ${"e_text_deb$i"}); printf ('', $i,$i,${"e_mont_deb$i"},$i); echo ""; } echo "
Date : '; for ( $i=0;$i < $p_MaxDeb;$i++) { echo "
"; printf('', $i, ${"e_op_deb$i"}); printf ('"; echo " Montant :
"; echo '
'; echo '
'; echo '

crédit

'; // Chargement comptes disponibles if ( strlen(trim ($l_line['jrn_def_class_cred']) ) > 0 ) { $valid_cred=split(" ",$l_line['jrn_def_class_cred']); // Creation query $SqlCred="select pcm_val,pcm_lib from tmp_pcmn where "; foreach ( $valid_cred as $item_cred) { if ( strlen (trim($item_cred))) { echo_debug("l_line[jrn_def_class_cred] $l_line[jrn_def_class_cred] item_cred $item_cred"); if ( strstr($item_cred,"*") == true ) { $item_cred=strtr($item_cred,"*","%"); $Sql=" pcm_val like '$item_cred' or"; } else { $Sql=" pcm_val = '$item_cred' or"; } $SqlCred=$SqlCred.$Sql; } } $SqlCred = substr($SqlCred,0,strlen($SqlCred)-2)." order by pcm_val::text" ; } else { $SqlCred="select pcm_val,pcm_lib from tmp_pcmn order by pcm_val::text"; } echo_debug("SqlCred $SqlCred"); $Res=ExecSql($cn,$SqlCred); $Count=pg_NumRows($Res); echo ""; for ( $i=0;$i<$Count;$i++) { $l2_line=pg_fetch_array($Res,$i); $lib=substr($l2_line['pcm_lib'],0,35); $poste_c[$l2_line['pcm_val']]=$lib; } for ( $i=0;$i < $p_MaxCred;$i++) { echo ""; echo ""; if ( ! isset ( ${"e_text_cred$i"} ) ) { ${"e_text_cred$i"}=""; } printf('', $i, ${"e_text_cred$i"}); printf ('', $i,$i,${"e_mont_cred$i"}); echo ""; } if ( isset ($_GET["PHPSESSID"]) ) { $sessid=$_GET["PHPSESSID"]; } else { $sessid=$_POST["PHPSESSID"]; } $search='"; echo ''; echo "
"; printf('', $i, ${"e_op_cred$i"}); printf ('"; echo " Montant :
rapprochement : '.$search.'
"; echo '
'; echo ''; echo $e_comment; echo ""; $e_sum_deb=0; $e_sum_cred=0; echo ''; echo ''; echo ''; echo ''; echo ''; echo ""; echo '
'; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function ViewRec($p_array = null) { if ($p_array == null) { echo_debug("p_array is null"); }else { foreach ( $p_array as $n=>$e) { echo_debug("a[$n]= $e"); } } } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function CorrectRecord($p_dossier,$p_user,$p_jrn,$p_MaxDeb,$p_MaxCred,$p_array) { RecordJrn($p_dossier,$p_user,$p_jrn,$p_MaxDeb,$p_MaxCred,$p_array); } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function ViewRecord ($p_dossier,$p_jrn,$p_id,$p_MaxDeb,$p_MaxCred,$p_array) { echo_debug ("ViewRecord : $p_dossier"); echo_debug("function ViewRecord ($p_dossier,$p_jrn,$p_id,$p_MaxCred,$p_MaxDeb,$p_array)"); foreach ( $p_array as $key=>$element) { ${"e_$key"}=$element; echo_debug(" e_$key=$element;"); } // Get Jrn's Prop $l_prop=GetJrnProp($p_dossier,$p_jrn); include_once("poste.php"); if ( $l_prop == null ) return; $col_vide=""; echo ''; echo ''; echo ""; echo ""; echo ""; echo "
". $l_prop['jrn_def_name']."(".$l_prop['jrn_def_code'].") Date : $e_op_date
"; echo ""; echo ""; for ($i = 0; $i < $p_MaxDeb;$i++) { //Deb if ( strlen(trim(${"e_mont_deb$i"})) > 0 && ${"e_mont_deb$i"} > 0 ) { // $class=GetPosteLibelle($p_dossier,${"e_class_deb$i"}); $class=${"e_text_deb$i"}; echo '$col_vide$col_vide"; } } // Cred for ($i = 0; $i < $p_MaxCred;$i++) { if ( strlen(trim(${"e_mont_cred$i"})) > 0 && ${"e_mont_cred$i"} > 0 ) { //$class=GetPosteLibelle($p_dossier,${"e_class_cred$i"}); $class=${"e_text_cred$i"}; echo ''.$col_vide.'$col_vide "; } } echo ""; echo $col_vide; echo $col_vide; echo ""; echo ""; echo "
operation $p_id
'.${"e_class_deb$i"}." $class ".${"e_mont_deb$i"}."
'.${"e_class_cred$i"}." $class ".${"e_mont_cred$i"}."
Total $e_sum_deb $e_sum_cred
"; // Bouton again echo ''; echo '
'; echo ' Ajouter'; echo '
'; } /* function GetJrnProp * Purpose : Get the properties of a journal * * parm : * - p_dossier the folder id * - p_jrn the jrn id * gen : * - none * return: * - an array containing properties * */ function GetJrnProp($p_dossier,$p_jrn) { $l_dossier=sprintf("dossier%d",$p_dossier); $cn=DbConnect($l_dossier); $Res=ExecSql($cn,"select jrn_Def_id,jrn_def_name,jrn_def_class_deb,jrn_def_class_cred,jrn_def_type, jrn_deb_max_line,jrn_cred_max_line,jrn_def_ech,jrn_def_ech_lib,jrn_def_code from jrn_Def where jrn_def_id=$p_jrn"); $Count=pg_NumRows($Res); if ( $Count == 0 ) { echo '

Paramètres journaux non trouvés

'; return null; } return pg_fetch_array($Res,0); } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function GetNextId($p_cn,$p_name) { include_once("postgres.php"); $Res=ExecSql($p_cn,"select max($p_name) as result from jrnx"); echo_debug("$Res=ExecSql($p_cn,"."select max($p_name) as result from jrnx"); if (pg_NumRows($Res) == 0 ) return 0; $l_res=pg_fetch_array($Res,0); return $l_res['result']; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function GetNextJrnId($p_cn,$p_name) { include_once("postgres.php"); $Res=ExecSql($p_cn,"select max($p_name) as result from jrn "); echo_debug("$Res=ExecSql($p_cn,"."select max($p_name) as result from jrn "); if (pg_NumRows($Res) == 0 ) return 0; $l_res=pg_fetch_array($Res,0); return $l_res['result']; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function ViewJrn($p_dossier,$p_user,$p_jrn,$p_array=null) { echo_debug("function ViewJrn($p_dossier,$p_user,$p_jrn,$p_array=null) "); $db=sprintf("dossier%d",$p_dossier); $l_prop=GetJrnProp($p_dossier,$p_jrn); echo $l_prop['jrn_def_name']."( ".$l_prop['jrn_def_code'].")"; $cn=DbConnect($db); if ( $p_array == null) { include_once("preference.php"); $l_periode=GetUserPeriode($cn,$p_user); $Res=ExecSql($cn,"select j_id,jr_internal,j_text,to_char(j_date,'DD.MM.YYYY') as j_date, j_montant,j_poste,pcm_lib,j_grpt,j_rapt,j_debit,j_centralized,j_tech_per from jrnx inner join tmp_pcmn on j_poste=pcm_val inner join jrn on jr_grpt_id=j_grpt where j_jrn_def=$p_jrn and j_tech_per=$l_periode order by j_id,j_grpt,j_debit desc"); } else { // Construction Query foreach ( $p_array as $key=>$element) { ${"l_$key"}=$element; echo_debug ("l_$key $element"); } $sql="select j_id,j_text,to_char(j_date,'DD.MM.YYYY') as j_date,j_montant,j_poste,pcm_lib,j_grpt,j_rapt,j_debit,j_centralized,j_tech_per,jr_internal from jrnx inner join tmp_pcmn on j_poste=pcm_val inner join jrn on jr_grpt_id=j_grpt where j_jrn_def=$p_jrn"; $l_and="and "; if ( ereg("^[0-9]+$", $l_s_montant) || ereg ("^[0-9]+\.[0-9]+$", $l_s_montant) ) { $sql.=" and j_montant $l_mont_sel $l_s_montant"; } if ( isDate($l_date_start) != null ) { $sql.=$l_and." j_date >='".$l_date_start."'"; } if ( isDate($l_date_end) != null ) { $sql.=$l_and." j_date <='".$l_date_end."'"; } $l_s_comment=FormatString($l_s_comment); if ( $l_s_comment != null ) { $sql.=$l_and." ( upper(jr_comment) like upper('%".$l_s_comment."%') or upper(j_text) like upper('%".$l_s_comment."%'))"; } $sql.=" order by j_id,j_grpt,j_debit desc"; echo_debug ("search query is $sql"); $Res=ExecSql($cn,$sql); } $MaxLine=pg_NumRows($Res); if ( $MaxLine == 0 ) return; $col_vide=""; echo ''; $l_id=0; for ( $i=0; $i < $MaxLine; $i++) { $l_line=pg_fetch_array($Res,$i); if ( $l_line['j_debit'] == 't' ) { echo ''; } else { echo ''; } if ( $l_id == $l_line['j_grpt'] ) { echo $col_vide.$col_vide.$col_vide.$col_vide; } else { echo ""; if ( $l_line['j_centralized'] == 'f' && isClosed($cn,$l_line['j_tech_per']) == false ) { echo ""; echo '"; }else { echo ""; echo '"; echo ""; } // echo ""; $l_id=$l_line['j_grpt']; } if ( $l_line['j_debit']=='f') echo $col_vide; echo ''; if ( $l_line['j_debit']=='t') echo $col_vide; echo ''; if ( $l_line['j_debit']=='f') echo $col_vide; echo ''; if ( $l_line['j_debit']=='t') echo $col_vide; echo ""; } echo '
"; echo $l_line['j_date']; echo ""; list($z_type,$z_num,$num_op)=split("-",$l_line['jr_internal']); echo $num_op; echo "'; echo ""; echo "Modifier"; echo ""; if ( isset ($_GET["PHPSESSID"]) ) { $sessid=$_GET["PHPSESSID"]; } else { $sessid=$_POST["PHPSESSID"]; } echo ""; echo '"; echo ""; echo "'; echo $l_line['jr_internal']; echo ""; echo '"; echo "'; echo $l_line['j_poste']; echo ''; echo $l_line['j_text']; echo ''; echo $l_line['j_montant']; echo '
'; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function isClosed($p_cn,$p_period) { return false; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function GetData ($p_cn,$p_grpt) { $Res=ExecSql($p_cn,"select to_char(j_date,'DD.MM.YYYY') as j_date, j_text, j_debit, j_poste, j_montant, j_id, jr_comment, to_char(jr_date,'DD.MM.YYYY') as jr_date, jr_rapt, jr_id,jr_internal from jrnx inner join jrn on j_grpt=jr_grpt_id where j_grpt=$p_grpt"); $MaxLine=pg_NumRows($Res); if ( $MaxLine == 0 ) return null; $deb=0;$cred=0; for ( $i=0; $i < $MaxLine; $i++) { $l_line=pg_fetch_array($Res,$i); $l_array['op_date']=$l_line['j_date']; if ( $l_line['j_debit'] == 't' ) { $l_class=sprintf("class_deb%d",$deb); $l_montant=sprintf("mont_deb%d",$deb); $l_text=sprintf("text_deb%d",$deb); $l_array[$l_class]=$l_line['j_poste']; $l_array[$l_montant]=$l_line['j_montant']; $l_array[$l_text]=$l_line['j_text']; $l_id=sprintf("op_deb%d",$deb); $l_array[$l_id]=$l_line['j_id']; $deb++; } if ( $l_line['j_debit'] == 'f' ) { $l_class=sprintf("class_cred%d",$cred); $l_montant=sprintf("mont_cred%d",$cred); $l_array[$l_class]=$l_line['j_poste']; $l_array[$l_montant]=$l_line['j_montant']; $l_id=sprintf("op_cred%d",$cred); $l_array[$l_id]=$l_line['j_id']; $l_text=sprintf("text_cred%d",$deb); $l_array[$l_text]=$l_line['j_text']; $cred++; } $l_array['jr_internal']=$l_line['jr_internal']; $l_array['comment']=$l_line['jr_comment']; $l_array['ech']=$l_line['jr_date']; $l_array['rapt']=$l_line['jr_rapt']; $l_array['jr_id']=$l_line['jr_id']; } return array($l_array,$deb,$cred); } /* function * Purpose : * * parm : * - * gen : * - * return: * - -1 si aucune valeur de trouvée * */ function GetRapt($p_cn,$p_rappt) { $Res=ExecSql($p_cn,"select jr_id from jrn where jr_rapt='$p_rappt'"); if ( pg_NumRows($Res) == 0 ) return -1; $l_line=pg_fetch_array($Res); return $l_line['jr_id']; } /* function * Purpose : * * parm : * - * gen : * - * return: * - null si aucune valeur de trouvée * */ function GetInternal($p_cn,$p_id) { $Res=ExecSql($p_cn,"select jr_internal from jrn where jr_id=$p_id"); if ( pg_NumRows($Res) == 0 ) return null; $l_line=pg_fetch_array($Res); return $l_line['jr_internal']; } /* function * Purpose : * * parm : * - * gen : * - * return: * - -1 si aucune valeur de trouvée * */ function GetRaptDest($p_cn,$p_rappt) { $Res=ExecSql($p_cn,"select jr_rapt from jrn where jr_internal='$p_rappt'"); echo_debug("select jr_rapt from jrn where jr_id=$p_rappt"); if ( pg_NumRows($Res) == 0 ) return -1; $l_line=pg_fetch_array($Res); if ( strlen (trim ($l_line['jr_rapt'])) == 0 ) return -1; return $l_line['jr_rapt']; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function GetAmount($p_cn,$p_id) { $Res=ExecSql($p_cn,"select jr_montant from jrn where jr_internal='$p_id'"); if (pg_NumRows($Res)==0) return -1; $l_line=pg_fetch_array($Res,0); return $l_line['jr_montant']; } /* function * Purpose : * * parm : * - * gen : * - * return: * - * */ function VerifData($p_cn,$p_array,$p_user) { if ( ! isset ($p_cn) || ! isset ($p_array)|| ! isset ($p_user)|| $p_array == null ){ echo_error("JRN.PHP VerifData missing parameter"); return BADPARM; } // Montre ce qu'on a encodé et demande vérif $next=""; foreach ( $p_array as $name=>$element ) { echo_debug("element $name -> $element "); // Sauve les données dans des variables ${"p_$name"}=$element; } // Verif Date if ( isDate($p_op_date) == null) { return BADDATE; } // userPref contient la periode par default $userPref=GetUserPeriode($p_cn,$p_user); list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$userPref); // Date dans la periode active echo_debug ("date start periode $l_date_start date fin periode $l_date_end date demandée $p_op_date"); if ( cmpDate($p_op_date,$l_date_start)<0 || cmpDate($p_op_date,$l_date_end)>0 ) { return NOTPERIODE; } // Periode fermée if ( PeriodeClosed ($p_cn,$userPref)=='t' ) { return PERIODCLOSED; } $l_mont=0; if ( ! isset ($p_ech) ) $p_ech=""; if ($p_ech!='' && isDate ( $p_ech) == null ){ return INVALID_ECH; } $tot_deb= 0; $tot_cred= 0; for ( $i = 0; $i < $p_MaxCred; $i++) { if ( isset ( ${"p_mont_cred$i"} )) $tot_cred+=${"p_mont_cred$i"}; } for ( $i = 0; $i < $p_MaxDeb; $i++) { if ( isset ( ${"p_mont_deb$i"} )) $tot_deb+=${"p_mont_deb$i"}; } echo_debug("Amont = $tot_deb $tot_cred"); if ( round($tot_deb,2) != round($tot_cred,2) ) { return DIFF_AMOUNT; } $l_dest=-1; // Rapprochement demandé et vérif if ( strlen(trim($p_rapt)) != 0 ){ $l_dest=GetRapt($p_cn,$p_rapt); if ( $l_dest != -1 && $l_dest != $p_jr_id ) { return RAPPT_ALREADY_USED; } // Get Amount $l_mont=GetAmount($p_cn,$p_rapt); echo_debug ("amount = $tot_deb $l_mont"); if ( $l_mont == -1 ) { return RAPPT_NOT_EXIST; } if ( $tot_deb != $l_mont) { return RAPPT_NOMATCH_AMOUNT; } } return NOERROR; } /* function GetJrnName * Purpose : Return the name of the jrn * * parm : * - p_cn connexion resource * - jrn id * gen : * - none * return: * - string or null if not found * */ function GetJrnName($p_cn,$p_id) { $Res=ExecSql($p_cn,"select jrn_def_name from ". " jrn_def where jrn_def_id=". $p_id); $Max=pg_NumRows($Res); if ($Max==0) return null; $ret=pg_fetch_array($Res,0); return $ret['jrn_def_name']; } /* function NextJrn * Purpose : * Get the number of the next jrn * from the jrn_def.jrn_code * * parm : * - $p_cn connection * - $p_type jrn type * gen : * - none * return: * - string containing the next code * */ function NextJrn($p_cn,$p_type) { $Ret=CountSql($p_cn,"select * from jrn_def where jrn_def_type='".$p_type."'"); return $Ret+1; } /* function SetInternalCode * Purpose : * * parm : * - $p_cn connection * - $p_id id in jr_id * - $p_jrn jrn id jrn_def_id * - $p_dossier dossier id * gen : * - * return: * - * */ function SetInternalCode($p_cn,$p_id,$p_jrn,$p_dossier) { $num=CountSql($p_cn,"select * from jrn where jr_def_id=$p_jrn"); $atype=GetJrnProp($p_dossier,$p_jrn); $type=$atype['jrn_def_code']; $internal_code=sprintf("%s-%08d",$type,$num); $Res=ExecSql($p_cn,"update jrn set jr_internal='".$internal_code."' where ". " jr_id = ".$p_id); return $internal_code; } ?>