Report Xbrowse Multiheader

Re: Report Xbrowse Multiheader

Postby Otto » Wed Dec 06, 2017 4:02 pm

Silvio,
the printout should be exactly like "tabellone orario settimanale". Is this right.

Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 5993
Joined: Fri Oct 07, 2005 7:07 pm

Re: Report Xbrowse Multiheader

Postby Silvio.Falconi » Thu Dec 07, 2017 8:53 am

yes,
do you saw how many columns there are ?
each day can have from 6 to ten Hours
But I prefer use printer class I not change that app now
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Report Xbrowse Multiheader

Postby Otto » Fri Dec 08, 2017 5:15 pm

Hello Silvio,
I made some tests with EasyReport.
What you need is easy to do.
Please see vrditem.prg for the values you have to pass to EasyReport.

Please see the code.

Best regards,
Otto
Image



Code: Select all  Expand view
       cTempRow               := ALLTRIM( STR( oVRD:nNextRow - 3 ) )  
        cTempRowLine    := ALLTRIM( STR( oVRD:nNextRow - 3 ) )  
        nTempRow                := oVRD:nNextRow

        nLeft := 11
        For I := 0 to 16
                cTempZeile := ALLTRIM( STR( nTempRow  + I * 10 ) )              
                For n := 1 to 7
                        nTag += 1
                        cTag := Alltrim(str( nTag ))    

                        cItemDef := ""
                        aResult[12] := "2"      //color background
                        aResult[7] :=  "0"      //top
                        aResult[8] := str( nLeft + n * 10 ) //left
                        aResult[10] := "10"     //nHeight

                        if n = 1
                                aResult[13] := "4" //nColPane
                        elseif n = 2
                                aResult[13] := "5"
                        elseif n = 3
                                aResult[13] := "9"
                        elseif n = 4
                                aResult[13] := "10")

                        elseif n = 5
                                aResult[12] := "1" //TExt
                                aResult[13] := "10"

                        else
                                aResult[13] := "5"
                        endif

                        aResult[11] := "10"     //FONT
                        if I = 5
                                aResult[13] := "11"
                                aResult[11] := "7"
                        endif  



                        for nIdx = 1 to nTimes - 1
                                cItemDef += aResult[ nIdx ] + "|"
                        next  
                        cItemDef += aResult[ nTimes ]

                        WritePProString( "General", "Top1", cTempZeile , ".\xVRD2\invoice.v08" )
                        WritePProString( "Items", "400", cItemDef,".\xVRD2\invoice.v08" )
                        PRINTAREA ER_AR_Zeile_v08 OF oVRD ;
                                ITEMIDS    { 400 } ;
                                ITEMVALUES { cTag }

                        oVRD:nNextRow := nTempRow  + I * 10

                next

                cTempZeile := ALLTRIM( STR( nTempRow + 1 + I * 10 ) )  
                WritePProString( "General", "Top1", cTempZeile , ".\xVRD2\invoice.v04" )
                PRINTAREA ER_AR_Linie_v04 OF oVRD


        NEXT
 
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 5993
Joined: Fri Oct 07, 2005 7:07 pm

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: MarcoBoschi and 26 guests