Wavyzz/dolibarr-fork
2
0
Fork 0
forked from Wavyzz/dolibarr
Code Pull Requests Activity

Dbut intgration rgle proposition tva par dfaut

Browse Source
This commit is contained in:
Laurent Destailleur
2006-03-16 01:03:55 +00:00
parent 6efa47ee83
commit 993a141e51
8 changed files with 127 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
htdocs/fourn/fournisseur.facture.class.php
View File

@@ -99,9 +99,6 @@ class FactureFournisseur
if (! $remise) $remise = 0 ;
$totalht = ($amount - $remise);
// NE ME SEMBLE PLUS JUSTIFIE ICI
// $tva = tva($totalht);
// $total = $totalht + $tva;
$sql = 'INSERT INTO '.MAIN_DB_PREFIX.'facture_fourn (facnumber, libelle, fk_soc, datec, datef, note, fk_user_author, date_lim_reglement) ';
$sql .= " VALUES ('".addslashes($number)."','".addslashes($this->libelle)."',";

34
htdocs/html.form.class.php
View File

@@ -1484,9 +1484,9 @@ class Form
/**
* \brief Selection du taux de tva
* \brief Selection du taux de tva appliqu<71> par vendeur
* \param name Nom champ html
* \param defaulttx Taux tva pr<70>s<EFBFBD>lectionn<6E> (deprecated)
* \param defaulttx For<EFBFBD>age du taux tva pr<70>s<EFBFBD>lectionn<6E>. Mettre '' pour appliquer r<>gle par d<>faut.
* \param societe_vendeuse Objet soci<63>t<EFBFBD> vendeuse
* \param societe_acheteuse Objet soci<63>t<EFBFBD> acheteuse
* \param taux_produit Taux par defaut du produit vendu
@@ -1498,13 +1498,12 @@ class Form
*/
function select_tva($name='tauxtva', $defaulttx='', $societe_vendeuse='', $societe_acheteuse='', $taux_produit='')
{
global $langs,$conf;
global $langs,$conf,$mysoc;
// \todo Si pays vendeur non d<>fini
if (1 == 2)
//print $societe_vendeuse."-".$societe_acheteuse;
if (! $societe_vendeuse->pays_code)
{
// \todo si pays vendeur = soi-m<>me
if (1 == 1)
if ($societe_vendeuse->id == $mysoc->id)
{
print '<font class="error">'.$langs->trans("ErrorYourCountryIsNotDefined").'</div>';
}
@@ -1515,38 +1514,37 @@ class Form
return;
}
// \todo Ecraser defaulttx par valeur en fonction de la r<>gle de gestion TVA
//$defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$taux_produit);
// \todo Initialiser code_pays avec code_pays soci<63>t<EFBFBD> vendeuse
$code_pays=$conf->global->MAIN_INFO_SOCIETE_PAYS;
// Recherche liste des codes TVA du pays vendeur
$sql = "SELECT t.taux,t.recuperableonly";
$sql .= " FROM ".MAIN_DB_PREFIX."c_tva AS t";
$sql .= " WHERE t.fk_pays = '".$code_pays."'";
$sql .= " WHERE t.fk_pays = '".$societe_vendeuse->pays_code."'";
$sql .= " AND t.active = 1";
$sql .= " ORDER BY t.taux ASC, t.recuperableonly ASC";
if ($this->db->query($sql))
$resql=$this->db->query($sql);
if ($resql)
{
$num = $this->db->num_rows();
$num = $this->db->num_rows($resql);
for ($i = 0; $i < $num; $i++)
{
$obj = $this->db->fetch_object();
$obj = $this->db->fetch_object($resql);
$txtva[ $i ] = $obj->taux;
$libtva[ $i ] = $obj->taux.'%'.($obj->recuperableonly ? ' *':'');
}
}
// D<>finition du taux <20> pr<70>s<EFBFBD>lectionner
if ($defaulttx == '') $defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$taux_produit);
// Si taux par defaut n'a pu etre trouv<75>, on prend dernier.
// Comme ils sont tri<72>s par ordre croissant, dernier = plus <20>lev<65> = taux courant
if ($defaulttx == '') $defaulttx = $txtva[sizeof($txtva)-1];
$taille = sizeof($txtva);
$nbdetaux = sizeof($txtva);
print '<select class="flat" name="'.$name.'">';
if ($default) print '<option value="0">'.$langs->trans("Default").'</option>';
for ($i = 0 ; $i < $taille ; $i++)
for ($i = 0 ; $i < $nbdetaux ; $i++)
{
print '<option value="'.$txtva[$i].'"';
if ($txtva[$i] == $defaulttx)

2
htdocs/langs/fr_FR/main.lang
View File

@@ -18,7 +18,7 @@ ErrorFileNotUploaded=Le fichier n'a pas
ErrorInternalErrorDetected=Erreur interne d<>tect<63>e
ErrorNoRequestRan=Aucune requ<71>te ex<65>cut<75>e
ErrorWrongHostParameter=Mauvais param<61>tre Serveur
ErrorYourCountryIsNotDefined=Votre pays n'est pas d<>fini. Aller dans Configuration-G<>n<EFBFBD>ral-Editer et resoumettez le formulaire.
ErrorYourCountryIsNotDefined=Votre pays n'est pas d<>fini. Corriger en allant dans Configuration-G<>n<EFBFBD>ral-Editer.
ErrorRecordIsUsedByChild=Impossible de supprimer cet enregistrement. Ce dernier est utilis<69> en tant que p<>re par au moins un enregistrement fils.
ErrorWrongValue=Valeur incorrecte
SeeAbove=Voir ci-dessus

35
htdocs/lib/functions.inc.php
View File

@@ -1654,26 +1654,29 @@ function price2num($amount)
*/
function get_default_tva($societe_vendeuse='', $societe_acheteuse='', $taux_produit='')
{
$tva=$taux_produit;
// Si vendeur non assujeti <20> TVA
if (! $societe_vendeuse->tva_assuj) return 0;
// Si le (pays vendeur = pays acheteur) alors la TVA par d<>faut=TVA du produit vendu. Fin de r<>gle.
if ($societe_vendeuse->pays_id == $societe_acheteuse->pays_id)
{
return $taux_produit;
}
// Si vendeur et acheteur dans Communaut<75> europ<6F>enne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par d<>faut=0 (La TVA doit <20>tre pay<61> par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de r<>gle.
// Non g<>r<EFBFBD>
// Si vendeur et acheteur dans Communaut<75> europ<6F>enne et bien vendu autre que transport neuf alors la TVA par d<>faut=TVA du produit vendu. Fin de r<>gle.
if ($societe_vendeuse->isInEEC() && $societe_vendeuse->isInEEC())
{
return $taux_produit;
}
// \todo fonction a ecrire
return '';
// Sinon la TVA propos<6F>e par d<>faut=0. Fin de r<>gle.
return 0;
}
/**
\brief Fonction qui calcule la tva
\param euros somme en euro
\param taux taux de tva
*/
function tva($euros, $taux=19.6)
{
$taux = $taux / 100 ;
return sprintf("%01.2f",($euros * $taux));
}
/**
\brief Renvoie oui ou non dans la langue choisie
\param yesno variable pour test si oui ou non

6
htdocs/master.inc.php
View File

@@ -1,7 +1,7 @@
<?PHP
/* Copyright (C) 2002-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2003 Xavier Dutoit <doli@sydesy.com>
* Copyright (C) 2004 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2004-2006 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
* Copyright (C) 2005-2006 Regis Houssin <regis.houssin@cap-networks.com>
@@ -465,12 +465,12 @@ $mysoc->siren=$conf->global->MAIN_INFO_SIREN;
$mysoc->siret=$conf->global->MAIN_INFO_SIRET;
$mysoc->ape=$conf->global->MAIN_INFO_APE;
$mysoc->rcs=$conf->global->MAIN_INFO_RCS;
$mysoc->tvaintra=$conf->global->MAIN_INFO_TVAINTRA;
$mysoc->tva_assuj=$conf->global->FACTURE_TVAOPTION;
$mysoc->tva_intra=$conf->global->MAIN_INFO_TVAINTRA;
$mysoc->capital=$conf->global->MAIN_INFO_CAPITAL;
$mysoc->forme_juridique_code=$conf->global->MAIN_INFO_FORME_JURIDIQUE;
$mysoc->email=$conf->global->MAIN_INFO_SOCIETE_MAIL;
/* \todo Ajouter une option Gestion de la TVA dans le module compta qui permet de d<>sactiver la fonction TVA
* (pour particuliers ou lib<69>raux en franchise)
* En attendant, valeur forc<72>e <20> 1

2
htdocs/product/fiche.php
View File

@@ -631,7 +631,7 @@ if ($_GET["id"] || $_GET["ref"])
$langs->load("bills");
print '<tr><td>'.$langs->trans("VATRate").'</td><td colspan="2">';
print $html->select_tva("tva_tx", $product->tva_tx, $mysoc, '');
print $html->select_tva("tva_tx", $product->tva_tx, $mysoc, '', $product->tva_tx);
print '</td></tr>';
print '<tr><td>'.$langs->trans("Status").'</td><td colspan="2">';
print '<select class="flat" name="statut">';

28
htdocs/soc.php
View File

@@ -106,15 +106,17 @@ if ($_POST["action"] == 'add' || $_POST["action"] == 'update')
$soc->codeclient_modifiable = $_POST["codeclient_modifiable"];
$soc->codefournisseur_modifiable = $_POST["codefournisseur_modifiable"];
$soc->capital = $_POST["capital"];
$soc->tva_assuj = $_POST["assujtva_value"];
$soc->tva_intra_code = $_POST["tva_intra_code"];
$soc->tva_intra_num = $_POST["tva_intra_num"];
$soc->tva_intra = $_POST["tva_intra_code"] . $_POST["tva_intra_num"];
$soc->forme_juridique_code = $_POST["forme_juridique_code"];
$soc->effectif_id = $_POST["effectif_id"];
$soc->typent_id = $_POST["typent_id"];
$soc->client = $_POST["client"];
$soc->fournisseur = $_POST["fournisseur"];
$soc->tva_assuj = $_POST["assujtva_value"];
if ($_POST["action"] == 'add')
{
@@ -214,9 +216,10 @@ if ($_GET["action"] == 'create' || $_POST["action"] == 'create')
$soc->ape=$_POST["ape"];
$soc->typent_id=$_POST["typent_id"];
$soc->effectif_id=$_POST["effectif_id"];
$soc->tva_assuj = $_POST["assujtva_value"];
$soc->tva_intra_code=$_POST["tva_intra_code"];
$soc->tva_intra_num=$_POST["tva_intra_num"];
$soc->tva_assuj = $_POST["assujtva_value"];
}
// On positionne pays_id, pays_code et libelle du pays choisi
@@ -366,17 +369,15 @@ if ($_GET["action"] == 'create' || $_POST["action"] == 'create')
print '<input type="text" name="tva_intra_code" size="3" maxlength="2" value="'.$soc->tva_intra_code.'">';
print '<input type="text" name="tva_intra_num" size="18" maxlength="18" value="'.$soc->tva_intra_num.'">';
print ' '.$langs->trans("VATIntraCheckableOnEUSite");
print ' '.$langs->trans("VATIntraCheckableOnEUSite");
print '</td></tr>';
// assuj TVA
if($conf->facture->enabled)
{
$html = new Form($db);
print '<tr><td>'.$langs->trans('VATIsUsed').'</td><td colspan="3">';
$html->select_assujetti_tva("1",'assujtva_value');
print '</td></tr>'."\n";
}
// Assujeti TVA
$html = new Form($db);
print '<tr><td>'.$langs->trans('VATIsUsed').'</td><td colspan="3">';
$html->select_assujetti_tva("1",'assujtva_value'); // Assujeti par d<>faut
print '</td></tr>'."\n";
print '<tr><td colspan="4" align="center">';
@@ -426,9 +427,10 @@ elseif ($_GET["action"] == 'edit' || $_POST["action"] == 'edit')
$soc->ape=$_POST["ape"];
$soc->typent_id=$_POST["typent_id"];
$soc->effectif_id=$_POST["effectif_id"];
$soc->tva_assuj = $_POST["assujtva_value"];
$soc->tva_intra_code=$_POST["tva_intra_code"];
$soc->tva_intra_num=$_POST["tva_intra_num"];
$soc->tva_assuj = $_POST["assujtva_value"];
// On positionne pays_id, pays_code et libelle du pays choisi
if ($soc->pays_id)

126
htdocs/societe.class.php
View File

@@ -1,9 +1,9 @@
<?php
/* Copyright (C) 2002-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2004-2005 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2004-2006 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2004 Eric Seigne <eric.seigne@ryxeo.com>
* Copyright (C) 2003 Brian Fraval <brian@fraval.org>
* Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
* Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
*
* 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
@@ -36,50 +36,53 @@
\brief Classe permettant la gestion des societes
*/
class Societe {
var $db;
var $id;
var $nom;
var $adresse;
var $cp;
var $ville;
var $departement_id;
var $pays_id;
var $pays_code;
var $tel;
var $fax;
var $url;
var $siren;
var $siret;
var $ape;
var $prefix_comm;
var $tva_intra;
var $capital;
var $typent_id;
var $effectif_id;
var $forme_juridique_code;
var $forme_juridique;
var $remise_client;
var $client;
var $prospect;
var $fournisseur;
var $code_client;
var $code_fournisseur;
var $code_compta;
var $code_compta_fournisseur;
var $note;
var $stcomm_id;
var $statut_commercial;
var $price_level;
class Societe
{
var $db;
var $id;
var $nom;
var $adresse;
var $cp;
var $ville;
var $departement_id;
var $pays_id;
var $pays_code;
var $tel;
var $fax;
var $url;
var $siren;
var $siret;
var $ape;
var $prefix_comm;
var $tva_assuj;
var $tva_intra;
var $capital;
var $typent_id;
var $effectif_id;
var $forme_juridique_code;
var $forme_juridique;
var $remise_client;
var $client;
var $prospect;
var $fournisseur;
var $code_client;
var $code_fournisseur;
var $code_compta;
var $code_compta_fournisseur;
var $note;
var $stcomm_id;
var $statut_commercial;
var $price_level;
/**
@@ -278,11 +281,13 @@ class Societe {
$this->siret=trim($this->siret);
$this->ape=trim($this->ape);
$this->prefix_comm=trim($this->prefix_comm);
$this->tva_assuj=trim($this->tva_assuj);
$this->tva_intra=trim($this->tva_intra);
$this->capital=trim($this->capital);
$this->effectif_id=trim($this->effectif_id);
$this->forme_juridique_code=trim($this->forme_juridique_code);
$this->tva_assuj=trim($this->tva_assuj);
$result = $this->verify(); // Verifie que nom obligatoire et code client ok et unique
@@ -300,10 +305,10 @@ class Societe {
$this->fax = ereg_replace(" ","",$this->fax);
$this->fax = ereg_replace("\.","",$this->fax);
$sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
$sql .= " SET nom = '" . addslashes($this->nom) ."'"; // Champ obligatoire
$sql .= ", datea = now()";
$sql .= ",address = '" . addslashes($this->adresse) ."'";
$sql = "UPDATE ".MAIN_DB_PREFIX."societe";
$sql.= " SET nom = '" . addslashes($this->nom) ."'"; // Champ obligatoire
$sql.= ",datea = now()";
$sql.= ",address = '" . addslashes($this->adresse) ."'";
if ($this->cp)
{ $sql .= ",cp = '" . $this->cp ."'"; }
@@ -322,9 +327,11 @@ class Societe {
$sql .= ",siret = '". addslashes($this->siret) ."'";
$sql .= ",ape = '". addslashes($this->ape) ."'";
$sql .= ",tva_assuj = ".($this->tva_assuj>=0?"'".$this->tva_assuj."'":"null");
$sql .= ",tva_intra = '" . addslashes($this->tva_intra) ."'";
$sql .= ",capital = '" . addslashes($this->capital) ."'";
$sql .= ",prefix_comm = ".($this->prefix_comm?"'".addslashes($this->prefix_comm)."'":"null");
$sql .= ",fk_effectif = ".($this->effectif_id?"'".$this->effectif_id."'":"null");
@@ -335,7 +342,6 @@ class Societe {
$sql .= ",client = " . $this->client;
$sql .= ",fournisseur = " . $this->fournisseur;
$sql .= ",tva_assuj = ".($this->tva_assuj>=0?"'".$this->tva_assuj."'":"null");
if ($this->creation_bit || $this->codeclient_modifiable)
{
@@ -510,6 +516,7 @@ class Societe {
$this->code_compta = $obj->code_compta;
$this->code_compta_fournisseur = $obj->code_compta_fournisseur;
$this->tva_assuj = $obj->tva_assuj;
$this->tva_intra = $obj->tva_intra;
$this->tva_intra_code = substr($obj->tva_intra,0,2);
$this->tva_intra_num = substr($obj->tva_intra,2);
@@ -528,7 +535,6 @@ class Societe {
$this->remise_client = $obj->remise_client;
$this->mode_reglement = $obj->mode_reglement;
$this->cond_reglement = $obj->cond_reglement;
$this->tva_assuj = $obj->tva_assuj;
$this->client = $obj->client;
$this->fournisseur = $obj->fournisseur;
@@ -1486,6 +1492,18 @@ function set_price_level($price_level, $user)
}
}
/*
* \brief Renvoi si pays appartient <20> CEE
* \param boolean true = pays dans CEE, false, pays hors CEE
*/
function isInEEC()
{
// \todo liste pays <20> compl<70>ter
$country_code_in_EEC=array('BE','FR','LU');
//print "dd".$this->pays_code;
return in_array($this->pays_code,$country_code_in_EEC);
}
}
?>