dolibarr.exportzugferd/admin/setup.php

<?php
/* Copyright (C) 2026 Eduard Wisch <data@data-it-solution.de>
 *
 * 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 <https://www.gnu.org/licenses/>.
 */

/**
 * \file    admin/setup.php
 * \ingroup exportzugferd
 * \brief   ExportZugferd setup page
 */

// Load Dolibarr environment
$res = 0;
if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) {
	$res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php";
}
$tmp = empty($_SERVER['SCRIPT_FILENAME']) ? '' : $_SERVER['SCRIPT_FILENAME'];
$tmp2 = realpath(__FILE__);
$i = strlen($tmp) - 1;
$j = strlen($tmp2) - 1;
while ($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i] == $tmp2[$j]) {
	$i--;
	$j--;
}
if (!$res && $i > 0 && file_exists(substr($tmp, 0, ($i + 1))."/main.inc.php")) {
	$res = @include substr($tmp, 0, ($i + 1))."/main.inc.php";
}
if (!$res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php")) {
	$res = @include dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php";
}
if (!$res && file_exists("../main.inc.php")) {
	$res = @include "../main.inc.php";
}
if (!$res && file_exists("../../main.inc.php")) {
	$res = @include "../../main.inc.php";
}
if (!$res && file_exists("../../../main.inc.php")) {
	$res = @include "../../../main.inc.php";
}
if (!$res) {
	die("Include of main fails");
}
require_once DOL_DOCUMENT_ROOT . '/core/lib/admin.lib.php';
require_once __DIR__ . '/../lib/exportzugferd.lib.php';

// Security check
if (!$user->admin) {
	accessforbidden();
}

$langs->loadLangs(array('admin', 'exportzugferd@exportzugferd'));

$action = GETPOST('action', 'aZ09');

// Available profiles
$profiles = array(
	'MINIMUM' => 'ZUGFeRD Minimum',
	'BASIC WL' => 'ZUGFeRD Basic WL',
	'BASIC' => 'ZUGFeRD Basic',
	'EN16931' => 'ZUGFeRD EN16931 (Comfort)',
	'EXTENDED' => 'ZUGFeRD Extended',
	'XRECHNUNG' => 'XRechnung 3.0',
);

/*
 * Actions
 */

if ($action == 'update') {
	$error = 0;

	$profile = GETPOST('EXPORTZUGFERD_PROFILE', 'alpha');
	$autoGenerate = GETPOSTINT('EXPORTZUGFERD_AUTO_GENERATE');
	$embedPdf = GETPOSTINT('EXPORTZUGFERD_EMBED_IN_PDF');
	$deleteXmlAfterEmbed = GETPOSTINT('EXPORTZUGFERD_DELETE_XML_AFTER_EMBED');
	$attachToEmail = GETPOSTINT('EXPORTZUGFERD_ATTACH_TO_EMAIL');

	if (!$error) {
		$result = dolibarr_set_const($db, 'EXPORTZUGFERD_PROFILE', $profile, 'chaine', 0, '', $conf->entity);
		if ($result < 0) {
			$error++;
		}
	}

	if (!$error) {
		$result = dolibarr_set_const($db, 'EXPORTZUGFERD_AUTO_GENERATE', $autoGenerate, 'chaine', 0, '', $conf->entity);
		if ($result < 0) {
			$error++;
		}
	}

	if (!$error) {
		$result = dolibarr_set_const($db, 'EXPORTZUGFERD_EMBED_IN_PDF', $embedPdf, 'chaine', 0, '', $conf->entity);
		if ($result < 0) {
			$error++;
		}
	}

	if (!$error) {
		$result = dolibarr_set_const($db, 'EXPORTZUGFERD_DELETE_XML_AFTER_EMBED', $deleteXmlAfterEmbed, 'chaine', 0, '', $conf->entity);
		if ($result < 0) {
			$error++;
		}
	}

	if (!$error) {
		$result = dolibarr_set_const($db, 'EXPORTZUGFERD_ATTACH_TO_EMAIL', $attachToEmail, 'chaine', 0, '', $conf->entity);
		if ($result < 0) {
			$error++;
		}
	}

	if (!$error) {
		setEventMessages($langs->trans('SetupSaved'), null, 'mesgs');
	} else {
		setEventMessages($langs->trans('Error'), null, 'errors');
	}
}

/*
 * View
 */

$page_name = 'ExportZugferdSetup';
llxHeader('', $langs->trans($page_name), '', '', 0, 0, '', '', '', 'mod-exportzugferd page-admin-setup');

