topic-31296

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Report Xbrowse Multiheader
Posted: Wed Dec 06, 2017 04:02 PM

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

Best regards,
Otto

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Report Xbrowse Multiheader
Posted: Thu Dec 07, 2017 08: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 March-April 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

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Report Xbrowse Multiheader
Posted: Fri Dec 08, 2017 05: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

Code (fw): Select all Collapse

        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

FiveTech Support Forums

Continue the discussion