本页目录：
- 1、写代码
- 2、配置
- 3、测试
写代码
修改注册服务接口代码：/u1/topprod/tiptop/aws/4gl/aws_ttsrv2_service.4gl
- 添加發佈 Service Function 段落
----------------------- begin waichi001 -------------- WHEN"aws_customizeQueryData"LET l_op=com.WebOperation.CreateDOCStyle("aws_customizeQueryData", p_op_name, g_request, g_response)----------------------- end waichi001 --------------- 添加提供服務呼叫
----------------------- begin waichi001 -------------- FUNCTION aws_customizeQueryData()LET g_service="CustomizeQueryData"CALL aws_customize_query_data()END FUNCTION ----------------------- end waichi001 --------------新增接口实现代码：/u1/topprod/tiptop/aws/4gl/aws_customize_query_data.4gl
# Prog. Version..: '5.30.15-26.01.21(00000)' ##{# Program name...: aws_customize_query_data.4gl# Descriptions...: 自定义查询接口# Date & Author..: 2026/01/21 by DKLi1717DATABASE ds GLOBALS"../../config/top.global"GLOBALS"../4gl/aws_ttsrv2_global.4gl"# @mathodName: aws_customize_query_data# @author:李德凯 2665252078@qq.com# @date:Created in 2026-01-21# @description: 提供取得 ERP 料件資料服務(入口 function)FUNCTION aws_customize_query_data()WHENEVER ERROR CONTINUE CALL aws_ttsrv_preprocess()IF g_status.code="0"THEN CALL aws_customize_query_data_process()END IF CALL aws_ttsrv_postprocess()END FUNCTION# @mathodName: aws_customize_query_data_process# @author:李德凯 2665252078@qq.com# @date:Created in 2026-01-21# @description: 查詢 ERP 料件編號資料FUNCTION aws_customize_query_data_process()DEFINE l_fields STRING, l_sql STRING, l_type STRING, l_node om.DomNode, getNowID STRING, temp_table_name LIKE type_file.chr1000, temp_table_date_name LIKE type_file.chr1000, l_xmlData om.DomNode DEFINE docData om.DomDocument, piData om.DomNode, nodeData om.DomNode, fData om.DomNode LET l_fields=aws_ttsrv_getParameter("setFields")LET l_sql=aws_ttsrv_getParameter("setSql")LET l_type=aws_ttsrv_getParameter("setType")LETgetNowID="s"||FGL_GETPID()IFl_type="Single"THEN -- LET docData=om.DomDocument.create("Test")-- LET piData=docData.getDocumentElement()-- LETnodeData=piData.createChild("Record")-- LETfData=nodeData.createChild("Field")-- CALL fData.setAttribute("setFields",l_fields)-- LETfData=nodeData.createChild("Field")-- CALL fData.setAttribute("setSql",l_sql)-- LETfData=nodeData.createChild("Field")-- CALL fData.setAttribute("setType",l_type)-- CALL piData.writeXml("/u1/out/r1.xml")CALL createTempTable(getNowID,l_fields,l_sql)RETURNING temp_table_name,temp_table_date_name CALL createTempTableToXML(temp_table_name,temp_table_date_name)RETURNING l_xmlData --CALL l_xmlData.writeXml("/u1/out/r1.xml")LET l_node=aws_ttsrv_addMasterRecord(l_xmlData,"pmn_file")CALL dropTempUploadTable(temp_table_name,temp_table_date_name)END IF --CALL createTempTable(getNowID,l_fields,l_sql)RETURNING temp_table_name,temp_table_date_name -- CALL createTempTableToXML(temp_table_name,temp_table_date_name)RETURNING l_xmlData --CALL l_xmlData.writeXml("/u1/out/r2.xml")-- LET l_node=aws_ttsrv_addMasterRecord(l_xmlData,"pmn_file")-- CALL dropTempUploadTable(temp_table_name,temp_table_date_name)END FUNCTION注意代码做了封装：可参考如下的 s_poi_excel.4gl
07.02.02.tiptop集成篇（4gl扩展功能 集成java：封装java的poi包设配4gl 案例 制作excle）
07.02.03.tiptop集成篇（4gl扩展功能 集成java：封装java的poi包设配4gl 案例 导入excle）
源代码:s_poi_excel.4gl
配置
整合Server端 配置
- 方式一：界面维护
# 服务代码：CustomizeQueryData# 服务说明：自定义查询取得資料# 对应ERP函数名称：aws_customizeQueryDataexe2 aws_ttcfg2方式二：数据库插入
- 可以参考 ：GetItemData 使用sql插入
INSERTINTODS.WSR_FILESELECT'CustomizeQueryData'WSR01,WSR02,'自定义查询取得資料'WSR03,'aws_customizeQueryData'WSR04,WSRACTI,SYSDATE WSRDATE,WSRGRUP,WSRMODU,WSRUSER,WSRORIU,WSRORIGFROMDS.WSR_FILEWHEREWSR01='GetItemData'接口实现的代码编译
# 上传cd/u1/topprod/tiptop/aws/4gl put aws_customize_query_data.4gl# 编译cd/u1/topprod/tiptop/aws/4gl r.c2 aws_customize_query_data注册服务接口的代码编译
# 备份cd/u1/topprod/tiptop/aws/4glmvaws_ttsrv2_service.4gl aws_ttsrv2_service.4gl20260123DLKLi# 上传cd/u1/topprod/tiptop/aws/4gl put aws_ttsrv2_service.4gl# 编译cd/u1/topprod/tiptop/aws/4gl r.c2 aws_ttsrv2_service程序链接
- 方式一：界面维护
# 查询：连结档案：aws_ttsrv2# 表格新增：模组代码：AWS 程序代码：aws_customize_query_data 是否连接：是exe2 p_link aws_ttsrv2cd/u1/topprod/tiptop/aws/4gl r.c2 aws_ttsrv2 r.l2 aws_ttsrv2 exe2 aws_ttsrv2- 方式二：数据库
INSERTINTOGAL_FILESELECTgal01,gal02,'aws_customize_query_data'gal03,gal04FROMGAL_FILEWHEREgal01='aws_ttsrv2'ANDgal02='AWS'ANDGAL03='aws_get_item_data'cd/u1/topprod/tiptop/aws/4gl r.c2 aws_ttsrv2 r.l2 aws_ttsrv2 exe2 aws_ttsrv2 r.r2 aws_ttsrv2 -W http://10.1.2.205:8090生成WSDL
# 开自己账号终端：查看suBL066912cd/u1/topprod/tiptop/aws/4gl r.r2 aws_ttsrv2 -W http://10.1.2.205:8090# 下载后查询查询CustomizeQueryData是否存在get /u1/out/TIPTOPServiceGateWay.wsdl- 浏览器访问：http://10.1.2.205/web/ws/r/aws_ttsrv2?wsdl
- 查询CustomizeQueryData是否存在
重启webserver
注意：每次修改都按顺序执行一次
# 开使用tiptop的终端终端： 杀进程sutiptopps-ef|grepas.xcf_84kill-9 xxxx# 开使用root的终端终端：使用root账户重启 httpdsuservicehttpd restart# 使用tiptop账号的终端：使用tiptop账号重启webserversutiptop startwsps-ef|grepas.xcf_84测试
- 使用Apipost
- 请求参数
- url：http://10.1.2.205/web/ws/r/aws_ttsrv2?wsdl
- 请求方式：POST
- Header
Content-Type:text/xml;charset=UTF-8 SOAPAction:""- Body - raw 选xml<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"xmlns:tip="http://www.dsc.com.tw/tiptop/TIPTOPServiceGateWay"><soapenv:Header/><soapenv:Body><tip:CustomizeQueryDataRequest><tip:request><![CDATA[<Request><Access><Authenticationuser="xxxx"password="xxxxx"/><Connectionapplication="tiptop"source="10.1.2.205"/><Organizationname="BLPROD"/><Localelanguage="zh_tw"/></Access><RequestContent><Parameter><Record><Fieldname="setFields"value="pmn33,pmn01,pmn02,pmn09,pmn37,pmnud10"/><Fieldname="setSql"value="SELECT pmn33,pmn01,pmn02,pmn09,pmn37,pmnud10 FROM pmn_file WHERE pmn01 ='VFU22-22100017' AND pmn02 IN ('1','2','3') "/><Fieldname="setType"value="Single"/></Record></Parameter><Document /></RequestContent></Request>]]></tip:request></tip:CustomizeQueryDataRequest></soapenv:Body></soapenv:Envelope>因为公司的接口debug有问题，因此做了写如xml判断，可以get /u1/out/r1.xml 查看