// Subheader
$linkback = '<a href="' . DOL_URL_ROOT . '/admin/modules.php?restore_lastsearch_values=1">' . $langs->trans('BackToModuleList') . '</a>';
print load_fiche_titre($langs->trans($page_name), $linkback, 'title_setup');

// Configuration header
$head = exportzugferd_admin_prepare_head();
print dol_get_fiche_head($head, 'settings', $langs->trans('ExportZugferd'), -1, 'fa-file-export');

print '<form method="POST" action="' . $_SERVER['PHP_SELF'] . '">';
print '<input type="hidden" name="token" value="' . newToken() . '">';
print '<input type="hidden" name="action" value="update">';

print '<table class="noborder centpercent">';

// Profile selection
print '<tr class="liste_titre">';
print '<td colspan="2">' . $langs->trans('GeneralSettings') . '</td>';
print '</tr>';

print '<tr class="oddeven">';
print '<td class="titlefield">' . $langs->trans('ZugferdProfile') . '</td>';
print '<td>';
print '<select name="EXPORTZUGFERD_PROFILE" class="flat minwidth200">';
foreach ($profiles as $code => $label) {
	$selected = (getDolGlobalString('EXPORTZUGFERD_PROFILE', 'EN16931') == $code) ? ' selected' : '';
	print '<option value="' . $code . '"' . $selected . '>' . $label . '</option>';
}
print '</select>';
print '</td>';
print '</tr>';

// Auto-generate
print '<tr class="oddeven">';
print '<td>' . $langs->trans('AutoGenerateZugferd') . '</td>';
print '<td>';
print $form->selectyesno('EXPORTZUGFERD_AUTO_GENERATE', getDolGlobalInt('EXPORTZUGFERD_AUTO_GENERATE', 0), 1);
print '<span class="opacitymedium"> - ' . $langs->trans('AutoGenerateZugferdDesc') . '</span>';
print '</td>';
print '</tr>';

// Embed in PDF
print '<tr class="oddeven">';
print '<td>' . $langs->trans('EmbedXMLInPDF') . '</td>';
print '<td>';
print $form->selectyesno('EXPORTZUGFERD_EMBED_IN_PDF', getDolGlobalInt('EXPORTZUGFERD_EMBED_IN_PDF', 0), 1);
print '<span class="opacitymedium"> - ' . $langs->trans('EmbedXMLInPDFDesc') . '</span>';
print '</td>';
print '</tr>';

// Delete XML after embedding
print '<tr class="oddeven">';
print '<td>' . $langs->trans('DeleteXMLAfterEmbed') . '</td>';
print '<td>';
print $form->selectyesno('EXPORTZUGFERD_DELETE_XML_AFTER_EMBED', getDolGlobalInt('EXPORTZUGFERD_DELETE_XML_AFTER_EMBED', 0), 1);
print '<span class="opacitymedium"> - ' . $langs->trans('DeleteXMLAfterEmbedDesc') . '</span>';
print '</td>';
print '</tr>';

// Attach to Email
print '<tr class="oddeven">';
print '<td>' . $langs->trans('AttachZugferdToEmail') . '</td>';
print '<td>';
print $form->selectyesno('EXPORTZUGFERD_ATTACH_TO_EMAIL', getDolGlobalInt('EXPORTZUGFERD_ATTACH_TO_EMAIL', 0), 1);
print '<span class="opacitymedium"> - ' . $langs->trans('AttachZugferdToEmailDesc') . '</span>';
print '</td>';
print '</tr>';

print '</table>';

print '<br>';
print '<div class="center">';
print '<input type="submit" class="button" value="' . $langs->trans('Save') . '">';
print '</div>';

print '</form>';

// Info section
print '<br>';
print '<table class="noborder centpercent">';
print '<tr class="liste_titre">';
print '<td colspan="2">' . $langs->trans('Information') . '</td>';
print '</tr>';

print '<tr class="oddeven">';
print '<td class="titlefield">' . $langs->trans('SupportedProfiles') . '</td>';
print '<td>';
print '<ul>';
print '<li><strong>ZUGFeRD Minimum:</strong> ' . $langs->trans('ProfileMinimumDesc') . '</li>';
print '<li><strong>ZUGFeRD Basic:</strong> ' . $langs->trans('ProfileBasicDesc') . '</li>';
print '<li><strong>ZUGFeRD EN16931:</strong> ' . $langs->trans('ProfileEN16931Desc') . '</li>';
print '<li><strong>XRechnung:</strong> ' . $langs->trans('ProfileXRechnungDesc') . '</li>';
print '</ul>';
print '</td>';
print '</tr>';

print '</table>';

print dol_get_fiche_end();

llxFooter();
$db->close();