Acc_Ledger_Sale Class Reference
: input, confirm and save new operations in edger of sales the $_POST data is an array with these keys More...
Inheritance diagram for Acc_Ledger_Sale:
Collaboration diagram for Acc_Ledger_Sale:
Public Member Functions | |
| __construct ($p_cn, $p_init) | |
| construct | |
| confirm ($p_array, $p_summary=false) | |
| show the summary of the operation and propose to save it | |
| extra_info () | |
| the function extra info allows to | |
| 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. | |
| input ($p_array=null, $p_readonly=0) | |
| display the form for entering data for invoice, | |
| 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 | |
| verify_operation ($p_array) | |
| verify that the data are correct before inserting or confirming | |
| Public Member Functions inherited from Acc_Ledger | |
| add_card ($p_filter, $p_id_update) | |
| Return a button to create new card, depending of the ledger. | |
| button_copy_operation () | |
| Show a button to create an operation identical to the recorded one. | |
| button_new_operation () | |
| Create a button to encode a new operation into the same ledger. | |
| 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. | |
| check_currency_setting ($p_currency_code) | |
| Check that the currency code does exist and the setting of the folder is correct. | |
| check_payment ($e_mp, $e_mp_qcode) | |
| check if the payment method is valid | |
| 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. | |
| check_strict () | |
| Check if a Dossier is using the strict mode or not. | |
| compute_internal_code ($p_grpt) | |
| compute the internal code of the saved operation and set the $this->jr_internal to the computed value | |
| convert_from_follow ($p_ag_id, $copy_description=0) | |
| convert operations from FOLLOWUP into a SALE , FEENOTE or PURCHASE operation into a suitable array | |
| create_document ($internal, $p_array) | |
| alias for Acc_Document->create_document | |
| 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. | |
| delete () | |
| let you delete a operation | |
| delete_ledger () | |
| delete a ledger IF it doesn't contain anything | |
| 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 | |
| display_ledger () | |
| display detail of a ledger | |
| display_negative_warning ($p_amount) | |
| If the amount is positive and the ledger expects a negative amount, il will return the saved warning. | |
| display_warning ($pa_msg, $p_warning) | |
| Display warning contained in an array. | |
| existing_vat () | |
| return the used VAT code with a rate > 0 | |
| get_all_fiche_def () | |
| retrieve all the card for this type of ledger, make them into a string separated by comma | |
| get_class_def () | |
| retrieve the jrn_def_class_deb and return it | |
| get_currency () | |
| returns the code iso of the default currency for this ledger | |
| get_customer_late () | |
| get info from customer not yet paid | |
| get_customer_now () | |
| get info from customer to pay today | |
| get_default_card ($p_ledger_type, $p_side) | |
| Return an array of default card for the ledger type given. | |
| get_fiche_def () | |
| retrieve the jrn_def_fiche and return them into a array index deb, cred | |
| get_first ($p_type, $p_access=3) | |
| get the first ledger | |
| get_id ($p_internal) | |
| retrieve the jr_id thanks the internal code, do not change anything to the current object | |
| get_is_loaded () | |
| get_last ($p_limit) | |
| return the last p_limit operation into an array | |
| get_last_date () | |
| get the date of the last operation | |
| get_last_pj () | |
| returns the sequence number of the receipt for the current ledger or create the sequence if it doesn't exist | |
| get_ledger_id () | |
| Set the jrn_def.jrn_def_id. | |
| get_min_row () | |
| get_name () | |
| Return the name of a ledger. | |
| get_operation ($p_from, $p_to) | |
| retrieve operation from jrn | |
| get_operation_date ($p_date, $p_ledger_type, $sql_op) | |
| Get operation from the ledger type before, after or with the given date . | |
| get_other_amount ($p_jr_id) | |
| get the amount of vat for a given jr_grpt_id from the table quant_purchase | |
| get_propertie () | |
| Get the properties of a journal. | |
| 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. | |
| get_solde ($p_from, $p_to) | |
| get the saldo of a ledger for a specific period | |
| get_supplier_late () | |
| get info from supplier not yet paid | |
| get_supplier_now () | |
| get info from supplier to pay today | |
| get_tiers ($p_jrn_type, $jr_id) | |
| Retrieve the third : supplier for purchase, customer for sale, bank for fin,. | |
| get_tiers_id ($p_jrn_type, $jr_id) | |
| Return the f_id of the tiers , called by get_tiers. | |
| get_type () | |
| Return the type of a ledger (ACH,VEN,ODS or FIN) or GL. | |
| guess_pj () | |
| guess what the next pj should be | |
| has_other_tax () | |
| returns true if the ledger has an additional tax | |
| has_quantity () | |
| Check if a ledger is enabled , 1 for yes and 0 if disabled. | |
| inc_seq_pj () | |
| increment the sequence for the pj | |
| input_additional_tax () | |
| form : display additional tax available for this ledger and value, set 2 values : checkbox if tax applies and value | |
| input_extra_info () | |
| input_new () | |
| display FORM to enter parameters to create a new ledger. | |
| input_paid ($p_selected, $p_amount=0, $p_date="", $p_comm="") | |
| Create the section payment. | |
| is_closed ($p_periode) | |
| check if the current ledger is closed | |
| is_enable () | |
| Check if a ledger is enabled , 1 for yes and 0 if disabled. | |
| listing () | |
| listing of all ledgers | |
| previous_amount ($p_to) | |
| retrieve amount of previous periode | |
| previous_other_tax ($p_to) | |
| retrieve the previous amount | |
| reverse ($p_date, $p_label) | |
| reverse the operation by creating the opposite one, the result is to avoid it it must be done in | |
| save ($p_array=null) | |
| save the operation into the jrnx,jrn, , CA and pre_def | |
| save_followup ($s_related_action) | |
| attach action-followups to an operation, | |
| save_new ($array) | |
| Insert a new ledger , member variable like jrn_def_id will changed. | |
| search_group ($p_what, $p_value) | |
| retreive the jr_grpt_id from a ledger | |
| select_default_currency () | |
| create a select button to set the default currency for a ledger used only for empty financial ledger | |
| select_depot ($p_readonly, $p_repo) | |
| Let you select the repository before confirming a sale or a purchase. | |
| 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. | |
| set_currency_id () | |
| retrieve currency_id from database | |
| set_is_loaded ($is_loaded) | |
| set_ledger_id ($p_id) | |
| Set the jrn_def.jrn_def_id. | |
| set_quantity ($p_value) | |
| set quantity for the ledger to 1 or 0, | |
| update ($array=null) | |
| update a ledger | |
| update_internal_code ($p_internal) | |
| update_paid ($p_array) | |
| Update the paiment in the list of operation. | |
| upload_supplemental_document ($jr_id) | |
| upload the supplementary documents and attach them to the JRN.JR_ID start a new transaction if the connection to the database is not already in a transaction | |
| use_quant_table ($p_grpt_id, $p_jrn_type) | |
| Check if the operation is used in the table quant*. | |
| vat_operation ($p_jr_id) | |
| get the amount of vat for a given jr_grpt_id from the table quant_purchase | |
| verify_ledger ($array) | |
| Verify before update. | |
Static Public Member Functions | |
| static | convert_to_array (Acc_Sold $sold) |
| convert an Acc_Sold to an array usable by Acc_Document\create_document @parameters $sold (Acc_Sold) convert to convert | |
| static | heading_detail_sale () |
| compute an array with the heading cells for the details, used for the export in CSV | |
| 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 | |
| static | next_number ($p_cn, $p_type) |
| retrieve the next number for this type of ledger | |
| static | test_me ($pCase='') |
| this function is intended to test this class | |
Additional Inherited Members | |
| Data Fields inherited from Acc_Ledger | |
| $currency_id | |
| $db | |
| $doc | |
| $id | |
| $jr_grpt_id | |
| $jr_id | |
| $jr_internal | |
| $jrn_deb_max_line | |
| $jrn_def_description | |
| $jrn_def_ech_lib | |
| $jrn_def_id | |
| $jrn_def_max_line_deb | |
| $jrn_def_name | |
| $jrn_def_negative_amount | |
| $jrn_def_negative_warning | |
| $jrn_def_pj_pref | |
| $jrn_def_quantity | |
| $jrn_def_type | |
| $jrn_enable | |
| $ledger_name | |
| $ledger_type | |
| $nb | |
| $pj | |
| ! | |
| $row | |
| $with_concerned | |
| Protected Member Functions inherited from Acc_Ledger | |
| find_label ($p_value) | |
| Retrieve the label of an accounting. | |
| input_supplemental_document () | |
| display INPUT type to ask the supplementary documents | |
| 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 | |
| warn_manual_receipt ($p_array) | |
| warn if the suggested receipt and receipt are different , it means that the user tried to number himself | |
| Protected Attributes inherited from Acc_Ledger | |
| $is_loaded | |
Detailed Description
: input, confirm and save new operations in edger of sales the $_POST data is an array with these keys
Array
(
// =====================
// ANALYTIC PART
// =====================
[pa_id] => Array
(
[0] => 1
)
[op] => Array
(
[0] => 0
)
[amount_t0] => 10
[hplan] => Array
(
[0] => Array
(
[0] => -1
)
)
[val] => Array
(
[0] => Array
(
[0] => 10
)
)
// =====================
// SALES DATA
// =====================
[e_client] => QuickCode customer
[nb_item] => number of items (lines of invoice)
[p_jrn] => JRN_DEF.JRN_DEF_ID id of the ledger
[jrn_note_input] => Note JRN_NOTE.N_TEXT
[mt] => 1759130008.8134
[p_currency_rate] => Currency Rate
[p_currency_code] => Currency Code
[e_comm] => Description of invoice
[e_date] => date invoice
[e_ech] => limit date
[e_pj] => Receipt number
[e_pj_suggest] => suggested receipt number
[e_mp] => payment means (
[jrn_type] => Type of ledger (always VEN)
//---------------------------------------------
// For each invoice line
//---------------------------------------------
[e_march0] => QuickCode of the item
[e_march0_label] => label
[e_march0_price] => unit price
[e_march0_tva_id] => VAT ID
[e_march0_tva_amount] => amount of VAT
[e_quant0] => quantity of item
//========================
// MISC
//========================
[repo] => 1 (repository)
[gen_invoice] => on (it is asked to generate an invoice
[bon_comm] => JRN_INFO.
[other_info] = JRN_INFO.>
[opd_name] => Name of operation template
[od_description] => Description of operation template
[reverse_date] => if reverse is asked
[ext_label] => Label for revese operation
[jr_optype] => Type of operation NOR:Normal,, EXT; reverse, ..
)
reverse($p_date, $p_label)
reverse the operation by creating the opposite one, the result is to avoid it it must be done in
Definition acc_ledger.class.php:253
Definition at line 114 of file acc_ledger_sale.class.php.
Constructor & Destructor Documentation
◆ __construct()
| Acc_Ledger_Sale::__construct | ( | $p_cn, | |
| $p_id ) |
construct
- Parameters
-
$p_cn database connexion $p_id (int) ledger idf jrn.jrn_def_id
Reimplemented from Acc_Ledger.
Definition at line 116 of file acc_ledger_sale.class.php.
116 {
117 parent::__construct($p_cn, $p_init);
118 $this->ledger_type = 'VEN';
119 }
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 945 of file acc_ledger_sale.class.php.
945 {
947 extract($p_array, EXTR_SKIP);
949 // don't need to verify for a summary
950 if (!$p_summary)
951 {
952 $this->verify($p_array);
953 }
955 // to show a select list for the analytic & VAT USE
956 // if analytic is op (optionnel) there is a blank line
957
958 bcscale(4);
960 $client->get_by_qcode($e_client, true);
961
962 $client_name = $client->getName() .
965 $client->get_attribute(ATTR_DEF_CITY);
968 $lPeriode->p_id = $period;
969 } else {
970 $lPeriode->find_periode($e_date);
971 }
972 $date_limit = $lPeriode->get_date_limit();
976 if ( $p_summary ) {
977 $jr_id=$this->db->get_value('select jr_id from jrn where jr_internal=$1',array($this->jr_internal));
983 $r.=sprintf ('<a class="line" style="display:inline" href="javascript:modifyOperation(%d,%d)">%s</a>',
984 $jr_id,dossier::id(),$this->jr_internal);
987 }
990 if ( ! $p_summary) {
992 } else {
994 $e_pj=$this->pj;
995 if ( strcmp($this->pj,$e_pj) != 0 )
996 {
998 '<span class="notice"> '._('Attention numéro pièce existante, elle a du être adaptée').'</span></td>';
999 } else {
1001 }
1002 }
1012 $r.='<td> ' . _('Période Comptable') . '</td><td> ' .hb( $date_limit['p_start'] . '-' . $date_limit['p_end']) . '</td>';
1024
1026 $r.='<td> ' . _('Client') . '</td><td> ' . HtmlInput::card_detail($e_client).":".hb( $client_name) . '</td>';
1033
1042
1043
1049 } else {
1051 }
1052 /* if we use the AC */
1055 $a_anc = $anc->get_list();
1056 $x = count($a_anc);
1057 /* set the width of the col */
1059
1060 /* add hidden variables pa[] to hold the value of pa_id */
1062 }
1064 $tot_amount = 0.0;
1065 $tot_tva = 0.0;
1068 continue;
1069
1070 /* retrieve information for card */
1075 else
1080 $oTva->load();
1081 }
1087 $op->compute_vat();
1090 if (isset($tva[$idx_tva]))
1091 $tva[$idx_tva]=bcadd($tva[$idx_tva],$tva_item,2);
1092 else
1093 $tva[$idx_tva] = $tva_item;
1094 $tot_tva = round(bcadd($tva_item, $tot_tva), 2);
1095 }
1097
1103 $r.=$fiche_name;
1111 $both_side=0;
1116 $both_side=$oTva->get_parameter("both_side");
1117 /* warning if tva_computed and given are not the
1118 same */
1119 if (bcsub($tva_item, $tva_computed) != 0 && ! ($tva_item == 0 && $both_side == 1)) {
1122 $r.='<a href="#" class="error" style="display:inline" title="' . _("Attention Différence entre TVA calculée et donnée") . '">'
1124 } else {
1127 }
1132 $tot_row = bcadd($tva_item, $amount);
1134 } else {
1138 }
1139 // encode the pa
1142 // show form
1146 $p_mode = ($p_summary == false) ? 1 : 0;
1148 /* op is the operation it contains either a sequence or a jrnx.j_id */
1152 }
1153
1154
1156 } // end loop item
1157 //
1158 // Add the sum
1159 $decalage=($g_parameter->MY_TVA_USE == 'Y')?'<td></td><td></td><td></td><td></td>':'<td></td>';
1161 $tot_eur=round(bcdiv($tot, $p_currency_rate),2);
1164
1165 // Get currency code
1168 if ( $p_currency_code != 0 ) {
1170 $acc_currency->set_id($p_currency_code);
1171 $str_code=$acc_currency->get_code();
1172 }
1173 // Format amount
1175 $tot_tva=nbm($tot_tva);
1178 $r.=<<<EOF
1180 {$decalage}
1181 <td>
1182 {$str_tot} {$str_code}
1183 </td>
1185 {$tot_tva}
1186 </td>
1188 {$tot_amount}
1189 </td>
1191 {$tot_str} {$str_code}
1192 </td>
1193 </tr>
1194EOF;
1195 if ($p_currency_code !=0) {
1197 $iso_code=$sql_currency->getp("cr_code_iso");
1198
1199 $r.=<<<EOF
1201 {$decalage}
1202 <td>
1203
1204 </td>
1206
1207 </td>
1209 {$rate} {$p_currency_rate}
1210 </td>
1212 {$tot_eur} {$iso_code}
1213 </td>
1214 </tr>
1215EOF;
1216 }
1217
1218 } else {
1222 $iso_code=$sql_currencydefault->getp("cr_code_iso");
1223 // without VAT
1224 $r.=<<<EOF
1226 {$decalage}
1227 <td>
1228 {$str_tot} {$str_code}
1229 </td>
1231
1232 </td>
1234
1235 </td>
1237 {$tot_str} {$str_code}
1238 </td>
1239 </tr>
1241 {$decalage}
1242 <td>
1243 </td>
1244 <td>
1245
1246 </td>
1247 <td>
1248 {$rate} {$p_currency_rate}
1249 </td>
1251 {$tot_eur} {$iso_code}
1252 </td>
1253 </tr>
1254EOF;
1255 }
1259 $r.='<input type="button" class="button" value="' . _('Vérifiez Imputation Analytique') . '" onClick="verify_ca(\'\');">';
1262 $other_tax_label="";
1267 }
1268 /* use VAT */
1275 $oTva->load();
1276
1279 }
1281 if ( ! empty($other_tax_label) ) {
1283 }
1287 } else {
1288 if ( ! empty($other_tax_label) ) {
1290 }
1293 }
1295
1296
1297 /* Add hidden */
1302 $mt = microtime(true);
1305
1306 if (isset($period))
1307 {
1309 }
1310 /* \todo comment les types hidden gérent ils des contenus avec des quotes, double quote ou < > ??? */
1319 }
1320 $e_mp = (isset($e_mp)) ? $e_mp : 0;
1322
1324 // Show the available repository
1326 }
1327
1328 /* if the paymethod is not 0 and if a quick code is given */
1333 /* needed for generating a invoice */
1336
1338 $fname->get_by_qcode(${'e_mp_qcode_' . $e_mp});
1340 " le ".${"mp_date"}.
1341 " " . $fname->getName() . '</h2> ' . '<p class="decale">' . _('Déduction acompte ') . h($acompte) . '</p>' .
1344 }
1345
1355 }
1357 }
1358 /*
1359 * warning if the amount is positive and expecting a negative one
1360 */
1362 if ( $negative != "") {
1364 }
1366 }
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
select_depot($p_readonly, $p_repo)
Let you select the repository before confirming a sale or a purchase.
Definition acc_ledger.class.php:3349
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:3665
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:3538
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:1877
static build($db, $p_code)
retrieve TVA rate thanks the code that could be the tva_id or tva_code.
Definition acc_tva.class.php:167
static hidden($p_array)
return an HTML string containing hidden input type to hold the differant PA_ID
Definition anc_plan.class.php:201
static card_detail($p_qcode, $pname='', $p_style="", $p_nohistory=false, $nofollowup=false)
show the detail of a card
Definition html_input.class.php:620
static infobulle($p_comment)
Display a info in a bubble, text is in message_javascript.
Definition icon_action.class.php:109
References $acompte, $amount, $anc, $date_limit, $default_currency, $e_date, $fiche, $g_parameter, $g_user, $i, Acc_Ledger\$jr_id, $jrn_type, $op, $other_tax_amount, $p_array, $p_jrn, Acc_Ledger\$pj, $r, $repo, $span, $str_code, $tot, $tot_amount, $value, $x, _, ATTR_DEF_ACCOUNT, ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_NAME, ATTR_DEF_POSTCODE, Acc_Tva\build(), 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(), Icon_Action\infobulle(), nbm(), noalyss_strlentrim(), Acc_Ledger\select_depot(), span(), td(), tr(), UPDRECEIPT, and Acc_Ledger\warn_manual_receipt().
Here is the call graph for this function:
◆ convert_to_array()
|
static |
convert an Acc_Sold to an array usable by Acc_Document\create_document @parameters $sold (Acc_Sold) convert to convert
Definition at line 1863 of file acc_ledger_sale.class.php.
1864 {
1865 //print $sold;
1866 $item=count($sold->det->array);
1867 if ( $item ==0)
1868 {
1869 throw new \Exception('No Data in Quant_sold');
1870 }
1871 $array=array();
1872
1881
1882 //$this->pj=$array['e_pj'];
1884
1885 $client=new \Fiche($sold->db,$sold->det->array[0]['qs_client']);
1887 bcscale(2);
1889 {
1894 $array[$idx.$i.'_price']=bcdiv($sold->det->array[$i]['qs_price'],$sold->det->array[$i]['qs_quantite']);
1896 $array[$idx.$i.'_tva_amount']=bcsub($sold->det->array[$i]['qs_vat'],$sold->det->array[$i]['qs_vat_sided']);
1898 }
1899 // Get OTHER_INFO and BON_COMM
1900 $cn=\Dossier::connect();
1901 $array['bon_comm']=$cn->get_value("select ji_value from jrn_info where jr_id=$1 and id_type = 'BON_COMMANDE' ",[$sold->det->jr_id]);
1902 $array['other_info']=$cn->get_value("select ji_value from jrn_info where jr_id=$1 and id_type = 'OTHER' ",[$sold->det->jr_id]);
1904 jrn_note where jr_id=$1 ",[$sold->det->jr_id]);
1908
1909
1910 }
format_date($p_date, $p_from_format='YYYY-MM-DD', $p_to_format='DD.MM.YYYY')
format the date, when taken from the database the format is MM-DD-YYYY
Definition ac_common.php:905
References $array, $cn, $i, $idx, and format_date().
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 1376 of file acc_ledger_sale.class.php.
1376 {
1378 // check for upload piece
1380 $file->table = 0;
1383
1384 // add a receipt
1387
1388 //------------------------------------------------
1389 // Propose to generate an invoice
1390 //------------------------------------------------
1392 // We propose to generate the invoice and some template
1393 $doc_gen = new ISelect();
1394 $doc_gen->name = "gen_doc";
1395 $doc_gen->value = $this->db->make_array(
1396 "select md_id,md_name " .
1397 " from document_modele where md_affect='VEN' ".
1399 " order by 2");
1402
1410 }
input_supplemental_document()
display INPUT type to ask the supplementary documents
Definition acc_ledger.class.php:3676
References $file, $obj, $r, _, db, and Acc_Ledger\input_supplemental_document().
Here is the call graph for this function:
◆ 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 1776 of file acc_ledger_sale.class.php.
1777 {
1778 global $g_user;
1779 // Journal valide
1780 if ( $this->id == 0 ) die (__FILE__.":".__LINE__." Journal invalide");
1781
1782 // Securite
1784
1785 switch ( $p_filter_operation)
1786 {
1787 case 'all':
1789 break;
1790 case 'paid':
1792 break;
1793 case 'unpaid':
1795 break;
1796 default:
1798
1799 }
1800 // get the data from the view
1802 from v_detail_sale
1803 where
1804 jr_def_id = $1
1805 and jr_date >= (select p_start from parm_periode where p_id = $2)
1806 {$sql_filter}
1807 and jr_date <= (select p_end from parm_periode where p_id = $3) "
1808 .' order by jr_date,substring(jr_pj_number,\'[0-9]+$\')::numeric asc ';
1811 }
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 1817 of file acc_ledger_sale.class.php.
1818 {
1853
1854
1856 }
◆ 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 1420 of file acc_ledger_sale.class.php.
1420 {
1422 // load ledger definition
1423 $this->load();
1425 $http->set_array([]);
1427 extract($p_array, EXTR_SKIP);
1429 }
1431 $flag_tva = $g_parameter->MY_TVA_USE;
1432 /* Add button */
1433
1434 $str_add_button_tiers = "";
1435 $add_card=FALSE;
1437 $add_card=TRUE;
1439 }
1440
1441 // The first day of the periode
1446 else
1448
1449 $e_ech = (isset($e_ech)) ? $e_ech : "";
1450 $e_comm = (isset($e_comm)) ? $e_comm : "";
1451
1453 $r.=dossier::hidden();
1455
1456 $Echeance = new IDate();
1457 $Echeance->setReadOnly(false);
1458
1459 $Echeance->tabindex = 2;
1462 $Date = new IDate();
1463 $Date->setReadOnly(false);
1464
1465 $f_date = $Date->input("e_date", $op_date);
1466
1467 $f_periode = '';
1468 // Periode
1469 //--
1471 $l_user_per = $g_user->get_periode();
1473
1474 $period = new IPeriod("period");
1475 $period->user = $g_user;
1476 $period->cn = $this->db;
1477 $period->value = $def;
1478 $period->type = OPEN;
1479 try {
1480 $l_form_per = $period->input();
1484 }
1485 }
1488 }
1489 /* if we suggest the next pj, then we need a javascript */
1490 $add_js = "";
1492 $add_js = "update_receipt();";
1493 }
1495 $add_js.='get_last_date();';
1496 }
1497 $add_js.='update_name();';
1498 $add_js.='update_pay_method();';
1499 $add_js.='update_row("sold_item");';
1500 $add_js.='update_other_tax();';
1501 $add_js.='update_visibility_quantity();';
1502
1506 $wLedger->table = 0;
1507 $wLedger->javascript = "onChange='update_predef(\"ven\",\"f\",\"".$_REQUEST['ac']."\");$add_js'";
1509
1510 $f_jrn = $wLedger->input();
1511
1512 $Commentaire = new IText();
1513 $Commentaire->table = 0;
1514 $Commentaire->setReadOnly(false);
1515 $Commentaire->size = (empty($e_comm))?60:strlen($e_comm)+5;
1516 $Commentaire->size = ($Commentaire->size<60)?60:$Commentaire->size;
1517 $Commentaire->tabindex = 3;
1518
1520
1521 $f_desc = $Commentaire->input("e_comm", $e_comm) ;
1522 // PJ
1523 //--
1524 /* suggest PJ ? */
1525 $default_pj = '';
1527 $default_pj = $this->guess_pj();
1528 }
1529
1532 {
1535 }
1536
1537 $pj->table = 0;
1539 $pj->size = 10;
1540 $pj->value = (isset($e_pj)) ? $e_pj : $default_pj;
1542 // Display the customer
1543 //--
1545
1546 // Save old value and set a new one
1547 //--
1548 $e_client = ( isset($e_client) ) ? $e_client : "";
1549 $e_client_label = " "; //str_pad("",100,".");
1550 // retrieve e_client_label
1551 //--
1552
1555 $fClient->get_by_qcode($e_client);
1560 }
1561
1562 $W1 = new ICard();
1564 $W1->name = "e_client";
1565 $W1->tabindex = 3;
1566 $W1->value = $e_client;
1567 $W1->table = 0;
1568 $W1->set_dblclick("fill_ipopcard(this);");
1569 $W1->set_attribute('ipopup', 'ipopcard');
1570
1571 // name of the field to update with the name of the card
1572 $W1->set_attribute('label', 'e_client_label');
1573 // name of the field to update with the name of the card
1574 $W1->set_attribute('typecard', 'deb');
1575
1576 // Add the callback function to filter the card on the jrn
1577 $W1->set_callback('filter_card');
1578 $W1->set_function('fill_data');
1579 $W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
1580 $f_client_qcode = $W1->input();
1581 $client_label = new ISpan();
1582 $client_label->table = 0;
1583 $f_client = $client_label->input("e_client_label", $e_client_label);
1584 $f_client_bt = $W1->search();
1585
1586
1587 // Record the current number of article
1588 $Hid = new IHidden();
1589 $p_article = ( isset($nb_item)) ? $nb_item : $this->get_min_row();
1592
1593
1595
1596 // For each article
1597 //--
1599 // Code id, price & vat code
1600 //--
1601 $march = (isset(${"e_march$i"})) ? ${"e_march$i"} : "";
1603 if ($flag_tva == 'Y') {
1604 $march_tva_id = (isset(${"e_march$i" . "_tva_id"})) ? ${"e_march$i" . "_tva_id"} : "";
1605 $march_tva_amount = (isset(${"e_march$i" . "_tva_amount"})) ? ${"e_march$i" . "_tva_amount"} : "";
1606 }
1608
1609 // retrieve the tva label and name
1610 //--
1613 $fMarch->get_by_qcode($march);
1614 $march_label = $fMarch->get_attribute(ATTR_DEF_NAME);
1615 if ($flag_tva == 'Y') {
1616 if (!(isset(${"e_march$i" . "_tva_id"})))
1617 $march_tva_id = $fMarch->get_attribute(ATTR_DEF_TVA);
1618 }
1619 }
1620 // Show input
1621 //--
1622 $W1 = new ICard();
1623 $W1->label = "";
1625 $W1->value = $march;
1626 $W1->table = 0;
1627 $W1->setAfter_clean("compute_all_ledger()");
1628 $W1->set_attribute('typecard', 'cred');
1629 $W1->set_dblclick("fill_ipopcard(this);");
1630 $W1->set_attribute('ipopup', 'ipopcard');
1631
1632 // name of the field to update with the name of the card
1634 // name of the field with the price
1636 // name of the field with the TVA_ID
1638 // Add the callback function to filter the card on the jrn
1639 $W1->set_callback('filter_card');
1640 $W1->set_function('fill_data');
1641 $W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
1642
1643 $W1->readonly = false;
1644
1648 // For computing we need some hidden field for holding the value
1650 if ($flag_tva == 'Y')
1652
1654 $htva->readOnly = 1;
1655 $htva->value = 0;
1657
1660 else
1662
1663 $tvac->readOnly = 1;
1664 $tvac->value = 0;
1666
1668 {
1670 $Span->style='class="input_text label_item"';
1671 } else
1672 {
1674 $Span->extra='class="label_item"';
1675 }
1676 $Span->value = $march_label;
1677 $Span->setReadOnly(false);
1678 // card's name, price
1679 //--
1681 // price
1682 $Price = new INum();
1683 $Price->setReadOnly(false);
1684 $Price->size = 9;
1685 $Price->javascript = "onblur=\"format_number(this,4);clean_tva($i);compute_ledger($i)\"";
1689 // if tva is not needed then no tva field
1690 if ($flag_tva == 'Y') {
1691 // vat label
1692 //--
1694 $Tva->id="e_march$i"."_tva_id";
1695 $Tva->in_table = true;
1697 $Tva->set_filter("sale");
1698
1700 $Tva->value = $march_tva_id;
1702 // vat amount
1703 //--
1704 $wTva_amount = new INum();
1705 $wTva_amount->readOnly = false;
1706 $wTva_amount->size = 6;
1707 $wTva_amount->javascript = "onblur='format_number(this);compute_ledger($i)'";
1708 $array[$i]['amount_tva'] = $wTva_amount->input("e_march" . $i . "_tva_amount", $march_tva_amount);
1709 }
1710 // quantity
1711 //--
1712 $quant = (isset(${"e_quant$i"})) ? ${"e_quant$i"} : "1";
1713 $Quantity = new INum();
1714
1715 $Quantity->setReadOnly(false);
1716 $Quantity->size = 8;
1717 $Quantity->javascript = "onchange=\"format_number(this,2);clean_tva($i);compute_ledger($i);\"";
1719 }// foreach article
1721
1722 // Currency
1723 $currency_select = $this->CurrencyInput("currency_code", "p_currency_rate" , "p_currency_euro");
1725
1726 $currency_input=new INum("p_currency_rate");
1727 $currency_input->id="p_currency_rate";
1728 $currency_input->prec=8;
1730 $currency_input->javascript='onchange="format_number(this,4);CurrencyCompute(\'p_currency_rate\',\'p_currency_euro\');"';
1731
1733
1734 //
1735 // Button for template operation
1736 //
1737 ob_start();
1738 echo '<div id="predef_form">';
1745 'gDossier'=>dossier::id()));
1747 echo '</div>';
1748 $str_op_template=ob_get_contents();
1749 ob_end_clean();
1750
1751 ob_start();
1752 require_once NOALYSS_TEMPLATE.'/form_ledger_detail.php';
1753 $form_ledger_detail=ob_get_contents();
1754 ob_end_clean();
1755
1756 $r.=$form_ledger_detail;
1757
1758 // Set correctly the REQUEST param for jrn_type
1766 }
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:3495
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:620
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:3576
add_card($p_filter, $p_id_update)
Return a button to create new card, depending of the ledger.
Definition acc_ledger.class.php:3428
static ledger_add_item($p_ledger)
Build a HTML string for adding multiple rows.
Definition html_input_noalyss.class.php:42
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, $p_readonly, $periode, Acc_Ledger\$pj, $r, $url, $wLedger, _, Acc_Ledger\add_card(), ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_NAME, ATTR_DEF_POSTCODE, ATTR_DEF_TVA, Acc_Ledger\check_periode(), create_script(), Acc_Ledger\CurrencyInput(), db, FICADD, Acc_Ledger\get_min_row(), Acc_Ledger\guess_pj(), 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 345 of file acc_ledger_sale.class.php.
345 {
347 // load ledger definition
348 $this->load();
349 extract($p_array, EXTR_SKIP);
350 $this->verify($p_array);
351
356 $this->jr_internal = $internal;
357
360
362 $tperiode = $period;
363 else
365
367 $cust->get_by_qcode($e_client);
368 $sposte = $cust->get_attribute(ATTR_DEF_ACCOUNT);
369
370 // if 2 accounts, take only the debit one for the customer
371 //
372 if (strpos($sposte, ',') != 0) {
375 } else {
376 $poste = $sposte;
377 }
378
379 bcscale(4);
380 try {
381 // variable : $tot_amount : total amount of the sales (credit)
382 $tot_amount = 0;
383 // variable : $tot_tva : total amount of the VAT
384 $tot_tva = 0;
385 // tot debit if item's amount < 0
386 $tot_debit = 0;
387 // variable : $tot_amount_cur : total amount in currency
388 $tot_amount_cur=0;
389
390 $this->db->start();
391 // variable : $tva array that will contain all the VAT Amount
392 $tva = array();
393 // variable : $tva_reverse array that contain all the VAT autoreverse AND negative
394 $tva_reverse = array();
395
396 // find the currency from v_currency_last_value
397 // variable : $currency_rate_ref Acc_Currency , currency object for this operation
399
400 /* Save all the items without vat */
402 // variable : $n_both float auto-reverse amount
403 $n_both = 0;
404 if ( empty(${'e_march'.$i}) || empty(${'e_quant'.$i}) ) continue;
405
406 /* First we save all the items without vat */
410
411 // convert amount to currency
412 $amount=bcdiv($amount_currency,$p_currency_rate);
413
417 $acc_operation->date = $e_date;
419
420 // if 2 accounts, take only the credit one
421 if (strpos($sposte, ',') != 0) {
423 $poste_val = $array[1];
424 } else {
425 $poste_val = $sposte;
426 }
427
428 $acc_operation->poste = $poste_val;
429 $acc_operation->amount = $amount;
430 $acc_operation->grpt = $seq;
431 $acc_operation->jrn = $p_jrn;
432 $acc_operation->type = 'c';
433 $acc_operation->periode = $tperiode;
435 {
436 $acc_operation->desc=strip_tags(${"e_march".$i."_label"});
437 }
438 else
439 {
440 $acc_operation->desc=null;
441 }
442
445 {
446 $tot_debit=round(bcadd($tot_debit, abs($amount)),2);
447 }
448
449 $j_id = $acc_operation->insert_jrnx();
450
452 /* Compute sum vat */
454 $idx_tva =$oTva->get_parameter("id");
455 // variable : $auto_reverse = if the oTVA autoreverse, fetch it once for this item,
456 $auto_reverse=$oTva->get_parameter("both_side");
457
459
460 /* if empty then we need to compute it */
461 if (trim($tva_item_currency) == '' || ${'e_march'.$i.'_tva_amount'} == 0) {
463 $tva_item=round($tva_item_currency,2);
464 }
465 $tva_item=bcdiv($tva_item_currency,$p_currency_rate);
466 $tva_item=round($tva_item,2);
467
468 $tva[$idx_tva]=(isset($tva[$idx_tva]))?$tva[$idx_tva]:0;
469
470 if ( $auto_reverse == 0)
471 {
472 $tva[$idx_tva]=bcadd($tva_item,$tva[$idx_tva]);
473 $tva[$idx_tva]=round($tva[$idx_tva],2);
474 $tot_tva = bcadd($tva_item, $tot_tva);
475 $tot_tva = round($tot_tva, 2);
476 }
477 else
478 {
479 $n_both = $tva_item;
480 $tva_item_currency = 0;
481 if ($n_both<0)
482 {
483 $tot_debit=round(bcadd($tot_debit, abs($n_both)),2);
484 $tva_reverse[$idx_tva]=(isset($tva_reverse[$idx_tva]))?$tva_reverse[$idx_tva]:0;
485 $tva_reverse[$idx_tva]=bcadd($tva_item,$tva_reverse[$idx_tva]);
486 $tva_reverse[$idx_tva]=round($tva_reverse[$idx_tva],2);
487
488 } else {
489 $tva[$idx_tva]=bcadd($tva_item,$tva[$idx_tva]);
490 $tva[$idx_tva]=round($tva[$idx_tva],2);
491
492 }
493 }
494 }
495
496 /* Save the stock */
497 /* if the quantity is < 0 then the stock increase (return of
498 * material)
499 */
501
502 // always save quantity but in withStock we can find
503 // what card need a stock management
505 {
506 $dir=(${'e_quant'.$i} < 0 ) ? 'd':'c';
507 Stock_Goods::insert_goods($this->db, array('j_id' => $j_id, 'goods' => ${'e_march' . $i}, 'quant' => $nNeg * ${'e_quant' . $i}, 'dir' => $dir, 'repo' => $repo));
508 }
509
510
512 // for each item, insert into operation_analytique */
514 $op->set_currency_rate($p_currency_rate);
515 $op->oa_group = $group;
521 }
525
526 $price_euro=bcdiv(${'e_march'.$i.'_price'}, $p_currency_rate);
527
529 /* save into quant_sold */
530 $r = $this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10)", array(null, /* 1 */
535 $tva_item, /* 6 */
536 $oTva->get_parameter("id"), /* 7 */
537 $e_client, /* 8 */
538 $n_both, /* 9 */
539 $price_euro/* Price /unit */
540 ));
541 } else {
542 $tva_item_currency=0;
543
544 $r = $this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10) ", array(null, /* 1 */
549 0,
550 null,
551 $e_client,
552 0, /* 9 */
553 $price_euro /* Price /unit */
554 ));
555 } // if ( $g_parameter->MY_TVA_USE=='Y') {
556 /*
557 * Insert also in operation_currency
558 */
560 $operation_currency->oc_amount=$amount_currency;
561 $operation_currency->oc_vat_amount=$tva_item_currency;
562 $operation_currency->oc_price_unit=${'e_march'.$i.'_price'};
563 $operation_currency->j_id=$j_id;
564 $operation_currency->insert();
565 $tot_amount_cur=round(bcadd($tot_amount_cur,$amount_currency,4),4);
566 $tot_amount_cur=round(bcadd($tot_amount_cur,$tva_item_currency,4),4);
567 }// end loop : save all items
568
569 /*** save other tax ****/
572 from acc_other_tax
573 where ac_id=$1 ",
578 $acc_operation->date=$e_date;
580 $acc_operation->amount=$other_tax_amount;
581 $acc_operation->grpt=$seq;
582 $acc_operation->jrn=$p_jrn;
583 $acc_operation->type='c';
584 $acc_operation->periode=$tperiode;
587 $jrn_tax_sql->j_id=$acc_operation->insert_jrnx();
590 $jrn_tax_sql->insert();
593 $tot_debit=bcadd($tot_debit,abs($other_tax_amount));
594 }
597 $operation_currency->oc_vat_amount=0;
598 $operation_currency->oc_price_unit=0;
599 $operation_currency->j_id=$jrn_tax_sql->j_id;
600 $operation_currency->insert();
601 }
602
603 }
604
605
606 /* save total customer */
607 $cust_amount = bcadd($tot_amount, $tot_tva);
608 $cust_amount = round($cust_amount,2);
609 if ( DEBUGNOALYSS > 1 ) {
610 echo __LINE__." cust_amount $cust_amount<br>";
611 echo __LINE__." tot_amount $tot_amount<br>";
612 echo __LINE__." tot_tva $tot_tva<br>";
613
614 }
615
617 $acc_operation->date = $e_date;
618 $acc_operation->poste = $poste;
619 $acc_operation->amount = $cust_amount;
620 $acc_operation->grpt = $seq;
621 $acc_operation->jrn = $p_jrn;
622 $acc_operation->type = 'd';
623 $acc_operation->periode = $tperiode;
624 $acc_operation->qcode = ${"e_client"};
625 if ($cust_amount>0)
626 {
627 $tot_debit=bcadd($tot_debit, $cust_amount);
628 $tot_debit=round($tot_debit, 2);
629 }
630 $let_tiers = $acc_operation->insert_jrnx();
631
632 // --- insert also the currency amount for the customer
634 $operation_currency->oc_amount=$tot_amount_cur;
635 $operation_currency->oc_vat_amount=0;
636 $operation_currency->oc_price_unit=0;
637 $operation_currency->j_id=$let_tiers ;
638 $operation_currency->insert();
639
640
641 /**************************************************************************************************
642 * save all vat
643 * $i contains the tva_id and value contains the vat amount
644 * if if ($g_parameter->MY_TVA_USE == 'Y' )
645 ************************************************************************************************** */
647
650 $poste_vat = $oTva->get_side('c');
651
652 $cust_amount = bcadd($tot_amount, $tot_tva);
654 $acc_operation->date = $e_date;
655 $acc_operation->poste = $poste_vat;
656 $acc_operation->amount = $value;
657 $acc_operation->grpt = $seq;
658 $acc_operation->jrn = $p_jrn;
659 $acc_operation->type = 'c';
660 $acc_operation->periode = $tperiode;
662 {
663 $tot_debit=bcadd($tot_debit, abs($value));
664 $tot_debit=round($tot_debit, 2);
665 }
667 $acc_operation->insert_jrnx();
668
669 // if TVA is on both side, we deduce it immediately
670 if ($oTva->get_parameter("both_side") == 1 ) {
671 // $x temp variable is the tva_reverse_account and will be used to check $poste_vat
673
675 if ($poste_vat == '#') $poste_vat=$oTva->get_side('c');
676 $cust_amount = bcadd($tot_amount, $tot_tva);
678 $acc_operation->date = $e_date;
679 $acc_operation->poste = $poste_vat;
680 $acc_operation->amount = $value;
681 $acc_operation->grpt = $seq;
682 $acc_operation->jrn = $p_jrn;
683 $acc_operation->type = 'd';
684 $acc_operation->periode = $tperiode;
685 $acc_operation->insert_jrnx();
686 $tot_debit = bcadd($tot_debit, $value);
687 $tot_debit = round($tot_debit, 2);
688 $n_both = $value;
689 }
690
691 }
694 $poste_vat = $oTva->get_side('c');
695 if ( $poste_vat == '#')
696 {
697 $poste_vat=$oTva->get_side('d');
698 }
699
701 $acc_operation->date = $e_date;
702 $acc_operation->poste = $poste_vat;
703 $acc_operation->amount = $value;
704 $acc_operation->grpt = $seq;
705 $acc_operation->jrn = $p_jrn;
706 $acc_operation->type = 'c';
707 $acc_operation->periode = $tperiode;
709 {
710 $tot_debit=bcadd($tot_debit, abs($value));
711 $tot_debit=round($tot_debit, 2);
712 }
713 $acc_operation->insert_jrnx();
714
715 // if TVA is on both side, we deduce it immediately
716 $poste_vat = $oTva->get_side('d');
717 if ( $poste_vat == '#')
718 {
719 $poste_vat=$oTva->get_side('c');
720 }
722 $acc_operation->date = $e_date;
723 $acc_operation->poste = $poste_vat;
724 $acc_operation->amount = $value;
725 $acc_operation->grpt = $seq;
726 $acc_operation->jrn = $p_jrn;
727 $acc_operation->type = 'd';
728 $acc_operation->periode = $tperiode;
729 $acc_operation->insert_jrnx();
730 $tot_debit = bcadd($tot_debit, $value);
731 $tot_debit = round($tot_debit, 2);
732 $n_both = $value;
733
734 }
735
736 } // if ($g_parameter->MY_TVA_USE=='Y')
737 /*
738 * Balance the amount on D and C , the difference must be inserted as "difference due to a rounded value"
739 * Value are retrieve thanks $seq
740 */
741
742 /* insert into jrn */
743 if ( DEBUGNOALYSS > 1 ) { echo __LINE__." tot_debit ".round($tot_debit,2)."<br>"; }
745 $acc_operation->date = $e_date;
746 $acc_operation->echeance = $e_ech;
747 $acc_operation->amount = abs(round($tot_debit, 2));
748 $acc_operation->desc = $e_comm;
749 $acc_operation->grpt = $seq;
750 $acc_operation->jrn = $p_jrn;
751 $acc_operation->periode = $tperiode;
752 $acc_operation->pj = $e_pj;
753 $acc_operation->mt = $mt;
754 $acc_operation->currency_id=$p_currency_code;
755 $acc_operation->currency_rate=$p_currency_rate;
756 $acc_operation->currency_rate_ref=$currency_rate_ref->get_rate();
757
760 }
761
762 $this->pj = $acc_operation->update_receipt();
763
764 /**
765 *
766 * if the given receipt number is equal to one computed then increment
767 */
769 $this->inc_seq_pj();
770 }
772
773
774 /* update quant_sold */
776 where j_id in (select j_id from jrnx where j_grpt=$2)'
777 , array($internal, $seq));
778
779
780 //----------------------------------------
781 // Save the payer
782 //----------------------------------------
783 if ($e_mp != 0) {
784 /**
785 * Date
786 */
788
789 /* mp */
791 $mp->load();
792
793
794 /* jrnx */
797 $acinternal = $acjrn->compute_internal_code($acseq);
798
799 /*
800 * for the use of the card of the bank
801 */
802 if ( $acjrn->get_type()=='FIN') {
805 $fqcode=$acfiche->get_attribute(ATTR_DEF_QUICKCODE);
806 } else {
807 $fqcode = ${'e_mp_qcode_' . $e_mp};
809 $acfiche->get_by_qcode($fqcode);
810 }
811
812 /* Insert paid by */
814 $acc_pay->date = $pay_date;
815 /* get the account and explode if necessary */
816 $sposte = $acfiche->get_attribute(ATTR_DEF_ACCOUNT);
817 // if 2 accounts, take only the debit one for customer
818 if (strpos($sposte, ',') != 0) {
820 $poste_val = $array[0];
821 } else {
822 $poste_val = $sposte;
823 }
824 // Convert paid amount in EUR
825 $acompte_eur=bcdiv($acompte, $p_currency_rate);
826
827 $famount=bcsub($cust_amount,$acompte_eur);
828 $acc_pay->poste = $poste_val;
829 $acc_pay->qcode = $fqcode;
830 $acc_pay->amount = abs(round($famount, 2));
831 $acc_pay->desc = null;
832
833 $acc_pay->grpt = $acseq;
834 $acc_pay->jrn = $mp->get_parameter('ledger_target');
835 $acc_pay->periode = $tperiode;
836 $acc_pay->type = ($famount >= 0) ? 'd' : 'c';
837 $let_pay=$acc_pay->insert_jrnx();
838
839 /* Insert supplier */
841 $acc_pay->date = $pay_date;
842 $acc_pay->poste = $poste;
843 $acc_pay->qcode = $e_client;
844 $acc_pay->amount = abs(round($famount, 2));
845 $acc_pay->desc = null;
846 $acc_pay->grpt = $acseq;
847 $acc_pay->jrn = $mp->get_parameter('ledger_target');
848 $acc_pay->periode = $tperiode;
849 $acc_pay->type = ($famount >= 0) ? 'c' : 'd';
850 $let_other = $acc_pay->insert_jrnx();
851
852 // insert into operation_currency customer
854 $operation_currency->oc_amount=bcsub($tot_amount_cur,$acompte);
855 $operation_currency->oc_vat_amount=0;
856 $operation_currency->oc_price_unit=0;
857 $operation_currency->j_id=$let_other;
858 $operation_currency->insert();
859
860 // insert into operation_currency bank
862 $operation_currency->oc_amount=bcsub($tot_amount_cur,$acompte);
863 $operation_currency->oc_vat_amount=0;
864 $operation_currency->oc_price_unit=0;
865 $operation_currency->j_id=$let_pay;
866 $operation_currency->insert();
867
868 // Add info for currency
869 $acc_pay->currency_id=$p_currency_code;
870 $acc_pay->currency_rate=$p_currency_rate;
871 $acc_pay->currency_rate_ref=$currency_rate_ref->get_rate();
872
873
874 /* insert into jrn */
875 $acc_pay->mt = $mt;
876 $acjrn->jr_grpt_id = $acseq;
877 $acc_pay->desc = (!isset($e_comm_paiement) || noalyss_strlentrim($e_comm_paiement) == 0) ? $e_comm : $e_comm_paiement;
878 $mp_jr_id = $acc_pay->insert_jrn();
879 $acjrn->update_internal_code($acinternal);
880 // add an automatic PJ if ODS
881 if ($acjrn->get_type()=="ODS") {
882 $acc_pay->pj=$acjrn->guess_pj();
883 $acc_pay->update_receipt();
884 }
885 $r1 = $this->get_id($internal);
886 $r2 = $this->get_id($acinternal);
887
888 /*
889 * add lettering
890 */
892 $oletter->insert_couple($let_tiers, $let_other);
893
894
895 /* set the flag paid */
897
898 /* Reconcialiation */
900 $rec->set_jr_id($r1);
901 $rec->insert($r2);
902
903
904 /*
905 * save also into quant_fin
906 */
907
908 /* get ledger property */
911
912 /* if ledger is FIN then insert into quant_fin */
914 $ledger->insert_quant_fin($acfiche->id, $mp_jr_id, $cust->id, bcmul($famount, 1),$let_other);
915 }
916 }
917 /*----------------------------------------------
918 * Save the note
919 ----------------------------------------------*/
921 $acc_operation_note=Acc_Operation_Note::build_jrn_id(-1);
923 $acc_operation_note->setOperation_id( $this->jr_id);
924 $acc_operation_note->save();
925 }
928 $this->db->rollback();
930 }
931 $this->db->commit();
932
933 return $internal;
934 }
record_log($p_message)
Record an error message into the log file of the server or in the log folder of NOALYSS Record also t...
Definition ac_common.php:1393
sql_string($p_string)
Fix the problem with the quote char for the database.
Definition ac_common.php:513
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:1408
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:1967
static build_jrn_id($p_jr_id)
Definition acc_operation_note.class.php:68
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, $e, $e_date, $fiche, $g_parameter, $g_user, $i, $j_id, $ledger, $op, $oPeriode, $other_tax_amount, $p_array, $p_jrn, $poste, $prop, $r, $repo, $Res, Acc_Ledger\$row, $seq, $tot_amount, $value, $x, _, ATTR_DEF_ACCOUNT, ATTR_DEF_QUICKCODE, Acc_Tva\build(), Acc_Operation_Note\build_jrn_id(), Acc_Ledger\check_periode(), Acc_Ledger\compute_internal_code(), db, EXC_BALANCE, Acc_Ledger\get_id(), Acc_Ledger\has_other_tax(), Acc_Ledger\inc_seq_pj(), Stock_Goods\insert_goods(), jr_id, noalyss_strlentrim(), record_log(), 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 126 of file acc_ledger_sale.class.php.
126 {
128
130 throw new Exception ("Array empty");
131
132 extract($p_array, EXTR_SKIP);
133
134 /*
135 * Check needed value
136 */
138
139 /* check for a double reload */
140 if (isset($mt) && $this->db->count_sql('select jr_mt from jrn where jr_mt=$1', array($mt)) != 0)
142
143 /* check if we can write into this ledger */
146
147 /* check if there is a customer */
150
151 /* check if the date is valid */
154 }
155
158 $tperiode = $period;
159 /* check that the datum is in the choosen periode */
160 $oPeriode->p_id = $period;
162
166 }
167 else {
170 }
171
172 /* check if the periode is closed */
175 }
176 /* check if we are using the strict mode */
178 /* if we use the strict mode, we get the date of the last
179 operation */
180 $last_date = $this->get_last_date();
184 }
185
186
188 $fiche->get_by_qcode($e_client);
189
192
195
196
197
198 /* get the account and explode if necessary */
200 // if 2 accounts, take only the debit one for customer
201 if (strpos($sposte, ',') != 0) {
203 $poste_val = $array[0];
204 } else {
205 $poste_val = $sposte;
206 }
207 /* The account exists */
208
210
212 throw new Exception(_('Pour la fiche ') . $e_client . _(' le poste comptable [') . $poste->id . _('] n\'existe pas'), 9);
213 }
214
215 /* Check if the card belong to the ledger */
220
221 $nb = 0;
222
223 //----------------------------------------
224 // foreach item
225 //----------------------------------------
228 continue;
229 /* check if all card has a ATTR_DEF_ACCOUNT */
234
235
236 /* check if amount are numeric and */
238 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un montant invalide [') . ${'e_march' . $i} . ']', 6);
240 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a une quantité invalide [') . ${'e_quant' . $i} . ']', 7);
241
244
245 // Check if the given tva id is valid
248 $tva_rate->load();
250 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un code tva invalide') . ' [' . ${'e_march' . $i . '_tva_id'} . ']', 13);
251
252 $tva_rate->load();
253 /*
254 * check if the accounting for VAT are valid
255 */
257
258 if (
259
260 $this->db->get_value('select count(*) from tmp_pcmn where pcm_val=$1', array($a_poste[1])) == 0)
261 throw new Exception(_(" La TVA " . $tva_rate->tva_label . " utilise des postes comptables inexistants"));
262 }
263 // if 2 accounts, take only the credit one
264 /* The account exists */
266
267 if (strpos($sposte, ',') != 0) {
269 $poste_val = $array[1];
270 } else {
271 $poste_val = $sposte;
272 }
275 throw new Exception(_('Pour la fiche ') . ${'e_march' . $i} . _(' le poste comptable [') . $poste->id . _('n\'existe pas'), 9);
276 }
277 /* Check if the card belong to the ledger */
281 throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('n\'est pas accessible à ce journal'), 10);
282
284
285 }
288 //------------------------------------------------------
289 // The "Paid By" check
290 //------------------------------------------------------
291
292 if ($e_mp != 0) {
294 // check for the currency , if we use a financial ledger and a card which is a bank account (with his own
295 // ledger , then the currency of the operation must be the same
297 }
298
299
300
301
302 //
303 // Check payment date
306
307 }
308
309 // check that MP is in a not closed and exists
312 $periode->find_periode($mp_date);
316 }
317
318 }
319 // check limit date
321 {
323
324 }
325 // Check currency_rate if valid
328 }
329 $this->check_currency_setting($p_currency_code);
330 }
isDate($p_date)
Verifie qu'une date est bien formaté en d.m.y et est valable.
Definition ac_common.php:236
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:1932
check_payment($e_mp, $e_mp_qcode)
check if the payment method is valid
Definition acc_ledger.class.php:2000
check_strict()
Check if a Dossier is using the strict mode or not.
Definition acc_ledger.class.php:1862
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:1892
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:227
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_Tva\build(), 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
Generated on Thu Jan 15 2026 10:14:40 for noalyss by
1.13.2