The OpenEdge Hive

I have a PDF file that i am creating using PDFInclude, the resultant PDF opens fine in Adobe Reader 8, however everytime i try to open it using Foxitreader (latest version) it crashes the program.

The code i have for creating the pdf is as follows:

getQuote does nothing more than stick the session tables back into their respective temp-tables.

  RUN getQuote.
  
  DEFINE VARIABLE Vold_Y      AS INTEGER NO-UNDO.

  DEFINE VARIABLE vStateBook  AS INTEGER NO-UNDO.
  DEFINE VARIABLE vCustBook   AS INTEGER NO-UNDO.
  DEFINE VARIABLE vNullBook   AS INTEGER NO-UNDO.

  /* Create stream for new PDF file */
  RUN pdf_new        ("Spdf","quote.pdf").

  RUN pdf_set_PaperType("Spdf","A4").

  RUN pdf_set_Orientation("Spdf","Landscape").

  /*RUN pdf_PageFooter ("Spdf",THIS-PROCEDURE:HANDLE,"PageFooter").
  RUN pdf_PageHeader ("Spdf",THIS-PROCEDURE:HANDLE,"PageHeader").*/

  /* Set Document Information */ 
  RUN pdf_set_info("Spdf","Author","Veale Auto Parts").
  RUN pdf_set_info("Spdf","Subject","Quote").
  RUN pdf_set_info("Spdf","Title","Quote").
  RUN pdf_set_info("Spdf","Creator","PDFinclude V3").
  RUN pdf_set_info("Spdf","Producer","quote.p").

  /* Set the Bottom Margin to 80 - to allow for Page Footer */
  RUN pdf_set_BottomMargin("Spdf",80).
  RUN pdf_set_TopMargin("Spdf",80).

  /* Instantiate a New Page */
  RUN pdf_new_page2("Spdf","Landscape").

  /* Loop through appropriate record set */
  FOR EACH ttPickSlipDetail NO-LOCK:

    /* Output the appropriate Record information */
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Part_Number,1).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Part_Size,15).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Description,25).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Supplier_Part_No,55).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Qty_Ordered,63).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Qty_Supplied,71).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Retail_Price,77).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Nett_Price,90).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.GST_Value,102).
    RUN pdf_text_at  ("Spdf", ttPickSlipDetail.Line_Total,112).

    /* Skip to Next Text Line */
    RUN pdf_skip    ("Spdf").  
  
  END. /* each Customer */

  RUN pdf_close("Spdf").