Care2007/modules/weberp/PDFStockLocTransfer.php

   1 <?php
   2 /* $Revision: 1.8 $ */
   3
   4 $PageSecurity =1;
   5 include('includes/session.inc');
   6 include('includes/PDFStarter.php');
   7
   8 $title = _('Stock Location Transfer Docket Error');
   9
  10 if (!isset($_GET['TransferNo'])){
  11
  12         include ('includes/header.inc');
  13         echo '<P>';
  14         prnMsg( _('This page must be called with a location transfer reference number'),'error' );
  15         include ('includes/footer.inc');
  16         exit;
  17 }
  18
  19 $FontSize=10;
  20 $pdf->addinfo('Title', _('Inventory Location Transfer BOL') );
  21 $pdf->addinfo('Subject', _('Inventory Location Transfer BOL') . ' # ' . $_GET['Trf_ID']);
  22
  23 $ErrMsg = _('An error occurred retrieving the items on the transfer'). '.' . '<P>'. _('This page must be called with a location transfer reference number').'.';
  24 $DbgMsg = _('The SQL that failed while retrieving the items on the transfer was');
  25 $sql = "SELECT loctransfers.reference,
  26                            loctransfers.stockid,
  27                            stockmaster.description,
  28                            loctransfers.shipqty,
  29                            loctransfers.shipdate,
  30                            loctransfers.shiploc,
  31                            locations.locationname as shiplocname,
  32                            loctransfers.recloc,
  33                            locationsrec.locationname as reclocname
  34                            FROM loctransfers
  35                            INNER JOIN stockmaster ON loctransfers.stockid=stockmaster.stockid
  36                            INNER JOIN locations ON loctransfers.shiploc=locations.loccode
  37                            INNER JOIN locations AS locationsrec ON loctransfers.recloc = locationsrec.loccode
  38                            WHERE loctransfers.reference=" . $_GET['TransferNo'];
  39
  40 $result = DB_query($sql,$db, $ErrMsg, $DbgMsg);
  41
  42 If (DB_num_rows($result)==0){
  43
  44         include ('includes/header.inc');
  45         prnMsg(_('The transfer reference selected does not appear to be set up') . ' - ' . _('enter the items to be transferred first'),'error');
  46         include ('includes/footer.inc');
  47         exit;
  48 }
  49
  50 $TransferRow = DB_fetch_array($result);
  51
  52 $PageNumber=1;
  53 include ('includes/PDFStockLocTransferHeader.inc');
  54 $line_height=30;
  55 $FontSize=10;
  56
  57 do {
  58
  59         $LeftOvers = $pdf->addTextWrap($Left_Margin,$YPos,100,$FontSize,$TransferRow['stockid'], 'left');
  60         $LeftOvers = $pdf->addTextWrap(150,$YPos,200,$FontSize,$TransferRow['description'], 'left');
  61         $LeftOvers = $pdf->addTextWrap(350,$YPos,60,$FontSize,$TransferRow['shipqty'], 'right');
  62
  63         $pdf->line($Left_Margin, $YPos-2,$Page_Width-$Right_Margin, $YPos-2);
  64
  65         $YPos -= $line_height;
  66
  67         if ($YPos < $Bottom_Margin + $line_height) {
  68                 $PageNumber++;
  69                 include('includes/PDFStockLocTransferHeader.inc');
  70         }
  71
  72 } while ($TransferRow = DB_fetch_array($result));
  73
  74 $pdfcode = $pdf->output();
  75 $len = strlen($pdfcode);
  76
  77
  78 if ($len<=20){
  79         include('includes/header.inc');
  80         echo '<p>';
  81         prnMsg( _('There was no stock location transfer to print out'), 'warn');
  82         echo '<BR><A HREF="' . $rootpath. '/index.php?' . SID . '">'. _('Back to the menu'). '</A>';
  83         include('includes/footer.inc');
  84         exit;
  85 } else {
  86         header('Content-type: application/pdf');
  87         header('Content-Length: ' . $len);
  88         header('Content-Disposition: inline; filename=StockLocTrfShipment.pdf');
  89         header('Expires: 0');
  90         header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
  91         header('Pragma: public');
  92
  93         $pdf->Stream();
  94 }
  95 ?>