Handle the ledger of sold,. More...
Inheritance diagram for Acc_Ledger_Sale:
Collaboration diagram for Acc_Ledger_Sale:
Public Member Functions | |
| __construct ($p_cn, $p_init) | |
| confirm ($p_array, $p_summary=false) | |
| show the summary of the operation and propose to save it More... | |
| extra_info () | |
| the function extra info allows to More... | |
| get_detail_sale ($p_from, $p_end, $p_filter_operation='all') | |
| Retrieve data from the view v_detail_sale , gives all the row of an operation. More... | |
| input ($p_array=null, $p_readonly=0) | |
| display the form for entering data for invoice, More... | |
| insert ($p_array=null) | |
| insert into the database, it calls first the verify function, store the value of the inserted operation in $this->jr_id and this->jr_internal More... | |
| verify_operation ($p_array) | |
| verify that the data are correct before inserting or confirming More... | |
| Public Member Functions inherited from Acc_Ledger | |
| __construct ($p_cn, $p_id) | |
| add_card ($p_filter, $p_id_update) | |
| Return a button to create new card, depending of the ledger. More... | |
| button_copy_operation () | |
| Show a button to create an operation identical to the recorded one. More... | |
| button_new_operation () | |
| Create a button to encode a new operation into the same ledger. More... | |
| check_currency ($p_qcode_payment, $p_currency_id) | |
| When we write a record for the payment at the same time as a sale or a purchase, to have a bank saldo reliable , all the bank operation must be in the same currency Operation = Currency 1 and Bank = Currency 2 then it must failed , except if currency 2 (of the bank is the default currency. More... | |
| check_currency_setting ($p_currency_code) | |
| Check that the currency code does exist and the setting of the folder is correct. More... | |
| check_payment ($e_mp, $e_mp_qcode) | |
| check if the payment method is valid More... | |
| check_periode () | |
| Check if a Dossier is using the check on the periode, if true than the user has to enter the date and the periode, it is a security check. More... | |
| check_strict () | |
| Check if a Dossier is using the strict mode or not. More... | |
| compute_internal_code ($p_grpt) | |
| compute the internal code of the saved operation and set the $this->jr_internal to the computed value More... | |
| confirm ($p_array, $p_readonly=false) | |
| show the result of the array to confirm before inserting More... | |
| convert_from_follow ($p_ag_id) | |
| create_document ($internal, $p_array) | |
| create the invoice and saved it as attachment to the operation, More... | |
| CurrencyInput ($p_currency_code, $p_currency_rate, $p_eur_amount) | |
| Create a select from value for currency and add javascript to update $p_currency_rate and $p_eur_amount. More... | |
| delete () | |
| let you delete a operation More... | |
| delete_ledger () | |
| delete a ledger IF it doesn't contain anything More... | |
| display_additional_tax ($p_additional_tax, $p_amount) | |
| in confirm screen , display the compute value for additional tax @parameter $p_additional_tax acc_other_tax.ac_id More... | |
| display_ledger () | |
| display detail of a ledger More... | |
| display_negative_warning ($p_amount) | |
| If the amount is positive and the ledger expects a negative amount, il will return the saved warning. More... | |
| display_warning ($pa_msg, $p_warning) | |
| Display warning contained in an array. More... | |
| existing_vat () | |
| return the used VAT code with a rate > 0 More... | |
| get_all_fiche_def () | |
| retrieve all the card for this type of ledger, make them into a string separated by comma More... | |
| get_class_def () | |
| retrieve the jrn_def_class_deb and return it More... | |
| get_currency () | |
| returns the code iso of the default currency for this ledger More... | |
| get_customer_late () | |
| get info from customer not yet paid More... | |
| get_customer_now () | |
| get info from customer to pay today More... | |
| get_default_card ($p_ledger_type, $p_side) | |
| Return an array of default card for the ledger type given. More... | |
| get_fiche_def () | |
| retrieve the jrn_def_fiche and return them into a array index deb, cred More... | |
| get_first ($p_type, $p_access=3) | |
| get the first ledger More... | |
| get_id ($p_internal) | |
| retrieve the jr_id thanks the internal code, do not change anything to the current object More... | |
| get_is_loaded () | |
| get_last ($p_limit) | |
| return the last p_limit operation into an array More... | |
| get_last_date () | |
| get the date of the last operation More... | |
| get_last_pj () | |
| get_ledger_id () | |
| Set the jrn_def.jrn_def_id. More... | |
| get_min_row () | |
| get_name () | |
| Return the name of a ledger. More... | |
| get_operation ($p_from, $p_to) | |
| retrieve operation from jrn More... | |
| get_operation_date ($p_date, $p_ledger_type, $sql_op) | |
| Get operation from the ledger type before, after or with the given date . More... | |
| get_other_amount ($p_jr_id) | |
| get the amount of vat for a given jr_grpt_id from the table quant_purchase More... | |
| get_propertie () | |
| Get the properties of a journal. More... | |
| get_rowSimple ($p_from, $p_to, $pa_ledger=[], $trunc=0, $p_limit=-1, $p_offset=-1) | |
| Get simplified row from ledger Call Acc_Ledger_History_Generic:get_rowSimple. More... | |
| get_solde ($p_from, $p_to) | |
| get the saldo of a ledger for a specific period More... | |
| get_supplier_late () | |
| get info from supplier not yet paid More... | |
| get_supplier_now () | |
| get info from supplier to pay today More... | |
| get_tiers ($p_jrn_type, $jr_id) | |
| Retrieve the third : supplier for purchase, customer for sale, bank for fin,. More... | |
| get_tiers_id ($p_jrn_type, $jr_id) | |
| Return the f_id of the tiers , called by get_tiers. More... | |
| get_type () | |
| Return the type of a ledger (ACH,VEN,ODS or FIN) or GL. More... | |
| guess_pj () | |
| guess what the next pj should be More... | |
| has_other_tax () | |
| returns true if the ledger has an additional tax More... | |
| has_quantity () | |
| Check if a ledger is enabled , 1 for yes and 0 if disabled. More... | |
| inc_seq_pj () | |
| increment the sequence for the pj More... | |
| input ($p_array=null, $p_readonly=0) | |
| Show the form to encode your operation. More... | |
| input_additional_tax () | |
| form : display additional tax available for this ledger and value, set 2 values : checkbox if tax applies and value More... | |
| input_extra_info () | |
| input_new () | |
| display screen to enter a new ledger More... | |
| input_paid ($p_selected, $p_amount=0, $p_date="", $p_comm="") | |
| Create the section payment. More... | |
| is_closed ($p_periode) | |
| check if the current ledger is closed More... | |
| is_enable () | |
| Check if a ledger is enabled , 1 for yes and 0 if disabled. More... | |
| listing () | |
| listing of all ledgers More... | |
| previous_amount ($p_to) | |
| retrieve amount of previous periode More... | |
| previous_other_tax ($p_to) | |
| retrieve the previous amount More... | |
| reverse ($p_date, $p_label) | |
| reverse the operation by creating the opposite one, the result is to avoid it it must be done in More... | |
| save ($p_array=null) | |
| save the operation into the jrnx,jrn, , CA and pre_def More... | |
| save_followup ($s_related_action) | |
| attach action-followups to an operation, More... | |
| save_new ($array) | |
| Insert a new ledger , member variable like jrn_def_id will changed. More... | |
| search_group ($p_what, $p_value) | |
| retreive the jr_grpt_id from a ledger More... | |
| select_default_currency () | |
| create a select button to set the default currency for a ledger used only for empty financial ledger More... | |
| select_depot ($p_readonly, $p_repo) | |
| Let you select the repository before confirming a sale or a purchase. More... | |
| select_ledger ($p_type="ALL", $p_access=3, $enable=TRUE) | |
| Show a select list of the ledgers you can access in writing, reading or simply accessing. More... | |
| set_currency_id () | |
| retrieve currency_id from database More... | |
| set_is_loaded ($is_loaded) | |
| set_ledger_id ($p_id) | |
| Set the jrn_def.jrn_def_id. More... | |
| set_quantity ($p_value) | |
| set quantity for the ledger to 1 or 0, More... | |
| update ($array=null) | |
| update a ledger More... | |
| update_internal_code ($p_internal) | |
| update_paid ($p_array) | |
| Update the paiment in the list of operation. More... | |
| use_quant_table ($p_grpt_id, $p_jrn_type) | |
| Check if the operation is used in the table quant*. More... | |
| vat_operation ($p_jr_id) | |
| get the amount of vat for a given jr_grpt_id from the table quant_purchase More... | |
| verify_ledger ($array) | |
| Verify before update. More... | |
| verify_operation ($p_array) | |
| verify that the operation can be saved More... | |
Static Public Member Functions | |
| static | heading_detail_sale () |
| compute an array with the heading cells for the details, used for the export in CSV More... | |
| Static Public Member Functions inherited from Acc_Ledger | |
| static | array_cat () |
| create an array of the existing cat, to be used in a checkbox form More... | |
| static | next_number ($p_cn, $p_type) |
| retrieve the next number for this type of ledger More... | |
| static | test_me ($pCase='') |
| this function is intended to test this class More... | |
Additional Inherited Members | |
| Data Fields inherited from Acc_Ledger | |
| $currency_id | |
| !< default number of rows by default 10 More... | |
| $db | |
| !< jrn_def.jrn_def_id More... | |
| $id | |
| $ledger_type | |
| !< row of the ledger More... | |
| $nb | |
| !< type of the ledger ACH ODS FIN VEN or GL More... | |
| $row | |
| !< database connextion More... | |
| Protected Member Functions inherited from Acc_Ledger | |
| find_label ($p_value) | |
| Retrieve the label of an accounting. More... | |
| verify_autonumber ($p_array) | |
| compare given receipt number and suggested one, if different , it means that the user enters a receipt number if e_pj or e_pj_suggest is not set or empty , or if both are equals then will return true, it returns only if they exist and are different More... | |
| warn_manual_receipt ($p_array) | |
| warn if the suggested receipt and receipt are different , it means that the user tried to number himself More... | |
| Protected Attributes inherited from Acc_Ledger | |
| $is_loaded | |
| !< is_loaded true the ledger definition is loaded or false, it is not More... | |
Detailed Description
Handle the ledger of sold,.
- Exceptions
-
throw an exception is something is wrong
Definition at line 36 of file acc_ledger_sale.class.php.
Constructor & Destructor Documentation
◆ __construct()
| Acc_Ledger_Sale::__construct | ( | $p_cn, | |
| $p_id | |||
| ) |
- Parameters
-
$p_cn database connexion $p_id jrn.jrn_def_id
Reimplemented from Acc_Ledger.
Definition at line 38 of file acc_ledger_sale.class.php.
38 {
39 parent::__construct($p_cn, $p_init);
40 $this->ledger_type = 'VEN';
41 }
Member Function Documentation
◆ confirm()
| Acc_Ledger_Sale::confirm | ( | $p_array, | |
$p_summary = false |
|||
| ) |
show the summary of the operation and propose to save it
- Parameters
-
array contains normally $_POST. It proposes also to save the Analytic accountancy $p_summary false for the feedback, true to show the summary
- Returns
- string
Reimplemented from Acc_Ledger.
Definition at line 819 of file acc_ledger_sale.class.php.
819 {
821 extract($p_array, EXTR_SKIP);
823 // don't need to verify for a summary
824 if (!$p_summary)
825 {
826 $this->verify($p_array);
827 }
829 // to show a select list for the analytic & VAT USE
830 // if analytic is op (optionnel) there is a blank line
831
832 bcscale(4);
834 $client->get_by_qcode($e_client, true);
835
836 $client_name = $client->getName() .
839 $client->strAttribut(ATTR_DEF_CITY);
842 $lPeriode->p_id = $period;
843 } else {
844 $lPeriode->find_periode($e_date);
845 }
846 $date_limit = $lPeriode->get_date_limit();
850 if ( $p_summary ) {
851 $jr_id=$this->db->get_value('select jr_id from jrn where jr_internal=$1',array($this->internal));
857 $r.=sprintf ('<a class="line" style="display:inline" href="javascript:modifyOperation(%d,%d)">%s</a>',
861 }
864 if ( ! $p_summary) {
866 } else {
868 $e_pj=$this->pj;
869 if ( strcmp($this->pj,$e_pj) != 0 )
870 {
872 '<span class="notice"> '._('Attention numéro pièce existante, elle a du être adaptée').'</span></td>';
873 } else {
875 }
876 }
885 $r.='<td> ' . _('Période Comptable') . '</td><td> ' .hb( $date_limit['p_start'] . '-' . $date_limit['p_end']) . '</td>';
897
906
915
916
922 } else {
924 }
925 /* if we use the AC */
928 $a_anc = $anc->get_list();
929 $x = count($a_anc);
930 /* set the width of the col */
932
933 /* add hidden variables pa[] to hold the value of pa_id */
935 }
937 $tot_amount = 0.0;
938 $tot_tva = 0.0;
941 continue;
942
943 /* retrieve information for card */
948 else
953
954 $oTva->set_parameter('id', $idx_tva);
955 $oTva->load();
956 }
962 $op->compute_vat();
965 if (isset($tva[$idx_tva]))
966 $tva[$idx_tva]=bcadd($tva[$idx_tva],$tva_item,2);
967 else
968 $tva[$idx_tva] = $tva_item;
969 $tot_tva = round(bcadd($tva_item, $tot_tva), 2);
970 }
972
978 $r.=$fiche_name;
986 $both_side=0;
991 $both_side=$oTva->get_parameter("both_side");
992 /* warning if tva_computed and given are not the
993 same */
994 if (bcsub($tva_item, $tva_computed) != 0 && ! ($tva_item == 0 && $both_side == 1)) {
997 $r.='<a href="#" class="error" style="display:inline" title="' . _("Attention Différence entre TVA calculée et donnée") . '">'
999 } else {
1002 }
1007 $tot_row = bcadd($tva_item, $amount);
1009 } else {
1013 }
1014 // encode the pa
1017 // show form
1021 $p_mode = ($p_summary == false) ? 1 : 0;
1023 /* op is the operation it contains either a sequence or a jrnx.j_id */
1027 }
1028
1029
1031 } // end loop item
1032 //
1033 // Add the sum
1034 $decalage=($g_parameter->MY_TVA_USE == 'Y')?'<td></td><td></td><td></td><td></td>':'<td></td>';
1036 $tot_eur=round(bcdiv($tot, $p_currency_rate),2);
1038 $str_tot=_('Totaux');
1039
1040 // Get currency code
1043 if ( $p_currency_code != 0 ) {
1045 $acc_currency->set_id($p_currency_code);
1046 $str_code=$acc_currency->get_code();
1047 }
1048 // Format amount
1050 $tot_tva=nbm($tot_tva);
1051 $rate=_("Taux ");
1053 $r.=<<<EOF
1055 {$decalage}
1056 <td>
1057 {$str_tot} {$str_code}
1058 </td>
1060 {$tot_tva}
1061 </td>
1063 {$tot_amount}
1064 </td>
1066 {$tot_str} {$str_code}
1067 </td>
1068 </tr>
1069EOF;
1071 $iso_code=$sql_currency->getp("cr_code_iso");
1072 if ($p_currency_code !=0) {
1073
1074 $r.=<<<EOF
1076 {$decalage}
1077 <td>
1078
1079 </td>
1081
1082 </td>
1084 {$rate} {$p_currency_rate}
1085 </td>
1087 {$tot_eur} {$iso_code}
1088 </td>
1089 </tr>
1090EOF;
1091 }
1092
1093 } else {
1095 $iso_code=$sql_currency->getp("cr_code_iso");
1096 // without VAT
1097 $r.=<<<EOF
1099 {$decalage}
1100 <td>
1101 {$str_tot} {$str_code}
1102 </td>
1104
1105 </td>
1107
1108 </td>
1110 {$tot_str}
1111 </td>
1112 </tr>
1114 {$decalage}
1115 <td>
1116 </td>
1117 <td>
1118
1119 </td>
1120 <td>
1121 {$rate} {$p_currency_rate}
1122 </td>
1124 {$tot_eur} {$iso_code}
1125 </td>
1126 </tr>
1127EOF;
1128 }
1132 $r.='<input type="button" class="button" value="' . _('Vérifiez Imputation Analytique') . '" onClick="verify_ca(\'\');">';
1135 $other_tax_label="";
1138 $other_tax_label=_("Autre taxe");
1140 }
1141 /* use VAT */
1148 $oTva->load();
1149
1152 }
1154 if ( ! empty($other_tax_label) ) {
1156 }
1160 } else {
1161 if ( ! empty($other_tax_label) ) {
1163 }
1166 }
1168
1169
1170 /* Add hidden */
1175 $mt = microtime(true);
1178
1179 if (isset($period))
1180 {
1182 }
1183 /* \todo comment les types hidden gérent ils des contenus avec des quotes, double quote ou < > ??? */
1192 }
1193 $e_mp = (isset($e_mp)) ? $e_mp : 0;
1195
1197 // Show the available repository
1199 }
1200
1201 /* if the paymethod is not 0 and if a quick code is given */
1206 /* needed for generating a invoice */
1209
1211 $fname->get_by_qcode(${'e_mp_qcode_' . $e_mp});
1213 " le ".${"mp_date"}.
1214 " " . $fname->getName() . '</h2> ' . '<p class="decale">' . _('Déduction acompte ') . h($acompte) . '</p>' .
1217 }
1218
1228 }
1230 }
1231 /*
1232 * warning if the amount is positive and expecting a negative one
1233 */
1235 if ( $negative != "") {
1237 }
1239 }
catch(Exception $exc) if(! $g_user->can_write_action($ag_id)) $r
Definition: ajax_add_concerned_card.php:53
if(isset($_REQUEST['gDossier']) && $http->request("gDossier","number", 0) !=0) $repo
Definition: ajax_preference.php:47
display currency , convert to euro , and save them if used.
Definition: acc_currency.class.php:34
select_depot($p_readonly, $p_repo)
Let you select the repository before confirming a sale or a purchase.
Definition: acc_ledger.class.php:3262
warn_manual_receipt($p_array)
warn if the suggested receipt and receipt are different , it means that the user tried to number hims...
Definition: acc_ledger.class.php:3578
display_negative_warning($p_amount)
If the amount is positive and the ledger expects a negative amount, il will return the saved warning.
Definition: acc_ledger.class.php:3451
has_other_tax()
returns true if the ledger has an additional tax
Definition: acc_ledger.class.php:3546
check_periode()
Check if a Dossier is using the check on the periode, if true than the user has to enter the date and...
Definition: acc_ledger.class.php:1806
this class is used to show the form for entering an operation only FOR analytic operation to save it,...
Definition: anc_operation.class.php:33
static hidden($p_array)
return an HTML string containing hidden input type to hold the differant PA_ID
Definition: anc_plan.class.php:201
define Class fiche and fiche def, those class are using class attribut. When adding or modifing new c...
Definition: fiche.class.php:38
static infobulle($p_comment)
Display a info in a bubble, text is in message_javascript.
Definition: icon_action.class.php:97
References $acompte, $amount, $anc, $date_limit, $default_currency, $e_date, $fiche, $g_parameter, $g_user, $i, $jr_id, $jrn_type, $op, $other_tax_amount, $p_array, $p_jrn, $r, $repo, $span, $str_code, $tot, $tot_amount, $value, ATTR_DEF_ACCOUNT, ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_CP, ATTR_DEF_NAME, Acc_Ledger\check_periode(), cn, db, Acc_Ledger\display_negative_warning(), Acc_Ledger\get_name(), h, Acc_Ledger\has_other_tax(), hb(), Anc_Plan\hidden(), HtmlInput\hidden(), id, Icon_Action\infobulle(), nbm(), noalyss_strlentrim(), HtmlInput\post_to_hidden(), Acc_Ledger\select_depot(), span(), td(), tr(), UPDRECEIPT, and Acc_Ledger\warn_manual_receipt().
Here is the call graph for this function:
◆ extra_info()
| Acc_Ledger_Sale::extra_info | ( | ) |
the function extra info allows to
- add a attachment
- generate an invoice
- insert extra info
- Returns
- string
Definition at line 1248 of file acc_ledger_sale.class.php.
1248 {
1250 // check for upload piece
1252 $file->table = 0;
1257
1258 if ($this->db->count_sql("select md_id,md_name from document_modele where md_affect='VEN' ") > 0) {
1259
1260
1262 // We propose to generate the invoice and some template
1264 $doc_gen->name = "gen_doc";
1265 $doc_gen->value = $this->db->make_array(
1266 "select md_id,md_name " .
1267 " from document_modele where md_affect='VEN' order by 2");
1269 }
1277 }
Html Input for uploading file, must be in a form with enctype="multipart/form-data".
Definition: ifile.class.php:31
Html Input , create a tag <SELECT> ... </SELECT> if readonly == true then display the label correspon...
Definition: iselect.class.php:40
◆ get_detail_sale()
| Acc_Ledger_Sale::get_detail_sale | ( | $p_from, | |
| $p_end, | |||
$p_filter_operation = 'all' |
|||
| ) |
Retrieve data from the view v_detail_sale , gives all the row of an operation.
- Remarks
- $g_user connected user
- Parameters
-
$p_from jrn.jr_tech_per from type $p_end jrn.jr_tech_per to $p_filter_operation valid option : all, paid, unpaid
- Returns
- type
Definition at line 1641 of file acc_ledger_sale.class.php.
1642 {
1643 global $g_user;
1644 // Journal valide
1645 if ( $this->id == 0 ) die (__FILE__.":".__LINE__." Journal invalide");
1646
1647 // Securite
1649
1650 switch ( $p_filter_operation)
1651 {
1652 case 'all':
1654 break;
1655 case 'paid':
1657 break;
1658 case 'unpaid':
1660 break;
1661 default:
1662 throw new Exception(_("Filtre invalide",5));
1663
1664 }
1665 // get the data from the view
1667 from v_detail_sale
1668 where
1669 jr_def_id = $1
1670 and jr_date >= (select p_start from parm_periode where p_id = $2)
1671 {$sql_filter}
1672 and jr_date <= (select p_end from parm_periode where p_id = $3) "
1673 .' order by jr_date,substring(jr_pj_number,\'[0-9]+$\')::numeric asc ';
1676 }
References $g_user, $p_end, $ret, $sql, $sql_filter, and db.
◆ heading_detail_sale()
|
static |
compute an array with the heading cells for the details, used for the export in CSV
- Returns
- array
Definition at line 1682 of file acc_ledger_sale.class.php.
1683 {
1718
1719
1721 }
References $array.
◆ input()
| Acc_Ledger_Sale::input | ( | $p_array = null, |
|
$p_readonly = 0 |
|||
| ) |
display the form for entering data for invoice,
- Parameters
-
$p_array is null or you can put the predef operation or the $_POST
- Returns
- HTML string
Reimplemented from Acc_Ledger.
Definition at line 1287 of file acc_ledger_sale.class.php.
1287 {
1289 // load ledger definition
1290 $this->load();
1292 $http->set_array([]);
1294 extract($p_array, EXTR_SKIP);
1296 }
1298 $flag_tva = $g_parameter->MY_TVA_USE;
1299 /* Add button */
1300
1301 $str_add_button_tiers = "";
1302 $add_card=FALSE;
1304 $add_card=TRUE;
1306 }
1307
1308 // The first day of the periode
1313 else
1315
1316 $e_ech = (isset($e_ech)) ? $e_ech : "";
1317 $e_comm = (isset($e_comm)) ? $e_comm : "";
1318
1320 $r.=dossier::hidden();
1321 $f_legend = _('Client');
1322
1324 $Echeance->setReadOnly(false);
1325
1326 $Echeance->tabindex = 2;
1330 $Date->setReadOnly(false);
1331
1332 $f_date = $Date->input("e_date", $op_date);
1333
1334 $f_periode = '';
1335 // Periode
1336 //--
1338 $l_user_per = $g_user->get_periode();
1340
1342 $period->user = $g_user;
1343 $period->cn = $this->db;
1344 $period->value = $def;
1345 $period->type = OPEN;
1346 try {
1347 $l_form_per = $period->input();
1350 throw new Exception( _("Aucune période ouverte") );
1351 }
1352 }
1354 $f_periode = '<td>' . _("Période comptable") . "</td> <td> $label " . $l_form_per . '</td>';
1355 }
1356 /* if we suggest the next pj, then we need a javascript */
1357 $add_js = "";
1359 $add_js = "update_pj();";
1360 }
1362 $add_js.='get_last_date();';
1363 }
1364 $add_js.='update_name();';
1365 $add_js.='update_pay_method();';
1366 $add_js.='update_row("sold_item");';
1367 $add_js.='update_other_tax();';
1368 $add_js.='update_visibility_quantity();';
1369
1372 throw new Exception(_('Pas de journal disponible'));
1373 $wLedger->table = 0;
1374 $wLedger->javascript = "onChange='update_predef(\"ven\",\"f\",\"".$_REQUEST['ac']."\");$add_js'";
1376
1377 $f_jrn = $wLedger->input();
1378
1380 $Commentaire->table = 0;
1381 $Commentaire->setReadOnly(false);
1382 $Commentaire->size = (empty($e_comm))?60:strlen($e_comm)+5;
1383 $Commentaire->size = ($Commentaire->size<60)?60:$Commentaire->size;
1384 $Commentaire->tabindex = 3;
1385
1387
1388 $f_desc = $Commentaire->input("e_comm", $e_comm) ;
1389 // PJ
1390 //--
1391 /* suggest PJ ? */
1392 $default_pj = '';
1394 $default_pj = $this->guess_pj();
1395 }
1396
1399 {
1400 $pj->setReadOnly(true);
1401 $pj->id="e_pj";
1402 }
1403
1404 $pj->table = 0;
1405 $pj->name = "e_pj";
1406 $pj->size = 10;
1407 $pj->value = (isset($e_pj)) ? $e_pj : $default_pj;
1409 // Display the customer
1410 //--
1412
1413 // Save old value and set a new one
1414 //--
1415 $e_client = ( isset($e_client) ) ? $e_client : "";
1416 $e_client_label = " "; //str_pad("",100,".");
1417 // retrieve e_client_label
1418 //--
1419
1422 $fClient->get_by_qcode($e_client);
1427 }
1428
1431 $W1->name = "e_client";
1432 $W1->tabindex = 3;
1433 $W1->value = $e_client;
1434 $W1->table = 0;
1435 $W1->set_dblclick("fill_ipopcard(this);");
1436 $W1->set_attribute('ipopup', 'ipopcard');
1437
1438 // name of the field to update with the name of the card
1439 $W1->set_attribute('label', 'e_client_label');
1440 // name of the field to update with the name of the card
1441 $W1->set_attribute('typecard', 'deb');
1442
1443 // Add the callback function to filter the card on the jrn
1444 $W1->set_callback('filter_card');
1445 $W1->set_function('fill_data');
1446 $W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
1447 $f_client_qcode = $W1->input();
1449 $client_label->table = 0;
1450 $f_client = $client_label->input("e_client_label", $e_client_label);
1451 $f_client_bt = $W1->search();
1452
1453
1454 // Record the current number of article
1456 $p_article = ( isset($nb_item)) ? $nb_item : $this->get_min_row();
1459
1460
1461 $f_legend_detail = _("Détail articles vendus");
1462
1463 // For each article
1464 //--
1466 // Code id, price & vat code
1467 //--
1468 $march = (isset(${"e_march$i"})) ? ${"e_march$i"} : "";
1470 if ($flag_tva == 'Y') {
1471 $march_tva_id = (isset(${"e_march$i" . "_tva_id"})) ? ${"e_march$i" . "_tva_id"} : "";
1472 $march_tva_amount = (isset(${"e_march$i" . "_tva_amount"})) ? ${"e_march$i" . "_tva_amount"} : "";
1473 }
1475
1476 // retrieve the tva label and name
1477 //--
1480 $fMarch->get_by_qcode($march);
1481 $march_label = $fMarch->strAttribut(ATTR_DEF_NAME);
1482 if ($flag_tva == 'Y') {
1483 if (!(isset(${"e_march$i" . "_tva_id"})))
1484 $march_tva_id = $fMarch->strAttribut(ATTR_DEF_TVA);
1485 }
1486 }
1487 // Show input
1488 //--
1490 $W1->label = "";
1492 $W1->value = $march;
1493 $W1->table = 1;
1494 $W1->set_attribute('typecard', 'cred');
1495 $W1->set_dblclick("fill_ipopcard(this);");
1496 $W1->set_attribute('ipopup', 'ipopcard');
1497
1498 // name of the field to update with the name of the card
1500 // name of the field with the price
1502 // name of the field with the TVA_ID
1504 // Add the callback function to filter the card on the jrn
1505 $W1->set_callback('filter_card');
1506 $W1->set_function('fill_data');
1507 $W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
1508
1509 $W1->readonly = false;
1510
1514 // For computing we need some hidden field for holding the value
1516 if ($flag_tva == 'Y')
1518
1520 $htva->readOnly = 1;
1521 $htva->value = 0;
1523
1526 else
1528
1529 $tvac->readOnly = 1;
1530 $tvac->value = 0;
1532
1534 {
1536 $Span->style='class="input_text label_item"';
1537 } else
1538 {
1540 $Span->extra='class="label_item"';
1541 }
1542 $Span->value = $march_label;
1543 $Span->setReadOnly(false);
1544 // card's name, price
1545 //--
1547 // price
1549 $Price->setReadOnly(false);
1550 $Price->size = 9;
1551 $Price->javascript = "onblur=\"format_number(this,4);clean_tva($i);compute_ledger($i)\"";
1555 // if tva is not needed then no tva field
1556 if ($flag_tva == 'Y') {
1557 // vat label
1558 //--
1560 $Tva->in_table = true;
1562 $Tva->set_filter("sale");
1563
1565 $Tva->value = $march_tva_id;
1567 // vat amount
1568 //--
1570 $wTva_amount->readOnly = false;
1571 $wTva_amount->size = 6;
1572 $wTva_amount->javascript = "onblur='format_number(this);compute_ledger($i)'";
1573 $array[$i]['amount_tva'] = $wTva_amount->input("e_march" . $i . "_tva_amount", $march_tva_amount);
1574 }
1575 // quantity
1576 //--
1577 $quant = (isset(${"e_quant$i"})) ? ${"e_quant$i"} : "1";
1579
1580 $Quantity->setReadOnly(false);
1581 $Quantity->size = 8;
1582 $Quantity->javascript = "onchange=\"format_number(this,2);clean_tva($i);compute_ledger($i);\"";
1584 }// foreach article
1585 $f_type = _('Client');
1586
1587 // Currency
1588 $currency_select = $this->CurrencyInput("currency_code", "p_currency_rate" , "p_currency_euro");
1590
1592 $currency_input->id="p_currency_rate";
1593 $currency_input->prec=8;
1595 $currency_input->javascript='onchange="format_number(this,4);CurrencyCompute(\'p_currency_rate\',\'p_currency_euro\');"';
1596
1598
1599 //
1600 // Button for template operation
1601 //
1602 ob_start();
1603 echo '<div id="predef_form">';
1612 echo '</div>';
1613 $str_op_template=ob_get_contents();
1614 ob_end_clean();
1615
1616 ob_start();
1617 require_once NOALYSS_TEMPLATE.'/form_ledger_detail.php';
1618 $form_ledger_detail=ob_get_contents();
1619 ob_end_clean();
1620
1621 $r.=$form_ledger_detail;
1622
1623 // Set correctly the REQUEST param for jrn_type
1631 }
CurrencyInput($p_currency_code, $p_currency_rate, $p_eur_amount)
Create a select from value for currency and add javascript to update $p_currency_rate and $p_eur_amou...
Definition: acc_ledger.class.php:3408
select_ledger($p_type="ALL", $p_access=3, $enable=TRUE)
Show a select list of the ledgers you can access in writing, reading or simply accessing.
Definition: acc_ledger.class.php:552
input_additional_tax()
form : display additional tax available for this ledger and value, set 2 values : checkbox if tax app...
Definition: acc_ledger.class.php:3489
add_card($p_filter, $p_id_update)
Return a button to create new card, depending of the ledger.
Definition: acc_ledger.class.php:3341
static ledger_add_item($p_ledger)
Build a HTML string for adding multiple rows.
Definition: html_input_noalyss.class.php:42
manage the http input (get , post, request) and extract from an array
Definition: http_input.class.php:38
Input HTML for the card show buttons, in the file, you have to add card.js How to use :
Definition: icard.class.php:121
Html Input : Input a date format dd.mm.yyyy The property title should be set to indicate what it is e...
Definition: idate.class.php:34
This class handles only the numeric input, the input will call a javascript to change comma to period...
Definition: inum.class.php:42
manage the predefined operation, link to the table op_def and op_def_detail
Definition: pre_operation.class.php:31
create_script($p_string)
create the HTML for adding the script tags around of the script
Definition: function_javascript.php:39
References $array, $currency, Acc_Ledger\$db, $def, $e, $e_date, $fiche, $g_parameter, $g_user, $http, $i, $label, $op, $oPeriode, $p_array, $periode, $r, $url, $wLedger, Acc_Ledger\add_card(), ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_CP, ATTR_DEF_NAME, ATTR_DEF_TVA, Acc_Ledger\check_periode(), create_script(), Acc_Ledger\CurrencyInput(), db, FICADD, Acc_Ledger\get_min_row(), Acc_Ledger\guess_pj(), HtmlInput\hidden(), id, Icon_Action\infobulle(), Acc_Ledger\input_additional_tax(), Html_Input_Noalyss\ledger_add_item(), noalyss_strlentrim(), OPEN, Acc_Ledger\select_ledger(), and UPDRECEIPT.
Here is the call graph for this function:
◆ insert()
| Acc_Ledger_Sale::insert | ( | $p_array = null | ) |
insert into the database, it calls first the verify function, store the value of the inserted operation in $this->jr_id and this->jr_internal
It generates the document if gen_invoice is set and save the middle of payment if any ($e_mp)
It also create a second operation if there is a payment
- Parameters
-
$p_array is usually $_POST or a predefined operation
- Returns
- string : internal number
- Note
- throw an Exception
save all vat $i contains the tva_id and value contains the vat amount if if ($g_parameter->MY_TVA_USE == 'Y' )
if the given receipt number is equal to one computed then increment
Date
Definition at line 258 of file acc_ledger_sale.class.php.
258 {
260 // load ledger definition
261 $this->load();
262 extract($p_array, EXTR_SKIP);
263 $this->verify($p_array);
264
269 $this->internal = $internal;
270
273
275 $tperiode = $period;
276 else
278
280 $cust->get_by_qcode($e_client);
281 $sposte = $cust->strAttribut(ATTR_DEF_ACCOUNT);
282
283 // if 2 accounts, take only the debit one for the customer
284 //
285 if (strpos($sposte, ',') != 0) {
288 } else {
289 $poste = $sposte;
290 }
291
292 bcscale(4);
293 try {
294 // total amount of the sales (credit)
295 $tot_amount = 0;
296 // total amount of the VAT
297 $tot_tva = 0;
298 // tot debit if item's amount < 0
299 $tot_debit = 0;
300 // total amount in currency
301 $tot_amount_cur=0;
302
303 $this->db->start();
304 $tva = array();
305 // find the currency from v_currency_last_value
307 /* Save all the items without vat */
309 $n_both = 0;
310 if ( empty(${'e_march'.$i}) || empty(${'e_quant'.$i}) ) continue;
311
312 /* First we save all the items without vat */
316
317 // convert amount to currency
318 $amount=bcdiv($amount_currency,$p_currency_rate);
319
322 if ( DEBUGNOALYSS > 1 ) { echo __LINE__." tot_amount $tot_amount<br>";}
324 $acc_operation->date = $e_date;
326
327 // if 2 accounts, take only the credit one
328 if (strpos($sposte, ',') != 0) {
330 $poste_val = $array[1];
331 } else {
332 $poste_val = $sposte;
333 }
334
335 $acc_operation->poste = $poste_val;
336 $acc_operation->amount = $amount;
337 $acc_operation->grpt = $seq;
338 $acc_operation->jrn = $p_jrn;
339 $acc_operation->type = 'c';
340 $acc_operation->periode = $tperiode;
342 {
343 $acc_operation->desc=strip_tags(${"e_march".$i."_label"});
344 }
345 else
346 {
347 $acc_operation->desc=null;
348 }
349
352 {
353 $tot_debit=round(bcadd($tot_debit, abs($amount)),2);
354 }
355
356 $j_id = $acc_operation->insert_jrnx();
357
359 /* Compute sum vat */
363 $oTva->set_parameter("id", $idx_tva);
364 $oTva->load();
365 /* if empty then we need to compute it */
366 if (trim($tva_item_currency) == '' || ${'e_march'.$i.'_tva_amount'} == 0) {
367 /* retrieve tva */
369 $l->load();
371 $tva_item=round($tva_item_currency,2);
372 }
373 $tva_item=bcdiv($tva_item_currency,$p_currency_rate);
374 $tva_item=round($tva_item,2);
375 if (isset($tva[$idx_tva]))
376 {
377 $tva[$idx_tva]=bcadd($tva_item,$tva[$idx_tva]);
378 $tva[$idx_tva]=round($tva[$idx_tva],2);
379 }
380 else
381 {
382 $tva[$idx_tva]=$tva_item;
383 }
384 if ($oTva->get_parameter("both_side") == 0) {
385 $tot_tva = bcadd($tva_item, $tot_tva);
386 $tot_tva = round($tot_tva, 2);
387 } else {
388 $n_both = $tva_item;
389 $tva_item_currency = 0;
390 if ($n_both<0)
391 {
392 $tot_debit=round(bcadd($tot_debit, abs($n_both)),2);
393 }
394 }
395 }
396
397 /* Save the stock */
398 /* if the quantity is < 0 then the stock increase (return of
399 * material)
400 */
402
403 // always save quantity but in withStock we can find
404 // what card need a stock management
406 {
408 Stock_Goods::insert_goods($this->db, array('j_id' => $j_id, 'goods' => ${'e_march' . $i}, 'quant' => $nNeg * ${'e_quant' . $i}, 'dir' => $dir, 'repo' => $repo));
409 }
410
411
413 // for each item, insert into operation_analytique */
415 $op->set_currency_rate($p_currency_rate);
416 $op->oa_group = $group;
422 }
426
427 $price_euro=bcdiv(${'e_march'.$i.'_price'}, $p_currency_rate);
428
430 /* save into quant_sold */
431 $r = $this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10)", array(null, /* 1 */
436 $tva_item, /* 6 */
437 $idx_tva, /* 7 */
438 $e_client, /* 8 */
439 $n_both, /* 9 */
440 $price_euro/* Price /unit */
441 ));
442 } else {
443 $tva_item_currency=0;
444
445 $r = $this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10) ", array(null, /* 1 */
450 0,
451 null,
452 $e_client,
453 0, /* 9 */
454 $price_euro /* Price /unit */
455 ));
456 } // if ( $g_parameter->MY_TVA_USE=='Y') {
457 /*
458 * Insert also in operation_currency
459 */
461 $operation_currency->oc_amount=$amount_currency;
462 $operation_currency->oc_vat_amount=$tva_item_currency;
463 $operation_currency->oc_price_unit=${'e_march'.$i.'_price'};
464 $operation_currency->j_id=$j_id;
465 $operation_currency->insert();
466 $tot_amount_cur=round(bcadd($tot_amount_cur,$amount_currency,4),4);
467 $tot_amount_cur=round(bcadd($tot_amount_cur,$tva_item_currency,4),4);
468 }// end loop : save all items
469
470 /*** save other tax ****/
473 from acc_other_tax
474 where ac_id=$1 ",
479 $acc_operation->date=$e_date;
481 $acc_operation->amount=$other_tax_amount;
482 $acc_operation->grpt=$seq;
483 $acc_operation->jrn=$p_jrn;
484 $acc_operation->type='c';
485 $acc_operation->periode=$tperiode;
488 $jrn_tax_sql->j_id=$acc_operation->insert_jrnx();
491 $jrn_tax_sql->insert();
494 $tot_debit=bcadd($tot_debit,abs($other_tax_amount));
495 }
498 $operation_currency->oc_vat_amount=0;
499 $operation_currency->oc_price_unit=0;
500 $operation_currency->j_id=$jrn_tax_sql->j_id;
501 $operation_currency->insert();
502 }
503
504 }
505
506
507 /* save total customer */
508 $cust_amount = bcadd($tot_amount, $tot_tva);
509 $cust_amount = round($cust_amount,2);
510 if ( DEBUGNOALYSS > 1 ) {
511 echo __LINE__." cust_amount $cust_amount<br>";
512 echo __LINE__." tot_amount $tot_amount<br>";
513 echo __LINE__." tot_tva $tot_tva<br>";
514
515 }
516
518 $acc_operation->date = $e_date;
519 $acc_operation->poste = $poste;
520 $acc_operation->amount = $cust_amount;
521 $acc_operation->grpt = $seq;
522 $acc_operation->jrn = $p_jrn;
523 $acc_operation->type = 'd';
524 $acc_operation->periode = $tperiode;
525 $acc_operation->qcode = ${"e_client"};
526 if ($cust_amount>0)
527 {
528 $tot_debit=bcadd($tot_debit, $cust_amount);
529 $tot_debit=round($tot_debit, 2);
530 }
531 $let_tiers = $acc_operation->insert_jrnx();
532
533 // --- insert also the currency amount for the customer
535 $operation_currency->oc_amount=$tot_amount_cur;
536 $operation_currency->oc_vat_amount=0;
537 $operation_currency->oc_price_unit=0;
538 $operation_currency->j_id=$let_tiers ;
539 $operation_currency->insert();
540
541
542 /** save all vat
543 * $i contains the tva_id and value contains the vat amount
544 * if if ($g_parameter->MY_TVA_USE == 'Y' )
545 */
547 if ( DEBUGNOALYSS > 1 ) {
548 var_dump($tva);
549 }
553 $oTva->load();
554
555 $poste_vat = $oTva->get_side('c');
556
557 $cust_amount = bcadd($tot_amount, $tot_tva);
559 $acc_operation->date = $e_date;
560 $acc_operation->poste = $poste_vat;
561 $acc_operation->amount = $value;
562 $acc_operation->grpt = $seq;
563 $acc_operation->jrn = $p_jrn;
564 $acc_operation->type = 'c';
565 $acc_operation->periode = $tperiode;
567 {
568 $tot_debit=bcadd($tot_debit, abs($value));
569 $tot_debit=round($tot_debit, 2);
570 }
571 $acc_operation->insert_jrnx();
572 if ( DEBUGNOALYSS > 1 ) {
573 echo __LINE__." tot_tva $tot_tva<br>";
574
575 }
576 // if TVA is on both side, we deduce it immediately
577 if ($oTva->get_parameter("both_side") == 1) {
578 $poste_vat = $oTva->get_side('d');
579 $cust_amount = bcadd($tot_amount, $tot_tva);
581 $acc_operation->date = $e_date;
582 $acc_operation->poste = $poste_vat;
583 $acc_operation->amount = $value;
584 $acc_operation->grpt = $seq;
585 $acc_operation->jrn = $p_jrn;
586 $acc_operation->type = 'd';
587 $acc_operation->periode = $tperiode;
588 $acc_operation->insert_jrnx();
589 $tot_debit = bcadd($tot_debit, $value);
590 $tot_debit = round($tot_debit, 2);
591 $n_both = $value;
592 }
593 }
594 } // if ($g_parameter->MY_TVA_USE=='Y')
595 /*
596 * Balance the amount on D and C , the difference must be inserted as "difference due to a rounded value"
597 * Value are retrieve thanks $seq
598 */
599
600 /* insert into jrn */
601 if ( DEBUGNOALYSS > 1 ) { echo __LINE__." tot_debit ".round($tot_debit,2)."<br>"; }
603 $acc_operation->date = $e_date;
604 $acc_operation->echeance = $e_ech;
605 $acc_operation->amount = abs(round($tot_debit, 2));
606 $acc_operation->desc = $e_comm;
607 $acc_operation->grpt = $seq;
608 $acc_operation->jrn = $p_jrn;
609 $acc_operation->periode = $tperiode;
610 $acc_operation->pj = $e_pj;
611 $acc_operation->mt = $mt;
612 $acc_operation->currency_id=$p_currency_code;
613 $acc_operation->currency_rate=$p_currency_rate;
614 $acc_operation->currency_rate_ref=$currency_rate_ref->get_rate();
615
617 throw new Exception (_("Erreur de balance"));
618 }
619
620 $this->pj = $acc_operation->set_pj();
621
622 /**
623 *
624 * if the given receipt number is equal to one computed then increment
625 */
627 $this->inc_seq_pj();
628 }
630
631
632 /* update quant_sold */
634 where j_id in (select j_id from jrnx where j_grpt=$2)'
635 , array($internal, $seq));
636
637 /* Save the attachment or generate doc */
638 if (isset($_FILES['pj'])) {
641 else
642 /* Generate an invoice and save it into the database */
646 }
647 }
648 //----------------------------------------
649 // Save the payer
650 //----------------------------------------
651 if ($e_mp != 0) {
652 /**
653 * Date
654 */
656
657 /* mp */
659 $mp->load();
660
661
662 /* jrnx */
665 $acinternal = $acjrn->compute_internal_code($acseq);
666
667 /*
668 * for the use of the card of the bank
669 */
670 if ( $acjrn->get_type()=='FIN') {
673 $fqcode=$acfiche->strAttribut(ATTR_DEF_QUICKCODE);
674 } else {
675 $fqcode = ${'e_mp_qcode_' . $e_mp};
677 $acfiche->get_by_qcode($fqcode);
678 }
679
680 /* Insert paid by */
682 $acc_pay->date = $pay_date;
683 /* get the account and explode if necessary */
684 $sposte = $acfiche->strAttribut(ATTR_DEF_ACCOUNT);
685 // if 2 accounts, take only the debit one for customer
686 if (strpos($sposte, ',') != 0) {
688 $poste_val = $array[0];
689 } else {
690 $poste_val = $sposte;
691 }
692 // Convert paid amount in EUR
693 $acompte_eur=bcdiv($acompte, $p_currency_rate);
694
695 $famount=bcsub($cust_amount,$acompte_eur);
696 $acc_pay->poste = $poste_val;
697 $acc_pay->qcode = $fqcode;
698 $acc_pay->amount = abs(round($famount, 2));
699 $acc_pay->desc = null;
700
701 $acc_pay->grpt = $acseq;
702 $acc_pay->jrn = $mp->get_parameter('ledger_target');
703 $acc_pay->periode = $tperiode;
704 $acc_pay->type = ($famount >= 0) ? 'd' : 'c';
705 $let_pay=$acc_pay->insert_jrnx();
706
707 /* Insert supplier */
709 $acc_pay->date = $pay_date;
710 $acc_pay->poste = $poste;
711 $acc_pay->qcode = $e_client;
712 $acc_pay->amount = abs(round($famount, 2));
713 $acc_pay->desc = null;
714 $acc_pay->grpt = $acseq;
715 $acc_pay->jrn = $mp->get_parameter('ledger_target');
716 $acc_pay->periode = $tperiode;
717 $acc_pay->type = ($famount >= 0) ? 'c' : 'd';
718 $let_other = $acc_pay->insert_jrnx();
719
720 // insert into operation_currency customer
722 $operation_currency->oc_amount=bcsub($tot_amount_cur,$acompte);
723 $operation_currency->oc_vat_amount=0;
724 $operation_currency->oc_price_unit=0;
725 $operation_currency->j_id=$let_other;
726 $operation_currency->insert();
727
728 // insert into operation_currency bank
730 $operation_currency->oc_amount=bcsub($tot_amount_cur,$acompte);
731 $operation_currency->oc_vat_amount=0;
732 $operation_currency->oc_price_unit=0;
733 $operation_currency->j_id=$let_pay;
734 $operation_currency->insert();
735
736 // Add info for currency
737 $acc_pay->currency_id=$p_currency_code;
738 $acc_pay->currency_rate=$p_currency_rate;
739 $acc_pay->currency_rate_ref=$currency_rate_ref->get_rate();
740
741
742 /* insert into jrn */
743 $acc_pay->mt = $mt;
744 $acjrn->grpt_id = $acseq;
745 $acc_pay->desc = (!isset($e_comm_paiement) || noalyss_strlentrim($e_comm_paiement) == 0) ? $e_comm : $e_comm_paiement;
746 $mp_jr_id = $acc_pay->insert_jrn();
747 $acjrn->update_internal_code($acinternal);
748 // add an automatic PJ if ODS
749 if ($acjrn->get_type()=="ODS") {
750 $acc_pay->pj=$acjrn->guess_pj();
751 $acc_pay->set_pj();
752 }
753 $r1 = $this->get_id($internal);
754 $r2 = $this->get_id($acinternal);
755
756 /*
757 * add lettering
758 */
760 $oletter->insert_couple($let_tiers, $let_other);
761
762
763 /* set the flag paid */
765
766 /* Reconcialiation */
768 $rec->set_jr_id($r1);
769 $rec->insert($r2);
770
771
772 /*
773 * save also into quant_fin
774 */
775
776 /* get ledger property */
779
780 /* if ledger is FIN then insert into quant_fin */
782 $ledger->insert_quant_fin($acfiche->id, $mp_jr_id, $cust->id, bcmul($famount, 1),$let_other);
783 }
784 }
785 /*----------------------------------------------
786 * Save the note
787 ----------------------------------------------*/
789 $acc_operation_note=Acc_Operation_Note::build_jrn_id(-1);
791 $acc_operation_note->setOperation_id( $this->jr_id);
792 $acc_operation_note->save();
793 }
796 echo '<span class="error">' .
797 'Erreur dans l\'enregistrement ' .
798 __FILE__ . ':' . __LINE__ . ' ' .
799 $e->getMessage();
800 echo $e->getTraceAsString();
801
802 $this->db->rollback();
804 }
805 $this->db->commit();
806
807 return $internal;
808 }
record_log($p_message)
Record an error message into the log file of the server.
Definition: ac_common.php:1342
sql_string($p_string)
Fix the problem with the quote char for the database.
Definition: ac_common.php:511
the class Acc_Ledger_Fin inherits from Acc_Ledger, this object permit to manage the financial ledger
Definition: acc_ledger_fin.class.php:36
Definition: acc_ledger.class.php:35
compute_internal_code($p_grpt)
compute the internal code of the saved operation and set the $this->jr_internal to the computed value
Definition: acc_ledger.class.php:1337
create_document($internal, $p_array)
create the invoice and saved it as attachment to the operation,
Definition: acc_ledger.class.php:1912
get_id($p_internal)
retrieve the jr_id thanks the internal code, do not change anything to the current object
Definition: acc_ledger.class.php:1896
static build_jrn_id($p_jr_id)
Definition: acc_operation_note.class.php:68
this file match the tables jrn & jrnx the purpose is to remove or save accountant writing to these ta...
Definition: acc_operation.class.php:34
new class for managing the reconciliation it must be used instead of the function InsertRapt,...
Definition: acc_reconciliation.class.php:33
static show_receipt_document($p_jr_id, $p_name="")
Returns HTML code for displaying a icon with a link to a receipt document from the ledger.
Definition: html_input.class.php:1149
mother class for the lettering by account and by card use the tables jnt_letter, letter_deb and lette...
Definition: lettering.class.php:37
ORM abstract of the table public.operation_currency.
Definition: operation_currency_sql.class.php:36
static insert_goods(&$p_cn, $p_array)
Insert into stock_goods from ACH and VEN.
Definition: stock_goods.class.php:186
References $_POST, $acompte, $amount, $array, $check_periode, $dir, $e, $e_date, $fiche, $file, $g_parameter, $g_user, $i, $j_id, $l, $ledger, $op, $oPeriode, $other_tax_amount, $p_array, $p_jrn, $poste, $prop, $r, $repo, $Res, Acc_Ledger\$row, $seq, $tot_amount, $value, ATTR_DEF_ACCOUNT, ATTR_DEF_QUICKCODE, Acc_Operation_Note\build_jrn_id(), Acc_Ledger\check_periode(), Acc_Ledger\compute_internal_code(), Acc_Ledger\create_document(), db, Acc_Ledger\get_id(), h, Acc_Ledger\has_other_tax(), Acc_Ledger\inc_seq_pj(), Stock_Goods\insert_goods(), jr_id, noalyss_strlentrim(), record_log(), HtmlInput\show_receipt_document(), and sql_string().
Here is the call graph for this function:
◆ verify_operation()
| Acc_Ledger_Sale::verify_operation | ( | $p_array | ) |
verify that the data are correct before inserting or confirming
- Parameters
-
an array (usually $_POST)
- Returns
- String
- Exceptions
-
Exception if an error occurs
Reimplemented from Acc_Ledger.
Definition at line 49 of file acc_ledger_sale.class.php.
49 {
51
53 throw new Exception ("Array empty");
54
55 extract($p_array, EXTR_SKIP);
56
57 /*
58 * Check needed value
59 */
61
62 /* check for a double reload */
64 throw new Exception(_('Double Encodage'), 5);
65
66 /* check if we can write into this ledger */
68 throw new Exception(_('Accès interdit'), 20);
69
70 /* check if there is a customer */
72 throw new Exception(_('Vous n\'avez pas donné de client'), 11);
73
74 /* check if the date is valid */
76 throw new Exception(_('Date invalide'), 2);
77 }
78
81 $tperiode = $period;
82 /* check that the datum is in the choosen periode */
83 $oPeriode->p_id = $period;
85
88 throw new Exception(_('Date et periode ne correspondent pas'), 6);
89 }
90 else {
93 }
94
95 /* check if the periode is closed */
97 throw new Exception(_('Periode fermee'), 6);
98 }
99 /* check if we are using the strict mode */
101 /* if we use the strict mode, we get the date of the last
102 operation */
103 $last_date = $this->get_last_date();
105 throw new Exception(_('Vous utilisez le mode strict la dernière operation est date du ')
106 . $last_date . _(' vous ne pouvez pas encoder à une date antérieure'), 13);
107 }
108
109
111 $fiche->get_by_qcode($e_client);
113 throw new Exception(_('La fiche ') . $e_client . _('n\'a pas de poste comptable'), 8);
114
115 /* get the account and explode if necessary */
117 // if 2 accounts, take only the debit one for customer
118 if (strpos($sposte, ',') != 0) {
120 $poste_val = $array[0];
121 } else {
122 $poste_val = $sposte;
123 }
124 /* The account exists */
125
127
129 throw new Exception(_('Pour la fiche ') . $e_client . _(' le poste comptable [') . $poste->id . _('] n\'existe pas'), 9);
130 }
131
132 /* Check if the card belong to the ledger */
136 throw new Exception(_('La fiche ') . $e_client . _('n\'est pas accessible à ce journal'), 10);
137
138 $nb = 0;
139
140 //----------------------------------------
141 // foreach item
142 //----------------------------------------
145 continue;
146 /* check if amount are numeric and */
148 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un montant invalide [') . ${'e_march' . $i} . ']', 6);
150 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a une quantité invalide [') . ${'e_quant' . $i} . ']', 7);
151 /* check if all card has a ATTR_DEF_ACCOUNT */
156
157 // Check if the given tva id is valid
160 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un code tva invalide') . ' [' . ${'e_march' . $i . '_tva_id'} . ']', 13);
164 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un code tva invalide') . ' [' . ${'e_march' . $i . '_tva_id'} . ']', 13);
165
166 /*
167 * check if the accounting for VAT are valid
168 */
170
171 if (
172
173 $this->db->get_value('select count(*) from tmp_pcmn where pcm_val=$1', array($a_poste[1])) == 0)
174 throw new Exception(_(" La TVA " . $tva_rate->tva_label . " utilise des postes comptables inexistants"));
175 }
176 // if 2 accounts, take only the credit one
177 /* The account exists */
179
180 if (strpos($sposte, ',') != 0) {
182 $poste_val = $array[1];
183 } else {
184 $poste_val = $sposte;
185 }
188 throw new Exception(_('Pour la fiche ') . ${'e_march' . $i} . _(' le poste comptable [') . $poste->id . _('n\'existe pas'), 9);
189 }
190 /* Check if the card belong to the ledger */
194 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('n\'est pas accessible à ce journal'), 10);
195
197
198 }
200 throw new Exception(_('Il n\'y a aucune marchandise'), 12);
201 //------------------------------------------------------
202 // The "Paid By" check
203 //------------------------------------------------------
204
205 if ($e_mp != 0) {
207 // check for the currency , if we use a financial ledger and a card which is a bank account (with his own
208 // ledger , then the currency of the operation must be the same
210 }
211
212
213
214
215 //
216 // Check payment date
218 throw new Exception(_('Date de paiement invalide'),13);
219
220 }
221
222 // check that MP is in a not closed and exists
225 $periode->find_periode($mp_date);
228 throw new Exception(_("Période fermée")." $mp_date ");
229 }
230
231 }
232 // check limit date
234 {
235 throw new Exception(_('Date échéance invalide'),14);
236
237 }
238 // Check currency_rate if valid
240 throw new Exception(_('Taux devise invalide'),15);
241 }
242 $this->check_currency_setting($p_currency_code);
243 }
Manage the account from the table jrn, jrnx or tmp_pcmn.
Definition: acc_account_ledger.class.php:28
check_currency($p_qcode_payment, $p_currency_id)
When we write a record for the payment at the same time as a sale or a purchase, to have a bank saldo...
Definition: acc_ledger.class.php:1861
check_payment($e_mp, $e_mp_qcode)
check if the payment method is valid
Definition: acc_ledger.class.php:1938
check_strict()
Check if a Dossier is using the strict mode or not.
Definition: acc_ledger.class.php:1791
check_currency_setting($p_currency_code)
Check that the currency code does exist and the setting of the folder is correct.
Definition: acc_ledger.class.php:1821
check_parameter($p_array, $p_needed)
Check that all the index are in the array, used by function to check if the array contains the needed...
Definition: user_common.php:209
References $a_poste, $array, $e_date, $fiche, $g_parameter, $g_user, $i, $max, $min, Acc_Ledger\$nb, $oPeriode, $p_array, $p_jrn, $per, $periode, $poste, $tva_rate, ATTR_DEF_ACCOUNT, Acc_Ledger\check_currency(), Acc_Ledger\check_currency_setting(), check_parameter(), Acc_Ledger\check_payment(), Acc_Ledger\check_periode(), Acc_Ledger\check_strict(), cmpDate(), cn, db, Acc_Ledger\get_last_date(), Acc_Ledger\is_closed(), isDate(), isNumber(), and noalyss_strlentrim().
Here is the call graph for this function:
The documentation for this class was generated from the following file:
- include/class/acc_ledger_sale.class.php