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
Permissions_for_System
(Administration)

Vytvořeno: 01-13-1997 15:12:43
Poslední změna: 12-11-2002 12:06:09
Outputs a list of permissions for systems in different states.
Modul

Module: Administration

Zdrojový kód:

PROCEDURE Permissions_for_System()
BEGIN
   
 PRINT {"ARIAL",12,BOLD} "Práva k objektu";
 PRINT{"Arial",12,BOLD,ITALIC} " Projekt", NL(2);
 rbyte$="";
 permission$="";
 permission%=0;
 i%=2;
 WHILE i% < 12 DO
    CALL GetOperationName("System",i%,permission$);
    founduser%=0;
    FOREACH Userpermission WHERE Objecttype = "System"
                             AND State = "" ORDER BY User DO
       permission%=1;
       CALL Number2Bitmask(operation,rbyte$);
       IF MID$(rbyte$,i%,1)="1" THEN
          IF founduser%=0 THEN
             PRINT{"Arial",10} NL, TAB(4), "Práva: ";
             PRINT{"Arial",10} permission$;
             PRINT{"Arial",10} TAB(40),"Uživatelé: ";
          END
          FOR User WHERE Login=Userpermission.User DO
              PRINT{"Arial",10} TAB(50),Fullname,NL;
          END
          founduser%=1;
       END
    END

    foundgroup%=0;
    FOREACH Grouppermission WHERE Objecttype = "System"
                             AND State = "" ORDER BY Group DO
      permission%=1;
      CALL Number2Bitmask(operation,rbyte$);
      IF MID$(rbyte$,i%,1)="1" THEN
         IF foundgroup%=0 THEN
            IF founduser%=0 THEN
               PRINT{"Arial",10} NL, TAB(4), "Práva: ";
               PRINT{"Arial",10} permission$;
            END
            PRINT{"Arial",10} TAB(40),"Skupiny uživatelů: ";
            PRINT{"Arial",10} TAB(50),Group,NL;
         END
         foundgroup%=1;
      END
    END
    i%=i%+1;
 END
 IF permission%=0 THEN
    PRINT{"Arial",10,ITALIC} TAB(4), "Nejsou definována žádná práva.",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\12299.htm (C) microTOOL GmbH 2002