Check(); include_once ("top_menu_compta.php"); include_once ("check_priv.php"); ShowMenuCompta($g_dossier,$g_UserProperty); if ( $g_UserProperty['use_admin'] == 0 ) { $r=CheckAction($g_dossier,$g_user,MPCMN); if ($r == 0 ){ /* Cannot Access */ NoAccess(); exit -1; } } /* Store the p_start parameter */ if ( isset ($g_start) ) { echo_debug(__FILE__,__LINE__,"g_start is defined [ $g_start ]"); } if ( ! isset ( $g_start) ) { $g_start=""; } if ( isset ($p_start)) { echo_debug(__FILE__,__LINE__,"PCMN p_start : $p_start"); echo_debug(__FILE__,__LINE__,"p_start[$p_start] and g_start don't exist"); session_register("g_start"); $g_start=$p_start; } ShowMenuPcmn($g_start); $cn=DbConnect($g_dossier); echo '
'; /* Analyse ce qui est demandé */ /* Effacement d'une ligne */ if (isset ($action)) { if ( $action=="del" ) { if ( isset ($l) ) { /* Ligne a enfant*/ $R=ExecSql($cn,"select pcm_val from tmp_pcmn where pcm_val_parent=$l"); if ( pg_NumRows($R) != 0 ) { echo ""; } else { /* Vérifier que le poste n'est pas utilisé qq part dans les journaux */ $Res=ExecSql($cn,"select * from jrnx where j_poste=$l"); if ( pg_NumRows($R) != 0 ) { echo ""; } else { $Del=ExecSql($cn,"delete from tmp_pcmn where pcm_val=$l"); } // if pg_NumRows } // if pg_NumRows } // isset ($l) } //$action == del } // isset action /* Ajout d'une ligne */ if ( isset ( $_POST["Add"] ) ) { if ( isset ( $p_val) && isset ( $p_lib ) ) { $p_val=trim($p_val); $p_lib=trim($p_lib); $p_parent=$_POST["p_parent"]; if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 ) { if (strlen ($p_val) == 1 ) { $p_parent=0; } else { if ( strlen(trim($p_parent))==0 && (string) $p_parent != (string)(int) $p_parent) { $p_parent=substr($p_val,0,strlen($p_val)-1); } echo_debug(__FILE__,__LINE__,"Ajout valeur = $p_val parent = $p_parent"); } /* Parent existe */ $Ret=ExecSql($cn,"select pcm_val from tmp_pcmn where pcm_val=$p_parent"); if ( pg_NumRows($Ret) == 0 ) { echo ''; } else { $Ret=ExecSql($cn,"insert into tmp_pcmn (pcm_val,pcm_lib,pcm_val_parent) values ('$p_val','$p_lib',$p_parent)"); } } else { echo '

Valeurs invalides

'; } } } /* Modif d'une ligne */ if ( isset ($_POST["update"] ) ) { foreach ($HTTP_POST_VARS as $name => $element) { echo_debug(__FILE__,__LINE__,"name $name $element"); } $p_val=trim($_POST["p_val"]); $p_lib=FormatString($_POST["p_name"]); $p_parent=trim($_POST["p_val_parent"]); $old_line=trim($_POST["p_old"]); echo_debug(__FILE__,__LINE__,"Update old : $old_line News = $p_val $p_lib"); if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 && strlen($old_line)!=0 ) { if (strlen ($p_val) == 1 ) { $p_parent=0; } else { if ( strlen($p_parent)==0 ) { $p_parent=substr($p_val,0,strlen($p_val)-1); echo_debug(__FILE__,__LINE__,"Modif valeur = $p_val parent = $p_parent"); } } /* Parent existe */ $Ret=ExecSql($cn,"select pcm_val from tmp_pcmn where pcm_val=$p_parent"); if ( pg_NumRows($Ret) == 0 || $p_parent==$old_line ) { echo ''; } else { $Ret=ExecSql($cn,"update tmp_pcmn set pcm_val=$p_val, pcm_lib='$p_lib',pcm_val_parent=$p_parent where pcm_val=$old_line"); } } else { echo ''; } } $Ret=ExecSql($cn,"select pcm_val,pcm_lib,pcm_val_parent from tmp_pcmn where substr(pcm_val::text,1,1)='$g_start' order by pcm_val::text"); $MaxRow=pg_NumRows($Ret); ?> '; } else { $td=' $td"; echo $A['pcm_val']; echo " $td"; printf ("",$A['pcm_val'],urlencode($A['pcm_lib']),$A['pcm_val_parent']); echo $A['pcm_lib']; echo ''; echo ""; echo $td; echo $A['pcm_val_parent']; echo ''; echo $td; printf ('Delete',$A['pcm_val']); echo ""; echo ""; } echo ""; html_page_stop(); ?>
Classe Libellé Parent
'; } echo "