DEF VAR RCSVersion AS CHARACTER INIT "$Header: /home/sauge/code/progress/PDF/RCS/pdfisstrk.p,v 1.2 2004/07/17 15:11:40 sauge Exp sauge $" NO-UNDO.

/************************************************************************/
/* Create the issue tracker report in PDF format.                       */
/************************************************************************/

DEFINE INPUT PARAMETER dFromDate   AS DATE NO-UNDO.
DEFINE INPUT PARAMETER dToDate     AS DATE NO-UNDO.
DEFINE INPUT PARAMETER cLenderAbbr AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cComments   AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cFileName   AS CHARACTER NO-UNDO.

DEFINE VARIABLE iCntProdApps       AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntProdIssues     AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntOpenIssues     AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntReportedIssues AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntClosedIssues   AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntLenderPending  AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntARCPending     AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntPossibleEnhnc  AS INTEGER NO-UNDO.

DEFINE VARIABLE iCntRespEdu        AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntRespARC        AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntRespDuplicate  AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntRespDeffered   AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntToBeDefined    AS INTEGER NO-UNDO.

DEFINE VARIABLE iCntPriorityHi     AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntPriorityMed    AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntPriorityLow    AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntPriorityAsTime AS INTEGER NO-UNDO.

DEFINE VARIABLE iCntSeverity1      AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntSeverity2      AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntSeverity3      AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntSeverity4      AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntSeverity5      AS INTEGER NO-UNDO.
DEFINE VARIABLE iCntSeverity6      AS INTEGER NO-UNDO.

DEFINE VARIABLE cTemp              AS CHARACTER NO-UNDO.

FUNCTION TblGetSetting RETURNS CHARACTER (INPUT cName AS CHARACTER) FORWARD.

{pdf_inc.i "NOT SUPER"}
{pdf_help.i}

/************************************************************************/
/* Gather the facts for the report out of the main database. Distill    */
/* into variables and temp tables.                                      */
/************************************************************************/

/************************************************************************/
/* Output the PDF to the file specified.                                */
/************************************************************************/

RUN pdf_new IN h_PDFInc("Rpt", cFileName).
RUN pdf_set_info IN h_PDFInc ("Rpt", "Author","Help Desk").
RUN pdf_set_info IN h_PDFInc ("Rpt", "Subject","Customer Information").
RUN pdf_set_info IN h_PDFInc ("Rpt", "Title", "Issue Tracker " + STRING (dFromDate) + " - " + STRING(dToDate)).
RUN pdf_set_info IN h_PDFInc ("Rpt", "Keywords","Help Desk,Report,Issue").
RUN pdf_set_info IN h_PDFInc ("Rpt", "Creator","PDFInclude/Scott Auge").
RUN pdf_set_info IN h_PDFInc ("Rpt", "Producer","pdfisstrk.p").

RUN pdf_set_PaperType IN h_PDFInc ("Rpt", "LETTER"). /* 612pts x 792pts */
RUN pdf_set_PageWidth IN h_PDFInc ("Rpt", 590).
RUN pdf_set_LeftMargin IN h_PDFInc ("Rpt", 10).
RUN pdf_set_BottomMargin IN h_PDFinc ("Rpt",80).
RUN pdf_set_TopMargin IN h_PDFInc ("Rpt", 20).

RUN NewPage.

/* Output title information */

RUN pdf_set_font IN h_PDFInc ("Rpt", "Times-Bold", 14).
RUN pdf_text_to IN h_PDFInc ("Rpt", cLenderAbbr, 150).
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text_to IN h_PDFInc ("Rpt", "Issue Tracker Report", 150).
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text_to IN h_PDFInc ("Rpt", "Dates From " + STRING(dFromDate, "99/99/9999") + " thru " + STRING(dToDate, "99/99/9999"), 150).
RUN pdf_skip IN h_PDFInc ("Rpt").

