*
* 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 == 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('
",
$p_list,$p_name,$l_sessid,$p_name);
return $r;
}
return $r;
}
/* function FormVente
* Purpose : Display the form for a sell
* Used to show detail, encode a new invoice
* or update one
*
* parm :
* - p_array which can be empty
* - the "journal"
* - $p_user = $g_user
* - view_only if we cannot change it (no right or centralized op)
* - $p_article number of article
* gen :
* -
* return: string with the form
* TODO Add in parameters the infos about the company for making the invoice
*/
function FormVente($p_cn,$p_jrn,$p_user,$p_array=null,$view_only=true,$p_article=1)
{
if ( $p_array != null ) {
// array contains old value
foreach ( $p_array as $a=>$v) {
${"$a"}=$v;
}
}
// The date
$userPref=GetUserPeriode($p_cn,$p_user);
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$userPref);
$op_date=( ! isset($e_date) ) ?substr($l_date_start,2,8):$e_date;
$e_ech=(isset($e_ech))?$e_ech:"";
// Save old value and set a new one
echo_debug("form_input.php.FormVentep_op_date is $op_date");
$r="";
if ( $view_only == false) {
$r.=JS_SEARCH_CARD;
$r.=JS_SHOW_TVA;
$r.=JS_TVA;
$r.="";
$r.=JS_CALC_LINE;
return $r;
}
/* function FormVenteView ($p_cn,$p_jrn,$p_user,$p_array,$p_number,$p_doc='html',$p_comment='')
**************************************************
* Purpose : Show the invoice before inserting it
* the database
*
* parm :
* - p_cn database connection
* - p_jrn journal
* - p_user
* - array of value
* - nb of item
* - p_doc type pdf or html
* gen :
* - none
* return:
* - string
*
*/
function FormVenteView ($p_cn,$p_jrn,$p_user,$p_array,$p_number,$p_doc='html',$p_comment='')
{
$r="";
$data="";
// Keep all the data if hidden
// and store the array in variables
foreach ($p_array as $name=>$content) {
$data.=InputType("","HIDDEN",$name,$content);
${"$name"}=$content;
}
// Verify the date
if ( isDate($e_date) == null ) {
echo_error("Invalid date $e_date");
echo_debug("Invalid date $e_date");
echo "";
return null;
}
// Verify the quantity
for ($o = 0;$o < $p_number; $o++) {
if ( isNumber(${"e_quant$o"}) == 0 ) {
echo_debug("invalid quantity ".${"e_quant$o"});
echo_error("invalid quantity ".${"e_quant$o"});
echo "";
return null;
}
// check if vat is correct
if ( strlen(trim(${"e_march$o"."_tva_id"})) !=0 ) {
// vat is given we check it now check if valid
if (isNumber(${"e_march$o"."_tva_id"}) == 0
or CountSql($p_cn,"select tva_id from tva_rate where tva_id=".${"e_march$o"."_tva_id"}) ==0){
$msg="Invalid TVA !!! ";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
}
}
// Verify the ech
if (strlen($e_ech) != 0 and isNumber($e_ech) == 0 and isDate ($e_ech) == null ) {
$msg="Echeance invalide";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// Verify is a client is set
if ( isNumber($e_client) == 0) {
$msg="Client inexistant";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// if ech is a number of days then compute date limit
if ( strlen($e_ech) != 0 and isNumber($e_ech) == 1) {
list($day,$month,$year)=explode(".",$e_date);
echo_debug(" date $e_date = $day.$month.$year");
$p_ech=date('d.m.Y',mktime(0,0,0,$month,$day+$e_ech,$year));
echo_debug("p_ech = $e_ech $p_ech");
$e_ech=$p_ech;
$data.=InputType("","HIDDEN","e_ech",$e_ech);
}
// Check if the fiche is in the jrn
if (IsFicheOfJrn($p_cn , $p_jrn, $e_client,'deb') == 0 )
{
$msg="Client invalid please recheck";
echo_error($msg);
echo "";
return null;
}
// check if all e_march are in fiche
for ($i=0;$i<$p_number;$i++) {
if ( trim(${"e_march$i"}) == "" ) {
// no goods to sell
continue;
}
// Check wether the f_id is a number
if ( isNumber(${"e_march$i"}) == 0 ) {
$msg="Fiche inexistante !!! ";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// Check
if ( isFicheOfJrn($p_cn,$p_jrn,${"e_march$i"},'cred') == 0 ) {
$msg="Fiche inexistante !!! ";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
}
// Verify the userperiode
// userPref contient la periode par default
$userPref=GetUserPeriode($p_cn,$p_user);
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$userPref);
// Date dans la periode active
echo_debug ("date start periode $l_date_start date fin periode $l_date_end date demandée $e_date");
if ( cmpDate($e_date,$l_date_start)<0 ||
cmpDate($e_date,$l_date_end)>0 )
{
$msg="Not in the active periode please change your preference";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// Periode fermée
if ( PeriodeClosed ($p_cn,$userPref)=='t' )
{
$msg="This periode is closed please change your preference";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// start table
$r.='
";
$sum_with_vat=0.0;
$sum_march=0.0;
// show all article, price vat and sum
$r.="
";
$r.="
Article
";
$r.="
quantité
";
$r.="
prix unit.
";
$r.="
taux tva
";
$r.="
Montant HTVA
";
$r.="
Montant TVA
";
$r.="
Total
";
$r.="
";
for ($i=0;$i<$p_number;$i++) {
if ( trim(${"e_march$i"}) == "" ) {
// no goods to sell
continue;
}
// Get the name
$fiche_name=getFicheName($p_cn,${"e_march$i"});
// Quantity
$fiche_quant=${"e_quant$i"};
// No row if there is quantity
if ( $fiche_quant == 0.0 ) continue;
// If the price is not a number, retrieve the price from the database
if ( isNumber(${"e_march$i"."_sell"}) == 0 ) {
$fiche_price=getFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_PRIX_VENTE);
} else {
$fiche_price=${"e_march$i"."_sell"};
}
// VAT
$vat=(isNumber(${"e_march$i"."_tva_id"})==0)?getFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_TVA):${"e_march$i"."_tva_id"};
// vat label
// vat rate
$a_vat=GetTvaRate($p_cn,$vat);
if ( $a_vat == null ) {
$vat_label="unknown";
$vat_rate=0.0;
} else {
$vat_label=$a_vat['tva_label'];
$vat_rate=$a_vat['tva_rate'];
}
// Total card without vat
$fiche_sum=$fiche_price*$fiche_quant;
// Sum of invoice
$sum_march+=$fiche_sum;
// vat of the card
$fiche_amount_vat=$fiche_price*$fiche_quant*$vat_rate;
// value card + vat
$fiche_with_vat=$fiche_price*$fiche_quant*(1+$vat_rate);
// Sum of invoice vat
$sum_with_vat+=$fiche_with_vat;
// Show the data
$r.='
";
if ( $p_doc == 'html' ) {
$r.='';
}
if ( $p_doc == 'pdf' ) {
// prob with pdf and the pdf pluggin
// Cannot find a nice workaround for that
$r.='';
}
return $r;
}
/* function RecordInvoice
**************************************************
* 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_client => e : 3
* nb_item => e : 3
* e_march0 => e : 6
* e_quant0 => e : 0
* e_march0_sell=>e:1
* e_march1 => e : 6
* e_quant1 => e : 2
* e_march1_sell=>e:1
* e_march2 => e : 7
* e_quant2 => e : 3
* e_march2_sell=>e:1
V : view_invoice => e : Voir cette facture
V : record_invoice => e : Sauver
* - $p_user userid
* - $p_jrn current folder (journal)
* gen :
* - none
* return:
* true on success
*/
function RecordInvoice($p_cn,$p_array,$p_user,$p_jrn)
{
foreach ( $p_array as $v => $e)
{
${"$v"}=$e;
}
// Get the default period
$periode=GetUserPeriode($p_cn,$p_user);
$amount=0.0;
// Computing total customer
for ($i=0;$i<$nb_item;$i++) {
// store quantity & goods in array
$a_good[$i]=${"e_march$i"};
$a_quant[$i]=${"e_quant$i"};
$a_price[$i]=0;
$a_vat[$i]=${"e_march$i"."_tva_id"};
// check wether the price is set or no
if ( isNumber(${"e_march$i"."_sell"}) == 0 ) {
if ( isNumber($a_good[$i]) == 1 ) {
// If the price is not set we have to find it from the database
$a_price[$i]=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_PRIX_VENTE);
}
} else {
// The price is valid
$a_price[$i]=${"e_march$i"."_sell"};
}
$amount+=$a_price[$i]*$a_quant[$i];
}
$a_vat=ComputeVat($p_cn,$a_good,$a_quant,$a_price,$a_vat);
$sum_vat=0.0;
if ( $a_vat != null ){
foreach ( $a_vat as $element => $t) {
echo_debug(" a_vat element $element t $t");
$sum_vat+=$t;
echo_debug("sum_vat = $sum_vat");
}
}
// First we add in jrnx
// Compute the j_grpt
$seq=GetNextId($p_cn,'j_grpt')+1;
// Debit = client
$poste=GetFicheAttribut($p_cn,$e_client,ATTR_DEF_ACCOUNT);
StartSql($p_cn);
$r=InsertJrnx($p_cn,'d',$p_user,$p_jrn,$poste,$e_date,$amount+$sum_vat,$seq,$periode);
if ( $r == false) { $Rollback($p_cn);exit("error __FILE__ __LINE__");}
// Credit = goods
for ( $i = 0; $i < $nb_item;$i++) {
if ( isNumber($a_good[$i]) == 0 ) continue;
$poste=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_ACCOUNT);
// don't record operation of 0
if ( $a_price[$i]*$a_quant[$i] == 0 ) continue;
// record into jrnx
$j_id=InsertJrnx($p_cn,'c',$p_user,$p_jrn,$poste,$e_date,$a_price[$i]*$a_quant[$i],$seq,$periode);
if ( $j_id == false) { $Rollback($p_cn);exit("error __FILE__ __LINE__");}
// always save quantity but in withStock we can find what card need a stock management
if ( InsertStockGoods($p_cn,$j_id,$a_good[$i],$a_quant[$i],'c') == false ) {
$Rollback($p_cn);exit("error __FILE__ __LINE__");}
}
// Insert Vat
if ( $a_vat != null ) // no vat
{
foreach ($a_vat as $tva_id => $tva_amount ) {
$poste=GetTvaPoste($p_cn,$tva_id,'c');
if ($tva_amount == 0 ) continue;
$r=InsertJrnx($p_cn,'c',$p_user,$p_jrn,$poste,$e_date,$tva_amount,$seq,$periode);
if ( $r == false ) { Rollback($p_cn); exit(" Error __FILE__ __LINE__");}
}
}
echo_debug("echeance = $e_ech");
$r=InsertJrn($p_cn,$e_date,$e_ech,$p_jrn,"Invoice",$amount+$sum_vat,$seq,$periode);
if ( $r == false ) { Rollback($p_cn); exit(" Error __FILE__ __LINE__");}
// Set Internal code and Comment
$comment=SetInternalCode($p_cn,$seq,$p_jrn)." client : ".GetFicheName($p_cn,$e_client);
// Update and set the invoice's comment
$Res=ExecSql($p_cn,"update jrn set jr_comment='".$comment."' where jr_grpt_id=".$seq);
if ( $Res == false ) { Rollback($p_cn); exit(" Error __FILE__ __LINE__"); };
Commit($p_cn);
return $comment;
}
/* function FormAch($p_cn,$p_jrn,$p_user,$p_array=null,$view_only=true,$p_article=1)
* Purpose : Display the form for buying
* Used to show detail, encode a new invoice
* 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
* TODO Add in parameters the infos about the company for making the invoice
*/
function FormAch($p_cn,$p_jrn,$p_user,$p_submit,$p_array=null,$view_only=true,$p_article=1)
{
if ( $p_array != null ) {
// array contains old value
foreach ( $p_array as $a=>$v) {
${"$a"}=$v;
}
}
// The date
$userPref=GetUserPeriode($p_cn,$p_user);
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$userPref);
// default date
$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_user,$e_date) == null) {
if ( $view_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
// echo_debug("form_input.php.FormAch p_op_date is $e_date");
$r="";
if ( $view_only == false) {
$r.=JS_SEARCH_CARD;
$r.=JS_TVA;
$r.=JS_SHOW_TVA;
}
$r.="";
//if view only show total
if ( $view_only==true) {
$total=0;
$r.="
";
$r.="
Nom
";
$r.="
Tva
";
$r.="
total
";
for ( $i = 0; $i < $p_article;$i++) {
if ( $view_only == true and ! isset (${"e_march$i"}) ) continue;
$march=${"e_march$i"};
if ( isNumber($march) ==1 and
isFicheOfJrn($p_cn,$p_jrn,$march,'deb')){
$a_fiche=GetFicheAttribut($p_cn, $march);
// compute some data
// $tva=(isNumber($a_fiche['tva_rate']) == 0 )?0:$a_fiche['tva_rate'];
if ( isNumber(${"e_march$i"."_tva_id"}) ==1 ) {
$a_tva=GetTvaRate($p_cn,${"e_march$i"."_tva_id"});
$tva=$a_tva['tva_rate'];
} else {
$tva=(isNumber($a_fiche['tva_rate'])==1)?$a_fiche['tva_rate']:0;
}
$vat_row=${"e_march$i"."_buy"}*${"e_quant$i"}*$tva;
$total_row=${"e_march$i"."_buy"}*${"e_quant$i"}+$vat_row;
$r.="
";
$r.="
".$a_fiche['vw_name']."
";
// $r.="
".$a_fiche['tva_label']."
";
$r.="
".$vat_row."
";
$r.="
".$total_row."
";
$r.="
";
$total+=$total_row;
}
}// for ($i=0
$r.="
Total =".$total."
";
$r.="
";
}// if ( $view_only == true )
return $r;
}
/* function RecordAchat
**************************************************
* Purpose : Record an buy in the table jrn &
* jrnx
*
* parm :
* - $p_cn Database connection
* - $p_array contains all the invoice data
* e_date => e : 01.01.2003
* e_client => e : 3
* nb_item => e : 3
* e_march0 => e : 6
* e_quant0 => e : 0
* e_march0_sell=>e:1
* e_march1 => e : 6
* e_quant1 => e : 2
* e_march1_sell=>e:1
* e_march2 => e : 7
* e_quant2 => e : 3
* e_march2_sell=>e:1
V : view_invoice => e : Voir cette facture
V : record_invoice => e : Sauver
* - $p_user userid
* - $p_jrn current folder (journal)
* gen :
* - none
* return:
* true on success
*/
function RecordAchat($p_cn,$p_array,$p_user,$p_jrn)
{
foreach ( $p_array as $v => $e)
{
echo_debug ("Record Achat $v ==> $e");
${"$v"}=$e;
}
// Get the default period
$periode=GetUserPeriode($p_cn,$p_user);
$amount=0.0;
// Computing total customer
for ($i=0;$i<$nb_item;$i++) {
if ( ! isset(${"e_march$i"}) or ${"e_march$i"} == "" or ${"e_quant$i"} == 0) {
continue;
}
// store quantity & goods in array
if ( isNumber(${"e_march$i"}) == 0 ) continue;
$a_good[$i]=${"e_march$i"};
$a_quant[$i]=${"e_quant$i"};
$a_vat[$i]=${"e_march$i"."_tva_id"};
// check wether the price is set or no
if ( isNumber(${"e_march$i"."_buy"}) == 0 ) {
// If the price is not set we have to find it from the database
$a_price[$i]=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_PRIX_ACHAT);
} else {
// The price is valid
$a_price[$i]=${"e_march$i"."_buy"};
}
$amount+=$a_price[$i]*$a_quant[$i];
}
$a_vat=ComputeVat($p_cn, $a_good,$a_quant,$a_price,$a_vat);
$sum_vat=0.0;
if ( $a_vat != null ) {
foreach ( $a_vat as $element => $t) {
echo_debug(" a_vat element $element t $t");
$sum_vat+=$t;
echo_debug("sum_vat = $sum_vat");
}
}
// First we add in jrnx
// Compute the j_grpt
$seq=GetNextId($p_cn,'j_grpt')+1;
// Debit = client
$poste=GetFicheAttribut($p_cn,$e_client,ATTR_DEF_ACCOUNT);
StartSql($p_cn);
InsertJrnx($p_cn,'c',$p_user,$p_jrn,$poste,$e_date,$amount+$sum_vat,$seq,$periode);
// Credit = goods
for ( $i = 0; $i < $nb_item;$i++) {
if ( ! isset ( $a_good[$i]) ) continue;
$poste=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_ACCOUNT);
if ( $a_price[$i] * $a_quant[$i] == 0 ) continue;
$j_id=InsertJrnx($p_cn,'d',$p_user,$p_jrn,$poste,$e_date,$a_price[$i]*$a_quant[$i],$seq,$periode);
if ( $j_id == false ) {$Rollback($p_cn);exit("error __FILE__ __LINE__");}
// if ( withStock($p_cn,$a_good[$i]) == true )
// always save quantity but in withStock we can find what card need a stock management
if ( InsertStockGoods($p_cn,$j_id,$a_good[$i],$a_quant[$i],'d') == false ) {$Rollback($p_cn);exit("error __FILE__ __LINE__");}
}
// Insert Vat
if ( $a_vat != null ) // no vat
{
foreach ($a_vat as $tva_id => $tva_amount ) {
$poste=GetTvaPoste($p_cn,$tva_id,'d');
if ( InsertJrnx($p_cn,'d',$p_user,$p_jrn,$poste,$e_date,$tva_amount,$seq,$periode) == false ) { $Rollback($p_cn);exit("error __FILE__ __LINE__");}
}
}
echo_debug("echeance = $e_ech");
echo_debug("comment = $e_comment");
if ( ($amount+$sum_vat) != 0 ){
if ( InsertJrn($p_cn,$e_date,$e_ech,$p_jrn,$e_comment,$amount+$sum_vat,$seq,$periode) == false ) {
$Rollback($p_cn);exit("error __FILE__ __LINE__");
}
// Set Internal code and Comment
$comment=SetInternalCode($p_cn,$seq,$p_jrn)." client : ".GetFicheName($p_cn,$e_client);
if ( $e_comment=="" ) {
// Update comment if comment is blank
$Res=ExecSql($p_cn,"update jrn set jr_comment='".$comment."' where jr_grpt_id=".$seq);
}
Commit($p_cn);
return $comment;
}
}
/* function FormFin($p_cn,$p_jrn,$p_user,$p_array=null,$view_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_user,$p_submit,$p_array=null,$view_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
$userPref=GetUserPeriode($p_cn,$p_user);
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$userPref);
$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_user,$e_date) == null) {
if ( $view_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 ( $view_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 ( $view_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("RecordFin");
foreach ( $p_array as $v => $e)
{
${"$v"}=$e;
}
// Get the default period
$periode=GetUserPeriode($p_cn,$p_user);
// Test if the data are correct
// Verify the date
if ( isDate($e_date) == null ) {
echo_error("Invalid date $e_date");
echo_debug("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=GetNextId($p_cn,'j_grpt')+1;
if ( InsertJrnx($p_cn,'d',$p_user,$p_jrn,$poste_bq,$e_date,${"e_other$i"."_amount"},$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,$p_jrn,$poste,$e_date,${"e_other$i"."_amount"},$seq,$periode)) == false )
{ $Rollback($p_cn);exit("error __FILE__ __LINE__");}
echo_debug(" $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"}),
${"e_other$i"."_amount"},$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
$comment=SetInternalCode($p_cn,$seq,$p_jrn)." 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);
}
}
Commit($p_cn);
}
/* function FormODS($p_cn,$p_jrn,$p_user,$p_array=null,$view_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_user,$p_submit,$p_array=null,$view_only=true,$p_article=6)
{
include_once("poste.php");
if ( $p_array != null ) {
// array contains old value
foreach ( $p_array as $a=>$v) {
${"$a"}=$v;
}
}
// The date
$userPref=GetUserPeriode($p_cn,$p_user);
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$userPref);
$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_user,$e_date) == null) {
if ( $view_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
// echo_debug("form_input.php.FormODS p_op_date is $e_date");
$r="";
if ( $view_only == false) {
$r.=JS_SEARCH_POSTE;
}
$r.="