I still seem to be having some problems with the different graphics.
Here is what I did:
SET VAR vReportOutput = 'html'
SET VAR vReportName = 'BGGlossary'
SET VAR vWhere = ('Where (BGWord contains' +
& (CHAR(39)) + .fSearch + (CHAR(39)) +
& 'or BgDefinition contains' & (CHAR(39)) + .fSearch + (CHAR(39)) +
& 'or Library contains' & (CHAR(39)) + .fSearch + (CHAR(39)) +
+ ')' +
& 'order by Library, BGWord')
SET VAR vChkFile = (CHKFILE('HTML'))
IF vChkFile <> 1 THEN
MKDIR HTML
ENDIF
SET VAR vChkFile = (CHKFILE('HTML\Images'))
IF vChkFile <> 1 THEN
MKDIR html\images
COPY \\...\graphics\uparrow.gif html\images
COPY \\...\graphics\rightarrow.gif html\images
COPY \\....\graphics\downarrow.gif html\images
COPY \\...\graphics\leftarrow.gif html\images
ENDIF
SET VAR vreportoption = 'OPTION HTML'
SET VAR vreportfilename = (.vScratch + '\' + .vReportName+'.HTML')
SET VAR vreportparameters = ('|FILENAME'&.vreportfilename +
+ '|BACKGROUND_COLOR WHITE|AUTHOR' & (LUC(.vUser)) +
+ '|Include_Shapes On' +
+ '|Include_Images On' +
+ '|IMAGE_FOLDER Images' +
+ '|LINK_IMG_FILE_FIRST html\Images\UpArrow.gif' +
+ '|LINK_IMG_FILE_PREV Images\LeftArrow.gif' +
+ '|LINK_IMG_FILE_NEXT Images\RightArrow.gif' +
+ '|LINK_IMG_FILE_LAST Images\DownArrow.gif' +
+ '|SHOW_CANCEL_DIALOG OFF')
SET VAR vreportshow = '|OPEN OFF'
SET VAR vReportSyntax = +
('PRINT' &.vReportName & .vWhere & .vreportoption +.vreportparameters
+.vreportshow)
Which yields
PRINT BGGlossary Where (BGWord contains 'Benchmark' or BgDefinition contains
'Benchmark' or Library contains 'Benchmark') order by Library, BGWord OPTION
HTML|FILENAME C:\DOCUME~1\cpo\LOCALS~1\Temp\BGGlossary.HTML|BACKGROUND_COLOR
WHITE|AUTHOR CPO|Include_Shapes On|Include_Images On|IMAGE_FOLDER
Images|LINK_IMG_FILE_FIRST html\Images\UpArrow.gif|LINK_IMG_FILE_PREV
Images\LeftArrow.gif|LINK_IMG_FILE_NEXT
Images\RightArrow.gif|LINK_IMG_FILE_LAST
Images\DownArrow.gif|SHOW_CANCEL_DIALOG OFF|OPEN OFF
&vReportSyntax then creates the report in the Variable Web Browser but the new
grapichs aren't in place.
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of A. Razzak Memon
Posted At: Wednesday, January 30, 2008 4:27 PM
Posted To: RB7-L
Conversation: [RBASE-L] - Re: Variable Web Browser
Subject: [RBASE-L] - Re: Variable Web Browser
At 05:15 PM 1/30/2008, Charles Parks wrote:
>I have a html report created that I display in the form's Variable Web
>Browser. Sometimes the report expands multiple pages. Is there a way
>to changes the "pencil in hand" image for page changes to arrows like
>they are in the DB Navigator?
Charlie,
Ask and you shall receive!
Use the LINK_IMG_FILE_FIRST, LINK_IMG_FILE_PREV, LINK_IMG_FILE_NEXT, and
LINK_IMG_FILE_LAST options to customize and use your own images.
Here's how:
-- Start here ...
IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW14 IDENTIFIED BY NONE
ENDIF
SET VAR vChkFile = (CHKFILE('HTML'))
IF vChkFile <> 1 THEN
MD HTML
ENDIF
-- Verify the existence of HTML\Images Sub-Directory
SET VAR vChkFile = (CHKFILE('HTML\Images')) IF vChkFile <> 1 THEN
MD HTML\Images
ENDIF
-- Now print the report
CLS
PRINT SalesSumAndSubTot +
OPTION HTML +
|FILENAME HTML\SalesSumAndSubTot.htm +
|SHOW_CANCEL_DIALOG ON +
|BACKGROUND_FILE NONE +
|BACKGROUND_TYPE CENTER +
|BACKGROUND_COLOR WHITE +
|INCLUDE_LINES ON +
|INCLUDE_SHAPES ON +
|INCLUDE_RICHTEXT OFF +
|RICHTEXT_ENCODING_TYPE PLAINTEXT +
|INCLUDE_IMAGES ON +
|IMAGE_FORMAT JPG +
|JPEG_QUALITY 100 +
|IMAGE_DPI -1 +
|PIXELFORMAT 24 +
|INCLUDE_HYPERLINKS ON +
|TITLE Customer Sales Sub-Totals and Totals + SUBJECT ConComp Sales
|Summary Report + AUTHOR Accounting Team of ConComp + KEYWORDS
|Sub-Totals Totals Sales Summary + OPTIMIZE_FOR_IE ON + PAGE_END_LINES
|ON + OUTPUT_STYLES_TO_CSS_FILE ON + CSSFILE +
|OUTPUT_SCRIPTS_TO_JAVA_SCRIPT_FILE ON + JAVA_SCRIPT_FILE_NAME +
|GENERATE_TOC ON + TOC_FILE_NAME Index.htm + IMAGE_FOLDER Images +
|DEFAULT_FONT_NAME Verdana + DEFAULT_FONT_SIZE 9 + DEFAULT_FONT_COLOR
|BLACK + DEFAULT_FONT_BOLD OFF + DEFAULT_FONT_ITALIC OFF +
|DEFAULT_FONT_UNDERLINE OFF + DEFAULT_FONT_STRIKEOUT OFF +
|SEP_FILE_PER_PAGE ON + NAV_SHOW ON + LINK_BACK_COLOR WHITE +
|LINK_H_BACK_COLOR BLUE + LINK_H_FORE_COLOR WHITE + USE_TEXT_LINKS OFF +
|LINK_TEXT_FIRST First + LINK_TEXT_PREV Previous + LINK_TEXT_NEXT Next +
|LINK_TEXT_LAST Last + LINK_FONT_NAME Wingdings + LINK_FONT_SIZE 10 +
|LINK_FONT_COLOR BLUE + LINK_FONT_BOLD OFF + LINK_FONT_ITALIC OFF +
|LINK_FONT_UNDERLINE OFF + LINK_FONT_STRIKEOUT OFF + LINK_IMG_FILE_FIRST
|Images\FirstOff.gif + LINK_IMG_FILE_PREV Images\PrevOff.gif +
|LINK_IMG_FILE_NEXT Images\NextOff.gif + LINK_IMG_FILE_LAST
|Images\LastOff.gif + NAV_TYPE PAGE + NAV_ORIENT HORIZONTAL + NAV_POS
|BOTTOMCENTER + DISABLE_RIGHT_CLICK OFF + DISABLE_COPYING OFF +
|AUTO_MAXIMIZE_WINDOW ON + OPEN ON
RETURN
-- End here ...
Enjoy and make sure to have fun!
Very Best R:egards,
Razzak.
