/**
* Put a QR code in cerficate pdf object
*
* @param pdf $pdf The pdf object
* @param string $code The certificate code
*/
protected function print_qrcode($pdf, $code)
{
global $CFG;
$style = array('border' => 2, 'vpadding' => 'auto', 'hpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => array(255, 255, 255), 'module_width' => 1, 'module_height' => 1);
// height of a single module in points
$codeurl = new moodle_url("{$CFG->wwwroot}/mod/simplecertificate/verify.php");
$codeurl->param('code', $code);
$pdf->write2DBarcode($codeurl->out(false), 'QRCODE,M', $this->get_instance()->codex, $this->get_instance()->codey, 50, 50, $style, 'N');
$pdf->SetXY($this->get_instance()->codex, $this->get_instance()->codey + 49);
$pdf->SetFillColor(255, 255, 255);
$pdf->Cell(50, 0, $code, 'LRB', 0, 'C', true, '', 2);
}
';
$contenido3 = 'EL IMPORTE DE SUS COMISIONES ES DE: $ '.number_format($f->importe,2).' '.num2letras($f->importe).'
EL CUAL APLICARA DE LOS IMPORTES A LIQUIDAR Y ANEXARA FACTURA CORRESPONDIENTE A ESTE DOCUMENTO.
SALDO A LIQUIDAR $ '.number_format($f->liquidar,2).'
DICHO IMPORTE SERA CUBIERTO POR DEPOSITO EN CADA PLAZA A LA CUENTA ASIGNADA A NOMBRE DE ENTREGAS PUNTUALES S DE RL DE CV., CONVENIO CIE 941492 DE BANCOMER REFERENCIA 3608.
DEBO Y PAGARE INCONDICIONALMENTE EN ESTA PLAZA A LA ORDEN DE ENTREGAS PUNTUALES S DE RL DE CV, LA CANTIDAD DE $ '.number_format($f->liquidar,2).' A MAS TARDAR 15 DIAS DESPUES DE EMITIDO EL PRESENTE DOCUMENTO. ESTE PAGARE ES MERCANTIL Y ESTA REGIDO POR LA LEY GENERAL DE TITULOS Y OPERACIONES DE CREDITO EN SU ARTICULO 173 EN SU PARTE FINAL Y ARTICULOS CORRELATIVOS POR NO SER PAGARE DOMICILIADO.
DE NO HACER EL PAGO QUE ESTE PAGARE EXPRESA A SU VENCIMIENTO, CAUSARA INTERES MORATORIOS DEL C.P.P. MAS 50% DEL MISMO., MAS LOS GASTOS QUE POR ELLO SE ORIGINEN.
';
$pdf -> MultiCell(177,4,$contenido,0,'J');
$pdf -> SetFont("Arial","B",8);
$pdf -> MultiCell(177,4,$contenido2,0,'J');
$pdf -> SetFont("Arial","",8);
$pdf -> MultiCell(177,4,$contenido3,0,'J');
$pdf -> SetFont("Arial","",8);
$pdf -> Ln(25);
$pdf -> SetFont('Arial',"",9);
$pdf -> Cell(176,10,'_____________________________________',0,0,'C');
$pdf -> Ln(4);
$pdf -> Cell(176,10,'ACEPTO DE CONFORMIDAD',0,0,'C');
$pdf -> Output();
?>
function ma2_pdf($id){
$return="";
$db=new datenbank();
$query="select * from rechnungen,mahnungen where rechnungen.renr=mahnungen.renr and mahnungen.manr='$id'";
$result=$db->query($query);
$rechnung=$db->get_object($result);
$result_kunde=$db->query("select * from kunden where kdnr=$rechnung->kunde");
$kunde=$db->get_object($result_kunde);
$pdf=new pdf('P', 'mm', 'A4');
$pdf->Open();
$pdf->AddPage();
$pdf->empfaenger($kunde->firma, $kunde->strasse." ".$kunde->hausnummer, $kunde->plz." ".$kunde->ort, $rechnung->manr, $rechnung->datum);
$pdf->SetFont('Arial','B',12);
$pdf->Cell(80,5,"Mahnung");
$pdf->Ln(10);
$pdf->SetFont("Arial", "", 10);
$pdf->Write(5, "Sehr geehrte Damen und Herren,\nleider konnte ich noch keinen Zahlungseingang zur Rechnung $rechnung->renr feststellen. Hier die Auflistung der aufgrund dieser Rechnung unbezahlten Posten::\n\n");
$query="select posten.datum as Datum, posten.kommentar as Beschreibung, posten.anzahl as Anzahl, produkte.name as Artikel, produkte.preis as Preis, (produkte.preis*posten.anzahl) as Summe from posten, produkte where posten.rechnung='$rechnung->renr' and produkte.id=posten.produkt";
$result=$db->query($query);
$header=array("Datum", "Beschreibung", "Anzahl", "Artikel", "Preis", "Summe");
while($data[]=$db->get_row($result))
{
}
$gammel=array_pop($data);
$pdf->table($header, $data);
$pdf->Ln();
$result=$db->query("SELECT Sum( posten.anzahl * produkte.preis ) AS Gesamt, Sum( posten.anzahl * produkte.preis * mwst.satz / 100 ) AS MWST, mwst.satz FROM posten, produkte, mwst WHERE produkte.id = posten.produkt AND mwst.id = produkte.mwst AND posten.rechnung = '$rechnung->renr' AND produkte.id!='3' AND produkte.id!='4' GROUP BY mwst.satz");
$betrag=$db->get_object($result);
$result=$db->query("SELECT Sum( posten.anzahl * produkte.preis ) AS Gesamt, Sum( posten.anzahl * produkte.preis * mwst.satz / 100 ) AS MWST, mwst.satz FROM posten, produkte, mwst WHERE produkte.id = posten.produkt AND mwst.id = produkte.mwst AND posten.rechnung = '$rechnung->renr' AND produkte.id ='3' GROUP BY mwst.satz");
$betrag2=$db->get_object($result);
$result=$db->query("SELECT Sum( posten.anzahl * produkte.preis ) AS Gesamt, Sum( posten.anzahl * produkte.preis * mwst.satz / 100 ) AS MWST, mwst.satz FROM posten, produkte, mwst WHERE produkte.id = posten.produkt AND mwst.id = produkte.mwst AND posten.rechnung = '$rechnung->renr' AND produkte.id ='4' GROUP BY mwst.satz");
$betrag3=$db->get_object($result);
$pdf->Cell(100,5,"", 0, 0, 'L');
$pdf->Cell(35,5,"Gesamt:",0,0,'L');
$pdf->Cell(20,5,number_format(($betrag->Gesamt+$betrag2->Gesamt+$betrag3->Gesamt),2,",",".").EURO, 0, 1, 'R');
$pdf->Cell(100,5,"", 0, 0, 'L');
$pdf->Cell(35,5,"Mehrwertsteuer (".number_format($betrag->satz)."%):", 0, 0, 'L');
$pdf->Cell(20,5,number_format($betrag->MWST,2,",",".").EURO, 0, 1, 'R');
$pdf->Ln();
$pdf->Cell(100,5,"", 0, 0, 'L');
$pdf->Cell(35,5,"Mahnbetrag:", 0, 0, 'L');
$pdf->Cell(20,5,number_format($betrag2->Gesamt+$betrag->Gesamt+$betrag3->Gesamt+$betrag->MWST,2,",",".").EURO, 0, 1, 'R');
$pdf->Ln();
$pdf->Write(5, "Bitte überweisen Sie den oben genannten Betrag bis spätestens zum $rechnung->faellig auf das unten aufgeführte Konto.\nÜber eine weitere Zusammenarbeit mit Ihnen würde ich mich sehr freuen und verbleibe mit freundlichen Grüßen\n");
$pdf->Ln(15);
$pdf->Write(5, $GLOBALS["conf"]["rechnung"]["adresse"]["name"]);
$pdf->Image($GLOBALS["conf"]["rechnung"]["unterschrift"],25,$pdf->GetY()-10,50);
$this->output=0;
$pdf->Output();
return $return;
}
$doc->SetCreator('lib/tests/other/pdflibtestpage.php');
$doc->SetKeywords('Moodle, PDF');
$doc->SetSubject('This has been generated by Moodle as its PDF library test page');
$doc->SetMargins(15, 30);
$doc->setPrintHeader(true);
$doc->setHeaderMargin(10);
$doc->setHeaderFont(array($fontfamily, 'b', 10));
$doc->setHeaderData('pix/moodlelogo-med-white.gif', 40, $SITE->fullname, $CFG->wwwroot);
$doc->setPrintFooter(true);
$doc->setFooterMargin(10);
$doc->setFooterFont(array($fontfamily, '', 8));
$doc->AddPage();
$doc->SetTextColor(255, 255, 255);
$doc->SetFillColor(255, 203, 68);
$doc->SetFont($fontfamily, 'B', 24);
$doc->Cell(0, 0, 'Moodle PDF library test', 0, 1, 'C', 1);
$doc->SetFont($fontfamily, '', 12);
$doc->Ln(6);
$doc->SetTextColor(0, 0, 0);
$c = '<h3>General information</h3>';
$c .= 'Moodle release: ' . $CFG->release . '<br />';
$c .= 'PDF producer: TCPDF ' . TCPDF_STATIC::getTCPDFVersion() . ' (http://www.tcpdf.org) <br />';
$c .= 'Font family used: ' . $fontfamily . '<br />';
$c .= '<h3>Current settings</h3>';
$c .= '<table border="1" cellspacing="0" cellpadding="1">';
foreach (array('K_PATH_MAIN', 'K_PATH_URL', 'K_PATH_FONTS', 'PDF_FONT_NAME_MAIN', 'K_PATH_CACHE', 'K_PATH_IMAGES', 'K_BLANK_IMAGE', 'K_CELL_HEIGHT_RATIO', 'K_SMALL_RATIO', 'PDF_CUSTOM_FONT_PATH', 'PDF_DEFAULT_FONT') as $setting) {
if (defined($setting)) {
$c .= '<tr style="font-size: x-small;"><td>' . $setting . '</td><td>' . constant($setting) . '</td></tr>';
}
}
$c .= '</table><br />';
$tttotal += $ttotal;
if ($cor == "#EFE029") {
$cor = "#E4F471";
} else {
if ($cor == "#E4F471") {
$cor = "#EFE029";
}
}
if (in_array($k00_tipo, $tipos) == true) {
if ($linha++ > $TPagina) {
$linha = 0;
$pdf->AddPage();
$pdf->SetFillColor(235);
$pdf->SetLineWidth(0.5);
$pdf->Ln(3);
$pdf->Cell(191, 2, '', "T", 1, "R", 0);
$pdf->SetFont('Arial', 'B', 8);
$pdf->Cell(25, 5, $outros3, 0, 0, "L", 0);
$pdf->SetFont('Arial', 'I', 8);
$pdf->Cell(80, 5, ': ' . $chave . ' ' . @$outros4, 0, 1, "L", 0);
$pdf->SetFont('Arial', 'B', 8);
$pdf->Cell(25, 5, "NOME", 0, 0, "L", 0);
$pdf->SetFont('Arial', 'I', 8);
$pdf->Cell(80, 5, ': ' . $nome, 0, 1, "L", 0);
$pdf->SetFont('Arial', 'B', 8);
$pdf->Cell(25, 5, "ENDEREÇO", 0, 0, "L", 0);
$pdf->SetFont('Arial', 'I', 8);
$pdf->Cell(80, 5, ': ' . $ender, 0, 1, "L", 0);
if ($outros1 != '') {
$pdf->SetFont('Arial', 'B', 8);
$pdf->Cell(25, 5, $outros1, 0, 0, "L", 0);
