Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]


Vyhodnocovací funkce
List_all_Groups_with_Permissions
(Reference Lists)

Vytvořeno: 01-13-1997 14:01:32
Poslední změna: 12-09-2002 09:22:25
Outputs a list of all groups with permissions.
Modul

Module: Reference Lists

Zdrojový kód:

PROCEDURE List_all_Groups_with_Permissions()
BEGIN
/*
 Lists all groups with permissions
*/
  rbyte$="";
  permission$="";
  PRINT {BOLD,"Arial",12} "Seznam skupin uživatelů s přiřazenými právy ",NL(2);
  
  foundgroup%=0;
  FOREACH Group ORDER BY Name DO
     PRINT {"Arial",10,BOLD} Name,NL(2);
     foundgroup% = 1;
     temp$="";
     foundpermission%=0;
     FOREACH Grouppermission WHERE Group = Group.Name ORDER BY Objecttype DO
        foundpermission%=1;
        IF temp$<>Objecttype THEN
           CALL GetObjecttypeName(Objecttype,objecttypename$);
           PRINT{"Arial",10} objecttypename$,NL;
        END
        temp$=Objecttype;
        IF State<>"" THEN
           PRINT{"Arial",10} TAB(4),stav;
        ELSE
           PRINT{"Arial",10} TAB(4),"v každém stavu";
        END
        CALL Number2Bitmask(Operation,rbyte$);
        PRINT{"Arial",10} TAB(25), "Práva:";
        i%=2;
        IF Objecttype="Enterprisedatamodel" THEN
           limit%=7;
        ELSE
           limit%=8;
        END
        WHILE i% < limit% DO
            IF MID$(rbyte$,i%,1)="1" THEN
               CALL GetOperationName(Objecttype,i%,permission$);
               PRINT{"Arial",10} TAB(40),permission$,NL;
            END
            i%=i%+1;
        END
        PRINT{"Arial",10} NL;
    END

    IF foundpermission%=0 THEN
       PRINT{"Arial",10,ITALIC} TAB(4),"Nemá žádná práva.",NL;
    END
    PRINT{"Arial",10} NL;
  END
  
  IF foundgroup% = 0 THEN
    PRINT {"Arial",10,ITALIC} TAB(4), "V projektu nejsou žádné skupiny uživatelů.",NL;
  END
END
Generováno: 16.10.2003 7:41 Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf Generováno systémem case/4/0
Vygeneroval: Administrator Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\12811.htm (C) microTOOL GmbH 2002