Vilhelm-Ion Praisach: 2015

sâmbătă, 19 decembrie 2015

AppendFromXlsx 1.5

sâmbătă, 5 decembrie 2015

ExportToXlsx 1.9 (class)

CopyToXlsx 2.10 (procedure)

joi, 3 decembrie 2015

ExportToXlsx 1.8 (class)

miercuri, 2 decembrie 2015

CopyToXlsx 2.9 (procedure)

marți, 24 noiembrie 2015

ImportFromXlsx 1.3

joi, 29 octombrie 2015

How to move an entire band to the next page, if contains an object that spans to the next page.

Report's details can have long descriptions.
If a detail's long description overflows the page, then I see its remainder in the following page.

To avoid that and to put all the item (with its whole description) in the following page, SET REPORTBEHAVIOR 90 must be used.

This post shows a solution without subclassing the reportlistener, but it's slow and not intuitive.
Basically, the report is executed more times. Each time one more record is moved to the next page.
Because moving a single record to the next page rearrange the remaining records, the procedure must be repeated, until no record has to be moved.
The RECNO() of the records that spans to the next page, are stored into a cursor named "tproblems" (you can use other name, but you must change that name in the report; see steps 3 and 4 from below)

A demo prg with the report is attached in this rar archive containing a smal prg and a report

Description
1) the piece of code to prepare and finally show the report
*************
* Begin code
*************
CREATE CURSOR tproblems (nRec I) && cursor that retains all the record that tried to span across the pages
PRIVATE llRetry,lnReccount,llOneMoreTime,llBreak && some variables used by the report
llRetry = .T.
lnReccount = 0
SET REPORTBEHAVIOR 90
DO WHILE llRetry && because each record moved to the next page rearrange the remaining records, the procedure must be repeated one by one
    llOneMoreTime = .F.
    llBreak = .F.
    REPORT FORM MyReport TO test.txt && test.txt can be change with any other name
    llRetry = llOneMoreTime
    lnReccount = lnReccount + 1
ENDDO
llBreak = .F.
REPORT FORM MyReport PREVIEW && the final report
*************
* End code
*************

2) Open the report and add a new group, by llBreak and set New Page

3) Double click the field that expands to the next page, choose Field properties, and go to the Other Tab.
Click Edit Settings from the Run-time extensions.
Type llRetry in Execute When, and in the edit box above it :

*********
* Begin
*********
if tP6 = 1 AND RECCOUNT('tproblems') = lnReccount
insert into tproblems values (recno(ALIAS()))
llOneMoreTime = .T.
endif
*********
* End
*********

4) Double click the Details band, choose Detail Band properties, and go to the Other Tab.
Click Edit Settings from the Run-time extensions.
Type AfterBand in Execute When, and in the edit box above it :

*********
* Begin
*********
lcAlias = ALIAS()
SELECT tproblems
LOCATE FOR nRec = RECNO(lcAlias) + 1
IF FOUND()
llBreak = !llBreak
ENDIF
SELECT (lcAlias)

*********
* End
*********

Foxite link

Why a label from a band that span on a second page is printed in that second page, despite the Print When expression ?

Q
I have a report with one Group. In Group footer is a text field (Stretch with overflow) and a label, on the left side.
The label has the some expression on Print When (+Remove line if blank).
If the textbox from the same Group Footer overflows on second page then I see the label in second page even if it is not in first page, because the expression from Print When is evaluated to .F.
Please what is wrong?

A
You have ticked "When band content overflow to the new page/column", right above the "Remove line if blank"
Cut the expression from "Print only when expression is true", untick "When band..." and paste back the expression into "Print only when..."

Foxite link

Why stretched with overflow truncate the field from the bottom of page (the last record from the current page) ?

Q
I have a report with one Group.
In Group footer is a text field (Stretch with overflow).
If the text field extend too much I get only part of text field content in the first page and nothing else in the second page.
Please how to split text field into 2 pages if it overflow?

A
Change "Object position" from "Fix relative to the bottom of the band", into "Float"

