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);