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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
| /* Formatted on 10/08/2009 17:36:14 (QP5 v5.115.810.9015) */
SELECT /* POLICE_RECHERCHE - M_SQL_SELECT_LISTE_POLICE2 */
DISTINCT
laPolice.POL_IDENT POL_IDENT,
laPolice.POL_NUMPOL POL_NUMPOL,
laPolice.POL_NUM_DOSSIER POL_NUM_DOSSIER,
laPolice.POL_CODETAT POL_CODETAT,
laPolice.POL_DATDEB POL_DATDEB,
DECODE (
PAS_CODE_PRODUIT,
'MAP',
(SELECT DECODE (
polices.POL_CODETAT,
0,
'PRE-CONTRAT',
96,
'CONTRAT SANS EFFET',
1,
DECODE (
NVL (PRIMEP.NBP, 0),
1,
DECODE (NVL (PRIMEA.NBA, 0),
0, 'DEVIS',
'DEVIS AVENANT'),
'EN COURS'
)
)
ETAT_CONTRAT
FROM F_POLICES polices,
( SELECT COUNT (PRM_IDENT) NBA, PRM_PTRPOLIDENT
FROM F_PRIME
WHERE PRM_TYPE = 'A'
GROUP BY PRM_PTRPOLIDENT) PRIMEA,
( SELECT COUNT (PRM_IDENT) NBP, PRM_PTRPOLIDENT
FROM F_PRIME
WHERE PRM_TYPE = 'P'
GROUP BY PRM_PTRPOLIDENT) PRIMEP
WHERE PRIMEA.PRM_PTRPOLIDENT(+) = polices.POL_IDENT
AND PRIMEP.PRM_PTRPOLIDENT(+) = polices.POL_IDENT
AND polices.POL_PTRPASID = 1254
AND polices.pol_ident = laPolice.POL_IDENT),
UPPER (TPE_LIBELLE)
)
TPE_LIBELLE,
CL_CODPOST,
CL_VILLE,
CL_CODE,
CL_NOMAPPEL,
BAS_CODE_BRANCHE,
PAS_CODE_PRODUIT,
'' SOR_CODE_PRODUCT
FROM F_POLICES laPolice,
F_CLIENTS,
F_PRODUITASS,
F_BRANCHEASS,
F_SIT_OBJET_RISQUE,
T_POL_ETAT,
F_INTERMEDIAIRE
WHERE SUBSTR (CL_CODPOST, 1, 2) = '82'
AND PAS_IDENT = 204
AND laPolice.POL_PTRCLID = CL_IDENT
AND PAS_IDENT = laPolice.POL_PTRPASID
AND BAS_IDENT = PAS_PTRBASID
AND ( (F_SIT_OBJET_RISQUE.SOR_IDENT =
(SELECT MIN (SOR_IDENT)
FROM F_SIT_OBJET_RISQUE s2
WHERE s2.SOR_PTRPOLID = POL_IDENT
AND s2.SOR_PTRSORSUIVID = 0))
OR (F_SIT_OBJET_RISQUE.SOR_IDENT IS NULL))
AND SOR_PTRPOLID(+) = laPolice.POL_IDENT
AND SOR_PTRSORSUIVID(+) = 0
AND TPE_IDENT = laPolice.POL_PTRTPEIDENT
AND (NVL (laPolice.POL_OPTION, '-') NOT IN
('ACCUEIL', 'LITIGE', 'COLLECTIF'))
AND laPolice.POL_PTRINID = IN_IDENT
ORDER BY CL_NOMAPPEL |
Partager