揚(yáng)農(nóng)化工（瑞祥）SAP項(xiàng)目-FI-集成憑證行項(xiàng)目文本替代開發(fā)說明書-V1.0-20180522

開發(fā)規(guī)格書第6頁，共6頁揚(yáng)農(nóng)化工SAP項(xiàng)目-開發(fā)規(guī)格書1需求模塊MACROBUTTONCheckIt_CheckBox￡MM MACROBUTTONCheckIt_CheckBox￡P(guān)P MACROBUTTONCheckIt_CheckBox￡SD ■FIMACROBUTTONCheckIt_CheckBox￡COMACROBUTTONCheckIt_CheckBox￡P(guān)SMACROBUTTONCheckIt_CheckBox￡其它Spec編號FI016短描述集成憑證行項(xiàng)目文本替代類型功能增強(qiáng)MACROBUTTONCheckIt_Radiobutton報(bào)表MACROBUTTONCheckIt_RadiobuttonABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinterMACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthers_____________________________________________________MACROBUTTONCheckIt_Radiobutton表單MACROBUTTONUnCheckIt_Radiobutton流程增強(qiáng)MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgramMACROBUTTONCheckIt_RadiobuttonOthers__________________________________MACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthers__________________________MACROBUTTONCheckIt_Radiobutton數(shù)據(jù)轉(zhuǎn)移需求優(yōu)先級MACROBUTTONCheckIt_RadiobuttonHigh/關(guān)鍵 MACROBUTTONUnCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選預(yù)計(jì)開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評估）必填_______天是否有標(biāo)準(zhǔn)功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標(biāo)準(zhǔn)功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標(biāo)準(zhǔn)功能表單開發(fā)：列出參考的標(biāo)準(zhǔn)的Form的技術(shù)名稱報(bào)表開發(fā)：列出參考的標(biāo)準(zhǔn)報(bào)表文檔變更歷史版本號文檔維護(hù)時(shí)間姓名簡要的描述V1.02018/5/22楊鋒

2詳細(xì)功能描述2.1選擇屏幕：2.2報(bào)表/表單/功能的字段順序字段名稱字段技術(shù)名稱字段描述特殊需求訂單BSEG-AUFNR訂單成本中心BSEG-KOSTL成本中心物料BSEG-MATNR物料文本BSEG-SGTXT文本參考如下附圖：2.3邏輯關(guān)系：根據(jù)027替代條件，產(chǎn)生的會計(jì)憑證所有行項(xiàng)目的BSEG-SGTXT值均被第一行的BSEG-AUFNR值替換，若找不到則取KOSTL替代，若成本中心取不到MATNR替代，若第一行找不到則按順序依次找第二行的AUFNR、KOSTL、MATNR值進(jìn)行替代2.4輸出界面：3.技術(shù)說明ProgramnameZSAMPLE_PROCESS_00001120TransactioncodeSE37AuthorizationObject公司代碼FormFormnameN/AOutputtypeExcelFormroutineN/A3.1程序邏輯： TCODE:SE37新建函數(shù)：ZSAMPLE_PROCESS_00001120憑證先判斷公司代碼和憑證類型，對符合條件的憑證行項(xiàng)目文本如果為空，按照邏輯替代FUNCTION

zsample_process_00001120.

*"

*"*"Local

interface:

*"

IMPORTING

*"

VALUE(I_BKDF)

TYPE

BKDF

OPTIONAL

*"

TABLES

*"

T_BKPF

STRUCTURE

BKPF

*"

T_BSEG

STRUCTURE

BSEG

*"

T_BKPFSUB

STRUCTURE

BKPF_SUBST

*"

T_BSEGSUB

STRUCTURE

BSEG_SUBST

*"

T_BSEC

STRUCTURE

BSEC

OPTIONAL

*"

CHANGING

*"

REFERENCE(I_BKDFSUB)

TYPE

BKDF_SUBST

OPTIONAL

*"

FIELD-SYMBOLS:

<fs1>

TYPE

bseg,

<fs2>

TYPE

bseg_subst.

DATA:l_aufnr

TYPE

bseg-aufnr,

l_kostl

TYPE

bseg-kostl,

l_matnr

TYPE

matnr.

DATA:ls_bseg

TYPE

bseg.

SELECT

COUNT(*)

UP

TO

1

ROWS

FROM

ztpscodei

WHERE

zfldnm

=

'YN_BTE_1020'

AND

zvalues

=

t_bkpf-bukrs.

IF

sy-subrc

=

0

AND

(

t_bkpf-blart

=

'WE'

OR

t_bkpf-blart

=

'WL'OR

t_bkpf-blart

=

'WA'

).

LOOP

AT

t_bseg

ASSIGNING

<fs1>.

IF

<fs1>-aufnr

IS

NOT

INITIAL.

l_aufnr

=

<fs1>-aufnr.

ELSEIF

<fs1>-kostl

IS

NOT

INITIAL.

l_kostl

=

<fs1>-kostl.

ELSEIF

<fs1>-matnr

IS

NOT

INITIAL.

l_matnr

=

<fs1>-matnr.

ENDIF.

ENDLOOP.

IF

l_aufnr

IS

NOT

INITIAL

OR

l_kostl

IS

NOT

INITIAL

OR

l_matnr

IS

NOT

INITIAL.

IF

l_matnr

IS

NOT

INITIAL.

CALL

FUNCTION

'CONVERSION_EXIT_MATN1_OUTPUT'

EXPORTING

input

=

l_matnr

IMPORTING

output

=

l_matnr.

ENDIF.

LOOP

AT

t_bsegsub

ASSIGNING

<fs2>

WHERE

sgtxt

IS

INITIAL.

IF

l_aufnr

IS

NOT

INITIAL.

<fs2>-sgtxt

=

l_aufnr.

ELSEIF

l_kostl

IS

NOT

INITIAL.

<fs2>-sgtxt

=