技术标签: 鼎捷Webservice 鼎捷4GL开发例子 鼎捷TIPTOP 鼎捷安卓PDA扫码方案 鼎捷APP二维码整体解决方案 鼎捷WMS仓库移动扫码
2.内码扫描 |
aws_get_barcsft620new |
扫描内部外箱标签二维码,同时获取内码批号、料号、数量(内码通用接口) |
项目 |
说明 |
函式说明 |
扫描内部条码, 返回料号、批号、数量等 |
函式名称 |
aws_get_barcsft620new 接口名:GetBarCsft620new |
aws_get_barcsft620new.4gl 源码
# Prog. Version..: '5.30.03-12.09.18(00000)'
# Program name...: aws_get_barcsft620new.4gl
# Descriptions...截取內部條碼信息并返回前端
# Date & Author..: 2022-08-09 By Lian
DATABASE ds
GLOBALS "../../../tiptop/config/top.global"
GLOBALS "../../../tiptop/aws/4gl/aws_ttsrv_global.4gl"
FUNCTION aws_get_barcsft620new()
WHENEVER ERROR CONTINUE
CALL aws_ttsrv_preprocess() #呼叫服務前置處理程序 #FUN-860037
IF g_status.code = "0" THEN
CALL aws_get_barcsft620new_process()
END IF
CALL aws_ttsrv_postprocess() #呼叫服務後置處理程序
END FUNCTION
FUNCTION aws_get_barcsft620new_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 #返回內部條碼信息
tc_ade01 LIKE sfb_file.sfb01, #工單號
tc_ade041 LIKE sfb_file.sfb05, #料號
tc_ade042 LIKE sfv_file.sfv07, #批號
tc_ade043 LIKE sfb_file.sfb08, #條碼數量
khpartno LIKE ima_file.ima02, #客戶產品編號
ima02 LIKE ima_file.ima02, #品名
ima021 LIKE ima_file.ima021, #規格
ta_sfv01 LIKE type_file.chr1000, #包裝方式 格式:包裝方式1@每箱數量1%包裝方式2@每箱量2
wipqty LIKE sfb_file.sfb08
END RECORD
DEFINE l_snt LIKE type_file.num10
DEFINE l_barcode1 STRING
DEFINE l_sql STRING
DEFINE l_sfb05,l_nb_sfb05 LIKE sfb_file.sfb05
DEFINE l_sfb02 LIKE sfb_file.sfb02 #No.FUN-190510
DEFINE l_bzfs LIKE obe_file.obe01
DEFINE l_valbar LIKE type_file.chr50
DEFINE g_ecm RECORD LIKE ecm_file.*
DEFINE l_wip_qty LIKE shb_file.shb111
DEFINE l_prog_id,g_in_type LIKE type_file.chr1
# 條碼規則:料號%客戶產品編號%批號%數量%日期
# 說明:批號即為工單號
LET l_nbbarcode = aws_ttsrv_getParameter("nbbarcode") #外箱條碼
LET l_prog_id = aws_ttsrv_getParameter("prog_id") #哪支作業調用的本接口: 1~6 ; 1-入庫生成;2-入庫上架;3-一般銷售出貨;4-多角銷售出貨;5-採購收貨;6-倉庫盤點
LET g_in_type = aws_ttsrv_getParameter("in_type") ##1:生成入??及?工? 2:?生成?工?
IF g_in_type IS NULL THEN
LET g_in_type = '1'
END IF
IF l_prog_id IS NULL OR l_prog_id NOT MATCHES '[123456]' THEN
LET g_status.code = '-1'
LET g_status.description = '作業ID值須為【1~6】,請檢查確認!'
RETURN
END IF
IF l_nbbarcode IS NULL THEN
LET g_status.code = '-1'
LET g_status.description = '掃描傳入外箱條碼為空,請檢查確認!'
RETURN
END IF
#解析處理條碼
# select length(regexp_replace(l_nbbarcode,'[^%]','')) INTO l_snt from dual;
SELECT SUBSTR(l_nbbarcode,instr(l_nbbarcode,'%',1,4)+1, ((instr(l_nbbarcode,'%',1,4)-1) )) INTO l_valbar FROM dual
IF NOT cl_null(l_valbar) THEN #只有格式為【料號%客戶產品編號%批號%數量%日期】 條碼才合法
-----------------------------------------------------------------------------------------START
SELECT SUBSTR(l_nbbarcode,1,instr(l_nbbarcode,'%',1,1)-1)
INTO l_statu4.tc_ade041 #截取條碼料號
FROM dual
IF cl_null(l_statu4.tc_ade041 ) THEN
LET g_status.code = '-1'
LET g_status.description = '截取條碼料號失敗,請檢查條碼!'
RETURN
END IF
SELECT SUBSTR(l_nbbarcode,instr(l_nbbarcode,'%',1,1)+1,((instr(l_nbbarcode,'%',1,2)-1)-instr(l_nbbarcode,'%',1,1)))
INTO l_statu4.khpartno #截取條碼客戶產品編號
FROM dual
IF cl_null(l_statu4.khpartno ) THEN
LET g_status.code = '-1'
LET g_status.description = '截取條碼客戶產品編號失敗,請檢查條碼!'
RETURN
END IF
SELECT SUBSTR(l_nbbarcode,instr(l_nbbarcode,'%',1,2)+1,((instr(l_nbbarcode,'%',1,3)-1)-instr(l_nbbarcode,'%',1,2)))
INTO l_statu4.tc_ade01 #截取條碼工單,即批號
FROM dual
IF cl_null(l_statu4.tc_ade01 ) THEN
LET g_status.code = '-1'
LET g_status.description = '截取條碼工單(批號)失敗,請檢查條碼!'
RETURN
END IF
LET l_statu4.tc_ade042 =l_statu4.tc_ade01 #批號=工單號
SELECT SUBSTR(l_nbbarcode,instr(l_nbbarcode,'%',1,3)+1,((instr(l_nbbarcode,'%',1,4)-1)-instr(l_nbbarcode,'%',1,3)))
INTO l_statu4.tc_ade043 #截取條碼數量
FROM dual
IF cl_null(l_statu4.tc_ade041 ) THEN
LET g_status.code = '-1'
LET g_status.description = '截取條碼數量失敗,請檢查條碼!'
RETURN
END IF
-----------------------------------------------------------------------------------------END
CALL aws_ttsrv_addParameterRecord(base.TypeInfo.create(l_statu4)) #返回
# LET l_node= aws_ttsrv_addMasterRecord(base.TypeInfo.create(l_statu1), "Master") #Response
ELSE
LET g_status.code = "-1"
LET g_status.description = "非法的物料條碼,請檢查條碼格式是否正確!"
RETURN
END IF
END FUNCTION
SOAPUI提交的数据
nbbarcode 内部条码
05001746%2689082(B)%230715SA-A11418T11%100%001
条码规则:料号%客户产品编号%批号%每箱数量%箱号
prog_id 扫描程序的ID
<Request>
<Access>
<Authentication password="tiptop" user="liyuhan"/>
<Connection application="APP" source=""/>
<Organization name="0TDGCS "/>
<Locale language="zh_cn"/>
</Access>
<RequestContent>
<Parameter>
<Record>
<Field name="prog_id" value="1"/>
<Field name="nbbarcode" value="05001746%2689082(B)%230715SA-A11418T11%100%001"/>
</Record>
</Parameter>
<Document/>
</RequestContent>
</Request>
返回的信息
tc_ade01 工单编号
tc_ade041 料号
tc_ade042 批号
tc_ade043 数量
ima02 品名
ima021 产品编号
<Response>
<Execution>
<Status code="0" sqlcode="0" description=""/>
</Execution>
<ResponseContent>
<Parameter>
<Record>
<Field name="tc_ade041" value="05001746"/>
<Field name="tc_ade042" value="230715SA-A11418T11"/>
<Field name="tc_ade043" value="100.000"/>
<Field name="ima02" value="BOYP CH LYL BYFS HGL"/>
<Field name="ima021" value="2170477X"/>
</Record>
</Parameter>
<Document/>
</ResponseContent>
</Response>
文章浏览阅读1.7k次。可以看到很多联发科的MT芯片摘自:https://net.zol.com.cn/531/5312999.html彻底扒光 通过智能路由器拆解看其本质2015-07-23 00:40:00[中关村在线 原创] 作者:陈赫|责编:白宁收藏文章 分享到 评论(24)关注智能路由器拆解的朋友们注意啦!我们已经将这五款产品彻底扒开,将主板的真容展现在了大家的眼前。网友们可以看见这些智能路由器主板的做工和用料,我们还为网友们展示了主要的电子元器件,供大家品评观赏。..._路由器拆解
文章浏览阅读2.1k次,点赞101次,收藏78次。【学习背景】今天主要是来了解Java线程Thread中的run()、start()两个方法的执行有哪些区别,会给出一个简单的测试代码样例,快速理解两者的区别,再从源码层面去追溯start()底层是如何最终调用Thread#run()方法的,个人觉得这样的学习不论对面试,还是实际编程来说都是比较有帮助的。进入正文~学习目录一、代码测试二、源码分析2.1 run()方法2.2 start()方法三、使用总结一、代码测试执行Thread的run()、start()方法的测试代码如下:public_jdk的源码hotspot跟jdk是分开的
文章浏览阅读4.4k次,点赞90次,收藏85次。俄乌冲突中,各方势力通过数据擦除恶意软件破坏关键信息基础设施计算机的数据,达到深度致瘫的效果,同时窃取重要敏感信息。_俄乌网络战观察(一)
文章浏览阅读1.7w次,点赞23次,收藏139次。Maven 私服是一种特殊的Maven远程仓库,它是架设在局域网内的仓库服务,用来代理位于外部的远程仓库(中央仓库、其他远程公共仓库)。当然也并不是说私服只能建立在局域网,也有很多公司会直接把私服部署到公网,具体还是得看公司业务的性质是否是保密的等等,因为局域网的话只能在公司用,部署到公网的话员工在家里也可以办公使用。_nexus maven
文章浏览阅读934次。我先用所有的样本数据对模型做几轮初步训练,让深度神经模型基本拟合(数万条记录的训练集,识别率到99%左右),具备初步的识别能力,这时的模型就是“直男”。相较于训练很多轮、拟合程度很高的“油腻男”,它的拟合程度较低,还是“直男愣头青”。..............._java ocr ai识别训练
文章浏览阅读688次。一、问题现象: 在数据库表中日期字段中存的日期光有年月日,没有时分秒。二、产生原因:三 解决办法 检查表的相应映射xml文件。 <property name="operateDate" type="Date">如果同上面所写,那问题出在 type类型上了正确写法 :<property name="operateDate" type="java.util..._hibernate解析時間只有年月日沒有時分秒
文章浏览阅读1k次,点赞2次,收藏2次。文章目录问题描述:解决方案:问题描述:提示:idea springbbot运行无法编译成功,找不到jar包报错E:\ideaProject\demokkkk\src\main\java\com\example\demo\config\WebSocketConfig.javaError:(3, 46) java: 程序包org.springframework.context.annotation不存在Error:(4, 46) java: 程序包org.springframework.conte_error:(3, 46) java: 程序包org.springframework.context.annotation不存在
文章浏览阅读6.4k次,点赞6次,收藏36次。1、redux中间件中间件提供第三方插件的模式,自定义拦截 action -> reducer 的过程。变为 action -> middlewares -> reducer 。这种机制可以让我们改变数据流,实现如异步 action ,action 过滤,日志输出,异常报告等功能。常见的中间件:redux-logger:提供日志输出redux-thunk:处理异步操作..._recate面试
文章浏览阅读405次。由于要在开发板中加载libjpeg,不能使用gcc编译的库文件给以使用,需要自己配置使用另外的编译器编译该库文件。/usr/bin/ld:.libs/jaricom.o:RelocationsingenericELF(EM:40)/usr/bin/ld:.libs/jaricom.o:RelocationsingenericELF(EM:40)...._jpeg_utils.lo: relocations in generic elf (em: 8) error adding symbols: file
文章浏览阅读578次,点赞10次,收藏17次。【办公类-22-06】周计划系列(1)“信息窗” (2024年调整版本)
文章浏览阅读309次。SEO全称为Search Engine Optimization,中文解释为搜索引擎优化。一般指通过对网站内部调整优化及站外优化,使网站满足搜索引擎收录排名需求,在搜索引擎中提高关键词排名,从而把精准..._百度seo resetful
文章浏览阅读438次。回归预测 | Matlab实现HPO-ELM猎食者算法优化极限学习机的数据回归预测_猎食者优化算法