sap自定义单据(屏幕)

Sap自定义单据实践1.建立数据库表用来存储业务数据。

SE11以Z 或Y 开头建立新的数据库表。

==============华丽的分割线============================================短文本中填写数据库表的描述。

选择表单类型我们这里设置成C..==============华丽的分割线============================================这个是设置是否允许标准表格维护工具维护的。

我们这里选禁止就ok了。

提一句如果设置了表格维护工具来维护的话，se16就失效了，不能来维护数据了。

==============华丽的分割线============================================接下来就是维护我们的数据字段了。

为了方便起见我们就不去自定义参考的数据元素了。

选择系统已经有的数据元素的。

这个你懂的，省却一系列麻烦。

首先我们来假想一个业务实例《车间库存盘点单》。

我们通过这个来统计月末在车间里的车间线上的产成品，半成品数量。

这样的话我们单据可能会需要如下几个字段。

工厂，车间，物料，数量，物料单位，年度，月份，制单人。

OK我们先就那么多字段吧。

这里key是主键的意思。

initial value 是初始值得意思。

如果这个不勾上的话那初始值就是空。

然后不要忘了数量金额等字段是参考单位的。

我们简单设置下。

置下就好了。

好了我们终于可以点击生成了。

撒花预制单据的第一步存储数据的数据库表开发好了。

2.建立表单程序。

SE38这个名字以Z和Y开头就ok了，其它都是浮云。

我就用刚才建的数据库表的名字。

Title 把程序名称设置下。

然后再type 里选择可执行程序。

然后保存成本地文件就ok 了（如果你不打算传输的话）。

好了万事开头难。

我们现在要考虑怎么来做了。

①先定义一个选择屏幕。

②定义所需要用到的内表③程序的正文部分④建立一个屏幕并调用（主要函数CALL SCREEN XXX）.==============华丽的分割线============================================ ①．定义制单的选择屏幕。

我们过滤条件就选工厂，物料，车间（生产调度员），年度，期间。

然后是选项创建，修改，查询。

TABLES: ZTEST2011,AFKO.SELECTION-SPARAMETERS: S_WERKS LIKE ZTEST2011-WERKS,S_FEVOR LIKE AFKO-FEVOR,S_MJAHR LIKE ZTEST2011-MJAHR,S_MONAT LIKE ZTEST2011-MONAT.SELECT-OPTIONS: S_MATNR FOR ZTEST2011-MATNR.PARAMETERS: p1 RADIOBUTTON GROUP P,p2 RADIOBUTTON GROUP P,p3 RADIOBUTTON GROUP P.SELECTION-SCREEN END OF BLOCK b1.CREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001 .==============华丽的分割线============================================ ②定义所需要用到的内表以及后面需要用到的字段DATA BEGIN OF ZDATA OCCURS0 .INCLUDE STRUCTURE ZTEST2011.DATA T TYPE I."记录行数DATA MAKTX LIKE MAKT-MAKTX."物料描述DATA TXT LIKE T024F-TXT."生产调度描述DATA END OF ZDATA.data:ok_code type sy-ucomm,"获取屏幕事件的按钮gwk_ok type sy-ucomm.CONTROLS Z1 TYPE TABLEVIEW USING SCREEN100."定义屏幕的控件。

③程序的正文部分了。

撒花了。

饭要一口一口的吃,我们一部分一部分的来,先做创建表单的。

当然坑要先留好。

if P1 = 'X'.PERFORM CREATE.ELSEIF P2 = 'X'.PERFORM UPDATE.ELSE.PERFORM SAVE.ENDIF.坑好了，我们先来填创建新表单的。

为了方便后面输入我们可以把选择屏幕里的条件先直接放到我们的屏幕内表里。

我们就预制个20行吧。

FORM CREATE .DO20TIMES.ZDATA-MANDT = SY-MANDT.ZDATA-WERKS = S_WERKS.ZDATA-FEVOR = S_FEVOR.ZDATA-MJAHR = S_MJAHR.ZDATA-MONAT = S_MONAT.ZDATA-USNAM = SY-UNAME.ZDATA-T = ZDATA-T + 1.APPEND ZDATA.ENDDO.CALL SCREEN100.ENDFORM.④建立一个屏幕并调用（主要函数CALL SCREEN XXX）然后就要调用我们的屏幕了屏幕可以在se51里制作，也可以双击屏幕编号进行创建。

我懒。

就直接在程序里创建吧。

述后先点下保存然后再进行接下来的操作。

填完搞定。

先不管逻辑流。

我们先来画我们的表单。

