alert('Désolé vous devez migrer ce modèle en unicode')";
echo 'la base de donnée '.
domaine.'mod'.$_POST["FMOD_DBID"]." doit être migrée en unicode";
echo ' Pour le passer en unicode, faites-en un backup puis restaurez le fichier reçu';
echo widget::button_href('Retour','admin_repo.php?action=dossier_mgt');
exit();
}
$mod_name=FormatString($_POST["FMOD_NAME"]);
$mod_desc=FormatString($_POST["FMOD_DESC"]);
if ( $mod_name != null) {
$Res=ExecSql($cn,"insert into modeledef(mod_name,mod_desc)
values ('".$mod_name."',".
"'".$mod_desc."')");
// get the mod_id
$l_id=GetSequence($cn,'s_modid');
if ( $l_id != 0 ) {
$Sql=sprintf("CREATE DATABASE %sMOD%d encoding='UTF8' TEMPLATE %sDOSSIER%s",domaine,$l_id,domaine,$_POST["FMOD_DBID"]);
ob_start();
if ( pg_query($cn,$Sql)==false) {
ob_end_clean();
echo "
Base de donnée ".domaine."dossier".$_POST['FMOD_DBID']." est accèdée, déconnectez-vous en d'abord
";
$Res=ExecSql($cn,"delete from modeledef where mod_id=".$l_id);
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 jrn cascade");
$Res=ExecSql($cn_mod,"delete from jrnx");
$Res=ExecSql($cn_mod,"delete from del_jrn");
$Res=ExecSql($cn_mod,"delete from del_jrnx");
$Res=ExecSql($cn_mod,"delete from del_action");
$Res=ExecSql($cn_mod,'delete from operation_analytique');
// 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'");
$Res=ExecSql($cn_mod,'delete from jrn_periode');
$Res=ExecSql($cn_mod,' insert into jrn_periode(p_id,jrn_def_id,status) '.
' select p_id,jrn_def_id,\'OP\' '.
' from '.
' parm_periode cross join jrn_def');
// Reset Sequence
$a_seq=array('s_jrn','s_jrn_op','s_centralized','s_stock_goods','s_internal');
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']);
$sql=sprintf ("select setval('s_jrn_pj%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");
$Res=ExecSql($cn_mod,"delete from op_predef");
// 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']);
}
}
if ( isset($_POST['CANAL'])) {
$Res=ExecSql($cn_mod,'delete from poste_analytique');
$Res=ExecSql($cn_mod,'delete from plan_analytique');
}
}
// Show all available templates
$Res=ExecSql($cn,"select mod_id,mod_name,mod_desc from
modeledef order by mod_name");
$count=pg_NumRows($Res);
echo '
';
echo "
Modèles
";
if ( $sa=='list') {
if ( $count == 0 ) {
echo "No template available";
} else {
echo widget::button_href('Rafraîchir','admin_repo.php?action=modele_mgt');
echo widget::button_href('Ajouter','admin_repo.php?action=modele_mgt&sa=add');
echo '
';
echo "
Nom
".
"
Description
".
"
".
"
";
for ($i=0;$i<$count;$i++) {
$mod=pg_fetch_array($Res,$i);
printf('
',
$mod['mod_id'],
$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é.";
}
//---------------------------------------------------------------------------
// Add a template
//---------------------------------------------------------------------------
if ( $sa == 'add') {
// 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
?>
';
$name=getDbValue($cn,
"select mod_name from modeledef where ".
" mod_id=$1",
array($_GET['m']));
$desc=getDbValue($cn,
"select mod_desc from modeledef where ".
" mod_id=$1",
array($_GET['m']));
$wText=new widget('text');
echo 'Nom : '.$wText->IOValue('name',$name);
$wDesc=new widget('textarea');
$wDesc->heigh=5;
echo ' Description : ';
echo $wDesc->IOValue('desc',$desc);
echo widget::hidden('m',$_GET['m']);
echo widget::hidden('action','modele_mgt');
echo ' ';
echo widget::button_href('Retour','?action=modele_mgt');
echo widget::submit('upd','Modifie');
echo '';
}
//---------------------------------------------------------------------------
// action = del
//---------------------------------------------------------------------------
if ( $sa == 'del' ) {
$cn=DbConnect();
$name=getDbValue($cn,'select mod_name from modeledef where mod_id=$1',array($_REQUEST['m']));
echo '';
}
//---------------------------------------------------------------------------
// action = del
//---------------------------------------------------------------------------
if ( $sa == 'remove' ) {
if ( ! isset ($_REQUEST['p_confirm'])) {
echo('Désolé, vous n\'avez pas coché la case');
echo widget::button_href('Retour','?action=modele_mgt');
exit();
}
$cn=DbConnect();
$msg="dossier";
$name=getDbValue($cn,"select mod_name from modeledef where mod_id=$1",array($_REQUEST['m']));
if ( strlen(trim($name)) == 0 )
{
echo "