Do Report Lib

/*
* MINIGUI – Harbour Win32 GUI library Demo
*
* 2010-05-26 Edited by Alexey L. Gustow <gustow33 @ mail.ru> (“GAL”)
* – translation to English (mainly in report definitions)
* – little reformatting
* – todo: translating memo’s (Test->BIO) fields from Spanish to English
*/

#include “minigui.ch”

*——————————————————–*
Function Main()
*——————————————————–*

set language to ENGLISH    // GAL (changed from SPANISH”)

set century on
set date ansi

use test
index on field->first to lista   // “.NTX” (by default)

define window Pr_Form ;
at 0,0 ;
width 200 ;
height 100 ;
title ‘DO REPORT Tests’ ;
main ;
on release ( DbCloseArea(), FErase(“lista.ntx”) )

define main menu
popup ‘File’
item ‘Do Report Test’  action PrintTest()
item ‘Do Report Test2’ action PrintTest2()
item ‘Do Report Test3’ action PrintTest3()
item ‘Do Report Test4’ action PrintTest4()
separator
item ‘Exit’ action ThisWindow.Release
end popup
end menu

end window

activate window Pr_Form

Return Nil

*——————————————————–*
Function PrintTest()
*——————————————————–*

DbGoTop()    // in “Test.dbf”

do report ;
title  ‘REPORT OF CINEMA ARTISTS | second title’                        ;
headers  {”,”,”,”} , { ‘SIMPLE’, ‘LAST NAME’, ‘BIO’, ‘INCOME’ }     ;
fields   {‘code’,’last’,’BIO’,’incoming’}                               ;
widths   {10,20,26,14}                                                  ;
totals   {.F.,.F.,.F.,.T.}                                              ;
nformats {”,”,”,’@E 99,999,999.99′}                                  ;
workarea Test                                                           ;
lpp      55                                                             ;
cpl      77                                                             ;
lmargin  3                                                              ;
tmargin  3                                                              ;
papersize DMPAPER_A4                                                    ;
preview                                                                 ;
select                                                                  ;
multiple                                                                ;
grouped by ‘first’                                                      ;
headrgrp ‘Name’

Return Nil

*——————————————————–*
Function PrintTest2()
*——————————————————–*

DbGoTop()
DO REPORT FORM REPORT2

Return Nil

*——————————————————–*
Function PrintTest3()
*——————————————————–*

DbGoTop()
DO REPORT FORM REPORT3

Return Nil

*——————————————————–*
Function PrintTest4()
*——————————————————–*

DbGoTop()
DO REPORT FORM REPORT4

Return Nil

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: