21. April 2009 11:20
21. April 2009 11:27
21. April 2009 11:48
21. April 2009 12:14
21. April 2009 13:25
21. April 2009 13:34
27. April 2009 09:41
//Suche nach dem Projektbereich(Kostenstelle des Users) <- Schleife, weil 2 Kostenstellen = 1 Projektbereich
RECUserSetup.GET(USERID);
RECKostenstellen.SETRANGE(RECKostenstellen.Name,RECUserSetup.Projektbereich);
IF RECKostenstellen.FIND('-') THEN
BEGIN
REPEAT
TXTKostenstellenFilter:= TXTKostenstellenFilter + FORMAT(RECKostenstellen.Code) + '|'
UNTIL RECKostenstellen.NEXT = 0;
TXTKostenstellenFilter:=COPYSTR(TXTKostenstellenFilter,1,(STRLEN(TXTKostenstellenFilter)-1));
END;
//Suchen nach dem Projekt, welches mindestens eine der gesuchten Kostenstelle enthält und markieren
RECJobLedgerEntry.SETFILTER(RECJobLedgerEntry."Global Dimension 1 Code",TXTKostenstellenFilter);
IF RECJobLedgerEntry.FIND('-') THEN BEGIN
REPEAT
Job.GET(RECJobLedgerEntry."Job No.");
IF (Job.MARK=FALSE) THEN BEGIN
Job.MARK:=TRUE;
END;
UNTIL RECJobLedgerEntry.NEXT = 0;
END;
//alle markierten Datensätze anzeigen
Job.MARKEDONLY(TRUE);
27. April 2009 09:50
..
RECJobLedgerEntry.SETFILTER("Global Dimension 1 Code",TXTKostenstellenFilter);
IF RECJobLedgerEntry.FIND('-') THEN BEGIN
..
27. April 2009 11:25
27. April 2009 11:27
27. April 2009 11:47