本页目录1、写代码2、配置3、测试写代码修改注册服务接口代码/u1/topprod/tiptop/aws/4gl/aws_ttsrv2_service.4gl添加發佈 Service Function 段落----------------------- begin waichi001 -------------- WHENaws_customizeQueryDataLET l_opcom.WebOperation.CreateDOCStyle(aws_customizeQueryData, p_op_name, g_request, g_response)----------------------- end waichi001 --------------添加提供服務呼叫----------------------- begin waichi001 -------------- FUNCTION aws_customizeQueryData()LET g_serviceCustomizeQueryDataCALL 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.globalGLOBALS../4gl/aws_ttsrv2_global.4gl# mathodName: aws_customize_query_data# author:李德凯 2665252078qq.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.code0THEN CALL aws_customize_query_data_process()END IF CALL aws_ttsrv_postprocess()END FUNCTION# mathodName: aws_customize_query_data_process# author:李德凯 2665252078qq.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_fieldsaws_ttsrv_getParameter(setFields)LET l_sqlaws_ttsrv_getParameter(setSql)LET l_typeaws_ttsrv_getParameter(setType)LETgetNowIDs||FGL_GETPID()IFl_typeSingleTHEN -- LET docDataom.DomDocument.create(Test)-- LET piDatadocData.getDocumentElement()-- LETnodeDatapiData.createChild(Record)-- LETfDatanodeData.createChild(Field)-- CALL fData.setAttribute(setFields,l_fields)-- LETfDatanodeData.createChild(Field)-- CALL fData.setAttribute(setSql,l_sql)-- LETfDatanodeData.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_nodeaws_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_nodeaws_ttsrv_addMasterRecord(l_xmlData,pmn_file)-- CALL dropTempUploadTable(temp_table_name,temp_table_date_name)END FUNCTION注意代码做了封装可参考如下的 s_poi_excel.4gl07.02.02.tiptop集成篇4gl扩展功能 集成java封装java的poi包设配4gl 案例 制作excle07.02.03.tiptop集成篇4gl扩展功能 集成java封装java的poi包设配4gl 案例 导入excle源代码:s_poi_excel.4gl配置整合Server端 配置方式一界面维护# 服务代码CustomizeQueryData# 服务说明自定义查询取得資料# 对应ERP函数名称aws_customizeQueryDataexe2 aws_ttcfg2方式二数据库插入可以参考 GetItemData 使用sql插入INSERTINTODS.WSR_FILESELECTCustomizeQueryDataWSR01,WSR02,自定义查询取得資料WSR03,aws_customizeQueryDataWSR04,WSRACTI,SYSDATE WSRDATE,WSRGRUP,WSRMODU,WSRUSER,WSRORIU,WSRORIGFROMDS.WSR_FILEWHEREWSR01GetItemData接口实现的代码编译# 上传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_datagal03,gal04FROMGAL_FILEWHEREgal01aws_ttsrv2ANDgal02AWSANDGAL03aws_get_item_datacd/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请求参数urlhttp://10.1.2.205/web/ws/r/aws_ttsrv2?wsdl请求方式POSTHeaderContent-Type:text/xml;charsetUTF-8 SOAPAction:- Body - raw 选xmlsoapenv:Envelope xmlns:soapenvhttp://schemas.xmlsoap.org/soap/envelope/xmlns:tiphttp://www.dsc.com.tw/tiptop/TIPTOPServiceGateWaysoapenv:Header/soapenv:Bodytip:CustomizeQueryDataRequesttip:request![CDATA[RequestAccessAuthenticationuserxxxxpasswordxxxxx/Connectionapplicationtiptopsource10.1.2.205/OrganizationnameBLPROD/Localelanguagezh_tw//AccessRequestContentParameterRecordFieldnamesetFieldsvaluepmn33,pmn01,pmn02,pmn09,pmn37,pmnud10/FieldnamesetSqlvalueSELECT pmn33,pmn01,pmn02,pmn09,pmn37,pmnud10 FROM pmn_file WHERE pmn01 VFU22-22100017 AND pmn02 IN (1,2,3) /FieldnamesetTypevalueSingle//Record/ParameterDocument //RequestContent/Request]]/tip:request/tip:CustomizeQueryDataRequest/soapenv:Body/soapenv:Envelope因为公司的接口debug有问题因此做了写如xml判断可以get /u1/out/r1.xml 查看