webadmin.php

/var/www/enzatesting.onesolution.hk/pdf_ord_planreport.php

<?php
$formid = "Order";
require_once "inc/configure.php";
require_once "inc/ord_dtl_func.php";
require_once "inc/pdf/tcpdf.php";
/*
if(havePermission("DCr")==false
|| havePermission("DPr")==false
//|| havePermission("MDr")==false
//|| havePermission("TDr")==false
){
    
    myerror("Invalid Permission");    
}
*/

//$_REQUEST['status'] = setDefaultReqVar("status", 'PIP');

/*
search_orderField($_REQUEST['act'], $_REQUEST['customer'], $_REQUEST['launchdate_start'], $_REQUEST['launchdate_end'], $_REQUEST['deliverydate_start'], $_REQUEST['deliverydate_end'], $_REQUEST['finished'], $_REQUEST['status'], $_REQUEST['vendor'], $_REQUEST['showRemaining']  );    
*/
//vdump($_SESSION['search']['order']);

$row_height = 18;
$height_2row = $row_height * 2;
$showBorder = 0;
$tableBorder = 1;
//vdump($req);
//var_dump($row);

function ord_header(){
    global $pdf, $tableBorder, $row_height;
    $pdf->SetFont('data_fonts_droidsansfallback', '', 6);
    $pdf->MultiCell(44, $row_height*2, 
    ORDER.WS.NUMBER,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(48, $row_height*2, 
    LAUNCH_DATE,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(48, $row_height*2, 
    DELIVERY.WS.DATE,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    ORDER.WS.QTY,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(31, $row_height*2, 
    NOT_STARTED,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    WAXD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    CASO,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    CASD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    FILD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    SETD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(28, $row_height*2, 
    LAPID_CODE,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    POLD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(28, $row_height*2, 
    ENAMEL_CODE,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    MQCD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(26, $row_height*2, 
    WCFM_CODE,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    PAKD,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height*2, 
    SENT_TO_HK,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(36, $row_height*2, 
    SENT_TO_CUSTOMER,
    $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(38, $row_height*2, 
    CUSTOMER.WS.ORDER.WS.REFERENCE,
    $tableBorder, 'C', 1, 1, '', '', true, 0, false, true, 0, 'M');    
    $pdf->SetFont('data_fonts_droidsansfallback', '', 7);
}

function ord_footer($ttl){
    global $pdf, $tableBorder, $row_height;
    $pdf->SetFont('data_fonts_droidsansfallback', '', 7);
    $pdf->MultiCell(140, $row_height, 
    TOTAL,
    $tableBorder, 'L', 1, 0, '', '', true, 0, false, true, 0, 'L');
    /*    $pdf->MultiCell(50, $row_height, 
        datef($row['launch_date']),
        $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
        $pdf->MultiCell(50, $row_height, 
        datef($row['del_date']),
        $tableBorder, 'C', 1, 0, '', '', true, 0, false, true, 0, 'M');
    */
    $pdf->MultiCell(26, $row_height, 
    numf($ttl['QTY']+$ttl['NOT_STARTED']),//2022-02-18
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(31, $row_height, 
    $ttl['NOT_STARTED'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['WAXD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['CASO'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['CASD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['FILD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['SETD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(28, $row_height, 
    $ttl['LAPID'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['POLD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(28, $row_height, 
    $ttl['ENAMEL'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['MQCD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(26, $row_height, 
    $ttl['WCFM'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['PAKD'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $row_height, 
    $ttl['IVC_FTY'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(36, $row_height, 
    $ttl['IVC_CUS'],
    $tableBorder, 'R', 1, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(38, $row_height, 
    '',
    $tableBorder, 'C', 1, 1, '', '', true, 0, false, true, 0, 'M');    
    $pdf->SetFont('data_fonts_droidsansfallback', '', 7);
}

function reqnewpage_check($fn, $margin=0){
    global $pdf, $pagebreakpt;
    if($pdf->getY() + $margin > $pagebreakpt){
        //page break
        $pdf->addPage();
        //print user defined header function
        call_user_func($fn);
    }
}

class doc extends TCPDF{
    //Page header
    public function Header(){
        global $row; 
        $image_file = 'image/ENZA-Logo.jpg';
        $this->Image($image_file, 10, 10, 150, '', '', '', '', '');
        //$this->Image($image_file, 125, 20, 350, '', '', '', '', '');
        //$this->Image($image_file, 50, 20, 500, '', '', '', '', '');

// define barcode style
$style = array(
    'position' => '',
    'align' => 'C',
    'stretch' => false,
    'fitwidth' => true,
    'cellfitalign' => '',
    'border' => true,
    'hpadding' => 'auto',
    'vpadding' => 'auto',
    'fgcolor' => array(0,0,0),
    'bgcolor' => false, //array(255,255,255),
    'text' => true,
    'font' => 'helvetica',
    'fontsize' => 8,
    'stretchtext' => 4
);

        //$this->write1DBarcode($row['delnote_nbr'], 'C128', '460', '40', '200', 40, 0.8, $style, 'N');
        
        $this->SetFont('data_fonts_droidsansfallback', 'B', 10);    // bold
        $this->SetY(30);
        
        if($_SESSION['search']['order']['customer'] && $customer=getCustomerByCode($_SESSION['search']['order']['customer']) ){
            $pdf_title = "Production Planning Report (".$customer['custname_en'].")";    
        }else{
            $pdf_title = "Production Planning Report (General)";
        }
        $this->MultiCell(560, 0, 
        $pdf_title,
        0, 'C', 0, 1);

        $this->ln(30);
        
        //$this->ln(5);
        $GLOBALS['x_main']= $this->GetX();
        $GLOBALS['y_main']= $this->GetY();
    }

}

// create new PDF document
$pdf = new doc('P', 'pt', 'A4', true, 'UTF-8', false);
// size reference 'A4' : {$pf = array(  595.276,  841.890); break;}

// set document information
$pdf->SetCreator('ENZA');
$pdf->SetAuthor('ENZA');
$pdf->SetTitle('ENZA');
$pdf->SetSubject('ENZA');
$pdf->SetKeywords('ENZA');
// set default header data
//$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 008', PDF_HEADER_STRING);
// set header and footer fonts
//$pdf->setHeaderFont(Array(data_fonts_droidsansfallback, '', PDF_FONT_SIZE_MAIN));
//$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
//set margins
$pdf->SetMargins(PDF_MARGIN_LEFT-10, 75, PDF_MARGIN_RIGHT);    // left, top, right
$pdf->SetHeaderMargin(10);

$pdf->SetCellPadding(5);
//set auto page breaks
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, 90);
//set image scale factor
$pdf->setImageScale(1.3333);
//set some language-dependent strings
$pdf->setLanguageArray($l);
// set font
//$pdf->SetFont('data_fonts_droidsansfallback', '', 12);    // bold
$pdf->SetFont('data_fonts_droidsansfallback', '', 8);
// set color for background
$pdf->SetFillColor(222, 222, 222);
$pagebreakpt =720;

// add a page
$pdf->AddPage();

$pdf->SetTopMargin($y_main);    
$x_main= $pdf->GetX();

ord_header();

    $sql_clause='';
    $sql_param= array();

    if( !empty($_SESSION['search']['order']['finished']) ){
        $sql_clause .= 'dbo.ord_main.finished = :finished ';
        $sql_param[':finished'] = '1';    
    }    else {
        $sql_clause .= '( dbo.ord_main.finished <> :finished OR dbo.ord_main.finished IS NULL )';
        $sql_param[':finished'] = '1';            
    }
        
    if( !empty($_SESSION['search']['order']['customer']) ){
        $sql_clause .= 'AND (custname_en LIKE :custname_en OR custname_sc LIKE :custname_sc OR master_customer.custcode LIKE :custcode) ';
        $sql_param[':custname_en'] = "%".$_SESSION['search']['order']['customer']."%";
        $sql_param[':custname_sc'] = "%".$_SESSION['search']['order']['customer']."%";
        $sql_param[':custcode'] = "%".$_SESSION['search']['order']['customer']."%";            
    }
    
    if( !empty($_SESSION['search']['order']['launchdate_start']) ){
        $sql_clause .= 'AND launch_date>=:launchdate_start ';
        $sql_param[':launchdate_start'] = $_SESSION['search']['order']['launchdate_start'];
    }
    
    if( !empty($_SESSION['search']['order']['launchdate_end']) ){
        $sql_clause .= 'AND launch_date<=:launchdate_end ';
        $sql_param[':launchdate_end'] = $_SESSION['search']['order']['launchdate_end'];
    }    

    if( !empty($_SESSION['search']['order']['deliverydate_start']) ){
        $sql_clause .= 'AND del_date>=:deliverydate_start ';
        $sql_param[':deliverydate_start'] = $_SESSION['search']['order']['deliverydate_start'];
    }
    
    if( !empty($_SESSION['search']['order']['deliverydate_end']) ){
        $sql_clause .= 'AND del_date<=:deliverydate_end ';
        $sql_param[':deliverydate_end'] = $_SESSION['search']['order']['deliverydate_end'];
    }
    
    if( !empty($_SESSION['search']['order']['status']) ){
        $sql_clause .= 'AND status=:status ';
        $sql_param[':status'] = $_SESSION['search']['order']['status'];
    }
    
    if( !empty($_SESSION['search']['misc']['1']) ){
        $sql_clause .= 'AND projectmanager=:projectmanager ';
        $sql_param[':projectmanager'] = $_SESSION['search']['misc']['1'];
    }
    
    if( !empty($_SESSION['search']['misc']['2']) ){
        $sql_clause .= 'AND sales=:sales ';
        $sql_param[':sales'] = $_SESSION['search']['misc']['2'];
    }        

    if($_SESSION['search']['misc']['4']=='ALL'){
        //no filter
    }elseif($_SESSION['search']['misc']['4']=='0'){
        //normal order
        $sql_clause .= 'AND isrepairorder=:isrepairorder ';
        $sql_param[':isrepairorder'] = '0';
    }else{
        //repair order
        $sql_clause .= 'AND isrepairorder=:isrepairorder ';
        $sql_param[':isrepairorder'] = '1';
    }

    $sql = "SELECT
    dbo.ord_main.refid,
    dbo.ord_main.order_nbr,
    dbo.ord_main.custorder_ref,
    dbo.ord_main.launch_date,
    dbo.ord_main.del_date,
    dbo.ord_main.confirm_date,    
    dbo.ord_main.remark,
    dbo.master_customer.custname_en,
    dbo.master_customer.custname_sc,
    dbo.ord_main.ttl_qty AS QTY,
    dbo.ord_main.ttl_ordercost,
    dbo.ord_main.ttl_factcost,
    dbo.ord_main.ttl_orderprice,
    dbo.ord_main.ttl_goldwt,
    dbo.ord_main.ttl_silverwt,
    dbo.ord_main.uom_cy,
    dbo.ord_main.status
    FROM
    dbo.ord_main
    INNER JOIN dbo.master_customer ON dbo.ord_main.custcode = dbo.master_customer.custcode
    WHERE 
    $sql_clause
    ORDER BY launch_date ASC";
    
    $sth = $dbh->prepare($sql);
    $q = $sth->execute( $sql_param );
//echo $sth->getSQL( $sql_param ) . HTML_EOL;
    pdo_showerror($sth, $q);
                    
while($row = $sth->fetch()) {    
    
    $pdf->SetFont('data_fonts_droidsansfallback', '', 7);
    $wipstatus = ord_WIPStatus($row['refid']);
    $wipstatus['NOT_STARTED'] = $row['QTY'] - $wipstatus['QTY'];
    calc_total($ttl, $wipstatus);

    reqnewpage_check('ord_header', $row_height);
    
    $tmp_h =  $pdf->getStringHeight(80, $row['custorder_ref']) * 2;
    $pdf->MultiCell(44, $tmp_h, 
    $row['order_nbr'],
    $tableBorder, 'C', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(48, $tmp_h, 
    datef($row['launch_date']),
    $tableBorder, 'C', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(48, $tmp_h, 
    datef($row['del_date']),
    $tableBorder, 'C', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    numf($row['QTY']),
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(31, $tmp_h, 
    emptyIfZero($wipstatus['NOT_STARTED']),
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['WAXD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['CASO'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['CASD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['FILD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['SETD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(28, $tmp_h, 
    $wipstatus['LAPID'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['POLD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(28, $tmp_h, 
    $wipstatus['ENAMEL'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['MQCD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');

    // 20240711 update by OSL_yee
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['WCFM'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['PAKD'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(26, $tmp_h, 
    $wipstatus['IVC_FTY'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');
    $pdf->MultiCell(36, $tmp_h, 
    $wipstatus['IVC_CUS'],
    $tableBorder, 'R', 0, 0, '', '', true, 0, false, true, 0, 'M');

    $pdf->SetFont('data_fonts_droidsansfallback', '', 6);
    $pdf->MultiCell(38, $tmp_h, 
    txtf($row['custorder_ref']),
    $tableBorder, 'L', 0, 1, '', '', true, 0, false, true, 0, 'M');    
}

ord_footer($ttl);
 

//Close and output PDF document
$custcode = empty($customer['custcode']) ? '' : $customer['custcode'].'_';
$filename = "PlanningReport_".$custcode.date("YmdHis").".pdf";

$pdf->Output($filename, 'I');
//$pdf->Output($filename, 'D');
?>