GeMIS_WEB/GUI/Tools/CreateViperGebindeTabelle_1.p

DEF VAR lStart      AS LOG  INIT FALSE      NO-UNDO.
DEF VAR lFound      AS LOG  INIT FALSE      NO-UNDO.
DEF VAR iObj        AS INT                  NO-UNDO.
DEF VAR ii          AS INT                  NO-UNDO.
DEF VAR i1          AS INT                  NO-UNDO.
DEF VAR i2          AS INT                  NO-UNDO.
DEF VAR iX          AS INT                  NO-UNDO.
DEF VAR iY          AS INT  INIT 1750       NO-UNDO.
DEF VAR iW          AS INT                  NO-UNDO.
DEF VAR iH          AS INT                  NO-UNDO.

DEF VAR iRectDick   AS INT                  NO-UNDO.
DEF VAR iRectX      AS INT                  NO-UNDO.
DEF VAR iRectY      AS INT                  NO-UNDO.
DEF VAR iRectBreit  AS INT                  NO-UNDO.
DEF VAR iRectHoch   AS INT                  NO-UNDO.

DEF VAR iStart      AS INT  EXTENT 10       NO-UNDO
        INIT [160,0,0,0,0,0,960,0,0,0].
DEF VAR iBreit      AS INT  EXTENT 10       NO-UNDO
        INIT [130,90,150,120,120,130,130,460,150,120].
DEF VAR iHoch       AS INT  EXTENT 10       NO-UNDO
        INIT [45,45,45,45,45,45,45,45,45,45].
DEF VAR cText01     AS CHAR EXTENT 20       NO-UNDO
        INIT ["","","","","","","","","","","","","","","","","","","",""].
DEF VAR cText02     AS CHAR EXTENT 20       NO-UNDO
        INIT ["Har.","Har.","Har.","Har.","Har.","Har.","Har.","Har.","Har."~
             ,"Har.","Har.","Har.","Har.","Har.","Har.","Har.","","","",""].
DEF VAR cText03     AS CHAR EXTENT 20       NO-UNDO
        INIT ["6 FL.","10 Fl.","12 Fl.","15 Fl.","16 Fl.","20 Fl.","24 Fl."~
             ,"15 Fl.","20 Fl.","10 Fl.","15 Fl.","20 Fl.","24 Fl.","27 Fl."~
             ,"28 Fl.","30 Fl.","","","",""].
