| 12
 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