Step 7 Teile ID Speicher mit Array of Char 16Byte

[tommylik]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Wulson,

Vielen Dank für diese Variante. Sie funktioniert auch.

Aber Teil 0 ist bei deiner Variante überflüssig geworden.

Deine Variante schreibt vom Quell-DB direkt auf Teil 1.

FOR j:= 1 TO 16 BY 1 DO
         "X_DB2390_NIOTeile".Schicht[Schicht].Teil[1].PraegeCode[j] := "X_DB100_NIO_Teile".NIO_ID[j];
    END_FOR;

Ich denke der Code vorher verschiebt alles oder?

FOR i := 299 TO 1 BY -1 DO
            FOR j := 1 TO 16 BY 1 DO
                "X_DB2390_NIOTeile".Schicht[Schicht].Teil[i].PraegeCode[j] := "X_DB2390_NIOTeile".Schicht[Schicht].Teil[i-1].PraegeCode[j];
            END_FOR;
        END_FOR;

Vielen Dank nochmal.

Grüße Tommylik