Foxite link

miercuri, 30 septembrie 2015

ADIR() and SYS(2000) with mask

ADIR() and SYS(2000) behaves like the DIR command.
Dir command have a MS-DOS legacy, which carry a CP/M one.
http://blogs.msdn.com/b/oldnewthing/archive/2007/12/17/6785519.aspx

The behavior can be unexpected for files whose name contains spaces, have more than 12 characters, or the extension is longer than 3 characters.

And that's because the generated 8.3 short names
This https://support.microsoft.com/en-us/kb/142982 gives a clue about how short names are generated, but is not exhaustive.

When the folder or computer searched with ADIR() or SYS(2000) support short names, files whose short name respect the mask, will be included in the final result.

Moreover, the result include files whose short name contains characters included in the mask, even these characters are not part of the long name.
A classic example is the ~1(2,3..) suffix
http://stackoverflow.com/questions/11107044/strange-windows-dir-command-behavior

This behavior can be stopped, by removing the support for short names.

To remove short names for a single directory

DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER nWinHandle,STRING cOperation,STRING cFileName,STRING cParameters,STRING cDirectory,INTEGER nShowWindow

ShellExecute(0,"runas","fsutil","8dot3name strip " + lcPathToDesiredDirectory,"",1)

1) example for ADIR()
******************
* Begin ADIR() example
******************

STRTOFILE("","aabb.xl")
STRTOFILE("","aa bb.xl")
STRTOFILE("","aabb.xls")
STRTOFILE("","aa bb.xls")
STRTOFILE("","aabb.xlsx")
STRTOFILE("","aa bb.xlsx")
STRTOFILE("","aabb.xlsxp")
STRTOFILE("","aa bb.xlsxp")
STRTOFILE("","aabb.xlsxpm")
STRTOFILE("","aa bb.xlsxpm")

*!*    On my PC, this is the result of
*!*    DIR a*.* /x
*!*    17.09.2015 10:35                 0 AABB~1.XL    aa bb.xl
*!*    17.09.2015 10:35                 0 AABB~1.XLS   aa bb.xls
*!*    17.09.2015 10:35                 0 AABB~3.XLS   aa bb.xlsx
*!*    17.09.2015 10:35                 0 AA3C12~1.XLS aa bb.xlsxp
*!*    17.09.2015 10:35                 0 AA96D4~1.XLS aa bb.xlsxpm
*!*    17.09.2015 10:35                 0              aabb.xl
*!*    17.09.2015 10:35                 0              aabb.xls
*!*    17.09.2015 10:35                 0 AABB~2.XLS   aabb.xlsx
*!*    17.09.2015 10:35                 0 AABB~4.XLS   aabb.xlsxp
*!*    17.09.2015 10:35                 0 AA84DD~1.XLS aabb.xlsxpm

?ADIR(la,"*.xl") && 2
?ADIR(la,"*.xls") && 8
?ADIR(la,"*.xlsx") && 2
?ADIR(la,"*.xlsxp") && 2
?ADIR(la,"*.xl?") && 10
?ADIR(la,"*.xl*") && 10

WAIT
?ADIR(la,"a*.xl") && 2
?ADIR(la,"a*.xls") && 8
?ADIR(la,"a*.xlsx") && 2
?ADIR(la,"a*.xlsxp") && 2
?ADIR(la,"a*.xl?") && 10
?ADIR(la,"a*.xl*") && 10

WAIT
?ADIR(la,"*b*.xl") && 2
?ADIR(la,"*b*.xls") && 5
* DIR "*b*.xls" /x
* aabb.xls
* aa bb.xls
* aabb.xlsx
* aa bb.xlsx
* aabb.xlsxp
?ADIR(la,"*b*.xlsx") && 2
?ADIR(la,"*b*.xlsxp") && 2
?ADIR(la,"*b*.xl?") && 7
* DIR "*b*.xl?" /x
* aabb.xl
* aa bb.xl
* aabb.xls
* aa bb.xls
* aabb.xlsx
* aa bb.xlsx
* aabb.xlsxp
?ADIR(la,"*b*.xl*") && 10

