isAppend() == true)
{
$ret.= '
';
$ret.= '
Nouveau plan
';
$ret.= '';
$ret.= '';
}
else
{
$ret.= ''.
'
'.
"Maximum de plan analytique est atteint".
"
";
}
}
// Add
if ( $sa == "pa_write")
{
$new=new Anc_Plan($cn);
if ( $new->isAppend() == false)
{
$ret.= ''.
"Maximum de plan analytique est atteint".
"
";
}
else
{
$new=new Anc_Plan($cn);
$new->name=$_POST['pa_name'];
$new->description=$_POST['pa_description'];
$new->add();
}
}
// show the detail
if ( $sa == "pa_detail" )
{
$new=new Anc_Plan($cn,$_GET['pa_id']);
$wSa=HtmlInput::hidden("sa","pa_update");
$new->get();
$ret.= '';
$ret.= '
Mise à jour
';
$ret.= '';
$ret.= '';
}
// Update the PA
if ( $sa == "pa_update" )
{
$new=new Anc_Plan($cn,$_GET['pa_id']);
$new->name=$_POST['pa_name'];
$new->description=$_POST['pa_description'];
$new->update();
$ret='';
$ret.='
Mis à jour
';
$ret.="";
}
// show the form for add a poste
if ( $sa=='po_add')
{
$po=new Anc_Account($cn);
$po->pa_id=$_REQUEST['pa_id'];
$wSa=HtmlInput::hidden("sa","po_write");
$ret.='';
$ret.='";
$ret.="
";
}
// record the poste
if ( $sa=="po_write")
{
// var_dump($_POST);
$po=new Anc_Account($cn);
$po->get_from_array($_POST);
$po->add();
$sa="list";
}
/* delete pa */
if ( $sa == "pa_delete")
{
$delete=new Anc_Plan($cn,$_GET['pa_id']);
$delete->delete();
}
/* po detail
*
*/
if ( $sa=="po_detail")
{
$po=new Anc_Account($cn,$_GET['po_id']);
$po->get_by_id();
$ret.='';
}
if ( $sa=="po_update")
{
$po=new Anc_Account($cn);
$po->get_from_array($_POST);
$po->update();
$sa="list";
}
if ( $sa=="po_delete")
{
$po=new Anc_Account($cn,$_REQUEST['po_id']);
$po->delete();
$sa="list";
}
/* List poste */
if ( $sa == "list" )
{
$count=0;
$new=new Anc_Plan($cn,$_REQUEST['pa_id']);
$new->get();
$array=$new->get_poste_analytique(" order by po_name");
$ret.='';
$ret.='
';
$ret.="";
$ret.="| Nom ";
$ret.=" | Montant ";
$ret.=" | Description ";
$ret.=" | Groupe | ";
$ret.=" Plan A ";
$ret.=" |
";
$class="";
foreach ($array as $obj)
{
$count++;
if ( $count %2 == 0 )
$class="even";
else
$class="odd";
$ret.="";
$ret.="| ".
''.
h($obj->name).
'';
" | "
;
$ret.="".$obj->amount." | ";
$ret.="".h($obj->description)." | ";
$ret.="".$obj->ga_id." | ";
$ret.="".h($new->name)." | ";
$ret.="
";
}
$ret.="
";
$ret.=HtmlInput::button_anchor('Ajout',"?ac=".$_REQUEST['ac']."&sa=po_add&pa_id=".$_GET['pa_id']."&".$str_dossier);
$ret.='
';
}
}
//---------------------------------------------------------------------------
// Show lmenu
//
//---------------------------------------------------------------------------
$obj=new Anc_Plan($cn);
$list=$obj->get_list();
if ( empty($list) )
{
echo '';
if ( ! isset ( $_REQUEST['sa']))
echo ''.
"Aucun plan analytique n'est défini".
'
';
}
else
{
echo '';
}
//---------------------------------------------------------------------------
// show the redcontent part
//
//
//---------------------------------------------------------------------------
echo $ret;