Salut,

Sa nu credeti ca numai oamenii fac greseli cand programeaza... uite ca si codul autogenerat de sql stie sa dea cu bata-n balta (nu ca n-ar fi fost programat tot de un om).

"Salut,

Cautand prin cod la lucru am dat peste functia asta foarte interesanta si m-am gandit direct la tine.

Functia returneaza 1 daca in tabela vf_su_pos exista un record cu valoarea coloanei no_pos_rgp egala cu cea a parametrului si 0 altfel.

Comentariile sunt in franceza ... daca trebe le traduc ;)
...

CREATE OR REPLACE FUNCTION pc_bas_is_pos_rgp (p_no_pos VARCHAR2)
RETURN NUMBER
DETERMINISTIC
IS
    v_version          su_ano_his.version%TYPE := '@(#) VERSION 01a $Revision$';
    v_nom_obj          su_ano_his.nom_obj%TYPE := 'pc_bas_is_pos_rgp';
    v_etape            su_ano_his.txt_ano%TYPE := 'Declare';
    v_cod_err_su_ano    su_ano_his.cod_err_su_ano%TYPE := NULL;
    err_except          EXCEPTION;
    v_ret              NUMBER := 0; -- variable de retour.
    v_is_pos_rgp        BOOLEAN := FALSE; -- variable indiquant si c'est un poste de regroupement.

    -- ----------------------
    -- Curseur permettant de recuperer les postes regroupes sous le poste p_no_pos.
    -- ----------------------
    CURSOR c_pos_rgp (x_no_pos su_pos.no_pos%TYPE) IS
        SELECT no_pos
          FROM vf_pc_pos
        WHERE no_pos_rgp = x_no_pos;

    r_pos_rgp          c_pos_rgp%ROWTYPE;

BEGIN
    v_etape := '-- Debut --';
    IF su_global_pkv.v_niv_dbg >= 3 THEN
        su_bas_put_debug(v_nom_obj||' : p_no_pos = ' || p_no_pos);
    END IF;

    v_etape := '-- Rch si il existe un(des) poste(s) regroupe sous le poste p_no_pos --';
    FOR r_pos_rgp IN c_pos_rgp(p_no_pos)
    LOOP
        EXIT WHEN v_is_pos_rgp = TRUE;
        IF v_is_pos_rgp <> TRUE THEN
            v_is_pos_rgp := TRUE;
        END IF;
    END LOOP;

    IF v_is_pos_rgp = TRUE THEN
        v_ret := 1;
    ELSE
        v_ret := 0;
    END IF;

    RETURN v_ret;
END;
"

Este musai.

Hello

http://2.bp.blogspot.com/_W0LhV_bleMQ/Sjipwv3pMkI/AAAAAAAABsg/dEEx9mW0G7c/s1600-h/Picture+1.png

Descoperirea nu-mi apartine mie, ci lui Alxx, aici:

http://fieldbeatings.blogspot.com/2009/06/underpaid-developers.html

care a fost de acord cu trimiterea ei spre situl de blani! :)

Toate bune!

Vlad

Ce mai poti sa zici. Cand valorile din forma se duc pe calea lu' Dodo, tot ce ramane in urma lor este blana. In engleza fur.

Dan Brumbea zice:

"Salut,

Iata peste ce am dat in clipa in care mi-am bagat nasul intr-o aplicatie ASP 3.0 mai veche:

Aceasta este o monstra (pentru ca aceasta nu este o mostra) de programare lejera, fara batai de cap si fara incredere in baza de date. Cum sa ai incredere ca Identity functioneaza?

O noua secta…programatorii care nu au incredere in Identity si prefera sa faca ei ceva similar.

De ce sa faci ceva simplu cand poti sa-l faci de-a dreptu’ complicat?

Premiul “Blana de Aur” merge la:

var idc_max=0;
rs2 = conn.Execute("select max(id) from tbl");
if(!rs2.EOF)
{
                idc_max = rs2(0).value;
}

rs3=conn.Execute("select * from tbl where clientId="+emptynl(clientId));

if(rs3.EOF)
{
  var query1= "insert into tbl (id,clientId) values (" +

 (idc_max + 1)     + "," +

 onclientid + ")";

 conn.Execute(query1);
}

"

Musai ca suntem de acord cu el, si trebuie sa dam puncte pentru naivitatea debordanta a implementarii.

Operatia s-a terminat cu succes, dar ce ar fi sa aruncam si o exceptie in caz ca e cineva interesat ?
Blana periata de Mishu.

Miscarea mouse-ului trebuie efectuata in cercuri la inceput mici, pe urma din ce in ce mai largi, pentru ca datele citite din sursa Oracle sa vina cat mai uniform si sa se distribuie pe toata suprafata foii Excel, fara a se aduna in cocoloase. Necesita cateva luni bune de antrenament, dar in final, veti avea un om calificat la locul de munca in importul datelor cu ajutorul miscarilor elaborate ale incheieturii mainii.

Articolul din KB, aici

    if qtmp.RecordCount > 0 then
        Integrareweb := qtmp.FieldByName('valoare').AsString
    else
        Integrareweb := '000';

    Integrareweb := '100';

In Blanar Developer Network zice clar: Nici un DELETE FROM fara WHERE, nici o masa fara peste oceanic congelat.