看见格式按钮了嘛？点击就会跳出我们的屏幕制作的界面。

里面好多控件哈哈。

我们这里选择我们需要用到的控件。

到工作台。

有红色部分说明还没有设置完成。

我们给table控件设置名称Z1。

然后再给我们的Z1控件里增加字段。

置的那个表ZTEST2011的结构。

. 全选或者是按你需要选取。

以上步骤完全是为了方便。

我们屏幕里的字段可以不通过参考其它结构表单来建的。

我们后面可以另外添加两个字段进去。

参考ZTEST2011的屏幕基本构建完毕。

这里我们再添加一个物料描述，这样我们要分两步走：第一步在表头栏拖一个文本控件上去。

第二步在数据栏里面拖一个输入输出控件上去。

第一个是文本控件。

第二个是输入输出控件。

初级效果哈哈。

然后我们进行自定义。

把文本和名称填上。

物料描述我们不需要自己输入。

双击物料描述下面输入输出的控件。

把输入的选项勾掉。

刚才那屏幕太白了。

我们把网格线调出来。

双击角上的图标。

把分隔符垂直和水平勾上。

这是我们的最终效果。

欢呼下。

屏幕基本画完。

别忘了保存下。

==============华丽的分割线============================================接下来是什么：设置我们的逻辑流（其实来设置单据输入输出控制等内容）。

PROCESS BEFORE OUTPUT.后面接的是屏幕输出以前的操作。

PROCESS AFTER INPUT. 后面接的是屏幕输出以后的操作。

A．我们先来操作PROCESS BEFORE OUTPUT的内容。

这里先把*后面的内容释放出来(*去掉)。

还是两个*。

第一个是设置菜单栏第二个是设置标题。

里面xxxxxx是需要你自定义的部分。

我们现在只要第一个设置下菜单栏。

（当然我们可以通过拷贝其它程序里的菜单栏，或者自己手工创建一个）SET PF-STATUS 'S001'.我们手工来创建一个，在s001上双击。

我们可以简单的定义几个按钮。

后面需要什么功能操作可以再进行添加。

创建完毕可以点激活生成。

EXIT按钮定义请不要忘了选功能类型==============华丽的分割线============================================ 菜单建立好以后，我们要给我们的屏幕复制初始值了。

别忘了我们的刚才建立的有20行内容的内表ZDATA哦。

我们下面要把ZDATA里的内容传到屏幕上。

LOOP AT ZDATA CURSOR Z1-TOP_LINEWITH CONTROL Z1.MODULE COPY_DATA.”下面是copy_data里具体的语句。

ENDLOOP.MODULE COPY_DATA OUTPUT.CLEAR ZTEST2011.MOVE-CORRESPONDING ZDATA TO ZTEST2011 .ENDMODULE. " COPY_DATA OUTPUT上面主要是遍历ZDATA然后把值通过Z1控件传给屏幕里面的字段。

B. PROCESS AFTER INPUT.屏幕输出以后的语句。

主要是一些值更新和控制语句。

我们现在假设限定只能保存C开头的物料，在非C开头物料要进行操作或者保存的时候进行报错。

MODULE CANCEL AT EXIT-COMMAND."设置按钮退出的时候不进行检查LOOP AT ZDATA.field:ZTEST2011-MATNR MODULE GET_MATNR ON REQUEST.module update_data."把修改的值反写给我们存储数据的内表zdataENDLOOP.MODULE USER_COMMAND_0100."这里我们将放置按钮事件响应程序。

MODULE CANCEL INPUT.GWK_OK = OK_CODE.CLEAR OK_CODE.CASE GWK_OK.WHEN'EXIT'..LEAVE TO SCREEN0.WHEN OTHERS.ENDCASE.ENDMODULE.MODULE UPDATE_DATA INPUT.move-corresponding ZTEST2011 to zdata.modify zdata index z1-current_line.ENDMODULE.OK...到这步后我们的程序初见成果。

接下来我们实现输入物料带出物料描述和基本单位的功能。

对于单位ZTEST2011里本身就有。

基本下面就可以满足了。

MODULE GET_MATNR INPUT.IF ZTEST2011-MATNR+0(1) <> 'C'.MESSAGE'请使用C类物料'TYPE'E'.ELSE.SELECT SINGLE MAKTX INTO (MAKTX ) FROM MAKT WHERE MATNR = ZTEST2 011-MATNR.SELECT SINGLE MEINS INTO (ZTEST2011-MEINS ) FROM MARA WHERE MATNR = ZTEST2011-MATNR.ENDIF.ENDMODULE.而MAKTX物料描述这个不在ZTEST2011中。