WAIT
?ADIR(la,"*b.xl") && 2
?ADIR(la,"*b.xls") && 2
?ADIR(la,"*b.xlsx") && 2
?ADIR(la,"*b.xlsxp") && 2
?ADIR(la,"*b.xl?") && 4
?ADIR(la,"*b.xl*") && 10

WAIT
?ADIR(la,"*1.xl") && 1
?ADIR(la,"*1.xls") && 4
?ADIR(la,"*1.xlsx") && 0
?ADIR(la,"*1.xlsxp") && 0
?ADIR(la,"*1.xl?") && 5
?ADIR(la,"*1.xl*") && 5

WAIT
?ADIR(la,"*~?.xl") && 1
?ADIR(la,"*~?.xls") && 7
?ADIR(la,"*~?.xlsx") && 0
?ADIR(la,"*~?.xlsxp") && 0
?ADIR(la,"*~?.xl?") && 8
?ADIR(la,"*~?.xl*") && 8

WAIT
?ADIR(la,"*D*.xls") && 2
* DIR "*D*.xls" /x
* aa bb.xlsxpm aka AA96D4~1.XLS
* aabb.xlsxpm aka AA84DD~1.XLS
?ADIR(la,"????.xls") && 1
?ADIR(la,"?????.xls") && 2
?ADIR(la,"??????.xls") && 5
* DIR "??????.xls" /x
* aabb.xls
* aa bb.xls aka AABB~1.XLS
* aabb.xlsx aka AABB~2.XLS
* aa bb.xlsx aka AABB~3.XLS
* aabb.xlsxp aka AABB~4.XLS
?ADIR(la,"????????.xls") && 8
* all except the one with xl as extension
******************
* End ADIR() example
******************

2) Example for SYS(2000)
******************
* Begin SYS(2000) example
******************

STRTOFILE("","aabb.xl")
STRTOFILE("","aa bb.xl")
STRTOFILE("","aabb.xls")
STRTOFILE("","aa bb.xls")
STRTOFILE("","aabb.xlsx")
STRTOFILE("","aa bb.xlsx")
STRTOFILE("","aabb.xlsxp")
STRTOFILE("","aa bb.xlsxp")
STRTOFILE("","aabb.xlsxpm")
STRTOFILE("","aa bb.xlsxpm")

*!*    On my PC, this is the result of
*!*    DIR a*.* /x
*!*    17.09.2015 10:35                 0 AABB~1.XL    aa bb.xl
*!*    17.09.2015 10:35                 0 AABB~1.XLS   aa bb.xls
*!*    17.09.2015 10:35                 0 AABB~3.XLS   aa bb.xlsx
*!*    17.09.2015 10:35                 0 AA3C12~1.XLS aa bb.xlsxp
*!*    17.09.2015 10:35                 0 AA96D4~1.XLS aa bb.xlsxpm
*!*    17.09.2015 10:35                 0              aabb.xl
*!*    17.09.2015 10:35                 0              aabb.xls
*!*    17.09.2015 10:35                 0 AABB~2.XLS   aabb.xlsx
*!*    17.09.2015 10:35                 0 AABB~4.XLS   aabb.xlsxp
*!*    17.09.2015 10:35                 0 AA84DD~1.XLS aabb.xlsxpm

? MyAdir("*.xl") && 2
?MyAdir("*.xls") && 8
?MyAdir("*.xlsx") && 2
?MyAdir("*.xlsxp") && 2
?MyAdir("*.xl?") && 10
?MyAdir("*.xl*") && 10

WAIT
?MyAdir("a*.xl") && 2
?MyAdir("a*.xls") && 8
?MyAdir("a*.xlsx") && 2
?MyAdir("a*.xlsxp") && 2
?MyAdir("a*.xl?") && 10
?MyAdir("a*.xl*") && 10

