02.01.02.tiptop：组件篇（4fd+4gl 新增：日期列）

DKLi1717

已于 2024-02-03 21:19:36 修改

阅读量386

点赞数 5

分类专栏：鼎捷tiptop 5.3 文章标签：开发语言

于 2024-02-01 11:37:29 首次发布

本文链接：https://blog.csdn.net/qq_26730689/article/details/135970454

版权

鼎捷tiptop 5.3 专栏收录该内容

55 篇文章 7 订阅

订阅专栏

本页目录：

1、4fd
2、4gl
3、测试

4fd

在这里插入图片描述

4gl

# 定义
DEFINE tm  RECORD
           apa02_1   LIKE apa_file.apa02,
           apa02_2   LIKE apa_file.apa02
           END RECORD
#初始化
LET tm.apa02_1=ARG_VAL(17)
LET tm.apa02_2=ARG_VAL(18)

# 与4fd连接数据交互
INPUT BY NAME tm.apa02_1,tm.apa02_2
                  WITHOUT DEFAULTS HELP 1
      AFTER FIELD apa02_1
         IF NOT cl_null(tm.apa02_1) THEN
            IF tm.apa02_1 IS NULL THEN
                CALL cl_err('', 'afa-321',1)
                NEXT FIELD apa02_1
            END IF
         END IF 
       AFTER FIELD apa02_2
         IF NOT cl_null(tm.apa02_2) THEN
            IF tm.apa02_2 IS NULL THEN
                CALL cl_err('', 'afa-321',1)
                NEXT FIELD apa02_2
            END IF
            IF tm.apa02_1>tm.apa02_2 THEN
                CALL cl_err('', 'aap-100',1)
                NEXT FIELD apa02_2
            END IF
         END IF
 
      ON ACTION CONTROLR
         CALL cl_show_req_fields()
 
      ON IDLE g_idle_seconds
         CALL cl_on_idle()
         CONTINUE INPUT
 
      ON ACTION help
         CALL cl_show_help()
 
      ON ACTION controlg
         CALL cl_cmdask()
 
      ON ACTION about
         CALL cl_about()
 
      ON ACTION exit
         LET INT_FLAG = 1
         EXIT INPUT
   END INPUT