/**
* Create a document onto disk according to template module.
*
* @param DoliDB $db Database handler
* @param Facture $object Object invoice
* @param string $modele Force template to use ('' to not force)
* @param Translate $outputlangs objet lang a utiliser pour traduction
* @param int $hidedetails Hide details of lines
* @param int $hidedesc Hide description
* @param int $hideref Hide ref
* @return int <0 if KO, >0 if OK
* @deprecated Use the new function generateDocument of Facture class
* @see Facture::generateDocument()
*/
function facture_pdf_create(DoliDB $db, Facture $object, $modele, $outputlangs, $hidedetails = 0, $hidedesc = 0, $hideref = 0)
{
dol_syslog(__METHOD__ . " is deprecated", LOG_WARNING);
return $object->generateDocument($modele, $outputlangs, $hidedetails, $hidedesc, $hideref);
}
$db->begin();
$object->fetch($id);
if ($object->valide() > 0) {
$db->commit();
// Loop on each invoice linked to this payment to rebuild PDF
$factures = array();
foreach ($factures as $id) {
$fac = new Facture($db);
$fac->fetch($id);
$outputlangs = $langs;
if (!empty($_REQUEST['lang_id'])) {
$outputlangs = new Translate("", $conf);
$outputlangs->setDefaultLang($_REQUEST['lang_id']);
}
if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE)) {
$fac->generateDocument($fac->modelpdf, $outputlangs);
}
}
header('Location: ' . $_SERVER['PHP_SELF'] . '?id=' . $object->id);
exit;
} else {
$langs->load("errors");
setEventMessage($langs->trans($object->error), 'errors');
$db->rollback();
}
}
if ($action == 'setnum_paiement' && !empty($_POST['num_paiement'])) {
$object->fetch($id);
$res = $object->update_num($_POST['num_paiement']);
if ($res === 0) {
setEventMessage($langs->trans('PaymentNumberUpdateSucceeded'));
// Define output language
$outputlangs = $langs;
$newlang = '';
if ($conf->global->MAIN_MULTILANGS && empty($newlang) && !empty($_REQUEST['lang_id'])) {
$newlang = $_REQUEST['lang_id'];
}
if ($conf->global->MAIN_MULTILANGS && empty($newlang)) {
$newlang = $customer->default_lang;
}
if (!empty($newlang)) {
$outputlangs = new Translate("", $conf);
$outputlangs->setDefaultLang($newlang);
}
// Generate PDF (whatever is option MAIN_DISABLE_PDF_AUTOUPDATE) so we can include it into email
//if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
$invoice->generateDocument($invoice->modelpdf, $outputlangs, $hidedetails, $hidedesc, $hideref);
}
}
}
}
if (!$error) {
$db->commit();
} else {
$db->rollback();
$action = 'addsubscription';
}
// Send email
if (!$error) {
// Send confirmation Email
if ($object->email && $_POST["sendmail"]) {
$subjecttosend = $object->makeSubstitution($conf->global->ADHERENT_MAIL_COTIS_SUBJECT);
/**
* Function to build a compiled PDF
*
* @param DoliDB $db Database handler
* @param Translate $langs Object langs
* @param Conf $conf Object conf
* @param string $diroutputpdf Dir to output file
* @param string $newlangid Lang id
* @param array $filter Array with filters
* @param date $dateafterdate Invoice after date
* @param date $datebeforedate Invoice before date
* @param date $paymentdateafter Payment after date (must includes hour)
* @param date $paymentdatebefore Payment before date (must includes hour)
* @param int $usestdout Add information onto standard output
* @param int $regenerate ''=Use existing PDF files, 'nameofpdf'=Regenerate all PDF files using the template
* @param string $filesuffix Suffix to add into file name of generated PDF
* @param string $paymentbankid Only if payment on this bank account id
* @param array $thirdpartiesid List of thirdparties id when using filter excludethirdpartiesid or onlythirdpartiesid
* @param string $fileprefix Prefix to add into filename of generated PDF
* @return int Error code
*/
function rebuild_merge_pdf($db, $langs, $conf, $diroutputpdf, $newlangid, $filter, $dateafterdate, $datebeforedate, $paymentdateafter, $paymentdatebefore, $usestdout, $regenerate = 0, $filesuffix = '', $paymentbankid = '', $thirdpartiesid = '', $fileprefix = 'mergedpdf')
{
$sql = "SELECT DISTINCT f.rowid, f.facnumber";
$sql .= " FROM " . MAIN_DB_PREFIX . "facture as f";
$sqlwhere = '';
$sqlorder = '';
if (in_array('all', $filter)) {
$sqlorder = " ORDER BY f.facnumber ASC";
}
if (in_array('date', $filter)) {
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= " f.fk_statut > 0";
$sqlwhere .= " AND f.datef >= '" . $db->idate($dateafterdate) . "'";
$sqlwhere .= " AND f.datef <= '" . $db->idate($datebeforedate) . "'";
$sqlorder = " ORDER BY f.datef ASC";
}
if (in_array('nopayment', $filter)) {
$sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "paiement_facture as pf ON f.rowid = pf.fk_facture";
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= " f.fk_statut > 0";
$sqlwhere .= " AND pf.fk_paiement IS NULL";
}
if (in_array('payments', $filter) || in_array('bank', $filter)) {
$sql .= ", " . MAIN_DB_PREFIX . "paiement_facture as pf, " . MAIN_DB_PREFIX . "paiement as p";
if (in_array('bank', $filter)) {
$sql .= ", " . MAIN_DB_PREFIX . "bank as b";
}
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= " f.fk_statut > 0";
$sqlwhere .= " AND f.rowid = pf.fk_facture";
$sqlwhere .= " AND pf.fk_paiement = p.rowid";
if (in_array('payments', $filter)) {
$sqlwhere .= " AND p.datep >= '" . $db->idate($paymentdateafter) . "'";
$sqlwhere .= " AND p.datep <= '" . $db->idate($paymentdatebefore) . "'";
}
if (in_array('bank', $filter)) {
$sqlwhere .= " AND p.fk_bank = b.rowid";
$sqlwhere .= " AND b.fk_account = " . $paymentbankid;
}
$sqlorder = " ORDER BY p.datep ASC";
}
if (in_array('nodeposit', $filter)) {
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= ' type <> 3';
}
if (in_array('noreplacement', $filter)) {
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= ' type <> 1';
}
if (in_array('nocreditnote', $filter)) {
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= ' type <> 2';
}
if (in_array('excludethirdparties', $filter) && is_array($thirdpartiesid)) {
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= ' f.fk_soc NOT IN (' . join(',', $thirdpartiesid) . ')';
}
if (in_array('onlythirdparties', $filter) && is_array($thirdpartiesid)) {
if (empty($sqlwhere)) {
$sqlwhere = ' WHERE ';
} else {
$sqlwhere .= " AND";
}
$sqlwhere .= ' f.fk_soc IN (' . join(',', $thirdpartiesid) . ')';
}
if ($sqlwhere) {
$sql .= $sqlwhere;
}
if ($sqlorder) {
$sql .= $sqlorder;
}
//print $sql; exit;
dol_syslog("scripts/invoices/rebuild_merge.php:", LOG_DEBUG);
if ($usestdout) {
print '--- start' . "\n";
}
// Start of transaction
//$db->begin();
$error = 0;
$result = 0;
$files = array();
// liste les fichiers
dol_syslog("scripts/invoices/rebuild_merge.php", LOG_DEBUG);
if ($resql = $db->query($sql)) {
$num = $db->num_rows($resql);
$cpt = 0;
$oldemail = '';
$message = '';
$total = '';
if ($num) {
// First loop on each resultset to build PDF
// -----------------------------------------
while ($cpt < $num) {
$obj = $db->fetch_object($resql);
$fac = new Facture($db);
$result = $fac->fetch($obj->rowid);
if ($result > 0) {
$outputlangs = $langs;
if (!empty($newlangid)) {
if ($outputlangs->defaultlang != $newlangid) {
$outputlangs = new Translate("", $conf);
$outputlangs->setDefaultLang($newlangid);
}
}
$filename = $conf->facture->dir_output . '/' . $fac->ref . '/' . $fac->ref . '.pdf';
if ($regenerate || !dol_is_file($filename)) {
if ($usestdout) {
print "Build PDF for invoice " . $obj->facnumber . " - Lang = " . $outputlangs->defaultlang . "\n";
}
$result = $fac->generateDocument($regenerate ? $regenerate : $fac->modelpdf, $outputlangs);
} else {
if ($usestdout) {
print "PDF for invoice " . $obj->facnumber . " already exists\n";
}
}
// Add file into files array
$files[] = $filename;
}
if ($result <= 0) {
$error++;
if ($usestdout) {
print "Error: Failed to build PDF for invoice " . ($fac->ref ? $fac->ref : ' id ' . $obj->rowid) . "\n";
} else {
dol_syslog("Failed to build PDF for invoice " . ($fac->ref ? $fac->ref : ' id ' . $obj->rowid), LOG_ERR);
}
}
$cpt++;
}
// Define format of output PDF
$formatarray = pdf_getFormat($langs);
$page_largeur = $formatarray['width'];
$page_hauteur = $formatarray['height'];
$format = array($page_largeur, $page_hauteur);
if ($usestdout) {
print "Using output PDF format " . join('x', $format) . "\n";
} else {
dol_syslog("Using output PDF format " . join('x', $format), LOG_ERR);
}
// Now, build a merged files with all files in $files array
//---------------------------------------------------------
// Create empty PDF
$pdf = pdf_getInstance($format);
if (class_exists('TCPDF')) {
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
}
$pdf->SetFont(pdf_getPDFFont($langs));
if ($conf->global->MAIN_DISABLE_PDF_COMPRESSION) {
$pdf->SetCompression(false);
}
//$pdf->SetCompression(false);
// Add all others
foreach ($files as $file) {
if ($usestdout) {
print "Merge PDF file for invoice " . $file . "\n";
} else {
dol_syslog("Merge PDF file for invoice " . $file);
}
// Charge un document PDF depuis un fichier.
$pagecount = $pdf->setSourceFile($file);
for ($i = 1; $i <= $pagecount; $i++) {
$tplidx = $pdf->importPage($i);
$s = $pdf->getTemplatesize($tplidx);
$pdf->AddPage($s['h'] > $s['w'] ? 'P' : 'L');
$pdf->useTemplate($tplidx);
}
}
// Create output dir if not exists
dol_mkdir($diroutputpdf);
// Save merged file
$filename = $fileprefix;
if (empty($filename)) {
$filename = 'mergedpdf';
}
if (!empty($filesuffix)) {
$filename .= '_' . $filesuffix;
}
$file = $diroutputpdf . '/' . $filename . '.pdf';
if (!$error && $pagecount) {
$pdf->Output($file, 'F');
if (!empty($conf->global->MAIN_UMASK)) {
@chmod($file, octdec($conf->global->MAIN_UMASK));
}
}
if ($usestdout) {
if (!$error) {
print "Merged PDF has been built in " . $file . "\n";
} else {
print "Can't build PDF " . $file . "\n";
}
}
$result = 1;
} else {
if ($usestdout) {
print "No invoices found for criteria.\n";
} else {
dol_syslog("No invoices found for criteria");
}
$result = 0;
}
} else {
dol_print_error($db);
dol_syslog("scripts/invoices/rebuild_merge.php: Error");
$error++;
}
if ($error) {
return -1;
} else {
return $result;
}
}
/**
* Create a document onto disk according to template module.
*
* @param DoliDB $db Database handler
* @param Object $object Object invoice
* @param string $modele Force template to use ('' to not force)
* @param Translate $outputlangs objet lang a utiliser pour traduction
* @param int $hidedetails Hide details of lines
* @param int $hidedesc Hide description
* @param int $hideref Hide ref
* @return int <0 if KO, >0 if OK
* @deprecated Use the new function generateDocument of Facture class
*/
function facture_pdf_create(DoliDB $db, Facture $object, $modele, $outputlangs, $hidedetails = 0, $hidedesc = 0, $hideref = 0)
{
return $object->generateDocument($modele, $outputlangs, $hidedetails, $hidedesc, $hideref);
}
/**
* testFactureBuild
*
* @return int
*/
public function testFactureBuild()
{
global $conf, $user, $langs, $db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$conf->facture->dir_output .= '/temp';
$localobjectcom = new Commande($this->savdb);
$localobjectcom->initAsSpecimen();
$localobject = new Facture($this->savdb);
$localobject->createFromOrder($localobjectcom);
$localobject->date_lim_reglement = dol_now() + 3600 * 24 * 30;
// Crabe (english)
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $langs);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
// Crabe (japanese)
$newlangs1 = new Translate("", $conf);
$newlangs1->setDefaultLang('ja_JP');
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $newlangs1);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
// Crabe (saudiarabia)
$newlangs2a = new Translate("", $conf);
$newlangs2a->setDefaultLang('sa_SA');
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $newlangs2a);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
// Crabe (english_saudiarabia)
$newlangs2b = new Translate("", $conf);
$newlangs2b->setDefaultLang('en_SA');
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $newlangs2b);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
// Crabe (greek)
$newlangs3 = new Translate("", $conf);
$newlangs3->setDefaultLang('el_GR');
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $newlangs3);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
// Crabe (chinese)
$newlangs4 = new Translate("", $conf);
$newlangs4->setDefaultLang('zh_CN');
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $newlangs4);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
// Crabe (russian)
$newlangs5 = new Translate("", $conf);
$newlangs5->setDefaultLang('ru_RU');
$localobject->modelpdf = 'crabe';
$result = $localobject->generateDocument($localobject->modelpdf, $newlangs5);
$this->assertLessThan($result, 0);
print __METHOD__ . " result=" . $result . "\n";
return 0;
}
