-- Auswertung von Freitext-Infos: Abkündigung Release 21.0

SELECT      OIK.INFO_ART
          , OIK.INFO_ATS
--          , OIK.INFO_BEAR_STAT
          , OIK.INFO_BOBJ_ID
          , OIK.INFO_BOBJ_TYP
          , YEAR(OIK.INFO_ERFS_TS)       AS ERFASSUNG
--          , OIK.INFO_ETS           AS ENDE
          , OIK.INFO_ID
          , OIK.INFO_STICHWORT
--          , OIK.INFO_VERTRAULICH_GRAD
--          , OIK.KND_ZSTM_KZ
--          , OIK.MA_ID_LOES_SBTR
--          , OIK.MA_ID_SBTR
            --
          , OID.INFO_TEXT_SEGM   
          , OID.INFO_TEXT_SEGM_LFDN
            --
            
            -- Die Daten aus der T_PARTNER bei 62,63,64
          , PA.PARTNER_ZEILE
          , PA.KLAMMER
          , PA.ROLLENART
          , PA.ROLLE  
          
            -- Die Daten zum Vertrag aus der VERTRAG_GP_OBJ bei 80
            
          , VGO.GP_VARIANTE
--          , VGO.FELD_TYP
--          , VGO.FELD
            
            -- Die Daten zur T_PERSON
            -- bei 62 der Inhaber der Personen-Rolle
            -- bei 63 die Verbundmitglieder
            -- bei 64 der Inhaber der Konto-Rolle
            -- bei 80 und Feld-Typ O der Objekt-/Vertragsinhaber
            -- bei 80 und Feld-Typ A der Kontoinahber des Auftragskontos
            -- bei 50 die Person direkt
          , PE.PERSONEN_NR
          , PE.NAME !!', '!! PE.VORNAME!!' '!!PE.NAMENSERW  AS NAME
          , PE.KUNDENTYP
          
            -- Die Daten zum Konto
            -- bei 80 und Feld-Typ A das Auftragskonto
            -- bei 64 das Konto zur Kontorolle
          , VALUE(GK_80.KONTONR
                 ,GK_64.KONTONR)      AS KONTONR
          
            
FROM        SINR.OBJ_INFO_KOPF        OIK

LEFT  JOIN  SINR.OBJ_INFO_DATN        OID
                                      ON    OID.INFO_ID         = OIK.INFO_ID
                                      AND   OID.INFO_BOBJ_ID    = OIK.INFO_BOBJ_ID
                                      AND   OID.INFO_BOBJ_TYP   = OIK.INFO_BOBJ_TYP
                                      AND   OID.INFO_ETS        = OIK.INFO_ETS
                                      
            -- Bezug zur PARTNER_ZEILE in der T_PARTNER
left  join  SinrBIL.T_PARTNER         PA                             
                                      on    OIK.INFO_BOBJ_TYP  IN (62 -- 62 - Personenrolle
                                                                  ,63 -- 63 - Verbundrolle
                                                                  ,64 -- 64 - Kontorolle
                                                                  )
                                      AND   pa.PARTNER_ZEILE    = TIMESTAMP(oik.INFO_BOBJ_ID)
                                      and   pa.VON             <= {F50}
                                      and   pa.BIS             >= {F50}
                                      
                                      
            -- Bezug zur VERTRAG_GP_OBJ bei Typ 80
LEFT  JOIN  SINRBIL.VERTRAG_GP_OBJ    VGO                                                  
                                      ON  OIK.INFO_BOBJ_TYP     = 80
                                      AND VGO.OBJEKT_KEY        = TIMESTAMP(oik.INFO_BOBJ_ID)
                                      and VGO.VON              <= {F50}
                                      and VGO.BIS              >= {F50}
                                      -- Hier finden Sie unter Umständen n Felder/Sätze zum entspr. Vertrag
                                      -- ich habe beispielhaft auf Typ A und O, also Auftragskonto, bzw. Objekt-/Vertragsinhaber
                                      -- eingeschränkt. Hier bitte ggf. noch anpassen
                                      AND VGO.FELD_TYP         IN ('A','O')
                                      
LEFT  JOIN  SINRBIL.VERTRAG_OBJEKT    VO                                      
                                      ON  VO.SCHLUESSEL         = VGO.SCHLUESSEL
                                      AND VO.BEZIEHUNG_BIS     >= {F51}
                  
LEFT  JOIN  SINR.GRUNDKONTO           GK_80 -- das Konto bei Typ A und 80
                                      ON  GK_80.KONTO_ID        = TIMESTAMP(VO.OBJEKT)
                                                              
                                      
left  join  SinrBIL.T_KONTO_PARTNER   KP -- das Konto bei der Kontorolle Typ 64
                                      on  OIK.INFO_BOBJ_TYP   = 64
                                      AND kp.KLAMMER          = pa.KLAMMER
                                                                       
left  join  SinrBIL.GRUNDKONTO        GK_64 
                                      on    gk_64.KONTONR          = kp.KONTONR
                                      and   gk_64.BLZ              = kp.BLZ
                                      and   gk_64.AUFLOESUNGSDATUM = kp.AUFLOESUNGSDATUM
                                      
left  JOIN  SINR.T_PERSON               PE
                                        ON  PE.PERS_NR          = VALUE(PA.PERS_NR  -- den Inhaber der Rolle (62,63,64)
                                                                       ,GK_80.PERS_NR  -- den Kontoinhaber des Auftragskontos Typ A bei 80
                                                                       ,VO.OBJEKT   -- den Vertrags-/Objektinhaber Typ O bei 80
                                                                       ,oik.INFO_BOBJ_ID -- die Person bei Typ 50
                                                                       )
                                        
WHERE 

    OIK.INFO_BOBJ_TYP IN (
                          64 -- 64 - Kontorolle
                         ,50 -- 50 - Person
                         ,62 -- 62 - Personenrolle
                         ,63 -- 63 - Verbundrolle
                         ,80 -- 80 - Vertrag
                         )


and   oik.INFO_ATS       <= {F50}
and   oik.INFO_ETS       >= {F50}

-- and   (GK_64.gp_key in (0,1) or GK_80.gp_key in (0,1) )
and OIK.INFO_ART        = 'INFO-ALLGEM.'  --<-- Einschränkung auf eine bestimmte Info-Art
--AND   PA.ROLLENART    = 'INFO-SONST.'
--AND   PA.ROLLE        = 'INFO-ALLGEM.' 

WITH UR
;