* Copyright (C) 2005 Laurent Destailleur * Copyright (C) 2013 Olivier Geffroy * Copyright (C) 2013 Florian Henry * Copyright (C) 2013 Alexandre Spangaro * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . * */ /** * \file accounting/bookkeeping/thirdparty_lettrage.php * \ingroup Accounting Expert * \brief Onglet de gestion de parametrages des ventilations */ // Dolibarr environment require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT . '/core/class/html.formaccounting.class.php'; require_once DOL_DOCUMENT_ROOT . '/accountancy/class/bookkeeping.class.php'; require_once DOL_DOCUMENT_ROOT . '/accountancy/class/lettering.class.php'; require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php'; require_once DOL_DOCUMENT_ROOT . '/core/lib/company.lib.php'; $action=GETPOST('action','aZ09'); $massaction=GETPOST('massaction','alpha'); $show_files=GETPOST('show_files','int'); $confirm=GETPOST('confirm','alpha'); $toselect = GETPOST('toselect', 'array'); $limit = GETPOST('limit','int')?GETPOST('limit','int'):$conf->liste_limit; $sortfield = GETPOST("sortfield",'alpha'); $sortorder = GETPOST("sortorder",'alpha'); $page = GETPOST("page",'int'); if (empty($page) || $page == -1) { $page = 0; } // If $page is not defined, or '' or -1 $offset = $limit * $page; $pageprev = $page - 1; $pagenext = $page + 1; if ($sortorder == "") $sortorder = "ASC"; if ($sortfield == "") $sortfield = "bk.rowid"; $search_year = GETPOST ( "search_year" ); // Security check $socid = GETPOST("socid",'int'); // if ($user->societe_id) $socid=$user->societe_id; $object = new Societe($db); $object->id = $socid; $object->fetch($socid); $form = new Form($db); $BookKeeping = new lettering($db); $formaccounting = new FormAccounting($db); /* * Action */ if ($action == 'lettering') { $result = $BookKeeping->updatelettrage($_POST['ids']); // var_dump($result); if( $result < 0 ){ setEventMessages('', $BookKeeping->errors, 'errors' ); $error++; } } if ($action == 'autolettrage') { $result = $BookKeeping->LettrageTiers($socid); if( $result < 0 ){ setEventMessages('', $BookKeeping->errors, 'errors' ); $error++; } } llxHeader ( '', 'Compta - Grand Livre' ); /* * Affichage onglets */ $head = societe_prepare_head($object); dol_htmloutput_mesg(is_numeric($error)?'':$error, $errors, 'error'); dol_fiche_head($head, 'TabAccounting', $langs->trans("ThirdParty"),0,'company'); print ''; print ''; if (! empty($conf->global->SOCIETE_USEPREFIX)) // Old not used prefix field { print ''; } print ''; print ''; print ''; $langs->load('compta'); print ''; print ''; print ''; // Address print ''; // Zip / Town print ''; print ''; // Country print ''; print '

'.$langs->trans("ThirdPartyName").'	'; $object->next_prev_filter="te.fournisseur = 1"; print $form->showrefnav($object,'socid','',($user->societe_id?0:1),'rowid','nom','',''); print '
'.$langs->trans('Prefix').'	'.$object->prefix_comm.'
'.$langs->trans("SupplierCode"). '	'; print $object->code_fournisseur; if ($object->check_codefournisseur() <> 0) print ' ('.$langs->trans("WrongSupplierCode").')'; print '
'; print $form->editfieldkey("SupplierAccountancyCode",'supplieraccountancycode',$object->code_compta_fournisseur,$object,$user->rights->societe->creer); print '	'; print $form->editfieldval("SupplierAccountancyCode",'supplieraccountancycode',$object->code_compta_fournisseur,$object,$user->rights->societe->creer); print '
'.$langs->trans("Address").'	'; dol_print_address($object->address,'gmap','thirdparty',$object->id); print '
'.$langs->trans("Zip").' / '.$langs->trans("Town").'	'.$object->zip.(($object->zip && $object->town)?' / ':'').$object->town.'
'.$langs->trans("Country").'	'; //$img=picto_from_langcode($object->country_code); $img=''; if ($object->isInEEC()) print $form->textwithpicto(($img?$img.' ':'').$object->country,$langs->trans("CountryIsInEEC"),1,0); else print ($img?$img.' ':'').$object->country; print '