/* Box and present Overall Summary */

RUN pdf_stroke_fill IN h_PDFInc ("Rpt", .95, .95,  .95).
RUN pdf_rect IN h_PDFInc  ("Rpt", pdf_LeftMargin("Rpt"), 690, pdf_PageWidth("Rpt") - 20 , 25, 1.0).
RUN pdf_text_center IN h_PDFInc ("Rpt", "Overall Summary",pdf_PageWidth("Rpt") / 2, 700).

RUN pdf_set_font IN h_PDFInc ("Rpt", "Times-Roman", 12).
RUN pdf_stroke_fill IN h_PDFInc ("Rpt", 1.0, 1.0,  1.0).
RUN pdf_rect IN h_PDFInc  ("Rpt", pdf_LeftMargin("Rpt"), 674, pdf_PageWidth("Rpt") - 20 , 16, 1.0).

ASSIGN cTemp = "For this Period there were "
             + STRING(1)
             + " Production Applications and "
             + STRING(2)
             + " Production Issues.".

RUN pdf_text_center IN h_PDFInc ("Rpt", cTemp, pdf_PageWidth("Rpt") / 2, 676).

/* Box and present Summary */

RUN pdf_stroke_fill IN h_PDFInc ("Rpt", 1.0, 1.0,  1.0).
RUN pdf_rect IN h_PDFInc  ("Rpt", pdf_LeftMargin("Rpt"), 560, pdf_PageWidth("Rpt") - 20 , 100, 1.0).
RUN pdf_set_font IN h_PDFInc ("Rpt", "Times-Bold", 12).
RUN pdf_text_xy IN h_PDFInc ("Rpt","Summary:", 20, 640).
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_set_font IN h_PDFInc ("Rpt", "Times-Roman", 12).
RUN pdf_text IN h_PDFInc ("Rpt", "- Reported Issues").
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text IN h_PDFInc ("Rpt", "- Closed Issues").
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text IN h_PDFInc ("Rpt", "- Pending Amduus").
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text IN h_PDFInc ("Rpt", "- Pending " + cLenderAbbr).
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text IN h_PDFInc ("Rpt", "- Possible Enhancement").
RUN pdf_skip IN h_PDFInc ("Rpt").
/* Box and additional comments */

RUN pdf_stroke_fill IN h_PDFInc ("Rpt", 1.0, 1.0,  1.0).
RUN pdf_rect IN h_PDFInc  ("Rpt", pdf_LeftMargin("Rpt"), 460, pdf_PageWidth("Rpt") - 20 , 100, 1.0).
RUN pdf_set_font IN h_PDFInc ("Rpt", "Times-Bold", 12).
RUN pdf_text_xy IN h_PDFInc ("Rpt","Additional Comments or Highlights Not Reflected Above", pdf_LeftMargin("Rpt") + 5, 545).

/* Number of production apps this period */

RUN pdf_set_font IN h_PDFInc ("Rpt", "Times-Bold", 12).
ASSIGN cTemp = "Number of Production Applications for this Period: 9999".
RUN pdf_text_center IN h_PDFInc ("Rpt", cTemp, pdf_PageWidth("Rpt") / 2, 442).
/*
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text IN h_PDFInc ("Rpt", PDF_TextX("Rpt")).
RUN pdf_skip IN h_PDFInc ("Rpt").
RUN pdf_text IN h_PDFInc ("Rpt", PDF_TextY("Rpt")).
*/
/* Responsibility of Issues Table */

