FiveTech Software tech support forums

       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