FiveTech Software tech support forums

... as DATA member Eval)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

244. Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF, aCols )

Description: Accessor for Report (same as DATA member, method version for codeblock usage).

Parameters: (Same as ...

... through all rows and displays "Column1" value in each row.
content_copy
download
Use code with caution.
Harbour

170. Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF, aCols )

Description: Generates a report from the browse data, allowing for preview, printing, and exporting to PDF ...

... nBottom>, <nRight>,;
<nClrText>, <cFile>, <nLin>, <lRead>, <oDlg>, <lMnu>, <pDoc>, <nLex>, <bSetup>,;
<nSizeFont>, <lBold>, <bInit>, <lLoad>, <lModal>, <bExec>, <oMenu> )

lLoad : load Dll need
lModal : Show dialog in modal mode
bExec : Function user defined for build prgs
oMenu : Object Menu ...

... Method Pages()

* Function SourceEdit ( MemoEdit.prg )

- Bug fixed in "Save" action button

* TDIALOG:
- Methods End() and Destroy() assume DATA lModal was already initialized.
Calling these methods without calling Activate() results in runtime error.
Fixed.

* TGET:
- Fix: Due to a bug ...

... app. To make things simplier, I just added a button with xBrowse:Report(), fast an easy.
But... in one of them I need to put lines, like in formal report with CELLVIEW().

xBrowse:Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF )

bSetup is for that, How?

Thanks in advance
From Chile
Adolfo

... regards,
Otto

oVRD.prg

after:
::oPrn := PrintBegin( ::cTitle,, ::lPreview, ;
IIF( EMPTY( ::cPrinter ), NIL, ::cPrinter ), ;
IIF( ::lPreview, lModal, .F. ) )
insert:
//kein Drucker gefunden
if ::oPrn:hDC = 0
RETURN ( Self )
Endif

in my program:

EASYREPORT oVRD NAME ".\xVrd\kabrg.vrd ...

... diálogo y se mete la ventana dentro de ella. Algo asi:

DATA oModal

METHOD Activate() CLASS TWindow // mdichild, o lo que sea
...
...
...

if ::lModal
Modaliza( self )
endif

return 0

Function modaliza( o )

// quitar los bordes y el título a la ventana

DEFINE DIALOG o:oModal ....


ACTIVATE ...

... bar and buttons in ON INIT clause.
sample: barondlg.prg

* Enhancement: dialog.prg: Data or codeblocks assigned to lCentered, lCenterInWnd,
lModal, bLClicked, bRClicked, bWhen, bValid, bInit, bPainted are used by
Activate() method if not overriden in the ACTIVATE command.

* Enhancement ...

Hola,

En source/printer.prg hay que usar FWStrings en :

METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter

MsgStop( "There are no printers installed!" + CRLF + ;
"Please exit this application and install a printer." )


METHOD _EndPage() CLASS TPrinter ...

... Vrd; source\vrd.prg y el comando es:

EASYREPORT <oVRD> ;
NAME <cRptFile> ;
[ PREVIEW <lPreview> ] ;
[ TO <cPrinter> ] ;
[ OF <oWnd> ] ;
[ <lModal: MODAL> ] ;
[ <lPrintIDs: PRINTIDS> ] ;
[ <lNoPrint: NOPRINT> ] ;
[ <lNoExpr: NOEXPR> ] ;
[ CHECK <lCheck> ] ;
[ AREAPATH <cAreaPath ...

... 1114 1119 1135 1198

LINETO() (function in ?)
WINDOW.PRG 2465

LMAX
WINDOW.PRG 487 1115 1124 1133

LMIN
WINDOW.PRG 487 1115 1124 1132

LMODAL
WINDOW.PRG 2141 2614

LNEW
WINDOW.PRG 1875 1885 1893 3326

LOADFILE() (function in ?)
WINDOW.PRG 682 3445

LOGICAL
WINDOW.PRG 437 438 456 ...

Try
oPrn := PrintBegin( cTitle, lUser, lPrintPreview, cPrintModel, lModal, lSelection )
if Empty( oPrn:hDC )
return( .f. ) // Printer was not installed or ready
endif
oPrn:SetCopies( ::nNoCopies )
or
PrnSetCopies( nNoCopies )

... not. fTeclaCombinacion(@nkey,@nTeclaCombinacion) .and. nkey > 0, (msgalert(str(nTeclaCombinacion)+' '+str(nkey)), nLastkey:=nKey, fpx:= nKey, lModal:=.F., oDlg:End() ), ) }

Function fTeclaCombinacion(nkey,nTeclaCombinacion)
Local lRetorno:=.F.

if ascan({K_HOME,K_END,K_PAGEUP,K_PAGEDOWN,K_UP ...

... como cuando uno preciona Control + A, Alt + B, pero con inkey() siempre me entrega un valor 65453, para cualquier tecla especial.

Local fpx:=0, lModal:=.T., oGet, cPaso:=' '
DEFINE DIALOG oDlg TITLE " " SIZE 350, 60
@2,1 say hb_strtoutf8(padc(alltrim(cMsg),50)) OF oDlg SIZE 330,nAltoLetra
@10 ...

... 33 ACTION ( vdbf_[ oBrw:nRowPos ][ 1 ] := ! vdbf_[ oBrw:nRowPos ][ 1 ], oBrw:Refresh() )
@31, 19 BUTTON "Aceptar" OF oDlg SIZE 120, 33 ACTION ( lModal:=.F., aSeleccion := {cValor}, oDlg:End() )
@31, 36 BUTTON "Cancelar" OF oDlg SIZE 120, 33 ACTION ( lModal:=.F., lRetorno:=.F., aSeleccion ...