Neuste Individuelle Konditionen

SELECT SINGLE a~knumh
      FROM a721  AS a INNER JOIN konp AS k
     ON a~knumh = k~knumh INTO lv_knumh
    WHERE  a~kappl      = 'P'                          AND
           p_cacsappl = 'ZIV01'                      AND
           a~p_state    = ' '   AND
           a~p_version  <= ls_cacs_ctrtbu-tech_begin      AND
*              Vergütungssatz muss vor Vertragversion fachlich gültig sein
           a~datab      LE  ls_cacs_ctrtbu-busi_begin  AND
*              Vergütungssatz muss nach Vertragsversion fachlich gültig sein
           a~datbi      GE  ls_cacs_ctrtbu-busi_begin AND
           a~p_ctrt_xl EQ p_bucagr_xl AND
* --- Fachliche Einschänkungen
           a~kschl = p_kschl  AND
           a~zzivf_gesellnr = p_zzivf_gesellnr AND
           a~zzivf_prodlinekz = p_zzivf_prodlinekz AND
           a~zzivf_provsparte = p_zzivf_provsparte AND
           a~zzivf_lskz =  p_zzivf_lskz  AND
** ------
**              Nur die aktuellste P_VERSION verwenden
           a~p_version >= ALL  (
    SELECT  a2~p_version FROM a721 AS a2
           WHERE  a2~kappl      = a~kappl   AND
           a2~p_cacsappl = a~p_cacsappl     AND
           a2~p_version  <= ls_cacs_ctrtbu-tech_begin       AND
           a2~datab      LE  ls_cacs_ctrtbu-busi_begin  AND
           a2~datbi      GE  ls_cacs_ctrtbu-busi_begin AND
           a~p_ctrt_xl = a2~p_ctrt_xl AND
*              Falls es eine I-Version gibt, die die größte ist
*              wird korrekterweise nichts gefunden
           ( a2~p_state    = ' ' OR  a2~p_state    = 'I' ) AND
* --- Fachliche Einschänkungen
           a~kschl = a2~kschl AND
           a~zzivf_gesellnr = a2~zzivf_gesellnr AND
           a~zzivf_prodlinekz = a2~zzivf_prodlinekz AND
           a~zzivf_provsparte = a2~zzivf_provsparte AND
           a~zzivf_lskz = a2~zzivf_lskz