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
Vypis_koment_po20
(Data Element)

Vytvořeno: 09-18-2003 09:39:36
Poslední změna: 10-14-2003 00:08:54
Modul

Module: Data Element

Zdrojový kód:

PROCEDURE Vypis_koment_po20 FOR Data
BEGIN
 FOR Object WHERE ID = Object DO
  COM$ = TRIM$(Comment);
 END
 P% = 5;
 WHILE P% > 0 DO
  P% = P% - 1;
  Delka% = LEN(COM$);
  IF Delka% = 0 THEN
   PRINT {BOLD,"ARIAL CE",8} """"",";
  ELSIF Delka% <= 20 THEN
   PRINT {BOLD,"ARIAL CE",8}"""", COM$, """,";
   COM$ = "";
  ELSE
   POS% = 0;
   KUS$ = "";
   WHILE POS% <= 20 DO
    POS1% = INSTR(COM$, " ");
    IF POS1% = 0 THEN
     IF KUS$ <> "" THEN
      PRINT {BOLD,"ARIAL CE",8}"""", KUS$, """,";
     ELSE
      PRINT {BOLD,"ARIAL CE",8}"""", MID$(COM$,1,20), """,";
      COM$ = RIGHT$(COM$, LEN(COM$) - 20);
     END
     POS% = 21;
    ELSIF POS% + POS1% <= 20 THEN
     KUS$ = KUS$ + MID$(COM$,1,POS1%);
     COM$ = RIGHT$(COM$, LEN(COM$) - POS1%);
     POS% = POS% + POS1%;
    ELSE
     IF KUS$ <> "" THEN
      PRINT {BOLD,"ARIAL CE",8}"""", KUS$, """,";
     ELSE
      PRINT {BOLD,"ARIAL CE",8}"""", MID$(COM$,1,20), """,";
      COM$ = RIGHT$(COM$, LEN(COM$) - 20);
     END
     POS% = 21;
    END
   END
  END
 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\716734293.htm (C) microTOOL GmbH 2002