sap项目实例文档格式.docx

sap项目实例文档格式.docx

《sap项目实例文档格式.docx》由会员分享，可在线阅读，更多相关《sap项目实例文档格式.docx（13页珍藏版）》请在冰豆网上搜索。

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