Base de donnée ".domaine."dossier".$_POST['FMOD_DBID']." est accèdée, déconnectez-vous en d'abord";
exit;
}
}
}// if $mod_name != null
$cn_mod=dbconnect($l_id,'mod');
// Clean some tables
$Res=ExecSql($cn_mod,"select distinct jr_pj from jrn where jr_pj is not null ");
if ( pg_NumRows($Res) != 0 )
{
$a_lob=pg_fetch_all($Res);
foreach ($a_lob as $lob)
pg_lo_unlink($cn_mod,$lob['loid']);
}
$Res=ExecSql($cn_mod,"truncate table quant_sold");
$Res=ExecSql($cn_mod,"truncate table quant_purchase");
$Res=ExecSql($cn_mod,"truncate table centralized");
$Res=ExecSql($cn_mod,"truncate table stock_goods");
$Res=ExecSql($cn_mod,"truncate table jrn");
$Res=ExecSql($cn_mod,"delete from jrnx");
// TODO
// Nettoyage table quant_*
$Res=ExecSql($cn_mod,"truncate table jrn_rapt");
$Res=ExecSql($cn_mod,"truncate table import_tmp");
// Reset the closed periode
$Res=ExecSql($cn_mod,"update parm_periode set p_closed='f'");
// Reset Sequence
$a_seq=array('s_jrn','s_jrn_op','s_centralized','s_stock_goods');
foreach ($a_seq as $seq ) {
$sql=sprintf("select setval('%s',1,false)",$seq);
$Res=ExecSql($cn_mod,$sql);
}
$sql="select jrn_def_id from jrn_def ";
$Res=ExecSql($cn_mod,$sql);
$Max=pg_NumRows($Res);
for ($seq=0;$seq<$Max;$seq++) {
$row=pg_fetch_array($Res,$seq);
/* if seq doesn't exist create it */
if ( exist_sequence($cn_mod,'s_jrn_'.$row['jrn_def_id']) == false ) {
create_sequence($cn_mod,'s_jrn_'.$row['jrn_def_id']);
}
$sql=sprintf ("select setval('s_jrn_%d',1,false)",$row['jrn_def_id']);
ExecSql($cn_mod,$sql);
}
//---
// Cleaning Action
//--
if ( isset($_POST['DOC'] ))
{
$Res=ExecSql($cn_mod,"delete from action_gestion");
$Res=ExecSql($cn_mod,"delete from document");
// Remove lob file
$Res=ExecSql($cn_mod,"select distinct loid from pg_largeobject");
if ( pg_NumRows($Res) != 0 )
{
$a_lob=pg_fetch_all($Res);
//var_dump($a_lob);
foreach ($a_lob as $lob) {
pg_lo_unlink($cn_mod,$lob['loid']);
}
}
}
if ( isset($_POST['CARD']))
{
$Res=ExecSql($cn_mod,"delete from attr_value");
$Res=ExecSql($cn_mod,"delete from jnt_fic_att_value");
$Res=ExecSql($cn_mod,"delete from fiche");
$Res=ExecSql($cn_mod,"delete from action_gestion");
$Res=ExecSql($cn_mod,"delete from document");
// Remove lob file
$Res=ExecSql($cn_mod,"select distinct loid from pg_largeobject");
if ( pg_NumRows($Res) != 0 )
{
$a_lob=pg_fetch_all($Res);
foreach ($a_lob as $lob)
pg_lo_unlink($cn_mod,$lob['loid']);
}
}
}
// Show all available templates
$Res=ExecSql($cn,"select mod_id,mod_name,mod_desc from
modeledef order by mod_name");
$count=pg_NumRows($Res);
if ( $count == 0 ) {
echo "No template available";
} else {
echo "
Modèles
";
echo '
';
echo "
Nom
".
"
Description
".
"
".
"
";
for ($i=0;$i<$count;$i++) {
$mod=pg_fetch_array($Res,$i);
printf('
'.
'
%s
'.
'
%s
'.
'
'.
' '.
'
'.
'
',
$mod['mod_name'],
$mod['mod_desc']);
}// for
echo "
";
}// if count = 0
echo "Si vous voulez récupérer toutes les adaptations d'un dossier ".
" dans un autre dossier, vous pouvez en faire un modèle.".
" Seules les fiches, la structure des journaux, les périodes,... seront reprises ".
"et aucune donnée du dossier sur lequel le dossier est basé.";
// Show All available folder
$Res=ExecSql($cn,"select dos_id, dos_name,dos_description from ac_dossier
order by dos_name");
$count=pg_NumRows($Res);
$available="";
if ( $count != 0 ) {
$available='';
}//if count !=0
?>