24. Juni 2010 14:04
24. Juni 2010 14:11
OlliSH hat geschrieben:wird der Code aus der Form im OnAfterGetRecord in der Page in eine neue Funktion geschrieben die ebenfalls OnAfterGetRecord heißt
24. Juni 2010 14:26
24. Juni 2010 14:42
OlliSH hat geschrieben:Wie und wo kann ich denn erkennen mit welcher Transformationtool- Version ich arbeite?
In der Form gibts ja den Trigger OnAfterGetRecord, der ist auch mit Code versehen
24. Juni 2010 14:57
DSupVerknKopf.INIT;
IF ("Verknuepfung zu" <> '') AND (Verknuepfungsart <> Verknuepfungsart::Info) THEN BEGIN
IF Verknuepfungszeilenfilter = '' THEN BEGIN
IF DSupVerknKopf.GET("Verknuepfung zu") THEN BEGIN
//Erledigt := DSupVerknKopf.Erledigt;
IF GETFILTER(Erledigt) <> '' THEN
COPYFILTER(Erledigt,DSupVerknKopf."Erledigt-Filter")
ELSE
DSupVerknKopf.SETRANGE("Erledigt-Filter",FALSE);
DSupVerknKopf.CALCFIELDS("Stunden benoetigt","Stunden geschaetzt","Stunden Ueberschuß");
"Stunden benoetigt" := DSupVerknKopf."Stunden benoetigt";
"Stunden geschaetzt" := DSupVerknKopf."Stunden geschaetzt";
"Stunden Ueberschuß" := DSupVerknKopf."Stunden Ueberschuß";
"Termin Kunde" := DSupVerknKopf."Termin Kunde";
WeitergeleitetAn := DSupVerknKopf.WeitergeleitetAn;
Position := DSupVerknKopf."Arbeitspaket Position";
END;
END ELSE BEGIN
DSupVerknZeile.SETRANGE("Supportnr.","Verknuepfung zu");
IF STRPOS(Verknuepfungszeilenfilter,',') = 0 THEN BEGIN // Verknüpfung Zeilenbereich
DSupVerknZeile.SETCURRENTKEY("Supportnr.","Zeilennr.");
DSupVerknZeile.SETFILTER("Zeilennr.",Verknuepfungszeilenfilter);
END ELSE BEGIN
DSupVerknZeile.SETCURRENTKEY(Kategorie1);
DSupVerknZeile.SETFILTER(Kategorie1,SELECTSTR(1,Verknuepfungszeilenfilter));
DSupVerknZeile.SETFILTER(Kategorie2,SELECTSTR(2,Verknuepfungszeilenfilter));
END;
DSupVerknZeile.SETRANGE(Erledigt,FALSE);
IF NOT DSupVerknZeile.FIND('-') THEN
Erledigt := TRUE;
DSupVerknZeile2.COPY(DSupVerknZeile);
DSupVerknZeile2.SETRANGE(Erledigt);
DSupVerknZeile2.SETFILTER("Termin Kunde",'<>%1',0D);
DSupVerknZeile2.SETCURRENTKEY("Supportnr.","Termin Kunde");
IF DSupVerknZeile2.FIND('-') THEN
"Termin Kunde" := DSupVerknZeile2."Termin Kunde";
DSupVerknZeile.SETCURRENTKEY(Verknuepfungsart,"Verknuepfung zu",Erledigt);
DSupVerknZeile.SETRANGE(Verknuepfungsart,DSupVerknZeile.Verknuepfungsart::Info,DSupVerknZeile.Verknuepfungsart::Erledigung);
DSupVerknZeile.SETRANGE("Verknuepfung zu",'');
IF GETFILTER(Erledigt) <> '' THEN
COPYFILTER(Erledigt,DSupVerknZeile.Erledigt)
ELSE
DSupVerknZeile.SETRANGE(Erledigt,FALSE);
DSupVerknZeile.CALCSUMS("Stunden benoetigt","Stunden geschaetzt","Stunden Ueberschuß");
"Stunden benoetigt" := DSupVerknZeile."Stunden benoetigt";
"Stunden geschaetzt" := DSupVerknZeile."Stunden geschaetzt";
"Stunden Ueberschuß" := DSupVerknZeile."Stunden Ueberschuß";
END;
END ELSE
IF Verknuepfungszeilenfilter <> '' THEN BEGIN
IF STRPOS(Verknuepfungszeilenfilter,',') <> 0 THEN BEGIN //Verknüpfungsfilter mit Kategorien
DSupVerknZeilen.SETCURRENTKEY(Kategorie1);
DSupVerknZeilen.SETFILTER(Kategorie1,SELECTSTR(1,Verknuepfungszeilenfilter));
DSupVerknZeilen.SETFILTER(Kategorie2,SELECTSTR(2,Verknuepfungszeilenfilter));
IF DSupVerknZeilen.FIND('-') THEN;
END;
END;
24. Juni 2010 15:21
OlliSH hat geschrieben:Hab jetzt mal nach der Version geguckt. Meine hat folgende Version 6.0.29626.0
Und hier ist der Code vielleicht siehst du ja etwas was besonderes ist
24. Juni 2010 15:38
"DSupVerknKopf.StatusHideValue" := FALSE;
BeschreibungIndent := 0;
"DSupVerknKopf.StatusHideValue" := FALSE;
BeschreibungIndent := 0;
OnAfterGetRecord;
DSupVerknKopfStatusOnFormat;
TerminKundeOnFormat;
StundengeschaetztOnFormat;
StundenbenoetigtOnFormat;
StundenUeberschussOnFormat;
24. Juni 2010 16:54
OlliSH hat geschrieben:Die ganzen mit OnFormat ist klar, das ist so laut Rules aber die ersten beiden Zeilen sind merkwürdig. )
25. Juni 2010 07:32
"DSupVerknKopf.StatusHideValue" := FALSE;
BeschreibungIndent := 0;
25. Juni 2010 08:31
25. Juni 2010 08:40
25. Juni 2010 08:45
OlliSH hat geschrieben:Noch eine kleine Frage wie kann ich den Beitrag auf GELÖST setzen?
25. Juni 2010 09:09
25. Juni 2010 13:09
Natalie hat geschrieben:Man kann übrigens durch das Bearbeiten einer anderen Datei einstellen, was alles geloggt wird; leider weiß ich nicht mehr wo und wie genau.