Oraclub in Tomsk

 Oraclub Tomsk . .

TR(dec, 4, 1) = 3 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 4, 1) = 4 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 4, 1) = 5 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 4, 1) = 6 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 4, 1) = 7 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 4, 1) = 8 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 4, 1) = 9 THEN : ret_sum := ret_sum || ''; : END IF; : IF SUBSTR(dec, 5, 1) = 2 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 3 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 4 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 5 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 6 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 7 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 8 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 5, 1) = 9 THEN : ret_sum := ret_sum || ''; : END IF; : IF SUBSTR(dec, 2, 2) = 10 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 11 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 12 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 13 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 14 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 15 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 16 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 17 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 18 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 2, 2) = 19 THEN : ret_sum := ret_sum || ' '; : END IF; : IF SUBSTR(dec, 5, 1) 1 THEN : IF SUBSTR(dec, 6, 1) = 0 THEN : IF SUBSTR(dec, 4, 2) '00' THEN : ret_sum := ret_sum || ' '; : END IF; : ELSIF SUBSTR(dec, 3, 1) = 1 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 2 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 3 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 4 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 5 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 6 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 7 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 8 THEN : ret_sum := ret_sum || ' '; : ELSIF SUBSTR(dec, 3, 1) = 9 THEN : ret_sum := ret_sum || ' '; : END IF; : END IF; : IF SUBSTR(dec, 7, 1) = 1 THEN : ret_sum := ret_sum || 'C'; : ELSIF SUBSTR(dec, 7, 1) = 2 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 7, 1) = 3 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 7, 1) = 4 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 7, 1) = 5 THEN : ret_sum := ret_sum || ''; : ELSIF SUBSTR(dec, 7, 1) = 6 THEN
CREATE OR REPLACE FUNCTION fsumprop (Fpar NUMBER) RETURN VARCHAR2 IS
 ret_sum VARCHAR2(100);
 dec varchar2(12);
 ed varchar2(12);
BEGIN
        dec := LPAD(TRUNC(Fpar, 0), 12, '0');
        IF SUBSTR(dec, 1, 1) = 1 THEN
         ret_sum := 'C';
        ELSIF SUBSTR(dec, 1, 1) = 2 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 3 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 4 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 5 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 6 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 7 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 8 THEN
         ret_sum := '';
        ELSIF SUBSTR(dec, 1, 1) = 9 THEN
:         ret_sum := '';
:        END IF;

:        IF SUBSTR(dec, 2, 1) = 2 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 3 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 4 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 5 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 6 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 7 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 8 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 2, 1) = 9 THEN
:         ret_sum := ret_sum || '';
:        END IF;

:        IF SUBSTR(dec, 2, 2) = 10 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 11 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 12 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 13 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 14 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 15 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 16 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 17 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 18 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 2, 2) = 19 THEN
:         ret_sum := ret_sum || ' ';
:        END IF;

:        IF SUBSTR(dec, 2, 1)  1 THEN
:         IF SUBSTR(dec, 3, 1) = 0 THEN
:            IF SUBSTR(dec, 1, 2)  '00' THEN
:               ret_sum := ret_sum || ' ';
:            END IF;
:         ELSIF SUBSTR(dec, 3, 1) = 1 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 2 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 3 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 4 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 5 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 6 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 7 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 8 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 3, 1) = 9 THEN
:               ret_sum := ret_sum || '  ';
:         END IF;
:        END IF;

:        IF SUBSTR(dec, 4, 1) = 1 THEN
:         ret_sum := ret_sum || 'C';
:        ELSIF SUBSTR(dec, 4, 1) = 2 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBS
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 7, 1) = 7 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 7, 1) = 8 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 7, 1) = 9 THEN
:         ret_sum := ret_sum || '';
:        END IF;

:        IF SUBSTR(dec, 8, 1) = 2 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 3 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 4 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 5 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 6 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 7 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 8 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 8, 1) = 9 THEN
:         ret_sum := ret_sum || '';
:        END IF;

:        IF SUBSTR(dec, 8, 2) = 10 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 11 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 12 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 13 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 14 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 15 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 16 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 17 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 18 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 8, 2) = 19 THEN
:         ret_sum := ret_sum || ' ';
:        END IF;

:        IF SUBSTR(dec, 8, 1)  1 THEN
:         IF SUBSTR(dec, 9, 1) = 0 THEN
:            IF SUBSTR(dec, 7, 2)  '00' THEN
:               ret_sum := ret_sum || ' ';
:            END IF;
:         ELSIF SUBSTR(dec, 9, 1) = 1 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 2 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 3 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 4 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 5 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 6 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 7 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 8 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 9 THEN
:               ret_sum := ret_sum || '  ';
:         END IF;
:        END IF;

:        IF SUBSTR(dec, 10, 1) = 1 THEN
:         ret_sum := ret_sum || 'C';
:        ELSIF SUBSTR(dec, 10, 1) = 2 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 3 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 4 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 5 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 6 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 7 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 8 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 10, 1) = 9 THEN
:         ret_sum := ret_sum || '';
:        END IF;

:        IF SUBSTR(dec, 11, 1) = 2 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 3 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 4 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 5 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 6 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 7 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 8 THEN
:         ret_sum := ret_sum || '';
:        ELSIF SUBSTR(dec, 11, 1) = 9 THEN
:         ret_sum := ret_sum || '';
:        END IF;

:        IF SUBSTR(dec, 11, 2) = 10 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 11 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 12 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 13 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 14 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 15 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 16 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 17 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 18 THEN
:         ret_sum := ret_sum || ' ';
:        ELSIF SUBSTR(dec, 11, 2) = 19 THEN
:         ret_sum := ret_sum || ' ';
:        END IF;

:        IF SUBSTR(dec, 11, 1)  1 THEN
:         IF SUBSTR(dec, 12, 1) = 0 THEN
:               ret_sum := ret_sum || ' ';
:         ELSIF SUBSTR(dec, 9, 1) = 1 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 2 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 3 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 4 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 5 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 6 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 7 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 8 THEN
:               ret_sum := ret_sum || '  ';
:         ELSIF SUBSTR(dec, 9, 1) = 9 THEN
:               ret_sum := ret_sum || '  ';
:         END IF;
:        END IF;
:     END;
:     RETURN(ret_sum);
: END ;
: /

UTILITY > >
Oraclub_Tomsk | News | Links | FAQ | DOC | | Utility | Software | |
: oraclub@ngs.ru