*
* parm :
* - Label question
* - The type (text, select, text_big
* - Name of the variable
* - Default Value
* - View_only
* - $p_list for the select, give the possible values item[0] is the val and item[1]
* is the label or for the js_search p_list is a string (cred
* or deb or the fiche_def_type
* gen :
* - None
* return: string
*/
function InputType($p_label,$p_type,$p_name,$p_value,$p_viewonly=false,$p_list=null)
{
// View only
if ( $p_viewonly==true) {
if ( strlen($p_label) != 0) {
// name and value are set put the info in a hidden field
$hidden=(strlen($p_name) != 0) ?"":"";
// return
return "
$p_label $hidden
$p_value
";
} else {
// name and value are set put the info in a hidden field
$hidden=(strlen($p_name) != 0) ?"":"";
return "
$p_value $hidden
";
}
}
// Input type == select
if ( strtolower($p_type)=="select" ) {
$r="
$p_label
";
$r.=sprintf('
";
return $r;
}
// Input type == select2
if ( strtolower($p_type)=="select2" ) {
$r="
$p_label
";
$r.=sprintf('
";
return $r;
}
// input type == TEXT
if ( strtolower($p_type)=="text") {
if ( strlen(trim($p_label)) != 0 )
$label="
$p_label
";
else
$label="";
$r=sprintf('%s
',
$label,
$p_type,
$p_name,
$p_value);
return $r;
}
// input type == TEXT_BIG
if ( strtolower($p_type)=="text_big") {
$r=sprintf('
",
$l_sessid,$p_name);
return $r;
}
return $r;
}
/* function FormFin($p_cn,$p_jrn,$p_user,$p_array=null,$pview_only=true,$p_item=1)
* Purpose : Display the form for financial
* Used to show detail, encode a new fin op
* or update one
*
* parm :
* - p_array which can be empty
* - the "journal"
* - $p_user = $g_user
* - $p_submit contains the submit string
* - view_only if we cannot change it (no right or centralized op)
* - $p_item number of article
* gen :
* -
* return: string with the form
*/
function FormFin($p_cn,$p_jrn,$p_periode,$p_submit,$p_array=null,$pview_only=true,$p_item=4,$p_save=false)
{
include_once("poste.php");
if ( $p_array != null ) {
// array contains old value
foreach ( $p_array as $a=>$v) {
${"$a"}=$v;
}
}
// The date
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$p_periode);
$flag=(isset($e_date))?1:0;
$e_date=( ! isset($e_date) ) ? substr($l_date_start,2,8):$e_date;
// Verify if valid date
if ($flag ==1 and VerifyOperationDate($p_cn,$p_periode,$e_date) == null) {
if ( $pview_only == true)
return null;
else
$e_date=substr($l_date_start,2,8);
}
$e_ech=(isset($e_ech))?$e_ech:"";
$e_comment=(isset($e_comment))?$e_comment:"";
$r="";
if ( $pview_only == false) {
$r.=JS_SEARCH_CARD;
$r.=JS_CONCERNED_OP;
}
// $r.='";
// if view_only is true
//Put the new saldo here (old saldo - operation)
if ( $pview_only==true) {
// if not recorded the new amount must be recalculate
if ( $p_save == false) {
$r.=" Ancien Solde = ".$solde." ";
$r.=" Nouveau Solde = ".$new_solde." ";
}
// if recorded the old amount is recalculated
if ($p_save == true ) {
$r.=" Ancien Solde = ".$new_solde." ";
$r.=" Nouveau Solde = ".$solde." ";
}
}
return $r;
}
/* function RecordFin
**************************************************
* Purpose : Record an invoice in the table jrn &
* jrnx
*
* parm :
* - $p_cn Database connection
* - $p_array contains all the invoice data
* e_date => e : 01.01.2003
* e_bank_account => e : 3
* - $p_user userid
* - $p_jrn current folder (journal)
* - array e_other$i, e_other$i_amount, e_other$i_label
* gen :
* - none
* return:
* true on success
*/
function RecordFin($p_cn,$p_array,$p_user,$p_jrn) {
echo_debug(__FILE__,__LINE__,"RecordFin");
foreach ( $p_array as $v => $e)
{
${"$v"}=$e;
}
// Get the default period
$periode=$p_user->GetPeriode();
// Test if the data are correct
// Verify the date
if ( isDate($e_date) == null ) {
echo_error("Invalid date $e_date");
echo_debug(__FILE__,__LINE__,"Invalid date $e_date");
echo "";
return null;
}
// Debit = banque
$poste_bq=GetFicheAttribut($p_cn,$e_bank_account,ATTR_DEF_ACCOUNT);
StartSql($p_cn);
$amount=0.0;
// Credit = goods
for ( $i = 0; $i < $nb_item;$i++) {
// if tiers is set and amount != 0 insert it into the database
// and quit the loop ?
if ( ${"e_other$i"."_amount"} == 0 ) continue;
$poste=GetFicheAttribut($p_cn,${"e_other$i"},ATTR_DEF_ACCOUNT);
$amount+=${"e_other$i"."_amount"};
// Record a line for the bank
// $type=( ${"e_other$i"."_amount"} < 0 )?'d':'c';
// Compute the j_grpt
$seq=NextSequence($p_cn,'s_grpt');
if ( InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,$poste_bq,$e_date,round(${"e_other$i"."_amount"},2),$seq,$periode) == false ) {
$Rollback($p_cn);exit("error __FILE__ __LINE__");
}
// Record a line for the other account
// $type=( ${"e_other$i"."_amount"} < 0 )?'c':'d';
if ( ($j_id=InsertJrnx($p_cn,'c',$p_user->id,$p_jrn,$poste,$e_date,round(${"e_other$i"."_amount"},2),$seq,$periode)) == false )
{ $Rollback($p_cn);exit("error __FILE__ __LINE__");}
echo_debug(__FILE__,__LINE__," $j_id=InsertJrnx($p_cn,'d',$p_user,$p_jrn,$poste,$e_date,".${"e_other$i"}."_amount".",$seq,$periode);");
if ( ($jr_id=InsertJrn($p_cn,$e_date,'',$p_jrn,FormatString(${"e_other$i"."_comment"}),
round(${"e_other$i"."_amount"},2),$seq,$periode))==false) {
$Rollback($p_cn);exit("error __FILE__ __LINE__");}
if ( isNumber(${"e_concerned".$i}) == 1 ) {
InsertRapt($p_cn,$jr_id,${"e_concerned$i"});
}
// Set Internal code and Comment
$internal_code=SetInternalCode($p_cn,$seq,$p_jrn);
$comment=$internal_code." client : ".GetFicheName($p_cn,$e_bank_account);
if ( FormatString(${"e_other$i"."_comment"}) == null ) {
// Update comment if comment is blank
$Res=ExecSql($p_cn,"update jrn set jr_comment='".$comment."' where jr_grpt_id=".$seq);
}
} // for nbitem
if ( isset ($_FILES))
save_upload_document($p_cn,$seq);
Commit($p_cn);
}
/* function FormODS($p_cn,$p_jrn,$p_user,$p_array=null,$pview_only=true,$p_article=1)
* Purpose : Display the miscellaneous operation
* Used to show detail, encode a new oper
* or update one
*
* parm :
* - p_array which can be empty
* - the "journal"
* - $p_user = $g_user
* - $p_submit contains the submit string
* - view_only if we cannot change it (no right or centralized op)
* - $p_article number of article
* gen :
* -
* return: string with the form
*/
function FormODS($p_cn,$p_jrn,$p_periode,$p_submit,$p_array=null,$pview_only=true,$p_article=6,$p_saved=false)
{
include_once("poste.php");
if ( $p_array != null ) {
// array contains old value
foreach ( $p_array as $a=>$v) {
${"$a"}=$v;
}
}
// The date
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$p_periode);
$flag=(isset($e_date))?1:0;
$e_date=( ! isset($e_date) ) ? substr($l_date_start,2,8):$e_date;
// Verify if valid date
if ( $flag==1 and VerifyOperationDate($p_cn,$p_periode,$e_date) == null) {
if ( $pview_only == true)
return null;
else
$e_date=substr($l_date_start,2,8);
}
$e_ech=(isset($e_ech))?$e_ech:"";
$e_comment=(isset($e_comment))?$e_comment:"";
// Save old value and set a new one
$r="";
if ( $pview_only == false) {
$r.=JS_SEARCH_POSTE;
}
$r.="