SAP屏幕开发小案例

xiao贱贱

已于 2024-07-07 01:17:23 修改

阅读量1.3k

点赞数 18

分类专栏： SAP 文章标签：开发语言后端编辑器

于 2023-12-14 14:19:37 首次发布

本文链接：https://blog.csdn.net/Li958172829/article/details/134855360

版权

SAP 专栏收录该内容

31 篇文章 37 订阅

订阅专栏

本文介绍了如何在SAP中开发Dialog程序，包括屏幕绘制输入框、单选复选框、使用BOX控件分组，以及逻辑功能如设置按钮标题、日期时间、数据隐藏和保存操作。通过实例展示了从界面设计到功能实现的完整过程。

摘要由CSDN通过智能技术生成

文章目录

前言
一、案例介绍
二、屏幕绘制
- `a.`参考变量绘制输入框
- `b.`绘制单选复选框
- `c.`使用BOX控件分组
三、逻辑代码功能实现
- `a.`完善基础按钮标题
- `b.`自动设置日期时间
- `c.`设置培训信息隐藏
- `c.`保存功能实现
四、总结

前言

SAP屏幕开发也就是Dialog程序是我们作为一名ABAP程序员必会的技能之一，今天这篇文章给大家讲解一个SAP屏幕开发的一个小案例，如果没有屏幕开发基础的可以查看作者的另外一篇文章SAP屏幕开发基础，这个小案例不会讲的那么细致只会讲大致的开发流程以及功能实现。

一、案例介绍

我们要实现的效果就是创建一个Dialog程序，然后自己绘制界面，用户在界面中输入学生数据信息点击保存后将数据存入数据库表中。下图是我们的数据库设计创捷透明表的步骤本文省略。创建数据库表的时候呢记得要又MANDT字段和自己创建DATAELEMENT我这边就随意创建了。

在这里插入图片描述

二、屏幕绘制

我们先看一下要绘制的控件以及大致的效果图

在这里插入图片描述

`a.`参考变量绘制输入框

我们所有的控件都根据程序中声明的变量来参考绘制，这样不容易出错绘制的效率也高。
在这里插入图片描述
参考结构可以声明完所有的输入框，描述文本需要手动创建绘制。单选框和复选框我们需要再单独创建变量参考绘制。

运行效果
在这里插入图片描述
后期再慢慢调整

`b.`绘制单选复选框

在这里插入图片描述
运行效果

`c.`使用BOX控件分组

先调整一下布局位置，并给培训时间两个输入框设置不可输入属性，并给单选框复选框设置FCTCODE。
在这里插入图片描述

使用BOX分组

在这里插入图片描述

运行效果

在这里插入图片描述

三、逻辑代码功能实现

`a.`完善基础按钮标题

请添加图片描述
运行效果

在这里插入图片描述

功能代码编写

*&  Include           ZTEST_SCREEN_GLYN001I01

MODULE user_command_0100 INPUT.
CASE sy-ucomm.
  WHEN 'BACK'.
    LEAVE to SCREEN 0."返回上个界面
  WHEN 'EXIT' or 'CANCEL'.
    LEAVE PROGRAM.
  when 'SAVE'.
    PERFORM save_data."保存数据
  WHEN OTHERS.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&  Include           ZTEST_SCREEN_GLYN001O01

MODULE status_0100 OUTPUT.
  SET PF-STATUS '0100'.
  SET TITLEBAR '0100'.

ENDMODULE.                 " STATUS_0100  OUTPUT

`b.`自动设置日期时间

在这里插入图片描述

*&---------------------------------------------------------------------*
*&      Module  SET_DATE_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE set_date_data INPUT.
  gs_school-zcrdt = sy-datum."日期
  gs_school-zcrtm = sy-uzeit."时间
ENDMODULE.                 " SET_DATE_DATA  INPUT

`c.`设置培训信息隐藏

首先将文本描述与输入框分为一组，这样在判断的时候可以简化代码。判断名称的时候一定要注意大小写。在这里插入图片描述

在这里插入图片描述

MODULE study_info_display OUTPUT.
  IF checkbox <> 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'PXX'.
        screen-invisible = '1'.
        screen-input = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
ENDMODULE.                 " STUDY_INFO_DISPLAY  OUTPUT

运行效果
在这里插入图片描述

`c.`保存功能实现

*&---------------------------------------------------------------------*
*&  Include           ZTEST_SCREEN_GLYN001F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  SAVE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM save_data .
  IF radm = 'X'.
    gs_school-zsex = 'M'."男
  ELSE.
    gs_school-zsex = 'F'."女
  ENDIF.

  SELECT SINGLE zschool
    INTO gs_school-zschool
    FROM zdialogschool
    WHERE zschool = gs_school-zschool
    AND  zcode  = gs_school-zcode.
  IF sy-subrc = 0.
    MESSAGE '已存在相同信息' TYPE 'S' DISPLAY LIKE 'E'.
  ELSE.
    INSERT INTO zdialogschool VALUES gs_school.
    IF sy-subrc = 0.
      MESSAGE '保存成功' TYPE 'S'.
    ELSE.
      MESSAGE '保存失败' TYPE 'S' DISPLAY LIKE 'E'.
    ENDIF.
  ENDIF.

ENDFORM.                    " SAVE_DATA