'; // print_r($soc); // exit; // [code_compta] => 411DOUA // [code_compta_fournisseur] => 401SUPPCODE /* * Mode Liste * * * */ $sql = "SELECT bk.rowid, bk.doc_date, bk.doc_type, bk.doc_ref, bk.code_tiers, bk.numero_compte , bk.label_compte, bk.debit , bk.credit, bk.montant , bk.sens , bk.code_journal , bk.piece_num, bk.lettering "; $sql .= " FROM " . MAIN_DB_PREFIX . "accounting_bookkeeping as bk"; $sql .= " WHERE (bk.code_tiers = '" . $object->code_compta_fournisseur . "' AND bk.numero_compte = '" .$conf->global->ACCOUNTING_ACCOUNT_SUPPLIER. "' )" ; if (dol_strlen ( $search_year )) { $sql .= " AND ( bk.doc_date BETWEEN '" . $search_year . "-0-0' AND '" . ($search_year+1). "-0-0' )"; } $sql .= " ORDER BY bk.lettering ASC, bk.doc_date ASC" ;//. $db->plimit ( $conf->liste_limit + 1, $offset ); // echo $sql; // dol_syslog ( "bookkeping:liste:create sql=" . $sql, LOG_DEBUG ); $resql = $db->query ( $sql ); if ($resql) { $num = $db->num_rows ( $resql ); $i = 0; print '

'; print ''; print ''; print ""; print ''; print ''; print_liste_field_titre("Doctype", "liste.php", "bk.doc_type" ); print_liste_field_titre("Docdate", "liste.php", "bk.doc_date" ); print_liste_field_titre("Docref", "liste.php", "bk.doc_ref" ); // print_liste_field_titre("Numerocompte", "liste.php", "bk.numero_compte" ); // print_liste_field_titre("Code_tiers", "liste.php", "bk.code_tiers" ); print_liste_field_titre("Labelcompte", "liste.php", "bk_label_compte" ); print_liste_field_titre("Debit", "liste.php", "bk.debit" ); print_liste_field_titre("Credit", "liste.php", "bk.credit" ); print_liste_field_titre("Amount", "liste.php", "bk.montant" ); print_liste_field_titre("Sens", "liste.php", "bk.sens" ); print_liste_field_titre("Codejournal", "liste.php", "bk.code_journal" ); print ''; print ''; print "\n"; print ''; print ''; print ''; print ''; print ''; print ''; // print ''; // print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $var = false; $debit = 0; $credit = 0; $solde = 0; $tmp = ''; while ( $i < $num ) { $obj = $db->fetch_object ( $resql ); if($tmp !=$obj->lettering || empty($tmp) ) $tmp =$obj->lettering; if($tmp !=$obj->lettering || empty($obj->lettering)) $var = ! $var; $debit+= $obj->debit; $credit+= $obj->credit; $solde+=($obj->credit-$obj->debit); print ""; print ''; if(empty($obj->lettering)){ print '' . "\n"; } else print '' . "\n"; print ''; print ''; // print ''; // print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; if(empty($obj->lettering)){ print ''; } else print ''; print "\n"; $i ++; } print ''; print '' . "\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; print ""; print '' . "\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; print "

'; print ''; print '

' . $obj->rowid . '

'; print img_edit (); print ' ' . $obj->doc_type . '

'.$obj->doc_type . '

' . dol_print_date ( $db->jdate ( $obj->doc_date ), 'day' ) . '

' . $obj->doc_ref . '

' . $obj->numero_compte . '

' . $obj->code_tiers . '

' . $obj->label_compte . '

' . $obj->debit . '

' . $obj->credit . '

' . $obj->montant . '

' . $obj->sens . '

' . $obj->code_journal . '

' . round($solde, 2) . '

' . $obj->lettering . '

Mouvement totaux

' . $debit . '

' . $credit . '

Solde Comptable

' . ($credit-$debit) . '

"; print ''; print 'auto lettering'; print ""; $db->free ( $resql ); } else { dol_print_error ( $db ); } // End of page llxFooter(); $db->close();