1. Список говнокодов пользователя slbsomeone

    Всего: 12

  2. SQL / Говнокод #14590

    −157

    1. 1
    2. 2
    3. 3
    4. 4
    SELECT ...
    FROM ...
    WHERE (CASE WHEN big_part = 1 AND blk_flag = 2 THEN -1 ELSE 0 END) <> -1 
    ;

    slbsomeone, 15 Февраля 2014

    Комментарии (2)
  3. SQL / Говнокод #14508

    −167

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    PROCEDURE login_attr(a_id IN CHAR, a_pw IN VARCHAR2, v_ret IN OUT VARCHAR2)
    IS
       v_count INTEGER;
    BEGIN
       v_count := 0;
    
       SELECT NVL (COUNT (attrib_desc), 0)
         INTO v_count
         FROM tab_attr a,
              tab_users b
        WHERE a.msc_cd = b.user_dept
          AND a.attr_cd = 'CD'
          AND lattr_cd = 'ABCD'
          AND UPPER (user_no) = UPPER (a_id)
          AND UPPER (user_pw) = UPPER (a_pw);
    
       IF v_count > 0 THEN
          SELECT attrib_desc || '@' || user_lang || '@' || user_autoimg ||
                 '@' || user_imgtime || '@' || user_loc || '@' ||
                 user_dept
            INTO v_ret
            FROM tab_attr a,
                 tab_users b
           WHERE a.msc_cd = b.user_dept
             AND a.attr_cd = 'CD'
             AND lattr_cd = 'ABCD'
             AND UPPER (user_no) = UPPER (a_id)
             AND UPPER (user_pw) = UPPER (a_pw);
       ELSE
          v_ret := ' ';
       END IF;
    
    END;

    Нам нужно больше селектов.

    P.S. почему в предпросмотре язык Java, хотя выбран SQL?

    slbsomeone, 05 Февраля 2014

    Комментарии (10)
  4. SQL / Говнокод #13059

    −172

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    CREATE OR REPLACE TRIGGER trig1
    BEFORE INSERT
    ON tab1 
    REFERENCING NEW AS new OLD AS old
    FOR EACH ROW
    DECLARE
      tmpVar tab1.budat%TYPE;
      v_cd   tab2.cd%TYPE;
    BEGIN
      tmpVar := to_char(sysdate-1, 'YYYYMMDD');
      SELECT f_get_code INTO v_cd FROM dual;
    
      IF v_cd = 'C1' THEN
        :new.budat := tmpVar;
      END IF;
    END trig1;

    Ну почему?
    Ну почему не просто

    IF f_get_code = 'C1' THEN
    :new.budat := to_char(sysdate-1, 'YYYYMMDD');
    END IF;

    slbsomeone, 28 Мая 2013

    Комментарии (5)
  5. Куча / Говнокод #13044

    +130

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    Class barcode
    	...
    	Dim CharData
    
    	Dim CharNumber
    
    	Public Function GetHTMLBar(BarData  ,  BarHeight  )
    		...
    		For lop = 1 To Len(x)
    			For s = 0 To UBound(CharData)
    					...
    					tsum = tsum + (CLng(CharNumber(s)) * lop)
    					...
    				End If
    			Next 
    		Next 
    	End Function
    
    	Private Sub Class_Initialize()
    		CharNumber = Split("0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106", ",")
    		...
    	End Sub
    End class

    VBScript.
    Массив, содержащий собственные индексы?

    slbsomeone, 24 Мая 2013

    Комментарии (7)
  6. SQL / Говнокод #12951

    −167

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    CASE
       WHEN TO_CHAR (SYSDATE, 'hh24mi') >= '0000'
              AND TO_CHAR (SYSDATE, 'hh24mi') <= '0559'
       THEN
           TO_CHAR (SYSDATE - 1, 'yyyymmdd')
       ELSE
           TO_CHAR (SYSDATE, 'yyyymmdd')
    END

    Oracle.
    Наверное хотели sysdate - 6/24

    slbsomeone, 29 Апреля 2013

    Комментарии (4)
  7. SQL / Говнокод #12773

    −171

    1. 1
    pSQL.append("\n  ,to_char (TO_DATE(oub_tm, 'HH24:MI:SS'),'HH24:MI:SS') AS oub_tm ");

    Строка в JSP файле.
    SQL для базы Оракл.
    столбец oub_tm в таблице имеет тип VARCHAR2(6)

    slbsomeone, 21 Марта 2013

    Комментарии (2)
  8. SQL / Говнокод #8343

    −141

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    CREATE MATERIALIZED VIEW LEASE_NODES_SUMMARY_SDS
    ...
    AS
    SELECT
    ...
    FROM lease_nodes_sds;
    DECLARE
      v_count NUMBER:=0;
    BEGIN
      LOOP
      SELECT COUNT(1) INTO v_count FROM lease_nodes_summary_sds;
      EXIT WHEN v_count>0;
      END LOOP;
    END;

    Торопиться некуда. Будем ждать пока появятся строки в lease_nodes_sds...

    slbsomeone, 28 Октября 2011

    Комментарии (16)
  9. SQL / Говнокод #8194

    −119

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    ...
          IF  i.TYPE IS NOT NULL  AND i.TYPE IS NOT NULL  THEN
           INSERT INTO R_ACTIVITY_PARAMETER( ACTIVE_FLAG,PROPERTY,PARAMETER_DOMAIN,SOURCE,DESCRIPTION,CODE)
             VALUES('1',i.TYPE,i.R_ACTIVITY_1_INS_180,i.SOURCE_TYPE,i.DESCRIPTION,i.TYPE);
    ...

    Oracle 10.2
    Может быть это какой-то "нездоровый" кодогенератор...

    slbsomeone, 14 Октября 2011

    Комментарии (10)
  10. SQL / Говнокод #8193

    −110

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    UPDATE ... 
    SET ...
    WHERE ...
         AND NVL(fndr_constraint,'ABC')=NVL('','ABC')
    ...

    Oracle 10.2 продакшн код.
    Это прям какое-то нездоровое влечение к NVL...

    slbsomeone, 14 Октября 2011

    Комментарии (5)
  11. SQL / Говнокод #8161

    −110

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    ...
          IF  i.R_LITHOLOG_1_UPD_173 IS NOT NULL  AND i.R_LITHOLOG_1_INS_69 IS NOT NULL  THEN
           INSERT INTO R_LITHOLOGY( SOURCE,DESCRIPTION,CODE,NAME,ACTIVE_FLAG)
             VALUES(i.SOURCE,i.DESCRIPTION,i.R_LITHOLOG_1_UPD_173,i.CODE,NVL(i.R_LITHOLOG_1_INS_69,'1'));
    ...

    Вдруг i.R_LITHOLOG_1_INS_69 IS NULL ?
    Но почему тогда к i.R_LITHOLOG_1_UPD_173 такое доверие?

    slbsomeone, 11 Октября 2011

    Комментарии (3)