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.