Report Xbrowse Multiheader

[Otto]

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

Best regards,
Otto

[Silvio.Falconi]

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

[Otto]

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: Select all | Expand

        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