-DEFAULTH &REPORT_FORMAT ='FORMAT AHTML';
TABLE CAR
...
ON TABLE PCHOLD &REPORT_FORMAT
...
END
-HTMLFORM BEGIN
<button onclick="myFunction()">Try it</button>
<p id="demo"></p>
<script>
function myFunction() {
  var x = document.URL;
  document.getElementById("demo").innerHTML = x;
}
</script>
-HTMLFORM END

-DEFAULTH &WFFMT ='AHTML';
TABLE FILE CAR
PRINT MODEL
BY CAR
ON TABLE PCHOLD FORMAT &WFMT

HEADING
"To Excel"

ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     JUSTIFY=LEFT,
     ITEM=1,
     FOCEXEC=IBFS:/WFC/Repository/fld/FexToCall.fex      ( \
       WFFMT='XLSX'),
     TARGET='_blank',
$
ENDSTYLE
END
-RUN

quote:

FORMAT AHTML

quote:

I thought HTMLFORM BEGIN puts HTML markup into the report output.

-DEFAULTH &WFFMT ='AHTML';
DEFINE FILE CAR
  MYFOOTING/A200 WITH COUNTRY = IF &WFFMT.QUOTEDSTRING EQ 'XLSX' THEN ''
                 ELSE '<button onclick="document.location=''&FOCEXURL.IBIF_ex=&FOCFEXNAME&|WFFMT=XLSX'';">Try it</button>';
END
TABLE FILE CAR
SUM RCOST DCOST BY COUNTRY BY CAR BY MODEL
FOOTING
"<MYFOOTING"
ON TABLE PCHOLD FORMAT &WFFMT
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
grid=off, $
ENDSTYLE
END

 
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.



;Extract all the variable names
;----------------------------------------------------------
F21=%A_ScriptDir%\input.txt         ;- combine all txt files here
F31=%A_ScriptDir%\output.txt   ;- result

ifexist,%f31%
    Filedelete,%F31%

FileRead, allx, %f21%

;Reg expression is anything that starts with a space, new line, =, ', ", <, or ( followed by & then at least one character
while pos := RegExMatch(allx, "(\s|\n|\(|=|'|""|<)&\w{1,}" , m, A_Index=1?1:pos+StrLen(m))
	res .= m "`n"
FileAppend, %res%, %f31%



