Ô­À´ÎªÁËÄã

Óɽ»»õµ¥µ½¶©µ¥µÄÈ¡Êý·ÖÁ½ÖÖÇé¿ö:
IF WA_BELNR-LFART <> 'ZNLN' AND WA_BELNR-LFART <> 'ZNL'.
      SELECT SINGLE
        VBELV   "¶©µ¥ºÅ
        INTO WA_BELNR-VBELNV
        FROM VBFA
        WHERE VBELN = WA_BELNR-VBELN
        AND  ( VBTYP_N = 'J' OR VBTYP_N = 'C' ).

      SELECT SINGLE BEZEI            "¶©µ¥ÀàÐÍ
        INTO WA_BELNR-BEZEI1
        FROM TVAKT
        WHERE AUART = ( SELECT AUART
        FROM VBAK
        WHERE VBELN = WA_BELNR-VBELNV ).

      SELECT SINGLE
        ERNAM   "ÖƵ¥ÈË
        INTO WA_BELNR-ERNAMV
        FROM VBAK
        WHERE VBELN = WA_BELNR-VBELNV.

ELSE.       "Èç¹ûÊǵ÷²¦ÀàÐÍ
      SELECT SINGLE
        EBELN   "²É¹º¶©µ¥ºÅ×÷¶©µ¥ºÅ
        INTO WA_BELNR-VBELNV
        FROM EKBE
        WHERE BELNR = WA_BELNR-VBELN.

      SELECT SINGLE
        BATXT
        INTO WA_BELNR-BEZEI1
        FROM T161T
        WHERE BSART = ( SELECT BSART
        FROM EKKO
        WHERE EBELN = WA_BELNR-VBELNV ).
ENDIF.