";
$r.='
Opérations Diverses ';
$r.='
';
$r.="";
if ( $pview_only == false) $r.="Compte ";
$r.="Poste ";
$r.="Montant ";
$r.="Crédit ou débit ";
$r.=" ";
$sum_deb=0.0;
$sum_cred=0.0;
$count=0;
// for each good
for ($i=0;$i< $p_article;$i++) {
$account=(isset(${"e_account$i"}))?${"e_account$i"}:"";
$lib=''.GetPosteLibelle($p_cn, $account,1).' ';
}
}
${"e_account$i"."_amount"}=(isset(${"e_account$i"."_amount"}))?abs(round(${"e_account$i"."_amount"},2)):0;
if ( isNumber(${"e_account$i"."_amount"}) == 0 ) {
if ( $pview_only==true) {
$msg="Montant invalide !!! ";
echo_error($msg);
echo "";
return null;
}
${"e_account$i"."_amount"}=0;
}
// code
// Do we need a filter ?
$jrn=new Acc_Ledger($p_cn,$p_jrn);
$l_line=$jrn->get_propertie();
if( strlen(trim ($l_line['jrn_def_class_cred']) ) > 0 ||
strlen(trim ($l_line['jrn_def_class_deb']) ) > 0 ) {
$filter=1;
}
else
$filter=null;
$W = new widget('js_search_poste');
$W->readonly=$pview_only;
$W->label="";
$W->extra=$p_jrn;
$W->extra2=$filter;
// $r.=''.InputType("","js_search_poste","e_account".$i,$account,$pview_only,$filter);
$r.=" ".$W->IOValue("e_account".$i, $account);
//libelle
$r.=" $lib ";
//amount
$wAmount=new widget("text");
$wAmount->table=1;
$wAmount->SetReadOnly($pview_only);
$wAmount->javascript=' onChange="checkTotal()"';
$r.=$wAmount->IOValue("e_account".$i."_amount",${"e_account$i"."_amount"});
// Type is debit or credit, retrieve the old values
${"e_account$i"."_type"}=(isset (${"e_account$i"."_type"}))?${"e_account$i"."_type"}:'d';
$c_check=( ${"e_account$i"."_type"} == 'c')?"CHECKED":"";
$d_check=( ${"e_account$i"."_type"} == 'd' )?"CHECKED":"";
$r.='';
if ( $pview_only == false ) {
$r.=' ';
$p_mode=($p_saved)?0:1;
$r.=$op->display_form_plan($_POST,$null,$p_mode,$count,${"e_account$i"."_amount"});
$r.=' ';
$count++;
}
}
$r.='';
$r.=' ';
$sum_deb+=(${"e_account$i"."_type"}=='d')?${"e_account$i"."_amount"}:0;
$sum_cred+=(${"e_account$i"."_type"}=='c')?${"e_account$i"."_amount"}:0;
}
} // End for
$r.="
";
if ( $pview_only==true && $p_saved==false) {
// pre_operation
$chk=new widget('checkbox');
$chk->selected=true;
$r.="Sauvez l'opération ?";
$r.=$chk->IOValue('opd_save');
// check for upload piece
$file=new widget("file");
$file->table=1;
$r.="
";
$r.= "
";
$r.="".$file->IOValue("pj","","Pièce justificative")." ";
$r.="
";
$r.="
";
} else {
$r.= '
Débit =
';
}
// Set correctly the REQUEST param for jrn_type
$h=new widget('hidden');
$h->name='jrn_type';
$h->value='ODS';
$r.=$h->IOValue();
$r.=$p_submit;
// $r.="