鼎捷ERP Tiptop T100/GP Webservice开发详细步骤完整例子带有源代码 soapui测试 Tiptop Webservice开发源代码4GL完整例子---移动开发之获取入库单号

weijia3624

已于 2024-02-26 16:36:35 修改

阅读量565

点赞数 1

分类专栏：鼎捷TIPTOP 文章标签：鼎捷安卓PDA扫码方案鼎捷Webservice 鼎捷安卓PDA扫码鼎捷T100开发鼎捷开发资料

于 2023-04-28 16:28:20 首次发布

本文链接：https://blog.csdn.net/weijia3624/article/details/130428206

版权

鼎捷TIPTOP 专栏收录该内容

8 篇文章 6 订阅

订阅专栏

该文章描述了一个名为aws_get_asft620的函数，用于处理从ERP系统获取待上架完工入库单的逻辑。函数调用预处理和后处理函数，并执行SQL查询从sfu_file表中检索数据。SOAPUI提交的参数包括认证信息和请求内容，返回的是入库单号和日期。

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

更多例子源码下载 https://pan.baidu.com/s/1Qb1QIUZITfIPPN_WcflscA?pwd=k4tk

函式名称	aws_get_asft620 接口名：GetAsft620

aws_get_asft620.4gl 文件

DATABASE ds
 
 
GLOBALS "../../../tiptop/config/top.global" 
 
GLOBALS "../../../tiptop/aws/4gl/aws_ttsrv_global.4gl"

                   
FUNCTION aws_get_asft620()
     
    WHENEVER ERROR CONTINUE
 
    CALL aws_ttsrv_preprocess()    
     
    IF g_status.code = "0" THEN
       CALL aws_get_asft620_process()
    END IF
 
    CALL aws_ttsrv_postprocess()  
END FUNCTION
 
FUNCTION aws_get_asft620_process()
	DEFINE l_username LIKE type_file.chr20
	DEFINE l_barcode  LIKE type_file.chr100
	DEFINE l_n        LIKE type_file.num5
	DEFINE l_length   LIKE type_file.num5
    DEFINE l_node     om.DomNode
  
    DEFINE l_sfb01 LIKE sfb_file.sfb01  
    DEFINE l_nbbarcode LIKE type_file.chr1000
    DEFINE l_kh_b LIKE type_file.chr1000
    DEFINE l_kh_o LIKE type_file.chr1000
    DEFINE l_cnt1,l_i,l_len,l_len1        LIKE type_file.num5
    DEFINE l_statu4    RECORD                  
           sfu01    LIKE sfu_file.sfu01,         
           sfu02   LIKE sfu_file.sfu02          
           END RECORD 
    DEFINE l_snt   LIKE type_file.num10
    DEFINE l_barcode1 STRING
    DEFINE l_sql   STRING 
    DEFINE l_so_type  LIKE  type_file.chr50
      
    LET l_so_type = aws_ttsrv_getParameter("so_type")  

         
   
   LET l_sql = "  SELECT  sfu01,sfu02 FROM sfu_file  WHERE sfuconf ='Y'    AND sfu00  = '1'  AND sfupost = 'N' "  
   
     LET l_snt = 0
        PREPARE rkch_pr FROM l_sql
        DECLARE xsch_cur CURSOR FOR rkch_pr
        FOREACH xsch_cur INTO   l_statu4.*
           IF STATUS THEN 
               LET g_status.code = -1
                LET g_status.description =  '獲取入庫單列表出錯,請聯繫管理員!' 
               LET g_success = 'N'
               RETURN
            END IF 
               LET l_snt = 1
      
            LET l_node= aws_ttsrv_addMasterRecord(base.TypeInfo.create(l_statu4), "Master")  
       END FOREACH
          
     IF l_snt = 0 THEN
           LET g_status.code = "-1"
           LET g_status.description = "ERP無待上架過賬的完工入庫單!"
            RETURN  
    END IF
      

END FUNCTION

soapui提交的参数

sfu01      入库单号

&lt;Request>
    &lt;Access>
        &lt;Authentication password="tiptop" user="xiaolin"/>
        &lt;Connection application="APP" source="" />
        &lt;Organization name="01HZJM" />
        &lt;Locale language="zh_cn" />
    &lt;/Access>
    &lt;RequestContent>
        &lt;Parameter>
            &lt;Record>
               &lt;Field name="prog_id" value="1"/>
            &lt;/Record>
        &lt;/Parameter>
        &lt;Document/>
    &lt;/RequestContent>
&lt;/Request>

返回的值

入库单号、入库日期

<Response>
  <Execution>
    <Status code="0" sqlcode="0" description=""/>
  </Execution>
  <ResponseContent>
    <Parameter/>
    <Document>
      <RecordSet id="1">
        <Master name="Master">
          <Record>
            <Field name="sfu01" value="53A3-23040001"/>
            <Field name="sfu02" value="2023/04/17"/>
          </Record>
        </Master>
      </RecordSet>
    </Document>
  </ResponseContent>
</Response>