001.<?php
002.ob_start();
003.require_once('tcpdf/tcpdf.php');
004.?>
005.<html>
006.<head>
007.<meta http-equiv="content-type" content="text/html; charset=utf-8" />
008.<script type="text/javascript">
009. $(document).ready(function() {
010. $("#myTable").tablesorter();
011. });
012.</script>
013.</head>
014.<body>
015.
016.
017.<?php
018.
019.$r=1;
020.
021.
022.$ss=explode("-",$_POST[datestart]);
023. $start = $ss[0].$ss[1].$ss[2];
024.
025.$ee=explode("-",$_POST[dateend]);
026. $end = $ee[0].$ee[1].$ee[2];
027.
028.
029.ob_clean() ;
030.$html = ob_get_contents();
031.$pdf=new TCPDF('L','mm','A4');
032.$pdf->SetMargins(2,2,2,2);
033.$pdf->AddPage();
034.$pdf->Image('STFG.jpg', 2,2, 290, 180);
035.$page=1;
036.$pdf->AddFont('thsarabun','','thsarabun.php');
037.$pdf->SetFont('thsarabun', '', 12);
038.
039.
040.ini_set('memory_limit', '30M');
041.ini_set('max_execution_time', '60');
042.
043.
044.
045.$servername = 'erpserver';
046.$databasename = 'MISCOM';
047.$user = 'admin';
048.$pass = 'NiTi2533';
049.$connection_string = "DRIVER={SQL Server};SERVER=$servername;DATABASE=$databasename;AutoTranslate=yes";
050.$dns = odbc_connect($connection_string,$user, $pass) or die ("เชื่อมต่อ server ไม่ได้");
051.$strSQL = "
052.
053.SELECT
054.dbo.OEORDH.ORDNUMBER,
055.dbo.OEORDH.CUSTOMER,
056.dbo.OEORDH.BILNAME,
057.dbo.OEORDH.PONUMBER,
058.dbo.OEORDH.TERMS,
059.dbo.OEORDH.ORDDATE,
060.dbo.OEORDD.LINENUM,
061.dbo.OEORDD.ITEM,
062.dbo.OEORDD.[DESC],
063.dbo.OEORDD.EXPDATE,
064.dbo.OEORDD.QTYORDERED,
065.dbo.OEORDD.QTYBACKORD,
066.dbo.OEORDD.QTYSHPTODT,
067.dbo.OEORDD.ORIGQTY,
068.dbo.OEORDD.CUSTITEMNO,
069.dbo.OEORDD.QTYTRUECOM,
070.dbo.ARCUS.CODESLSP1,
071.dbo.ICILOC.LOCATION,
072.dbo.ICILOC.QTYONHAND
073.FROM
074.dbo.OEORDH
075.INNER JOIN dbo.OEORDD ON dbo.OEORDH.ORDUNIQ = dbo.OEORDD.ORDUNIQ
076.INNER JOIN dbo.ARCUS ON dbo.OEORDH.CUSTOMER = dbo.ARCUS.IDCUST
077.INNER JOIN dbo.ICITEM ON dbo.OEORDD.ITEM = dbo.ICITEM.FMTITEMNO
078.INNER JOIN dbo.ICILOC ON dbo.ICITEM.ITEMNO = dbo.ICILOC.ITEMNO
079.WHERE
080.(dbo.OEORDD.EXPDATE BETWEEN '20171122' and '20171122') and
081.dbo.OEORDD.QTYBACKORD <> 0 and dbo.OEORDD.CUSTITEMNO <>'' and dbo.ICILOC.LOCATION='FG'
082.Order by dbo.OEORDH.CUSTOMER ASC
083.";
084.
085. $objExec = odbc_exec($dns, $strSQL) or die ("Error Execute [".$strSQL."]");
086. while ($objResult = odbc_fetch_array($objExec))
087. {
088.
089. $pdf->writeHTMLCELL(60,10,12,26.5,substr($objResult[CUSTITEMNO],0,7));
090.
091. $pdf->writeHTMLCell(60,10,53,26.5,"$objResult[EXPDATE]");
092. $pdf->writeHTMLCell(60,10,80,26.5,"$objResult[ORDNUMBER]");
093. $pdf->writeHTMLCell(60,10,120,26.5,"$objResult[CUSTOMER]");
094. $pdf->writeHTMLCell(60,10,135,26.5,substr($objResult[BILNAME],0,20));
095.
096.
097.
098. $pdf->writeHTMLCell(20,10,193.5,26.5,"$objResult[TERMS]");
099. $pdf->writeHTMLCell(20,10,204.5,26.5,number_format($objResult[QTYORDERED]));
100. $pdf->writeHTMLCell(20,10,218.5,26.5,number_format($objResult[QTYSHPTODT]));
101. $pdf->writeHTMLCell(20,10,228,26.5,number_format($objResult[QTYBACKORD]));
102. $pdf->writeHTMLCell(20,10,239,26.5,number_format($objResult[QTYONHAND]));
103. $pdf->writeHTMLCell(20,10,249,26.5,"$objResult[CODESLSP1]");
104.
105.
106.
107.
108.
109.
110. }
111.
112.
113.
114.
115. $pdf->Output("MyPDF/report.pdf");
116.
117.
118.
119.?>
120.
121.<script language=Javascript>top.location.href="MyPDF/report.pdf";</script>
122.</body>
123.</html>
