sap项目实例文档格式.docx
《sap项目实例文档格式.docx》由会员分享,可在线阅读,更多相关《sap项目实例文档格式.docx(13页珍藏版)》请在冰豆网上搜索。
![sap项目实例文档格式.docx](https://file1.bdocx.com/fileroot1/2023-1/5/87b83047-cbbb-4345-a8d7-5c7bcfb05ad1/87b83047-cbbb-4345-a8d7-5c7bcfb05ad11.gif)
HEADING
LINE-SIZE
150
LINE-COUNT
60.
タイプの宣言
TYPES:
BEGIN
OF
I_YFTSUBT_P,
FLG
TYPE
C,
BUKRS
T001-BUKRS,
YFSUBCOD
YFTSUBCODET-YFSUBCOD,
SAKNR
YFTSUBCODET-SAKNR,
YFSUBCODT
YFTSUBCODET-YFSUBCODT,
MANDT
T001-MANDT,
YGINSDATE
YFTSUBCODET-YGINSDATE,
YGINSTIME
YFTSUBCODET-YGINSTIME,
YGINSUSER
YFTSUBCODET-YGINSUSER,
YGINSPROG
YFTSUBCODET-YGINSPROG,
YGUPDDATE
YFTSUBCODET-YGUPDDATE,
YGUPDTIME
YFTSUBCODET-YGUPDTIME,
YGUPDUSER
YFTSUBCODET-YGUPDUSER,
YGUPDPROG
YFTSUBCODET-YGUPDPROG,
END
I_YFTSUBT_P.
構造/内部テーブルの宣言
DATA
I_YFTSUBT
TABLE
WA_YFTSUBT
I_YFTSUBT_WRK2
WRK
YFTSUBCODET.
変数の宣言
G_BUKRS
T001-BUKRS.
G_YFSUB
YFTSUBCODET-YFSUBCOD.
G_SAKNR
YFTSUBCODET-SAKNR.
G_YFSUBT
YFTSUBCODET-YFSUBCODT.
G_BUKRS_S
*DATA
SHB1-SAKNR.
G_YFTSUBT_WRK
I.
G_KTOPL
T001-KTOPL.
G_TXT50
SKAT-TXT50.
G_ANSWER
C.
G_DIAGNOSETEXT1(100)
G_DIAGNOSETEXT2(50)
G_TEXT
G_LINES
G_COUNT
定数の宣言
選択画面の宣言
SELECTION-SCREEN
BLOCK
A01
WITH
FRAME
TITLE
TEXT-T01.
SELECT-OPTIONS:
S_BUKRS
FOR
OBLIGATORY.
S_YFSUB
S_SAKNR
MATCHCODE
OBJECT
SAKO.
S_YFSUBT
G_YFSUBT.
A01.
A02
TEXT-T02.
PARAMETERS:
RB_01
RADIOBUTTON
GROUP
AA
DEFAULT
'
X'
.
RB_02
AA.
RB_03
RB_04
A02.
SKIP
2.
LINE.
COMMENT
3(60)
TEXT-T03.
INITIALIZATION
AT
SELECTION-SCREEN
SELECTION-SCREEN.
PERFORM
FRM_CHECK_RB_03.
"
登録検査
FRM_CHECK_DATA.
START-OF-SELECTION
START-OF-SELECTION.
FRM_SELECT.
TOP-OF-PAGE
*&
---------------------------------------------------------------------*
Form
FRM_CHECK_RB_03
FORM
FRM_CHECK_RB_03
IF
=
FRM_CHECK_LOGON.
複数件入力されている場合,エラーメッセージ
FRM_CHECK_Z.
全部の項目
SIGN
が
I"
OPTION
EQ"
以外の値が入っている場合エラーメッセージ
FRM_CHECK_K.
内部テーブル(
)AND(
)の項目
LOW
が空白の場合,エラーメッセージ
ENDIF.
ENDFORM.
FRM_CHECK_LOGON
text
FRM_CHECK_LOGON
(
S_BUKRS-HIGH
IS
NOT
INITIAL
OR
S_YFSUB-HIGH
S_SAKNR-HIGH
S_YFSUBT-HIGH
INITIAL
).
MESSAGE
YGA01'
I'
NUMBER
031'
FRM_SCREEN
FRM_SCREEN
*
L_SUM
INITIAL.
+
1.
>
SY-SUBRC
0.
E031(YGA01)
."
I
031
LEAVE
LIST-PROCESSING.
FRM_CHECK_Z
FRM_CHECK_Z
S_YFSUB-SIGN
NE
S_YFSUB-OPTION
EQ'
033'
S_BUKRS-SIGN
S_BUKRS-OPTION
S_SAKNR-SIGN
S_SAKNR-OPTION
S_YFSUBT-SIGN
S_YFSUBT-OPTION
FRM_CHECK_K
FRM_CHECK_K
S_BUKRS-LOW
000'
S_YFSUBT-LOW
FRM_CHECK_DATA
FRM_CHECK_DATA
I_YFTSUBT-SAKNR
MATCH
CODE.
FRM_CHECK_BUKR.
S_BUKRS,T001
を参照し,チェック,存在しないとエラーメッセージ
FRM_CHECK_SAKNR.
S_SAKNR,SHB1
FRM_CHECK_BUKR
FRM_CHECK_BUKR.
SELECT
SINGLE
BUKRS
FROM
T001
INTO
G_BUKRS_S
WHERE
IN
S_BUKRS.
<
FRM_CHECK_SAKNR
FRM_CHECK_SAKNR.
SAKNR
SKB1
G_SAKNR
S_SAKNR.
FRM_SELECT
FRM_SELECT
YFSUBCOD
YFSUBCODT
YFTSUBCODET
CORRESPONDING
FIELDS
I_YFTSUBT
S_BUKRS
AND
S_YFSUB
S_SAKNR
S_YFSUBT.
LOOP
WA_YFTSUBT.
FRM_DATA_CHECK.
&
1,&
2,&
4
FRM_DATA_CHECK1.
3
012'
SORT
BY