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
|
CURSOR C_COMPTE IS SELECT CPT.NUM_CPT,
CPT.COD_DEV,
CPT.RIB_CPT,
DECODE(PER.TYP_PER,'P',
PER.COD_TIT_COU||' '||PER.NOM_PER||' '||PER.PRE_PER,
DECODE(PER.SIG_PER,NULL,PER.NOM_PER,PER.NOM_PER||' ('||PER.SIG_PER||')')) LIB_CPT,
CPT.COD_UG COD_UG_CPT,
UG.LIB_UG
FROM BTK.IB_COMPTE CPT,BTK.CM_PERSONNE PER ,BTK.RF_UG UG
WHERE CPT.NUM_CPT BETWEEN '0000000000000' AND '9999999999999'
and CPT.NUM_CPT=LPAD(P_NUM_CPT,11,'0')
AND CPT.ENV_REL='O'
AND CPT.TYP_CPT='C'
AND CPT.COD_STA !='012'
AND CPT.DAT_OUV_CPT<= V_DAT_FIN
AND PER.PIN_CLT NOT LIKE '40%'
AND DECODE(PER.COD_TYP_PID,'09',ADD_MONTHS(NVL(PER.DAT_NAI_PER,SYSDATE-10000),240),SYSDATE-1)<SYSDATE
AND CPT.NUM_CPT IN(SELECT NUM_CPT FROM BTK.CB_MOUVEMENT MVT WHERE MVT.DAT_JOU >= V_DAT_DEB
AND MVT.DAT_JOU<=V_DAT_FIN AND MVT.COD_STA!='004'
AND MVT.COD_OPE NOT IN('AGDEB','AGCRE'))
AND CPT.COD_UG =NVL(P_COD_UG,CPT.COD_UG)
AND CPT.COD_PER=PER.COD_PER
AND CPT.COD_UG=UG.COD_UG
ORDER BY CPT.NUM_CPT; |
Partager