gw udah dapet jawabannya,
thanks untuk diri gw sendiri...karena udah nemu jawabannya
cuma simple ternyata
gw cuma mengganti
loop yang buat FOR X IN 0..(FTGL_MAX-FTGL_MIN) LOOP
di ganti dengan cursor aja, tinggal select distinct.
Thanks..
On 4/30/07, dedy afriyanto <[EMAIL PROTECTED]> wrote:
>
> saya punya problem nih,
>
> sebenarnya idenya simple cuma mau ngecheck pada TBL_TRANS_TEST
>
> nah sebenarnya cuma mau memeriksa tgl_trans yang sudah terisi sampe kapan,
> dan jika unsur A,B,C,D, E belum ada unsur tersebut akan ditambahkan dan
> nilai transnya 0.
>
> itu aja sih.
>
> Thanks..
>
> TGL_TRANS GROUP_TRANS NILAI_TRANS
> 01/01/2007 A 10
> 01/01/2007 B 20
> 01/01/2007 C 30
> 02/01/2007 B 10
> 02/01/2007 C 20
>
>
> saya meloop tgl_min, dan tgl_max
>
> >>POTONGAN ILUSTRASI
>
> CURSOR CR_GROUP
> IS
> SELECT DISTINCT V.GROUP_TRANS
> FROM GROUP_TRANS V;
>
>
> FTGL_MIN DATE;
> FTGL_MAX DATE;
> FTGL_TRANS DATE;
>
> BEGIN
>
> SELECT MIN(TGL_TRANS) AS TGL_MIN, MAX(TGL_TRANS) INTO FTGL_MIN, FTGL_MAX
> FROM TBL_TRANS
> WHERE KD_TRANS=2 AND GROUP_TRANS IN('A','B','C');
>
>
>
> END;
>
> FOR X IN 0..(FTGL_MAX-FTGL_MIN) LOOP
>
> FTGL_TRANS= FTGL_MIN+X;
>
> FOR CR_MGP IN CR_GROUP LOOP
> SELECT
> CASE WHEN
> (
> SELECT GROUP_TRANS
> FROM TBL_TRANS_TEST
> WHERE GROUP_TRANS_NEW=CR_MGP.GROUP_TRANS AND
> TGL_TRANS=TO_DATE(FTGL_PMKN ,'DD/MM/YYYY')
> ) IS NULL THEN 'XXXXXX'
> ELSE
> (
> SELECT GROUP_TRANS
> FROM TBL_TRANS_TEST
> WHERE GROUP_TRANS_NEW=CR_MGP.GROUP_TRANS AND
> TGL_TRANS=TO_DATE(FTGL_PMKN ,'DD/MM/YYYY')
> ) END AS GROUP_TRANS
> FROM DUAL;
>
> END LOOP;
> END LOOP;
>
> >>
>
[Non-text portions of this message have been removed]
