22. November 2010 21:51
 :
:23. November 2010 09:52
23. November 2010 15:35
Name   DataType   Subtype   Length
GtmName   Text      50
i   Integer      
VV_Code   Code      10
i := 0;
VV_Code := '01-001';
REPEAT
   i := i + 1;
   If i <> 3 Then                         //wenn die Controls nicht gefüllt sind, werdern sie nicht angezigt
      GtmName[i] :=VV_Code;
   VV_Code := INCSTR(VV_Code);
UNTIL i = 50;
VV_Code := '02-001';
REPEAT
   i := i + 1;
   GtmName[i] :=VV_Code;
   VV_Code := INCSTR(VV_Code);
UNTIL i = 100;
VV_Code := '03-001';
REPEAT
   i := i + 1;
   GtmName[i] :=VV_Code;
   VV_Code := INCSTR(VV_Code);
UNTIL i = 138;