gc.consignaciondescantidad, gc.valordeclarado, limite, porcada, costoextra,
date_format(current_date, '%d/%m/%Y') as fechaactual,
cs.estado eest, cs.municipio emun, gc.legal,
CONCAT(day(gc.fecha),' de ', UCASE(MONTHNAME(gc.fecha)), ' de ',YEAR(gc.fecha)) fechaconvenio,
CONCAT(day(gc.vigencia),' de ', UCASE(MONTHNAME(gc.vigencia)), ' de ',YEAR(gc.vigencia)) fechavigencia
FROM generacionconvenio gc
LEFT JOIN catalogosucursal cs ON gc.sucursal = cs.id
WHERE gc.folio = '$_GET[folio]'";
$r = mysql_query($s,$l) or die("error ".mysql_error($l)."--".$s);
$f = mysql_fetch_object($r);
//die($s);
$pdf = new pdf();
$pdf->AliasNbPages();
$pdf -> AddPage();
$pdf -> Ln(10);
$pdf -> SetFont("Arial","",8);
$contenido = 'Contrato de prestación de servicios que celebra por una parte ENTREGAS PUNTUALES S DE RL DE CV, a quien en lo sucesivo se le denominará "La Prestadora de Servicios", y por otra parte '.$f->ncliente.' representada por '.ucwords($f->legal).' a quien en lo sucesivo se le denominará "El Cliente".
1.- La Prestadora de Servicios otorgará a "El Cliente" los siguientes servicios:
Guias Ventanilla Guias Electronicas
Entrega a Domicilio Recolección a Domicilio
Valor Declarado Acuse de Recibo
Entregas a Subdestinos
2.- El precio del servicio de Recolección a Domicilio (RAD) y Entrega a Domicilio (EAD) es un 10% sobre el valor del flete o bien un cobro mínimo dependiendo de la Ciudad donde se origine el servicio de RAD o donde se envíe el servicio de EAD (ver tarifas).
3.- El precio Valor Declarado es de $8.00 (Son Ocho Pesos 00/100 M.N.) por millar, este seguro únicamente ampara riegos ordinarios de tránsito (incendio, accidente, asalto a mano armada). De ocurrir cualquiera de los eventos anteriores se cobrará un 20% de deducible sobre el valor declarado, de acuerdo con la póliza de seguros vigente. El máximo del Valor Declarado por guía o carta de porte es de $150,000.00 (Son Ciento cincuenta mil pesos 00/100 M.N).
SUM(IF(rcd.tipo='V' AND rcd.condicion='PAGADA-CREDITO',rcd.totalgral,0))pagcred,
SUM(IF(rcd.tipo='R' AND rcd.condicion='POR COBRAR-CONTADO',rcd.totalgral,0))cobcont,
SUM(IF(rcd.tipo='R' AND rcd.condicion='POR COBRAR-CREDITO',rcd.totalgral,0))cobcred,
ROUND(SUM(rcd.totalgral),2)total,ROUND(SUM(rcd.totalcom),2)importe,
ROUND(SUM(rcd.totalgral)-SUM(rcd.totalcom),2)liquidar
FROM moduloconcesiones mc
INNER JOIN reporte_concesiondetalle rcd ON mc.folio=rcd.folio AND mc.sucursal=rcd.sucursal
INNER JOIN catalogosucursal cs ON mc.sucursal=cs.id
WHERE mc.folio='$_GET[folio]' AND mc.sucursal=$_GET[sucursal] ";
$r = mysql_query($s,$l) or die($s);
$f = mysql_fetch_object($r);
$pdf = new pdf();
$pdf->AliasNbPages();
$pdf -> AddPage();
$pdf -> Ln(10);
$pdf -> SetFont("Arial","",8);
$contenido = 'CONCESIONARIO: '.$f->nconcesionario.'
OFICINA: '.$f->oficina.'
ADJUNTO A LA PRESENTE SIRVASE ENCONTRAR LIQUIDACION CORRESPONDIENTE DE LA FECHA '.$f->fecha2.'
CON LOS SIGUIENTES IMPORTES A LIQUIDAR
VENTA DE FLETES ENVIADOS PAGADOS CONTADO $ '.number_format($f->pagcont,2).'
VENTA DE FLETES ENVIADOS PAGADOS CREDITO $ '.number_format($f->pagcred,2).'
RECIBIDO DE FLETES RECIBIDOS POR COBRAR CONTADO $ '.number_format($f->cobcont,2).'
RECIBIDO DE FLETES RECIBIDOS POR COBRAR CREDITO $ '.number_format($f->cobcred,2).'
';
$contenido2 = 'TOTAL A PAGAR $ '.number_format($f->total,2).'
$this->TituloCabecera(30, $idioma['Paterno']);
$this->TituloCabecera(30, $idioma['Materno']);
$this->TituloCabecera(40, $idioma['Nombres']);
$this->TituloCabecera(20, $idioma['Curso']);
$this->TituloCabecera(20, $idioma['Cuota']);
$this->TituloCabecera(25, $idioma['MontoPagar']);
}
}
$pdf = new pdf("P", "mm", "letter");
$pdf->AddPage();
$total = 0;
$i = 0;
foreach ($cuota->porPagar() as $cuo) {
$i++;
if ($i % 2 == 0) {
$nf = 1;
} else {
$nf = 0;
}
$total += $cuo['MontoPagar'];
$pdf->CuadroCuerpo(10, $i, $nf, "R");
$pdf->CuadroNombreSeparado(30, $cuo['Paterno'], 30, $cuo['Materno'], 40, $cuo['Nombres'], 1, $nf);
$pdf->CuadroCuerpo(20, $cuo['Curso'], $nf, "");
$pdf->CuadroCuerpo(20, $cuo['Cuota'], $nf, "C");
$pdf->CuadroCuerpo(25, number_format($cuo['MontoPagar'], 2), $nf, "R");
$pdf->Ln();
}
$pdf->Linea();
$pdf->CuadroCuerpo(150, $idioma['Total'], $nf, "R");
$pdf->CuadroCuerpo(25, number_format($total, 2), $nf, "R");
$pdf->Output($titulo, "I");
$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 />';
$c .= '<h3>Available font families</h3>';
$fontfamilies = $doc->get_font_families();
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;
}
$ttvlrdesconto += $tvlrdesconto;
$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);