SAP 发货通知单

• 数据获取
  FORM FRM_GET_DATA.

SELECT SINGLE LIKP~VKORG
LIKP~ERDAT
ZSDT00031~REMARK
INTO CORRESPONDING FIELDS OF TAB_HEAD
FROM LIKP
LEFT JOIN ZSDT00031 ON LIKP~VBELN = ZSDT00031~VBELN
WHERE LIKP~VBELN = P_VBELN.

SELECT SINGLE T001~BUTXT INTO TAB_HEAD-BUTXT FROM T001 WHERE T001~BUKRS IN ( SELECT BUKRS FROM TVKO WHERE VKORG = TAB_HEAD-VKORG ).

SELECT SINGLE ZSDT00031~FBSMC
LIPS~ARKTX
ZSDT00031~CPHM
LIPS~LFIMG
LIKP~VSBED
INTO CORRESPONDING FIELDS OF TAB_BODY1
FROM LIKP
LEFT JOIN ZSDT00031 ON LIKP~VBELN = ZSDT00031~VBELN
LEFT JOIN LIPS ON LIKP~VBELN = LIPS~VBELN
WHERE LIKP~VBELN = P_VBELN.
TAB_BODY1-LFIMG1 = TAB_BODY1-LFIMG.

SELECT SINGLE TVSBT~VTEXT INTO TAB_BODY1-VTEXT FROM TVSBT WHERE SPRAS = 1 AND VSBED = TAB_BODY1-VSBED.
  APPEND TAB_BODY1 TO TAB_BODY.

ENDFORM.