WAIT
?MyAdir("*b*.xl") && 2
?MyAdir("*b*.xls") && 5
* DIR "*b*.xls" /x
* aabb.xls
* aa bb.xls
* aabb.xlsx
* aa bb.xlsx
* aabb.xlsxp
?MyAdir("*b*.xlsx") && 2
?MyAdir("*b*.xlsxp") && 2
?MyAdir("*b*.xl?") && 7
* DIR "*b*.xl?" /x
* aabb.xl
* aa bb.xl
* aabb.xls
* aa bb.xls
* aabb.xlsx
* aa bb.xlsx
* aabb.xlsxp
?MyAdir("*b*.xl*") && 10

WAIT
?MyAdir("*b.xl") && 2
?MyAdir("*b.xls") && 2
?MyAdir("*b.xlsx") && 2
?MyAdir("*b.xlsxp") && 2
?MyAdir("*b.xl?") && 4
?MyAdir("*b.xl*") && 10

WAIT
?MyAdir("*1.xl") && 1
?MyAdir("*1.xls") && 4
?MyAdir("*1.xlsx") && 0
?MyAdir("*1.xlsxp") && 0
?MyAdir("*1.xl?") && 5
?MyAdir("*1.xl*") && 5

WAIT
?MyAdir("*~?.xl") && 1
?MyAdir("*~?.xls") && 7
?MyAdir("*~?.xlsx") && 0
?MyAdir("*~?.xlsxp") && 0
?MyAdir("*~?.xl?") && 8
?MyAdir("*~?.xl*") && 8

WAIT
?MyAdir("*D*.xls") && 2
* DIR "*D*.xls" /x
* aa bb.xlsxpm aka AA96D4~1.XLS
* aabb.xlsxpm aka AA84DD~1.XLS
?MyAdir("????.xls") && 1
?MyAdir("?????.xls") && 2
?MyAdir("??????.xls") && 5
* DIR "??????.xls" /x
* aabb.xls
* aa bb.xls aka AABB~1.XLS
* aabb.xlsx aka AABB~2.XLS
* aa bb.xlsx aka AABB~3.XLS
* aabb.xlsxp aka AABB~4.XLS
?MyAdir("????????.xls") && 8
* all except the ones with xl as extension

FUNCTION MyAdir
    LPARAMETERS lcMask
    LOCAL lnCount
    lnCount = 0
    IF !EMPTY(SYS(2000,m.lcMask))
        lnCount = 1
        DO WHILE !EMPTY(SYS(2000,m.lcMask,1))
            lnCount = m.lnCount + 1
        ENDDO
    ENDIF
    RETURN m.lnCount
ENDIF
******************
* End SYS(2000) example
******************

Paul Gibson's thread about it

luni, 28 septembrie 2015

ImportFromXlsx 1.2

Vilhelm-Ion Praisach

Faceți căutări pe acest blog

sâmbătă, 19 decembrie 2015

AppendFromXlsx 1.5

sâmbătă, 5 decembrie 2015

ExportToXlsx 1.9 (class)

CopyToXlsx 2.10 (procedure)

joi, 3 decembrie 2015

ExportToXlsx 1.8 (class)

miercuri, 2 decembrie 2015

CopyToXlsx 2.9 (procedure)

marți, 24 noiembrie 2015

ImportFromXlsx 1.3

joi, 29 octombrie 2015

How to move an entire band to the next page, if contains an object that spans to the next page.

Why a label from a band that span on a second page is printed in that second page, despite the Print When expression ?

Why stretched with overflow truncate the field from the bottom of page (the last record from the current page) ?

miercuri, 30 septembrie 2015

ADIR() and SYS(2000) with mask

luni, 28 septembrie 2015

ImportFromXlsx 1.2

Translate

Faceți căutări pe acest blog

sâmbătă, 19 decembrie 2015

sâmbătă, 5 decembrie 2015

joi, 3 decembrie 2015

miercuri, 2 decembrie 2015

marți, 24 noiembrie 2015

joi, 29 octombrie 2015

miercuri, 30 septembrie 2015

luni, 28 septembrie 2015

Translate

Abonați-vă la