DEF VAR cText04     AS CHAR EXTENT 20       NO-UNDO
        INIT ["0.50","0.50","0.50","0.50","0.50","0.50","0.50","1.00","1.00~
             ","0.30","0.30","0.30","0.30","0.30","0.30","0.30","","","",""].
DEF VAR cText05     AS CHAR EXTENT 20       NO-UNDO
        INIT ["8.00","10.00","11.00","12.50","13.00","15.00","17.00","20.00","25.00~
             ","8.00","9.50","11.00","12.20","13.10","13.40","14.00","","","",""].
DEF VAR cText06     AS CHAR EXTENT 20       NO-UNDO
        INIT ["","","","","","","","","","","","","","","","","","","",""].
DEF VAR cText07     AS CHAR EXTENT 20       NO-UNDO
        INIT ["","","","","","","","","","","","","","","","","","","",""].
DEF VAR cText08     AS CHAR EXTENT 20       NO-UNDO
        INIT ["Flaschen","Flaschen","Flaschen","Harasse","Wein Harasse","Gallone","Wein Container~
             ","Container / Fass","Propangas","CO2 / Kohlensäure","Partyfass","Cool Keg","EHG Blau~
             ","Glasbehälter Dunkelgrau","Glasbehälter Gross","Paletten retour","Paletten geliefert","","",""].
DEF VAR cText09     AS CHAR EXTENT 20       NO-UNDO
        INIT ["0.30","0.50","1.00","5.00","0.00","10.00","50.00","50.00","65.00","100.00","100.00","150.00","50.00","","","12.00","12.00","","",""].
DEF VAR cText10     AS CHAR EXTENT 20       NO-UNDO
        INIT ["","","","","","","","","","","","","","","","","","","",""].
DEF VAR cText       AS CHAR EXTENT 20       NO-UNDO.

DEF TEMP-TABLE tTextObj
        FIELD iObj          AS INT
        FIELD cBeginObject  AS CHAR
        FIELD cName         AS CHAR
        FIELD cX-mm         AS CHAR
        FIELD cY-mm         AS CHAR
        FIELD cWidth-mm     AS CHAR
        FIELD cHeight-mm    AS CHAR
        FIELD cTextValue    AS CHAR
        FIELD cAutowrap     AS CHAR
        FIELD cAutoResize   AS CHAR
        FIELD cFGColour     AS CHAR
        FIELD cBGColour     AS CHAR
        FIELD cFontNo       AS CHAR
        FIELD czOrder       AS CHAR
        FIELD cKeeptext     AS CHAR
        FIELD cEndObject    AS CHAR
        FIELD cAlignment    AS CHAR
        FIELD iX-mm         AS INT 
        FIELD iY-mm         AS INT
        .

DO ii = 1 TO 10:
    IF ii > 1 THEN DO:
        IF iStart[ii] = 0 THEN iStart[ii] = iStart[ii - 1] + iBreit[ii - 1].
    END.
END.

iObj = 0.
DO ii = 1 TO 17:
    DO i1 = 1 TO 10:
        iObj = iObj + 1.
        CREATE  tTextObj.
        ASSIGN  tTextObj.iObj         = ii
                ttextObj.cBeginObject = 'BeginObject=Text'
                tTextObj.cAutoWrap    = 'AutoWrap=false'
                tTextObj.cAutoResize  = 'AutoResize=no'
                tTextObj.cBgColour    = (IF ii MOD 2 = 0 THEN 'BgColour=225,225,225' ELSE 'BgColour=255,255,255')
                tTextObj.cFontNo      = 'FontNo=8'
                tTextObj.czOrder      = 'zOrder=0'
                tTextObj.cKeeptext    = 'Keeptext=yes'
                tTextObj.cEndObject   = 'EndObject=Text'.
        CASE i1:
            WHEN 01 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText01[i2]. END.
            END.
            WHEN 02 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText02[i2]. END.
            END.
            WHEN 03 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText03[i2]. END.
            END.
            WHEN 04 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText04[i2]. END.
            END.
            WHEN 05 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText05[i2]. END.
            END.
            WHEN 06 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText06[i2]. END.
            END.
            WHEN 07 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText07[i2]. END.
            END.
            WHEN 08 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText08[i2]. END.
            END.
            WHEN 09 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText09[i2]. END.
            END.
            WHEN 10 THEN DO:
                DO i2 = 1 TO 20: cText[i2] = cText10[i2]. END.
            END.
        END.
        
        ASSIGN  tTextObj.cName      = SUBSTITUTE('Text_&1'      , STRING(iObj,'999'))
                tTextObj.cFgColour  = (IF cText[ii] = '' THEN REPLACE(tTextObj.cBgColour, 'Bg', 'Fg') ELSE 'FgColour=0,0,0')
                tTextObj.cX-mm      = SUBSTITUTE('X-mm=&1'      , STRING(iStart[i1] + 0,'9999'))
                tTextObj.cY-mm      = SUBSTITUTE('Y-mm=&1'      , STRING(iY + 1        ,'9999'))
                tTextObj.cWidth-mm  = SUBSTITUTE('Width-mm=&1'  , STRING(iBreit[i1] - 1,'999'))
                tTextObj.cHeight-mm = SUBSTITUTE('Height-mm=&1' , STRING(iHoch [i1] - 1,'999'))
                tTextObj.cTextValue = (IF cText[ii] = '' THEN SUBSTITUTE('TextValue=Text_&1', STRING(iObj,'999')) ELSE SUBSTITUTE('TextValue=&1', cText[ii])).
        CASE i1:
            WHEN 01  OR
            WHEN 02  OR
            WHEN 06  OR
            WHEN 07  OR 
            WHEN 08  OR
            WHEN 10  THEN tTextObj.cAlignment = 'Alignment=left'.
            OTHERWISE     tTextObj.cAlignment = 'Alignment=right'.
        END CASE.
    END.
    iY = iY + iHoch[01].
END.

OUTPUT TO 'N:\20_Temp\Gebinde.vfr' NO-MAP NO-CONVERT.
FOR EACH tTextObj
        BY tTextObj.iObj:
    PUT CONTROL '    '      tTextObj.cBeginObject       CHR(10)
                '      '    tTextObj.cName              CHR(10)
                '      '    tTextObj.cX-mm              CHR(10)
                '      '    tTextObj.cY-mm              CHR(10)
                '      '    tTextObj.cWidth-mm          CHR(10)
                '      '    tTextObj.cHeight-mm         CHR(10)
                '      '    tTextObj.cTextValue         CHR(10)
                '      '    tTextObj.cAutoWrap          CHR(10)
                '      '    tTextObj.cAutoResize        CHR(10)
                '      '    tTextObj.cAlignment         CHR(10)
                '      '    tTextObj.cFgColour          CHR(10)
                '      '    tTextObj.cBgColour          CHR(10)
                '      '    tTextObj.cFontNo            CHR(10)
                '      '    tTextObj.cKeeptext          CHR(10)
                '      '    tTextObj.cZOrder            CHR(10)
                '    '      tTextObj.cEndObject         CHR(10) CHR(10).
END.                

iRectDick  = 1.
iRectX     = iStart[01] - iRectDick.
iRectY     = 1750       - iRectDick.
iRectBreit = iBreit[01] + iBreit[02] + iBreit[03] + iBreit[04] + iBreit[05] + iBreit[06] + iRectDick + iRectDick.
iRectHoch  = (iHoch[01] * 17) + iRectDick + iRectDick.

PUT CONTROL '    '      'BeginObject=Rectangle'                 CHR(10)
            '      '    'Name=Rect_1'                           CHR(10)
            '      '    SUBSTITUTE('X-mm=&1', iRectX)           CHR(10)
            '      '    SUBSTITUTE('Y-mm=&1', iRectY)           CHR(10)
            '      '    SUBSTITUTE('Width-mm=&1', iRectBreit)   CHR(10)
            '      '    SUBSTITUTE('Height-mm=&1', iRectHoch)   CHR(10)
            '      '    'Filled=yes'                            CHR(10)
            '      '    'BgColor=0,0,0'                         CHR(10)
            '    '      'EndObject=Rectangle'                   CHR(10) CHR(10).

iRectDick  = 1.
iRectX     = iStart[07] - iRectDick.
iRectY     = 1750       - iRectDick.
iRectBreit = iBreit[07] + iBreit[08] + iBreit[09] + iBreit[10] + iRectDick + iRectDick.
iRectHoch  = (iHoch[01] * 17) + iRectDick + iRectDick.

PUT CONTROL '    '      'BeginObject=Rectangle'                 CHR(10)
            '      '    'Name=Rect_2'                           CHR(10)
            '      '    SUBSTITUTE('X-mm=&1', iRectX)           CHR(10)
            '      '    SUBSTITUTE('Y-mm=&1', iRectY)           CHR(10)
            '      '    SUBSTITUTE('Width-mm=&1', iRectBreit)   CHR(10)
            '      '    SUBSTITUTE('Height-mm=&1', iRectHoch)   CHR(10)
            '      '    'Filled=yes'                            CHR(10)
            '      '    'BgColor=0,0,0'                         CHR(10)
            '    '      'EndObject=Rectangle'                   CHR(10) CHR(10).

OUTPUT CLOSE.