20. September 2006 09:34
20. September 2006 10:07
20. September 2006 10:15
PROCEDURE TransferNonEmptyTextFields@1000000000(VAR Record1@1000000009 : Record 36;VAR Record2@1000000008 : Record 36);
VAR
SourceRecRef@1000000001 : RecordRef;
DestRecRef@1000000000 : RecordRef;
SourceFieldRef@1000000007 : FieldRef;
DestFieldRef@1000000006 : FieldRef;
Count@1000000005 : Integer;
i@1000000004 : Integer;
FieldType@1000000003 : Code[20];
Value@1000000002 : Text[512];
BEGIN
SourceRecRef.GETTABLE(Record1);
DestRecRef.GETTABLE(Record2);
Count := SourceRecRef.FIELDCOUNT;
FOR i := 1 TO Count DO BEGIN
SourceFieldRef := SourceRecRef.FIELDINDEX(i);
FieldType := FORMAT(SourceFieldRef.TYPE);
IF (FieldType = 'CODE') OR (FieldType = 'TEXT') THEN BEGIN
Value := FORMAT(SourceFieldRef.VALUE);
IF Value <> '' THEN BEGIN
DestFieldRef := DestRecRef.FIELDINDEX(i);
DestFieldRef.VALUE(Value);
END;
END;
END;
END;
20. September 2006 10:21
20. September 2006 10:58
20. September 2006 11:13
Für den Benutzer ist es zu unübersichtlich, auch bei korrekter Filterung, Zusammmenhänge zu erfassen, da zusammenhängende Datensätze nicht optisch zusammenhängend dargestellt werden.
20. September 2006 12:40
RecordRef.GETTABLE(Rec);
UmbauFunktion(RecordRef.NUMBER);
20. September 2006 13:57
20. September 2006 14:53
20. September 2006 20:16
globi hat geschrieben:[...]
Vielen Dank für eure Hilfe.
Bin richtig froh gibt es dieses Forum