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;