RUN pdf_text_xy IN h_PDFInc ("Rpt", "Responsibility Of Issues", 10, 420).
RUN TblClear.
RUN TblAddSetting ("STARTY", "400").
RUN TblAddSetting ("STARTX", "12").
RUN TblAddSetting ("BORDER", "YES").
RUN TblAddSetting ("HEIGHT", "14").
RUN TblAddSetting ("ALIGN", "CENTER|CENTER|CENTER|CENTER").
RUN TblAddRow ("Description|Issues|% Of Issues").
RUN TblAddRow ("Education|AB|%").
RUN TblAddRow ("Amduus|BB|%").
RUN TblAddRow ("Duplicate|CB|%").
RUN TblAddRow ("Deferred|DB|%").
RUN TblAddRow ("To Be Defined|DB|%").
RUN TblAddRow ("Total|DB|").
RUN TblBuild (INPUT "Rpt", h_PDFInc).

/* Priority Table */

RUN TblClear.
RUN TblAddSetting ("STARTY", "290").
RUN TblAddSetting ("STARTX", "12").
RUN TblAddSetting ("BORDER", "YES").
RUN TblAddSetting ("HEIGHT", "14").
RUN TblAddSetting ("ALIGN", "CENTER|CENTER|CENTER|CENTER").
RUN TblAddRow ("Priority|Issues|% Of Issues").
RUN TblAddRow ("High|AB|%").
RUN TblAddRow ("Medium|BB|%").
RUN TblAddRow ("Low|CB|%").
RUN TblAddRow ("As Time Permits|DB|%").
RUN TblAddRow ("Total|DB|").
RUN TblBuild (INPUT "Rpt", h_PDFInc).

/* Severity Table */

RUN TblClear.
RUN TblAddSetting ("STARTY", "290").
RUN TblAddSetting ("STARTX", "220").
RUN TblAddSetting ("BORDER", "YES").
RUN TblAddSetting ("HEIGHT", "14").
RUN TblAddSetting ("ALIGN", "CENTER|CENTER|CENTER|CENTER").
RUN TblAddRow ("Severity|Issues|% Of Issues").
RUN TblAddRow ("Continuous Occurence/Cannot Continue|AB|%").
RUN TblAddRow ("Continuous Occurence/Can Continue|BB|%").
RUN TblAddRow ("Occasional Occurence/Cannot Continue|CB|%").
RUN TblAddRow ("Occasional Occurence/Can Continue|DB|%").
RUN TblAddRow ("Single Occurence/Cannot Continue|BB|%").
RUN TblAddRow ("Single Occurence/Can Continue|CB|%").
RUN TblAddRow ("Total|DB|%").
RUN TblBuild (INPUT "Rpt", h_PDFInc).

/* Stats */

RUN TblClear.
RUN TblAddSetting ("STARTY", "400").
RUN TblAddSetting ("STARTX", "220").
RUN TblAddSetting ("BORDER", "NO").
RUN TblAddSetting ("HEIGHT", "14").
RUN TblAddSetting ("ALIGN", "CENTER|CENTER|CENTER|CENTER").
RUN TblAddRow ("||").
RUN TblAddRow ("One Eduction Item was reported for every|Issues|Applications").
RUN TblAddRow ("One Amduus Item was reported for every|AB|Applications").
RUN TblAddRow ("One duplicate item was reported for every|BB|Applications").
RUN TblAddRow ("One deferred item was reported for every|CB|Applications").
RUN TblAddRow ("One To Be Defined item was reported for every|DB|Applications").
RUN TblBuild (INPUT "Rpt", h_PDFInc).

/* Begin new page with listing of current active issues */

RUN NewPage.

RUN FinishPage.

RUN pdf_close IN h_PDFInc ("Rpt").

/************************************************************************/
/* Set up a new page, put out heading, reposition "cursor" for next     */
/* text writes, etc.                                                    */
/************************************************************************/

PROCEDURE NewPage:

  RUN pdf_new_page IN h_PDFInc("Rpt").

END. /* PROCEDURE NewPage */

/************************************************************************/
/* Put page footer out.  Does NOT start a new page.  Leaves cursor at   */
/* bottom of the page.                                                  */
/************************************************************************/

PROCEDURE FinishPage:

END. /* PROCEDURE FinishPage */