abap移交开发yfir0001系统程序.pdfVIP

Yfir001－系统打印程序

屏幕参数：

P_BUKRS(公司代码),P_VBELN(号码)，P_FKART(类型),P_FKDAT(日期)。

取数过程：

主数据：

1、从VBRK中以屏幕输入条件选出BUKRS(公司代码),VBELN(号码),FKART(类

型),KNUMV(单据条件数)

2、以VBELN(号码)关联VBRP选出MATNR(物料号),ARKTX(短文本即名称),FKIMG(数

量),VRKME(单位),NETWR(净值),MWSBP(税额).代码如下：

SELECTVBRK~BUKRSVBRK~VBELNVBRK~FKARTVBRK~KNUMV

VBRP~MATNRVBRP~ARKTXVBRP~FKIMGVBRP~VRKME

VBRP~NETWRVBRP~MWSBP

FROMVBRK

INNERJOINVBRPONVBRK~VBELN=VBRP~VBELN

INTOCORRESPONDINGFIELDSOFTABLEI_TAB

WHEREVBRK~VBELNINP_VBELN

ANDVBRK~FKARTINS_FKART

ANDVBRK~FKDATINS_FKDAT.

3、以上述选出的数据KNUMV(单据条件数)关联KNOV，并以条件KSCHL’PR01’选出KBETR(单

价),代码如下：

SELECTSINGLE*FROMKONVWHEREKNUMV=I_TAB-KNUMV

ANDKSCHL=PR01.

至此主要数据已经选取完毕。

抬头数据：

1、取得公司名称

以屏幕参数P_BUKRS为条件从T001中选出BUTXT(公司名称)

代码如下：SELECTSINGLEBUTXTFROMT001INTOG_BUTXTWHEREBUKRSP_BUKRS.

2、取得客户代码

以VBELN(号)为条件和PARVW=WE（送达方）为条件选出KUNNR（客户代码）

代码如下：

SELECTSINGLEKUNNRFROMVBPAINTOG_KUNNRWHEREVBELN=V_VBELN

ANDPARVW=WE.

3、取得客户名称

以选出的客户代码KUNNR为条件从KNA1中选出NAME1(客户名称)。

代码如下：

SELECTSINGLENAME1FROMKNA1INTOG_NAME1WHEREKUNNR=G_KUNNR.

4、销售类型和号码已经在取主数据时选出。

数据处理：

1、税率

因为在此处的税率一般都是17％，取数比较麻烦，所以用税额除以金额以后取16％到

18％之间的值，因为除完以后可能有整数。

2、合计

税额＋金额

3、转换“合计价税”的大写金额

调用函数Y_CONVERT_NUMERIC_TO_转换“价税合计”的大写金额。