filters.pas

*****
MakeTextFilter(VAR TextFilterText : Text) : Integer
*****
Position := 1;
Length := STRLEN(TextFilterText);
ReadCharacter(' ',TextFilterText,Position,Length);
IF FindText(PartOfText,TextFilterText,Position,Length) THEN
  CASE PartOfText OF
    COPYSTR('ME',1,STRLEN(PartOfText)),COPYSTR(MeText,1,STRLEN(PartOfText)):
      BEGIN
        Position := Position + STRLEN(PartOfText);
        TextFilterText := USERID;
      END;
    COPYSTR('USER',1,STRLEN(PartOfText)),COPYSTR(UserText,1,STRLEN(PartOfText)):
      BEGIN
        Position := Position + STRLEN(PartOfText);
        TextFilterText := USERID;
      END;
    COPYSTR('COMPANY',1,STRLEN(PartOfText)),COPYSTR(CompanyText,1,STRLEN(PartOfText)):
      BEGIN
        Position := Position + STRLEN(PartOfText);
        TextFilterText := COMPANYNAME;
      END;
    COPYSTR('MYCUSTOMERS',1,STRLEN(PartOfText)),COPYSTR(MyCustomersText,1,STRLEN(PartOfText)):
      BEGIN
        Position := Position + STRLEN(PartOfText);
        GetMyFilterText(TextFilterText,DATABASE::"My Customer");
      END;
    COPYSTR('MYITEMS',1,STRLEN(PartOfText)),COPYSTR(MyItemsText,1,STRLEN(PartOfText)):
      BEGIN
        Position := Position + STRLEN(PartOfText);
        GetMyFilterText(TextFilterText,DATABASE::"My Item");
      END;
    COPYSTR('MYVENDORS',1,STRLEN(PartOfText)),COPYSTR(MyVendorsText,1,STRLEN(PartOfText)):
      BEGIN
        Position := Position + STRLEN(PartOfText);
        GetMyFilterText(TextFilterText,DATABASE::"My Vendor");
      END;
    ELSE
      EXIT(Position);
  END;
EXIT(0);