SAP SmartForms

*---------------------------------------------------------------------*
* SD:销售订单打印(培训使用)
*---------------------------------------------------------------------*
REPORT  ZSD_TEST_THOMAS.

TABLES: VBAK,VBAP.

*定义变量
DATA: DD TYPE STANDARD TABLE OF ZSD_TEST_THOMAS WITH HEADER LINE.

DATA: Z_VBELN LIKE VBAK-VBELN.
DATA: Z_ERDAT LIKE VBAK-ERDAT.
*---------------------------------------------------------------------*
* 屏幕定义,parameters函数定义必输入对象.
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_VBELN LIKE VBAK-VBELN OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BLK01.
*---------------------------------------------------------------------*
* 执行程序,定义2个执行函数.
*---------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM PRINT_OUTPUT.
*---------------------------------------------------------------------*
* 取数
*---------------------------------------------------------------------*
FORM GET_DATA.
  SELECT SINGLE VBELN ERDAT INTO (Z_VBELN,Z_ERDAT) FROM VBAK WHERE VBELN = P_VBELN.
  SELECT MANDT VBELN POSNR MATNR ARKTX VRKME KWMENG NETPR