;Remove any variables that have a ( or a space in front
;----------------------------------------------------------
Output2 = 

loop, read, %f31%
{
	If InStr(A_LoopReadLine, "(&") > 0
        Output2 .= SubStr(A_LoopReadLine, 2) . "`n"
    Else if InStr(A_LoopReadLine, " ") > 0   
        Output2 .= SubStr(A_LoopReadLine, 2) . "`n"
    Else if InStr(A_LoopReadLine, "=&") > 0   
        Output2 .= SubStr(A_LoopReadLine, 2) . "`n"            
    Else if InStr(A_LoopReadLine, "'&") > 0   
        Output2 .= SubStr(A_LoopReadLine, 2) . "`n"   
    Else if InStr(A_LoopReadLine, """&") > 0   
        Output2 .= SubStr(A_LoopReadLine, 2) . "`n"    
    Else if InStr(A_LoopReadLine, "<&") > 0   
        Output2 .= SubStr(A_LoopReadLine, 2) . "`n"                          
    Else    
        Output2 .= A_LoopReadLine . "`n"
}

FileDelete, %f31%
FileAppend, %Output2%, %f31%



;Remove duplicate variable names
;----------------------------------------------------------
Output = 

loop, read, %f31%
{
	If Output not contains %A_LoopReadLine%`n
		Output .= A_LoopReadLine . "`n"
}

FileDelete, %f31%
FileAppend, %Output%, %f31%



;Wrap the variables with other text, like WebFOCUS code
;----------------------------------------------------------
Output3 = 

loop, read, %f31%
{
	Output3 .= SubStr(A_LoopReadLine, 2) . "=" . A_LoopReadLine . " \" . "`n"
}

FileDelete, %f31%
FileAppend, %Output3%, %f31%



;Send the results to the screen
;----------------------------------------------------------
; run,%f21%
run,%f31%
exitapp
 

TABLE FILE CAR
SUM RETAIL_COST
BY CAR
BY MODEL
WHERE COUNTRY EQ 'ENGLAND';

HEADING
"<COUNTRY<+0>To Excel"

ON TABLE PCHOLD FORMAT HTML
ON TABLE SET BYDISPLAY ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET HTMLEMBEDIMG ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
     UNITS=IN,
     LEFTMARGIN=0.000,
     RIGHTMARGIN=0.5000,
     TOPMARGIN=0.000,
     BOTTOMMARGIN=0.000,
     SQUEEZE=ON,
     PAGECOLOR='WHITE',
     PAGESIZE='Letter',
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT, BORDER=OFF, SIZE=10,
$
TYPE=HEADING, LINE=1, OBJECT=FIELD, ITEM=1, WIDTH=4.0, STYLE=NORMAL, SIZE=7,  JUSTIFY=LEFT,
$
TYPE=HEADING, LINE=1, OBJECT=TEXT,  ITEM=1, WIDTH=4.0, STYLE=BOLD,   SIZE=14, JUSTIFY=RIGHT, COLOR=GREEN,
$
ENDSTYLE
END
-RUN

  
SET BYDISPLAY   = ON
SET CENT-ZERO   = ON 
SET PAGE-NUM    = OFF
SET HOLDMISS    = ON
SET HOLDLIST    = PRINTONLY
SET NODATA      = ''
SET TITLES      = OFF
SET ASNAMES     = MIXED
SET HTMLCSS     = OFF

TABLE FILE CAR
SUM RETAIL_COST/D12M
    DEALER_COST/D12M
    SALES/D12M
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS CARHOLD FORMAT HTMTABLE
ON TABLE SET STYLE *
TYPE=REPORT, LINES-PER-PAGE=UNLIMITED, $
TYPE=TITLE, CLASS='tblHead', $
TYPE=DATA, CLASS='tblData', $
ENDSTYLE

END

-HTMLFORM BEGIN NOEVAL
<head>
<link rel="stylesheet" type="text/css" href="https://cdn.datatables.net/v/dt/jq-3.3.1/jszip-2.5.0/dt-1.10.18/b-1.5.6/b-flash-1.5.6/b-html5-1.5.6/b-print-1.5.6/datatables.min.css"/>
 
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/pdfmake/0.1.36/pdfmake.min.js"></script>
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/pdfmake/0.1.36/vfs_fonts.js"></script>
<script type="text/javascript" src="https://cdn.datatables.net/v/dt/jq-3.3.1/jszip-2.5.0/dt-1.10.18/b-1.5.6/b-flash-1.5.6/b-html5-1.5.6/b-print-1.5.6/datatables.min.js"></script>
</head>
<body>
    <div id="tableWrapper">
        !IBI.FIL.CARHOLD;
    </div>
    <script>
        var $table = $(`#tableWrapper > table`).attr(`id`, `table1`).addClass(`hover stripe`);
        //Create a <thead> element and move any titles to the header. 
        $table
            .prepend(`<thead/>`)
            .find(`.tblHead`).closest(`tr`).prependTo($table.find(`thead`));

        //Change <td> elements in <thead> to <th> and give the new th all the td attributes
        $(`td.tblHead`).each(function () {
            $td = $(this);
            $td.wrapInner(`<th/>`);
            $th = $td.find(`th`);
            $th.addClass($td.attr(`class`));
            $cl = $td.attr(`align`) === `RIGHT` ? $th.css(`text-align`,`right`) : ``;
            $th.unwrap();
        });

        $('#table1').DataTable( {
            dom: 'Blfrtip',
            buttons: [
                'copy', 'csv', 'excel', 'pdf', 'print'
            ]
        } );

    </script>
</body
-HTMLFORM END

Hallway

 

Prod: 8202M1

Test: 8202M4

Repository:

 

OS:

 

Outputs:

 

 

 

 

quote:

Originally posted by Tony A:
Martin,

The important point is the format - AHTML

T

quote:

Originally posted by Hallway:
Does the report need to be in AHTML? Have you ever used the datatables.net js library? It is a lot smoother and you can add buttons to export the data to Excel.

Here is a quick basic initialization that adds Copy, CSV, Excel, PDF and Print export buttons:

  
SET BYDISPLAY   = ON
SET CENT-ZERO   = ON 
SET PAGE-NUM    = OFF
SET HOLDMISS    = ON
SET HOLDLIST    = PRINTONLY
SET NODATA      = ''
SET TITLES      = OFF
SET ASNAMES     = MIXED
SET HTMLCSS     = OFF

TABLE FILE CAR
SUM RETAIL_COST/D12M
    DEALER_COST/D12M
    SALES/D12M
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS CARHOLD FORMAT HTMTABLE
ON TABLE SET STYLE *
TYPE=REPORT, LINES-PER-PAGE=UNLIMITED, $
TYPE=TITLE, CLASS='tblHead', $
TYPE=DATA, CLASS='tblData', $
ENDSTYLE

END

-HTMLFORM BEGIN NOEVAL
<head>
<link rel="stylesheet" type="text/css" href="https://cdn.datatables.net/v/dt/jq-3.3.1/jszip-2.5.0/dt-1.10.18/b-1.5.6/b-flash-1.5.6/b-html5-1.5.6/b-print-1.5.6/datatables.min.css"/>
 
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/pdfmake/0.1.36/pdfmake.min.js"></script>
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/pdfmake/0.1.36/vfs_fonts.js"></script>
<script type="text/javascript" src="https://cdn.datatables.net/v/dt/jq-3.3.1/jszip-2.5.0/dt-1.10.18/b-1.5.6/b-flash-1.5.6/b-html5-1.5.6/b-print-1.5.6/datatables.min.js"></script>
</head>
<body>
    <div id="tableWrapper">
        !IBI.FIL.CARHOLD;
    </div>
    <script>
        var $table = $(`#tableWrapper > table`).attr(`id`, `table1`).addClass(`hover stripe`);
        //Create a <thead> element and move any titles to the header. 
        $table
            .prepend(`<thead/>`)
            .find(`.tblHead`).closest(`tr`).prependTo($table.find(`thead`));

        //Change <td> elements in <thead> to <th> and give the new th all the td attributes
        $(`td.tblHead`).each(function () {
            $td = $(this);
            $td.wrapInner(`<th/>`);
            $th = $td.find(`th`);
            $th.addClass($td.attr(`class`));
            $cl = $td.attr(`align`) === `RIGHT` ? $th.css(`text-align`,`right`) : ``;
            $th.unwrap();
        });

        $('#table1').DataTable( {
            dom: 'Blfrtip',
            buttons: [
                'copy', 'csv', 'excel', 'pdf', 'print'
            ]
        } );

    </script>
</body
-HTMLFORM END

There are a TON of different ways to customize datatables. Note the instant search feature and the ability to sort on a column on a click. You can even add in custom buttons that run a JS function when clicked. We have a button set up that switches between a light and dark theme.

Any who...for what its worth.

quote:

I tried your code but I'm not having success. I just see a default webfocus table. Do I need to add DataTables as an extension to webFocus? I would really like to explore using this.

Hallway

 

Prod: 8202M1

Test: 8202M4

Repository:

 

OS:

 

Outputs:

 

 

 

 

quote:

What is your experience with DataTables? Any major issues with it? What do you lose by going with DataTabels?

Hallway

 

Prod: 8202M1

Test: 8202M4

Repository:

 

OS:

 

Outputs:

 

 

 

 

quote:

How would you create a drill from this list to another fex file?

  
SET BYDISPLAY   = ON
SET CENT-ZERO   = ON 
SET PAGE-NUM    = OFF
SET HOLDMISS    = ON
SET HOLDLIST    = PRINTONLY
SET NODATA      = ''
SET TITLES      = OFF
SET ASNAMES     = MIXED
SET HTMLCSS     = OFF

TABLE FILE CAR
SUM RETAIL_COST/D12M
    DEALER_COST/D12M
    SALES/D12M
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS CARHOLD FORMAT HTMTABLE
ON TABLE SET STYLE *
TYPE=REPORT, LINES-PER-PAGE=UNLIMITED, $
TYPE=TITLE, CLASS='tblHead', $
TYPE=DATA, CLASS='tblData', $
TYPE=DATA, COLUMN=CAR, TARGET='_blank', URL=https://www.google.com/search?(q=CAR.COMP.CAR), CLASS='tblData', $
ENDSTYLE

END

-HTMLFORM BEGIN NOEVAL
<head>
<link rel="stylesheet" type="text/css" href="https://cdn.datatables.net/v/dt/jq-3.3.1/jszip-2.5.0/dt-1.10.18/b-1.5.6/b-flash-1.5.6/b-html5-1.5.6/b-print-1.5.6/datatables.min.css"/>
 
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/pdfmake/0.1.36/pdfmake.min.js"></script>
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/pdfmake/0.1.36/vfs_fonts.js"></script>
<script type="text/javascript" src="https://cdn.datatables.net/v/dt/jq-3.3.1/jszip-2.5.0/dt-1.10.18/b-1.5.6/b-flash-1.5.6/b-html5-1.5.6/b-print-1.5.6/datatables.min.js"></script>
</head>
<body>
    <div id="tableWrapper">
        !IBI.FIL.CARHOLD;
    </div>
    <script>
        var $table = $('#tableWrapper > table').attr('id', 'table1').addClass('hover stripe');
        //Create a <thead> element and move any titles to the header. 
        $table
            .prepend('<thead/>')
            .find('.tblHead').closest('tr').prependTo($table.find('thead'));

        //Change <td> elements in <thead> to <th> and give the new th all the td attributes
        $('td.tblHead').each(function () {
            $td = $(this);
            $td.wrapInner('<th/>');
            $th = $td.find('th');
            $th.addClass($td.attr('class'));
            $cl = $td.attr('align') === 'RIGHT' ? $th.css('text-align','right') : '';
            $th.unwrap();
        });

        $('#table1').DataTable( {
            dom: 'Blfrtip',
            buttons: [
                'copy', 'csv', 'excel', 'pdf', 'print'
            ]
        } );

    </script>
</body>
-HTMLFORM END

Hallway

 

Prod: 8202M1

Test: 8202M4

Repository:

 

OS:

 

Outputs:

 

 

 

 

quote:

Is there anything you can't do with this approach?

Hallway

 

Prod: 8202M1

Test: 8202M4

Repository:

 

OS:

 

Outputs:

 

 

 

 

quote:

Originally posted by Shingles:
This is great... and if I were drilling to another fex file I would replace the "URL=https..." bit to "FOCEXEC=IBFS:/WFC/Repos...something.fex(param1=...)" right?

Hallway

 

Prod: 8202M1

Test: 8202M4

Repository:

 

OS:

 

Outputs: