121 lines
4.5 KiB
PHP
121 lines
4.5 KiB
PHP
|
|
<?php
|
|
// parse new component
|
|
$identpartlist = new WA_MySQLi_RS("identpartlist",$cmctrfdb,0);
|
|
$identpartlist->setQuery("SELECT * FROM identificationparts WHERE identificationparts.idtrfdetails='$idtrf' AND identificationparts.kindoftest='new'");
|
|
$identpartlist->execute();
|
|
|
|
$pdf->AddPage('L');
|
|
$pdf->SetFont('','B','9');
|
|
$pdf->Cell(275,6,'Parti da testare',1,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('','B','8');
|
|
$pdf->Cell(55,6,'Parte',1,0,'C');
|
|
$pdf->Cell(85,6,'Descrizione',1,0,'C');
|
|
$pdf->Cell(80,6,'Articolo',1,0,'C');
|
|
$pdf->Cell(55,6,'Colore',1,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('','','8');
|
|
|
|
$wa_startindex = 0;
|
|
while(!$identpartlist->atEnd()) {
|
|
$wa_startindex = $identpartlist->Index;
|
|
|
|
$descpart=$identpartlist->getColumnVal("description_identificationparts");
|
|
$pdf->Cell(55,6,$descpart,1,0,'L',TRUE);
|
|
$pdf->Cell(85,6,$identpartlist->getColumnVal("material_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(80,6,$identpartlist->getColumnVal("article_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(55,6,$identpartlist->getColumnVal("color_identificationparts"),1,0,'L', TRUE);
|
|
|
|
$pdf->Ln();
|
|
|
|
|
|
$identpartlist->moveNext();
|
|
}
|
|
$identpartlist->moveFirst(); //return RS to first record
|
|
unset($wa_startindex);
|
|
unset($wa_repeatcount);
|
|
|
|
// parse issue by cmc
|
|
$identpartlistcmc = new WA_MySQLi_RS("identpartlist",$cmctrfdb,0);
|
|
$identpartlistcmc->setQuery("SELECT * FROM identificationparts WHERE identificationparts.idtrfdetails='$idtrf' AND identificationparts.kindoftest='cmc'");
|
|
$identpartlistcmc->execute();
|
|
if (!empty($identpartlistcmc->getColumnVal("ididentificationparts"))) {
|
|
$pdf->SetFont('','B','8');
|
|
$pdf->Cell(275,6,'Parti testate da CIMAC',1,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->Cell(40,6,'Parte',1,0,'C');
|
|
$pdf->Cell(50,6,'Descrizione',1,0,'C');
|
|
$pdf->Cell(50,6,'Articolo',1,0,'C');
|
|
$pdf->Cell(40,6,'Colore',1,0,'C');
|
|
$pdf->Cell(30,6,'Rapporto',1,0,'C');
|
|
$pdf->Cell(30,6,'Data',1,0,'C');
|
|
$pdf->Cell(35,6,'Intestato',1,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('','','8');
|
|
|
|
$wa_startindex = 0;
|
|
while(!$identpartlistcmc->atEnd()) {
|
|
$wa_startindex = $identpartlistcmc->Index;
|
|
|
|
|
|
$descpart=$identpartlistcmc->getColumnVal("description_identificationparts");
|
|
$pdf->Cell(40,6,$descpart,1,0,'L',TRUE);
|
|
$pdf->Cell(50,6,$identpartlistcmc->getColumnVal("material_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(50,6,$identpartlistcmc->getColumnVal("article_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(40,6,$identpartlistcmc->getColumnVal("color_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(30,6,$identpartlistcmc->getColumnVal("cmcreportnumber_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(30,6,$identpartlistcmc->getColumnVal("cmcreportdate_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(35,6,$identpartlistcmc->getColumnVal("reportof"),1,0,'L',TRUE);
|
|
|
|
$pdf->Ln();
|
|
|
|
|
|
$identpartlistcmc->moveNext();
|
|
}
|
|
$identpartlistcmc->moveFirst(); //return RS to first record
|
|
unset($wa_startindex);
|
|
unset($wa_repeatcount);
|
|
}
|
|
// parse issue by trd
|
|
$identpartlisttrd = new WA_MySQLi_RS("identpartlist",$cmctrfdb,0);
|
|
$identpartlisttrd->setQuery("SELECT * FROM identificationparts WHERE identificationparts.idtrfdetails='$idtrf' AND identificationparts.kindoftest='trd'");
|
|
$identpartlisttrd->execute();
|
|
if (!empty($identpartlisttrd->getColumnVal("ididentificationparts"))) {
|
|
$pdf->SetFont('','B','8');
|
|
$pdf->Cell(275,6,'Parti testate da altro laboratorio',1,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->Cell(40,6,'Parte',1,0,'C');
|
|
$pdf->Cell(50,6,'Descrizione',1,0,'C');
|
|
$pdf->Cell(50,6,'Articolo',1,0,'C');
|
|
$pdf->Cell(40,6,'Colore',1,0,'C');
|
|
$pdf->Cell(30,6,'Rapporto',1,0,'C');
|
|
$pdf->Cell(30,6,'Data',1,0,'C');
|
|
$pdf->Cell(35,6,'Intestato',1,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('','','8');
|
|
|
|
$wa_startindex = 0;
|
|
while(!$identpartlisttrd->atEnd()) {
|
|
$wa_startindex = $identpartlisttrd->Index;
|
|
|
|
|
|
$descpart=$identpartlisttrd->getColumnVal("description_identificationparts");
|
|
$pdf->Cell(40,6,$descpart,1,0,'L',TRUE);
|
|
$pdf->Cell(50,6,$identpartlisttrd->getColumnVal("material_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(50,6,$identpartlisttrd->getColumnVal("article_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(40,6,$identpartlisttrd->getColumnVal("color_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(30,6,$identpartlisttrd->getColumnVal("cmcreportnumber_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(30,6,$identpartlisttrd->getColumnVal("cmcreportdate_identificationparts"),1,0,'L', TRUE);
|
|
$pdf->Cell(35,6,$identpartlisttrd->getColumnVal("reportof"),1,0,'L',TRUE);
|
|
|
|
$pdf->Ln();
|
|
|
|
|
|
$identpartlisttrd->moveNext();
|
|
}
|
|
$identpartlisttrd->moveFirst(); //return RS to first record
|
|
unset($wa_startindex);
|
|
unset($wa_repeatcount);
|
|
}
|
|
?>
|