28require_once DOL_DOCUMENT_ROOT.
'/core/class/commonobject.class.php';
39 public $element =
'intracommreport';
44 public $table_element =
'intracommreport';
49 public $fk_element =
'fk_intracommreport';
54 public $picto =
'intracommreport';
57 const STATUS_DRAFT = 0;
58 const STATUS_VALIDATED = 1;
59 const STATUS_CANCELED = 9;
106 public $fields = array(
107 "rowid" => array(
"type" =>
"integer",
"label" =>
"TechnicalID",
"enabled" => 1,
'position' => 10,
'notnull' => 1,
"visible" =>
"0",),
108 "ref" => array(
"type" =>
"varchar(30)",
"label" =>
"Ref",
"enabled" => 1,
'position' => 15,
'notnull' => 1,
"visible" => 1,
"csslist" =>
"tdoverflowmax150",
"showoncombobox" => 1,),
109 "type_declaration" => array(
"type" =>
"varchar(32)",
"label" =>
"TypeOfDeclaration",
"enabled" => 1,
'position' => 25,
'notnull' => 0,
"visible" => 1,
'arrayofkeyval' => array(
"deb" =>
"DEB",
"des" =>
"DES")),
110 "periods" => array(
"type" =>
"varchar(32)",
"label" =>
"Periods",
"enabled" => 1,
'position' => 30,
'notnull' => 0,
"visible" => -1,),
111 "mode" => array(
"type" =>
"varchar(32)",
"label" =>
"Mode",
"enabled" => 1,
'position' => 35,
'notnull' => 0,
"visible" => -1,),
112 "content_xml" => array(
"type" =>
"text",
"label" =>
"Contentxml",
"enabled" => 1,
'position' => 40,
'notnull' => 0,
"visible" => -1,),
113 "type_export" => array(
"type" =>
"varchar(10)",
"label" =>
"TypeOfExport",
"enabled" => 1,
'position' => 45,
'notnull' => 0,
"visible" => -1,
'arrayofkeyval' => array(
"in" =>
"Input",
"out" =>
"Output")),
114 "datec" => array(
"type" =>
"datetime",
"label" =>
"DateCreation",
"enabled" => 1,
'position' => 50,
'notnull' => 0,
"visible" => -1,),
115 "tms" => array(
"type" =>
"timestamp",
"label" =>
"DateModification",
"enabled" => 1,
'position' => 55,
'notnull' => 1,
"visible" => -1,),
128 public $type_declaration;
174 public $declaration_number;
179 public $numero_declaration;
203 $this->ismultientitymanaged = 1;
204 $this->isextrafieldmanaged = 1;
207 if (!
getDolGlobalInt(
'MAIN_SHOW_TECHNICAL_ID') && isset($this->fields[
'rowid']) && !empty($this->fields[
'ref'])) {
208 $this->fields[
'rowid'][
'visible'] = 0;
210 if (!
isModEnabled(
'multicompany') && isset($this->fields[
'entity'])) {
211 $this->fields[
'entity'][
'enabled'] = 0;
221 foreach ($this->fields as $key => $val) {
222 if (isset($val[
'enabled']) && empty($val[
'enabled'])) {
223 unset($this->fields[$key]);
228 if (is_object($langs)) {
229 foreach ($this->fields as $key => $val) {
230 if (!empty($val[
'arrayofkeyval']) && is_array($val[
'arrayofkeyval'])) {
231 foreach ($val[
'arrayofkeyval'] as $key2 => $val2) {
232 $this->fields[$key][
'arrayofkeyval'][$key2] = $langs->trans($val2);
238 $this->type_export =
'deb';
248 public function create($user, $notrigger = 0)
254 return $resultcreate;
266 public function fetch($id, $ref =
null, $noextrafields = 0, $nolines = 0)
268 $result = $this->
fetchCommon($id, $ref,
'', $noextrafields);
269 if ($result > 0 && !empty($this->table_element_line) && empty($nolines)) {
270 $this->fetchLines($noextrafields);
282 public function delete($user, $notrigger = 0)
296 public function getXML($mode =
'O', $type =
'introduction', $period_reference =
'')
301 $party_id = substr(strtr(
$mysoc->tva_intra ??
'', array(
' ' =>
'')), 0, 4).$mysoc->idprof2;
302 $declarant = substr(
$mysoc->managers, 0, 14);
307 $e =
new SimpleXMLElement(
'<?xml version="1.0" encoding="utf-8" standalone="yes"?><INSTAT></INSTAT>');
309 $envelope = $e->addChild(
'Envelope');
310 $envelope->addChild(
'envelopeId',
getDolGlobalString(
'INTRACOMMREPORT_NUM_AGREMENT'));
311 $date_time = $envelope->addChild(
'DateTime');
312 $date_time->addChild(
'date',
date(
'Y-m-d'));
313 $date_time->addChild(
'time',
date(
'H:i:s'));
314 $party = $envelope->addChild(
'Party');
315 $party->addAttribute(
'partyType', $conf->global->INTRACOMMREPORT_TYPE_ACTEUR);
316 $party->addAttribute(
'partyRole', $conf->global->INTRACOMMREPORT_ROLE_ACTEUR);
317 $party->addChild(
'partyId', $party_id);
318 $party->addChild(
'partyName', $declarant);
319 $envelope->addChild(
'softwareUsed',
'Dolibarr');
320 $declaration = $envelope->addChild(
'Declaration');
321 $declaration->addChild(
'declarationId', $id_declaration);
322 $declaration->addChild(
'referencePeriod', $period_reference);
328 $declaration->addChild(
'PSIId', $psiId);
329 $function = $declaration->addChild(
'Function');
330 $functionCode = $function->addChild(
'functionCode', $mode);
331 $declaration->addChild(
'declarationTypeCode',
getDolGlobalString(
'INTRACOMMREPORT_NIV_OBLIGATION_'.strtoupper($type)));
332 $declaration->addChild(
'flowCode', ($type ==
'introduction' ?
'A' :
'D'));
333 $declaration->addChild(
'currencyCode', $conf->global->MAIN_MONNAIE);
337 $res = $this->
addItemsFact($declaration, $type, $period_reference);
340 $this->errors = array_unique($this->errors);
357 public function getXMLDes($period_year, $period_month, $type_declaration =
'expedition')
361 $e =
new SimpleXMLElement(
'<?xml version="1.0" encoding="utf-8" ?><fichier_des></fichier_des>');
363 $declaration_des = $e->addChild(
'declaration_des');
364 $declaration_des->addChild(
'num_des', self::getDeclarationNumber($this->numero_declaration));
365 $declaration_des->addChild(
'num_tvaFr',
$mysoc->tva_intra ??
'');
366 $declaration_des->addChild(
'mois_des', (
string) $period_month);
367 $declaration_des->addChild(
'an_des', (
string) $period_year);
370 $res = $this->
addItemsFact($declaration_des, $type_declaration, $period_year.
'-'.$period_month,
'des');
372 $this->errors = array_unique($this->errors);
390 public function addItemsFact(&$declaration, $type, $period_reference, $exporttype =
'deb')
392 require_once DOL_DOCUMENT_ROOT.
'/categories/class/categorie.class.php';
396 $resql = $this->db->query($sql);
401 if ($this->db->num_rows($resql) <= 0) {
402 $this->errors[] =
'No data for this period';
406 $categ_fraisdeport =
null;
407 if ($exporttype ==
'deb' &&
getDolGlobalInt(
'INTRACOMMREPORT_CATEG_FRAISDEPORT') > 0) {
408 $categ_fraisdeport =
new Categorie($this->db);
409 $categ_fraisdeport->fetch(
getDolGlobalInt(
'INTRACOMMREPORT_CATEG_FRAISDEPORT'));
410 $TLinesFraisDePort = array();
413 while ($res = $this->db->fetch_object($resql)) {
414 if ($exporttype ==
'des') {
417 if (empty($res->fk_pays)) {
419 $this->errors[] =
'Country not filled in for the third party <a href="'.dol_buildpath(
'/societe/soc.php', 1).
'?socid='.$res->id_client.
'">'.$res->nom.
'</a>';
421 if (
getDolGlobalInt(
'INTRACOMMREPORT_CATEG_FRAISDEPORT') > 0 && $categ_fraisdeport->containsObject(
'product', $res->id_prod)) {
422 $TLinesFraisDePort[] = $res;
424 $this->
addItemXMl($declaration, $res, $i,
'');
432 if (!empty($TLinesFraisDePort) && $categ_fraisdeport !==
null) {
433 $this->
addItemFraisDePort($declaration, $TLinesFraisDePort, $type, $categ_fraisdeport, $i);
436 if (count($this->errors) > 0) {
456 if ($type ==
'expedition' || $exporttype ==
'des') {
457 $sql =
"SELECT f.ref as refinvoice, f.total_ht";
459 $table_extraf =
'facture_extrafields';
460 $tabledet =
'facturedet';
461 $field_link =
'fk_facture';
463 $sql =
"SELECT f.ref_supplier as refinvoice, f.total_ht";
464 $table =
'facture_fourn';
465 $table_extraf =
'facture_fourn_extrafields';
466 $tabledet =
'facture_fourn_det';
467 $field_link =
'fk_facture_fourn';
469 list($year, $month) = explode(
'-', $period_reference);
470 $period_end_of_month_day = cal_days_in_month(CAL_GREGORIAN, (
int) $month, (
int) $year);
472 $sql .=
", l.fk_product, l.qty
473 , p.weight, p.rowid as id_prod, p.customcode
474 , s.rowid as id_client, s.nom, s.zip, s.fk_pays, s.tva_intra
477 FROM ".MAIN_DB_PREFIX.$tabledet.
" l
478 INNER JOIN ".MAIN_DB_PREFIX.$table.
" f ON (f.rowid = l.".$this->db->escape($field_link).
")
479 LEFT JOIN ".MAIN_DB_PREFIX.$table_extraf.
" ext ON (ext.fk_object = f.rowid)
480 INNER JOIN ".MAIN_DB_PREFIX.
"product p ON (p.rowid = l.fk_product)
481 INNER JOIN ".MAIN_DB_PREFIX.
"societe s ON (s.rowid = f.fk_soc)
482 LEFT JOIN ".MAIN_DB_PREFIX.
"c_country c ON (c.rowid = s.fk_pays)
483 WHERE f.fk_statut > 0
484 AND l.product_type = ".($exporttype ==
"des" ? 1 : 0).
"
485 AND f.entity = ".((
int) $conf->entity).
"
486 AND (s.fk_pays <> ".((
int)
$mysoc->country_id).
" OR s.fk_pays IS NULL)
487 AND f.datef BETWEEN '".$this->db->escape((
string) $period_reference).
"-01' AND '".$this->db->escape((
string) $period_reference).
"-".((
int) $period_end_of_month_day).
"'";
501 public function addItemXMl(&$declaration, &$res, $i, $code_douane_spe =
'')
503 $item = $declaration->addChild(
'Item');
504 $item->addChild(
'itemNumber', (
string) $i);
505 $cn8 = $item->addChild(
'CN8');
506 if (empty($code_douane_spe)) {
507 $code_douane = $res->customcode;
509 $code_douane = $code_douane_spe;
511 $cn8->addChild(
'CN8Code', $code_douane);
512 $item->addChild(
'MSConsDestCode', $res->code);
513 $item->addChild(
'countryOfOriginCode', substr($res->zip, 0, 2));
514 $item->addChild(
'netMass', (
string) round($res->weight * $res->qty));
515 $item->addChild(
'quantityInSU', (
string) $res->qty);
516 $item->addChild(
'invoicedAmount', (
string) round($res->total_ht));
518 if (!empty($res->tva_intra)) {
519 $item->addChild(
'partnerId', $res->tva_intra);
521 $item->addChild(
'statisticalProcedureCode',
'11');
522 $nature_of_transaction = $item->addChild(
'NatureOfTransaction');
523 $nature_of_transaction->addChild(
'natureOfTransactionACode',
'1');
524 $nature_of_transaction->addChild(
'natureOfTransactionBCode',
'1');
525 $item->addChild(
'modeOfTransportCode', $res->mode_transport);
526 $item->addChild(
'regionCode', substr($res->zip, 0, 2));
539 $item = $declaration->addChild(
'ligne_des');
540 $item->addChild(
'numlin_des', (
string) $i);
541 $item->addChild(
'valeur', (
string) round($res->total_ht));
542 $item->addChild(
'partner_des', $res->tva_intra);
555 public function addItemFraisDePort(&$declaration, &$TLinesFraisDePort, $type, &$categ_fraisdeport, $i)
559 if ($type ==
'expedition') {
561 $tabledet =
'facturedet';
562 $field_link =
'fk_facture';
565 $table =
'facture_fourn';
566 $tabledet =
'facture_fourn_det';
567 $field_link =
'fk_facture_fourn';
568 $more_sql =
'f.ref_supplier';
571 foreach ($TLinesFraisDePort as $res) {
572 $sql =
"SELECT p.customcode
573 FROM ".MAIN_DB_PREFIX.$tabledet.
" d
574 INNER JOIN ".MAIN_DB_PREFIX.$table.
" f ON (f.rowid = d.".$this->db->escape($field_link).
")
575 INNER JOIN ".MAIN_DB_PREFIX.
"product p ON (p.rowid = d.fk_product)
576 WHERE d.fk_product IS NOT NULL
577 AND f.entity = ".((int) $conf->entity).
"
578 AND ".$more_sql.
" = '".$this->db->escape($res->refinvoice).
"'
581 SELECT MAX(d.total_ht)
582 FROM ".MAIN_DB_PREFIX.$tabledet.
" d
583 INNER JOIN ".MAIN_DB_PREFIX.$table.
" f ON (f.rowid = d.".$this->db->escape($field_link).
")
584 WHERE d.fk_product IS NOT NULL
585 AND ".$more_sql.
" = '".$this->db->escape($res->refinvoice).
"'
586 AND d.fk_product NOT IN
589 FROM ".MAIN_DB_PREFIX.
"categorie_product
590 WHERE fk_categorie = ".((int) $categ_fraisdeport->id).
"
594 $resql = $this->db->query($sql);
595 $ress = $this->db->fetch_object($resql);
597 $this->
addItemXMl($declaration, $res, $i, $ress->customcode);
610 $sql =
"SELECT MAX(numero_declaration) as max_declaration_number";
611 $sql .=
" FROM ".MAIN_DB_PREFIX.$this->table_element;
612 $sql .=
" WHERE exporttype = '".$this->db->escape($this->type_export).
"'";
613 $resql = $this->db->query($sql);
616 $res = $this->db->fetch_object($resql);
619 return (
string) ($res !==
null ? ($res->max_declaration_number + 1) :
'');
630 return str_pad($number, 6,
'0', STR_PAD_LEFT);
641 $name = $this->period.
'.xml';
644 $fname = sys_get_temp_dir().
'/'.$name;
646 $f = fopen($fname,
'w+');
647 fwrite($f, $content_xml);
650 header(
'Content-Description: File Transfer');
651 header(
'Content-Type: application/xml');
652 header(
'Content-Disposition: attachment; filename="'.$name.
'"');
653 header(
'Expires: 0');
654 header(
'Cache-Control: must-revalidate');
655 header(
'Pragma: public');
656 header(
'Content-Length: '.filesize($fname));
673 public function getNomUrl($withpicto = 0, $option =
'', $notooltip = 0, $morecss =
'', $save_lastsearch_value = -1)
675 global $conf, $langs, $hookmanager;
677 if (!empty($conf->dol_no_mouse_hover)) {
684 'objecttype' => $this->element.($this->module ?
'@'.$this->module :
''),
687 $classfortooltip =
'classfortooltip';
690 $classfortooltip =
'classforajaxtooltip';
691 $dataparams =
' data-params="'.dol_escape_htmltag(json_encode($params)).
'"';
697 $url =
dol_buildpath(
'/intracommreport/card.php', 1).
'?id='.$this->id;
699 if ($option !==
'nolink') {
701 $add_save_lastsearch_values = ($save_lastsearch_value == 1 ? 1 : 0);
702 if ($save_lastsearch_value == -1 && isset($_SERVER[
"PHP_SELF"]) && preg_match(
'/list\.php/', $_SERVER[
"PHP_SELF"])) {
703 $add_save_lastsearch_values = 1;
705 if ($url && $add_save_lastsearch_values) {
706 $url .=
'&save_lastsearch_values=1';
711 if (empty($notooltip)) {
713 $label = $langs->trans(
"ShowMyObject");
714 $linkclose .=
' alt="'.dolPrintHTMLForAttribute($label).
'"';
716 $linkclose .= ($label ?
' title="'.dolPrintHTMLForAttribute($label).
'"' :
' title="tocomplete"');
717 $linkclose .= $dataparams.
' class="'.$classfortooltip.($morecss ?
' '.$morecss :
'').
'"';
719 $linkclose = ($morecss ?
' class="'.$morecss.
'"' :
'');
722 if ($option ==
'nolink' || empty($url)) {
723 $linkstart =
'<span';
725 $linkstart =
'<a href="'.$url.
'"';
727 $linkstart .= $linkclose.
'>';
728 if ($option ==
'nolink' || empty($url)) {
729 $linkend =
'</span>';
734 $result .= $linkstart;
736 if (empty($this->showphoto_on_popup)) {
738 $result .=
img_object(($notooltip ?
'' : $label), ($this->picto ? $this->picto :
'generic'), (($withpicto != 2) ?
'class="paddingright"' :
''), 0, 0, $notooltip ? 0 : 1);
742 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
744 list($class, $module) = explode(
'@', $this->picto);
747 $filename = $filearray[0][
'name'];
748 if (!empty($filename)) {
749 $pospoint = strpos($filearray[0][
'name'],
'.');
751 $pathtophoto = $class.
'/'.$this->
ref.
'/thumbs/'.substr($filename, 0, $pospoint).
'_mini'.substr($filename, $pospoint);
753 $result .=
'<div class="floatleft inline-block valignmiddle divphotoref"><div class="photoref"><img class="photo'.$module.
'" alt="No photo" border="0" src="'.DOL_URL_ROOT.
'/viewimage.php?modulepart='.$module.
'&entity='.$conf->entity.
'&file='.urlencode($pathtophoto).
'"></div></div>';
755 $result .=
'<div class="floatleft inline-block valignmiddle divphotoref"><img class="photouserphoto userphoto" alt="No photo" border="0" src="'.DOL_URL_ROOT.
'/viewimage.php?modulepart='.$module.
'&entity='.$conf->entity.
'&file='.urlencode($pathtophoto).
'"></div>';
760 $result .=
img_object(($notooltip ?
'' : $label), ($this->picto ? $this->picto :
'generic'), ($notooltip ? (($withpicto != 2) ?
'class="paddingright"' :
'') :
'class="'.(($withpicto != 2) ?
'paddingright ' :
'').
'"'), 0, 0, $notooltip ? 0 : 1);
765 if ($withpicto != 2) {
766 $result .= $this->ref;
772 global $action, $hookmanager;
773 $hookmanager->initHooks(array($this->element.
'dao'));
774 $parameters = array(
'id' => $this->
id,
'getnomurl' => &$result);
775 $reshook = $hookmanager->executeHooks(
'getNomUrl', $parameters, $this, $action);
777 $result = $hookmanager->resPrint;
779 $result .= $hookmanager->resPrint;
794 $selected = (empty($arraydata[
'selected']) ? 0 : $arraydata[
'selected']);
796 $return =
'<div class="box-flex-item box-flex-grow-zero">';
797 $return .=
'<div class="info-box info-box-sm">';
798 $return .=
'<span class="info-box-icon bg-infobox-action">';
800 $return .=
'</span>';
801 $return .=
'<div class="info-box-content">';
802 $return .=
'<span class="info-box-ref inline-block tdoverflowmax150 valignmiddle">'.(method_exists($this,
'getNomUrl') ? $this->
getNomUrl() : $this->ref).
'</span>';
803 if ($selected >= 0) {
804 $return .=
'<input id="cb'.$this->id.
'" class="flat checkforselect fright" type="checkbox" name="toselect[]" value="'.$this->
id.
'"'.($selected ?
' checked="checked"' :
'').
'>';
806 if (property_exists($this,
'label')) {
807 $return .=
' <div class="inline-block opacitymedium valignmiddle tdoverflowmax100">'.$this->label.
'</div>';
809 if (property_exists($this,
'thirdparty') && is_object($this->thirdparty)) {
810 $return .=
'<br><div class="info-box-ref tdoverflowmax150">'.$this->thirdparty->getNomUrl(1).
'</div>';
812 if (method_exists($this,
'getLibStatut')) {
813 $return .=
'<br><div class="info-box-status">'.$this->getLibStatut(3).
'</div>';
Class to manage categories.
Parent class of all other business classes (invoices, contracts, proposals, orders,...
createCommon(User $user, $notrigger=0)
Create object in the database.
fetchCommon($id, $ref=null, $morewhere='', $noextrafields=0)
Load object in memory from the database.
deleteCommon(User $user, $notrigger=0, $forcechilddeletion=0)
Delete object in database.
getTooltipContentArray($params)
Return array of data to show into a tooltip.
Class to manage Dolibarr database access.
Class to manage intracomm report.
static getDeclarationNumber($number)
Verify declaration number.
addItemsFact(&$declaration, $type, $period_reference, $exporttype='deb')
Add line from invoice.
getNomUrl($withpicto=0, $option='', $notooltip=0, $morecss='', $save_lastsearch_value=-1)
Return a link to the object card (with optionally the picto)
const TYPE_DEB
DEB - Product.
const TYPE_DES
DES - Service.
__construct(DoliDB $db)
Constructor.
fetch($id, $ref=null, $noextrafields=0, $nolines=0)
Function fetch.
addItemXMl(&$declaration, &$res, $i, $code_douane_spe='')
Add item for DEB.
getXML($mode='O', $type='introduction', $period_reference='')
Generate XML file.
addItemXMlDes($declaration, &$res, $i)
Add item for DES.
getKanbanView($option='', $arraydata=null)
Return a thumb for kanban views.
addItemFraisDePort(&$declaration, &$TLinesFraisDePort, $type, &$categ_fraisdeport, $i)
This function adds an item by retrieving the customs code of the product with the highest amount in t...
getNextDeclarationNumber()
Return next reference of declaration not already used (or last reference)
getSQLFactLines($type, $period_reference, $exporttype='deb')
Add invoice line.
generateXMLFile($content_xml)
Generate XML file.
create($user, $notrigger=0)
Function create.
getXMLDes($period_year, $period_month, $type_declaration='expedition')
Generate XMLDes file.
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $allowothertags=array())
Show a picto called object_picto (generic function)
dol_sanitizeFileName($str, $newstr='_', $unaccent=1, $includequotes=0, $allowdash=0)
Clean a string to use it as a file name.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
if(getDolGlobalString( 'TAKEPOS_SHOW_CUSTOMER')) print $langs trans('Date')." left Label right Qty right Price right TotalHT right TotalTTC right right right right right right right right right centpercent right TotalHT right n right VAT right n right TotalVAT right n No sujeto a RE IRPF right TotalLT1 right n right TotalLT2 right n right TotalTTC right n takeposcustomercurrency takeposcustomercurrency takeposcustomercurrency takeposcustomercurrency right TotalTTC takeposcustomercurrency right takeposcustomercurrency n right PaymentTypeShortLIQ right SELECT p pos_change as p datep as date