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
|
create or replace view SUNAUXF.V_JACMOVP_PREALIMENTATION_ANA AS
Select
SJ.WNOPE,
Sj.Socmv,
Sj.Journ,
Sj.Dcpmv,
Sj.Cimcp,
Sj.Indcmv,
Sj.Dvtmv,
Case When Vpc.Reg_Critere_01 = 1 Then Sj.F_Code_Prod Else '*' End As F_Code_Prod,
Case When Vpc.Reg_Critere_02 = 1 Then Sj.F_Cat_Min Else '*' End As F_Cat_Min,
Case When Vpc.Reg_Critere_03 = 1 Then Sj.F_Exo_Surv Else '*' End As F_Exo_Surv,
Case When Vpc.Reg_Critere_08 = 1 Then Sj.F_Tiers Else '*' End As F_Tiers,
Case When Vpc.Reg_Critere_11 = 1 Then Sj.Numlot Else 0 End As Numlot,
Case When Vpc.Reg_Critere_12 = 1 Then Sj.Numchq Else '*' End As Numchq,
Case When Vpc.Reg_Critere_13 = 1 Then Sj.Wenca Else 0 End As Wenca,
Case When Vpc.Reg_Critere_14 = 1 Then Sj.Wnrgt Else 0 End As Wnrgt,
Case When Vpc.Reg_Critere_15 = 1 Then Sj.Wnuco Else 0 End As Wnuco,
Case When Vpc.Reg_Critere_16 = 1 Then Sj.Mrgmv Else '*' End As Mrgmv,
Case When Vpc.Reg_Critere_17 = 1 Then Sj.F_Indic_Afn_Renou Else '*' End As F_Indic_Afn_Renou,
Case When Vpc.Reg_Critere_18 = 1 Then Sj.Decvm Else 0 End As Decvm,
Case When Vpc.Pointableecr=1 And Vpc.Typepointage=0 Then SJ.Code_Interbank Else '*' End As Code_Interbank,
Dense_Rank() Over ( Order By
F_Code_Prod,
F_Cat_Min,
F_Exo_Surv,
F_Tiers,
Numlot,
Numchq,
Wenca,
Wnrgt,
Wnuco,
Mrgmv,
Decvm,
F_Indic_Afn_Renou,
Decvm
) Flag
From Sunauxf.V_Jacmovp_Notinteg Sj,
P2_Test.V_Plancompte@Inst92sage Vpc
Where
(Substr(Sj.Cimcp,1,9) = Vpc.Codecompte
And Vpc.Caption = Decode(Sj.Socmv,10,'PC Assurance',80,'PC Assurance',90,'PC Général')
And Nvl(Vpc.Code,'*') = Nvl(Sj.Code_Interbank,'*'))
; |
Partager