Antonio
This problem occurs in all my programs on Win XP (not in win 7 or
and that in cases where the report has multiple pages (10-15). The problem is not the answer in previous versions FWH 11.3 until recently that I used in the same program.
Thanks.
---------------------------------------------------------
#include "FiveWin.ch"
#include "Report.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
DEFINE WINDOW oWnd FROM 1,1 To 22,75 TITLE "This is a MDI enviroment" MDI VSCROLL
ACTIVATE WINDOW oWnd ON INIT CreateChild() MAXIMIZED
return nil
//----------------------------------------------------------------------------//
function CreateChild()
local oWndC, oIcon, oDlg, bOk1, bOk2
DEFINE ICON oIcon RESOURCE "test"
DEFINE WINDOW oWndC NOMAXIMIZE MDICHILD OF oWnd FROM 0,0 TO 20,40 ICON oIcon
oWndC:bGotFocus = {||oDlg:SetFocus()} // Sempre coloca o foco no Dialog
oWndC:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd = oDlg
DEFINE DIALOG oDlg OF oWndC STYLE WS_CHILD
@ 0,0 BUTTON bOk1 PROMPT "&RPreview" SIZE 49,17 ACTION (odlg:disable(),DoReport(),odlg:enable(),odlg:refresh())
@ 2,0 BUTTON bOk2 PROMPT "&Sair" SIZE 49,17 ACTION oDlg:End()
oWndC:Center()
ACTIVATE DIALOG oDlg NOWAIT RESIZE16 VALID iif(!GetKeyState( 27 ), oWndC:End(), .F.)
ACTIVATE WINDOW oWndC VALID MsgYesNo( "Want to close it ?" )
return nil
//----------------------------------------------------------------------------//
function DoReport()
local oReport
USE Customer
INDEX ON Field->State+Field->City TO CustStCt
SET INDEX TO CustStCt
REPORT oReport ;
TITLE "*** LISTADO DE PRUEBA ***","","FiveTech Software","" ;
HEADER "Fecha: "+dtoc(date())+space(44)+"Hora: "+time() ;
FOOTER "P gina: "+str(oReport:nPage,3) PREVIEW
GROUP ON Customer->State ;
HEADER " " ;
FOOTER "Total Estado "+oReport:aGroups[1]:cValue
COLUMN TITLE "ST" ;
DATA Customer->State
COLUMN TITLE "City" ;
DATA Customer->City ;
SIZE 30
COLUMN TITLE "First Name","Last Name" ;
DATA Customer->First, Customer->Last ;
SIZE 30
COLUMN TITLE " Salary" ;
DATA Customer->Salary ;
PICTURE "9,999,999" ;
SIZE 9 ;
TOTAL
END REPORT
ACTIVATE REPORT oReport ON STARTPAGE Tone( 100, 1 )
USE
RETURN NIL
