1. SQL / Говнокод #9575

    −123

    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
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    -- Data Blocks
-- TYPE: TRIGGER
-- OBJECT: BUTTONS
-- NAME: WHEN-RADIO-CHANGED

DECLARE

     BEGIN
       IF    :buttons.instalments = 'I' THEN 
             create_instalments;       -- Payment by instalment selected
       ELSIF :buttons.instalments = 'F' THEN 
             check_instalments;        -- Full payment selected                      
       END IF;

    END;

-- Meanwhile in Program Units

PROCEDURE create_instalments IS

BEGIN
     INSTALMENT_PLAN_PKG.CREATE_CLIENT_PLAN(
       :header.astpd_client_group_id, -- p_client_id                       
       :header.revenue_type_id,       -- p_revenue_type
       :header.assessment_year,                       -- p_assessment_year );
END;

-- Meanwhile in Packages (Hello Oracle)
PROCEDURE CREATE_CLIENT_PLAN( /*some parameters here*/) IS
    /*some variable and cursor declarations here*/
BEGIN
       FOR r_plan IN c_plan
        LOOP
            FOR r_plan_options IN c_plan_option(r_plan.plan_id)
            LOOP
               INSERT INTO CLIENT_PLAN ( /* fields here */)
                         VALUES (/* stuff here */);

               create_client_plan_instalments(/* parameters here and YES there IS another FOR-LOOP-INSERT in proc body*/);

            END LOOP; --End of r_plan loop
        END LOOP;  -- End r_plan_options loop
END;

    MVC? Не, не слышал.

    Запостил: ezg, 01 Марта 2012

    Комментарии (1) RSS

    Добавить комментарий