1. Dezember 2014 19:19
MyTeamCodes := STRSUBSTNO('%1','');
---------- Dieser Code soll ersetzt werden -------------------------------------
TeamSalesperson.SETRANGE("Salesperson Code",USERID);
//-->alle Teams in denen ich bin
{
IF TeamSalesperson.FINDSET(FALSE,FALSE) THEN
  REPEAT
//    MyTeamCodes += '|' + TeamSalesperson."Team Code";
//    MyTeamCodes := COPYSTR(MyTeamCodes + '|' + TeamSalesperson."Team Code", 1,250);
    MyTeamCodes := COPYSTR(MyTeamCodes + '|' + TeamSalesperson."Team Code", 1,MAXSTRLEN(MyTeamCodes));
  UNTIL TeamSalesperson.NEXT = 0;
MyTeamCodes := DELCHR(MyTeamCodes,'<','|');
IF MyTeamCodes <> '' THEN
  Rec.SETFILTER("No. Series",'%1|%2','',MyTeamCodes)
ELSE
  Rec.SETFILTER("No. Series",'%1','');
---------- Durch diesen Code-------------------------------------
NewsHeader.FINDFIRST;
MESSAGE(FORMAT(CheckShow(NewsHeader."No.")));
IsOk := CheckShow(NewsHeaderCode);
EXIT(TRUE);