Vous n\' avez pas accès';
return;
}
}
function get_list_fiche($p_cn,$get,$p_jrn)
{
$sql="select $get as fiche from jrn_def where jrn_def_id=$p_jrn";
$Res=ExecSql($p_cn,$sql);
// fetch it
$Max=pg_NumRows($Res);
if ( $Max==0) {
echo_warning("No rows");
exit();
}
// Normally Max must be == 1
$list=pg_fetch_array($Res,0);
if ( $list['fiche']=="") {
echo_warning("Journal mal paramètré");
exit();
}
$list_fiche=$list['fiche'];
return $list_fiche;
}
?>
$element) {
// The value are e_name e_type e_PHPSESSID
${"e_$key"}=$element;
echo_debug("e_$key =$element ");
}
$e_fic_search=(isset ($_POST['fic_search']))?$_POST['fic_search']:"";
$r.="";
$r.="
";
echo $r;
$r="";
// Show result of the search
if ( isset ( $_POST['search']) ) {
// Get the field from database
if ( $e_type == 'deb' ) {
$get='jrn_def_fiche_deb';
$list_fiche=get_list_fiche($cn,$get,$g_jrn);
$sql="select * from vw_fiche_attr where fd_id in ( $list_fiche )";
}
if ( $e_type == 'cred' ) {
$get='jrn_def_fiche_cred';
$list_fiche=get_list_fiche($cn,$get,$g_jrn);
$sql="select * from vw_fiche_attr where fd_id in ( $list_fiche )";
}
// if e_type contains a list of value
if ( $e_type != 'cred' and $e_type != 'deb') {
$list_fiche=$e_type;
$sql="select * from vw_fiche_attr where frd_id in ( $list_fiche )";
}
// e_fic_search contains the pattern
if (strlen(trim($e_fic_search) ) == 0 ) {
$Res=ExecSql($cn,$sql);
} else {
$Res=ExecSql($cn,"$sql and upper(vw_name) like upper('%$e_fic_search%')");
}
// Test whether rows are returned
if ( ($Max = pg_NumRows($Res) ) == 0 ) {
echo_warning("Pas de fiche trouvée");
return;
}
// Show the cards
for ( $i=0; $i < $Max; $i++) {
$row=pg_fetch_array($Res,$i);
if ( $i %2 == 0 )
$class="even";
else
$class="odd";
$text=FormatString($row['vw_name']);
$r.="";
$r.=sprintf ('',
$e_name,
$row['f_id'] ,
$text,
$row['vw_sell'],
$row['vw_buy'],
$row['tva_id'],
$row['tva_label']
);
$r.= $row['vw_name'].$row['vw_addr'].$row['vw_cp'];
$r.="";
}
}
$r.="