transparente tabelle

Code: Alles auswählen.

DATA : profil LIKE tcatst-variant.
DATA:  kunnr  LIKE vbak-kunnr.

* break stock.

GET PARAMETER ID 'CVR' FIELD profil.
CASE profil.
  WHEN 'ZE-CIS-T' OR 'ZE-CIS-W' OR 'ZE_DMT_W' OR 'ZE_DMT_U'
    OR 'ZE-TÜVIT' OR 'CETECOM' OR 'ZE-AKW-W' OR 'ZETÜVIT2'
    OR 'TÜV_1' OR 'TÜV_7' OR 'ZCRM01' OR 'ZCRM07'
    OR 'ZCRM11' OR 'ZCRM17'.
* break dennig.
    IF NOT catsd_imp-raufnr IS INITIAL. "Innenauftrag
      SELECT SINGLE ktext FROM coas INTO disptext2_exp
              WHERE aufnr = catsd_imp-raufnr.

*    disptext2_exp = 'TEST CO-Auftrag'.
    ELSE.
      IF NOT catsd_imp-rkdauf IS INITIAL. "Kundenauftrag
        SELECT SINGLE kunnr FROM vbak INTO kunnr
                       WHERE vbeln = catsd_imp-rkdauf.

        SELECT SINGLE name1 FROM kna1 INTO disptext2_exp(19)
                        WHERE kunnr = kunnr.

        SELECT SINGLE arktx FROM vbap INTO disptext2_exp+20
             WHERE vbeln = catsd_imp-rkdauf
               AND posnr = catsd_imp-rkdpos.
        disptext2_exp+19(1) = '/'.
*      disptext2_exp = 'TEST Kundenauftrag'.
      ENDIF.
    ENDIF.
*
****************************************************************
*  CUBIS neu CUBIS neu CUBIS neu CUBIS neu CUBIS neu CUBIS neu
*
  WHEN 'ZE-CUB-W' OR 'ZE-CUB-A' or 'ZE-CUB-V'.
*    disptext2_exp = 'CO-Auftrag'.
    IF NOT catsd_imp-raufnr IS INITIAL. "Innenauftrag
      SELECT SINGLE ktext FROM coas INTO disptext2_exp
              WHERE aufnr = catsd_imp-raufnr.

    ELSE.
*      disptext2_exp = 'Kundenauftrag'.
      IF NOT catsd_imp-rkdauf IS INITIAL. "Kundenauftrag
        SELECT SINGLE kunnr FROM vbak INTO kunnr
                       WHERE vbeln = catsd_imp-rkdauf.

        SELECT SINGLE name1 FROM kna1 INTO disptext2_exp(10)
                        WHERE kunnr = kunnr.
        SELECT SINGLE bstkd FROM vbkd INTO disptext2_exp+11
          WHERE vbeln = catsd_imp-rkdauf.

        SELECT SINGLE arktx FROM vbap INTO disptext2_exp+25
             WHERE vbeln = catsd_imp-rkdauf
               AND posnr = catsd_imp-rkdpos.
        disptext2_exp+10(1) = '/'.
        disptext2_exp+24(1) = '/'.
      ENDIF.
    ENDIF.
    IF NOT catsd_imp-awart IS INITIAL.
* Umsetzen der Detail-Abwesenheiten auf Sammelbegriffe.
      IF profil ne 'ZE-CUB-A'.
        CASE catsd_imp-awart.
          WHEN '0100' OR '0200' OR '0210' OR '0965'.
            disptext2_exp = 'Urlaub / Krankheit'.
          WHEN '0300' OR '0320'.
            disptext2_exp = 'Sonderurlaub'.
*          WHEN '0400'.
*            disptext2_exp = 'Dienstreise'.
          WHEN '0420'.
            disptext2_exp = 'Fortbildung'.
          when '0900'.
            disptext2_exp = 'Gleitzeitausgleich'.
        ENDCASE.
      ELSE.
        IF NOT catsd_imp-awart IS INITIAL.
          IF NOT catsd_imp-rkdauf IS INITIAL AND
             NOT catsd_imp-rkdauf IS INITIAL.
            SELECT SINGLE atext FROM t554t INTO disptext2_exp
              WHERE sprsl = 'D'
                AND awart = catsd_imp-awart.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.