TIPOP 开发服务端WEB SERVER

最新推荐文章于 2024-06-18 22:50:22 发布

追梦小猪2

最新推荐文章于 2024-06-18 22:50:22 发布

阅读量1.5k

点赞数 1

分类专栏：技术

本文链接：https://blog.csdn.net/qq_30907567/article/details/52067435

版权

本文档详细介绍了如何在AWS TTSRV2服务端开发WEB SERVER，重点在于aws_ttsrv2_service.4gl文件中的'aws_getFixedAssetDate'功能代码实现。

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

1、在aws_ttsrv2_service.4gl 文件中添加代码：

WHEN "aws_getFixedAssetDate"

            LET l_op = com.WebOperation.CreateDOCStyle("aws_getFixedAssetDate",p_op_name,g_request, g_response)

FUNCTION aws_getFixedAssetDate()

    LET g_service = "GetFixedAssetDate"
    CALL cws_get_faj_date()
END FUNCTION

注意：

GetFixedAssetDate 是服务名

<pre name="code" class="html">cws_get_faj_date() 是服务的函数

2、编写服务的主要逻辑程序

<pre name="code" class="html">

# Program name...: aws_get_faj_data.4gl
# Descriptions...: 提供取得 ERP 固定资产資料服務
# Date & Author..: 2016/07/27 by wanjz


DATABASE ds

GLOBALS "../../../tiptop/config/top.global"
GLOBALS "../../../tiptop/aws/4gl/aws_ttsrv2_global.4gl"

# 定义相关变量

FUNCTION cws_get_faj_date()
#调用服务前置函数，解析XML文件
#调用核心处理函数，读取数据
#调用服务后置函数，组XML文件

  WHENEVER ERROR CONTINUE      #  当错误时执行！！
  
  CALL aws_ttsrv_preprocess()     #调用服务前置函数，解析XML文件，获取出入参数
  
  IF g_status.code = "0"  THEN    #若 预处理成功
    CALL cws_get_faj_date_process()      #调用核心处理函数
  END IF   

  CALL aws_ttsrv_postprocess()   #调用服务后置函数

 END FUNCTION 

#提供服务的核心处理函数

FUNCTION cws_get_faj_date_process()

	#定义相关变量  #        02,06,08,43,19,20,21,22,14,25,26,27,28,29,30,31,32,57,571   like faj_file.*
	DEFINE  l_faj      RECORD    
                faj02      LIKE faj_file.faj02,
                faj06      LIKE faj_file.faj06,
                faj08      LIKE faj_file.faj08,
                faj14      LIKE faj_file.faj14,
                faj19      LIKE faj_file.faj19,      #带出中文描述---保管人编号
                gen02      LIKE gen_file.gen02,      #保管人名称 gen01 = faj19
                faj20      LIKE faj_file.faj20,      #带出中文描述---保管部门
                gem02      LIKE gem_file.gem02,      # 部门简称  gem01