GeMIS_WEB/GUI/Tools/CreateViperGebindeTabelle.p

DEF VAR cText       AS CHAR                 NO-UNDO.
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 iX          AS INT                  NO-UNDO.
DEF VAR iY          AS INT                  NO-UNDO.
DEF VAR iW          AS INT                  NO-UNDO.
DEF VAR iH          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 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."~
             ,"","","","","","","","","","",""].
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","","","","","","",""].
DEF VAR cText10     AS CHAR EXTENT 20       NO-UNDO
        INIT ["","","","","","","","","","","","","","","","","","","",""].

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 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].
    END.
END.
        
INPUT FROM 'N:\20_Temp\LieferFak.vfr' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    IMPORT UNFORMATTED cText.
    
    cText = TRIM(cText).

    IF NOT lFound THEN DO:
        IF INDEX(cText, 'Gebindetabelle') > 0 THEN lFound = TRUE.
        NEXT.
    END.
    
    IF INDEX(cText, 'BeginObject=Rectangle') > 0 THEN DO:
        lStart = FALSE.
        NEXT.
    END.
    IF INDEX(cText, 'BeginObject=Text') > 0 OR
       INDEX(cText, 'BeginObject=Cell') > 0 THEN DO:
        iObj = iObj + 1.
        CREATE  tTextObj.
        ASSIGN  tTextObj.iObj         = iObj
                ttextObj.cBeginObject = 'BeginObject=Text'
                tTextObj.cAutoWrap    = 'AutoWrap=false'
                tTextObj.cAutoResize  = 'AutoResize=no'
                tTextObj.cFgColour    = 'FgColour=255,255,255'
                tTextObj.cBgColour    = 'BgColour=255,255,255'
                tTextObj.cFontNo      = 'FontNo=8'
                tTextObj.czOrder      = 'zOrder=0'
/*                 tTextObj.cKeeptext    = 'Keeptext=yes' */
                tTextObj.cEndObject   = 'EndObject=Text'.
        lStart = TRUE.
        NEXT.
    END.
    IF NOT lStart THEN NEXT.
    
    FIND FIRST tTextObj WHERE tTextObj.iObj = iObj.

    IF INDEX(cText, 'Name=') > 0 THEN DO:
        tTextObj.cName = cText.
        NEXT.
    END.
    IF INDEX(cText, 'X-mm=') > 0 THEN DO:
        tTextObj.cX-mm = cText.
        tTextObj.iX-mm = INTEGER(ENTRY(2, cText, '=')).
        NEXT.
    END.
    IF INDEX(cText, 'Y-mm=') > 0 THEN DO:
        tTextObj.cY-mm = cText.
        tTextObj.iY-mm = INTEGER(ENTRY(2, cText, '=')).
        NEXT.
    END.
    IF INDEX(cText, 'Width-mm=') > 0 THEN DO:
        tTextObj.cWidth-mm = cText.
        NEXT.
    END.
    IF INDEX(cText, 'Height-mm=') > 0 THEN DO:
        tTextObj.cHeight-mm = cText.
        NEXT.
    END.
    IF INDEX(cText, 'TextValue=') > 0 THEN DO:
        tTextObj.cTextValue = cText.
        NEXT.
    END.
    IF INDEX(cText, 'BgColour=') > 0 THEN DO:
        tTextObj.cBgColour = cText.
        NEXT.
    END.
    IF INDEX(cText, 'FgColour=') > 0 THEN DO:
        tTextObj.cFgColour = cText.
        NEXT.
    END.
    IF INDEX(cText, 'FontNo=') > 0 THEN DO:
        tTextObj.cFontNo = cText.
        NEXT.
    END.

IF INDEX(tTextObj.cName, '101') > 0 THEN DO:
    DISPLAY tTextObj.
    MESSAGE cX-mm iX-mm cY-mm iY-mm
            VIEW-AS ALERT-BOX.
END.
    IF INDEX(cText, 'EndObject=Group') > 0 THEN LEAVE.
END.
INPUT CLOSE.

i1 = 0.
iX = 0.
FOR EACH tTextObj
    BREAK BY tTextObj.iX-mm
          BY tTextObj.iY-mm:
          
IF INDEX(tTextObj.cName, '101') > 0 THEN DO:
    MESSAGE '101' iX iY iH iW i1 ii
        VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
END.

    IF tTextObj.iY-mm > 2500 THEN NEXT.

    IF ABS(iX - tTextObj.iX-mm) > 20 THEN DO:
        CASE i1:
            WHEN 0 THEN ASSIGN  iX = 160
                                iY = 1750
                                iH = 45
                                iW = 130
                                i1 = 1
                                ii = 100.
            WHEN 1 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 90
                                i1 = 2
                                ii = 120.
            WHEN 2 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 150
                                i1 = 3
                                ii = 140.
            WHEN 3 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 120
                                i1 = 4
                                ii = 160.
            WHEN 4 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 120
                                i1 = 5
                                ii = 180.
            WHEN 5 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 130
                                i1 = 6
                                ii = 200.
            WHEN 6 THEN ASSIGN  iX = 960
                                iY = 1750
                                iH = 45
                                iW = 130
                                i1 = 7
                                ii = 220.
            WHEN 7 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 460
                                i1 = 8
                                ii = 240.
            WHEN 8 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 150
                                i1 = 9
                                ii = 260.
            WHEN 9 THEN ASSIGN  iX = iX + iW
                                iY = 1750
                                iH = 45
                                iW = 120
                                i1 = 10
                                ii = 280.
        END CASE.
    END.
    
    ASSIGN  tTextObj.iX-mm = iX
            tTextObj.iY-mm = iY.
    
    ii = ii + 1.

    tTextObj.cName      = SUBSTITUTE('Name=Text_&1' , TRIM(STRING(ii,'zz9'))).
    tTextObj.cX-mm      = SUBSTITUTE('X-mm=&1'      , TRIM(STRING(iX,'zzz9'))).
    tTextObj.cY-mm      = SUBSTITUTE('Y-mm=&1'      , TRIM(STRING(iY,'zzz9'))).
    tTextObj.cWidth-mm  = SUBSTITUTE('Width=&1'     , TRIM(STRING(iW,'zzz9'))).
    tTextObj.cHeight-mm = SUBSTITUTE('Height=&1'    , TRIM(STRING(iH,'zzz9'))).
    
    IF tTextObj.cTextValue = ''                OR
       INDEX(tTextObj.cTextValue, '=Text') > 0 THEN tTextObj.cTextValue = SUBSTITUTE('TextValue=Text_&1', TRIM(STRING(ii,'zz9'))).
    IF ii MOD 2 = 1 THEN tTextObj.cBgColour = 'BgColour=255,255,255'.
    ELSE                 tTextObj.cBgColour = 'BgColour=225,225,225'.
    
    iY = iY + iH.
END.

OUTPUT TO 'N:\20_Temp\Gebinde.vfr' NO-MAP NO-CONVERT.
FOR EACH tTextObj
        BY tTextObj.iX
        BY tTextObj.iY:
    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.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.                
OUTPUT CLOSE.