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.