Reporting with HMG : Part I

It is amazingly easy to create and print reports using HMG...

All you have to do is as follows :-

#include 'minigui.ch'

procedure main()
//
define window MainForm ;
at 0,0 ;
width 100;
height 100 ;
title 'FAS4HMG' ;
main

DEFINE MAIN MENU
POPUP 'File'
ITEM 'Print GL Chart of Accounts ' ACTION PrintGLChart()
END POPUP
END MENU
end window
//
activate window MainForm

Return Nil



function PrintGLChart()
//
use GLAC
index on glcode to printglchart
//
set date british
set century on
//
DO REPORT ;
TITLE 'GL Chart of Accounts' ;
HEADERS {'','','',''} , {'GL CODE','DESCRIPTION','GL GROUP','GL TYPE'} ;
FIELDS {'glcode','glname','glgroup','gltype'} ;
WIDTHS {10,40,20,10} ;
TOTALS {.F.,.F.,.F.,.F.} ;
NFORMATS {'','','',"} ;
WORKAREA GLAC ;
LPP 50 ;
CPL 80 ;
LMARGIN 2 ;
PAPERSIZE DMPAPER_A4 ;
PREVIEW ;
SELECT ;
MULTIPLE ;
GROUPED BY 'glgroup' ;
HEADRGRP 'GL Group'
//

Return Nil


After Clicking Yes


After Choosing Thumbnails



If the above-mentioned codes are recompiled with MiniGui ie HMG Extended




Next : Reporting with HMG : Part II