恭喜,你发布的帖子
发布于 2018-11-25 14:49:54
3楼
IF #检索信息.检索号码>0 & #检索信息.检索确认 THEN
FOR #料架个数检索 := 1 TO 6 BY 1 DO
FOR #料架层数检索 := 1 TO 7 BY 1 DO
FOR #料架料位检索 := 1 TO 12 BY 1 DO
IF "全料架".料架[#料架个数检索].料架层[#料架层数检索].料架每层数[#料架料位检索].料架号码= #检索信息.检索号码 THEN
#检索物料信息.检索号码属在料架 := #料架个数检索;
#检索物料信息.检索号码属在层 := #料架层数检索;
#检索物料信息.检索号码属在料位 := #料架料位检索;
END_IF;
;
END_FOR;
END_FOR;
;
END_FOR;
#检索物料信息.料位有无 := "全料架".料架[#检索物料信息.检索号码属在料架].料架层[ #检索物料信息.检索号码属在层].料架每层数[#检索物料信息.检索号码属在料位].料位有无;
#检索物料信息.料架扫描 := "全料架".料架[#检索物料信息.检索号码属在料架].料架层[#检索物料信息.检索号码属在层].料架每层数[#检索物料信息.检索号码属在料位].料架扫描;
#检索物料信息.扫描状态 := "全料架".料架[#检索物料信息.检索号码属在料架].料架层[#检索物料信息.检索号码属在层].料架每层数[#检索物料信息.检索号码属在料位].扫描状态;
#检索物料信息.电极有无 := "全料架".料架[#检索物料信息.检索号码属在料架].料架层[#检索物料信息.检索号码属在层].料架每层数[#检索物料信息.检索号码属在料位]."电极/托盘有无";
#检索物料信息."电极/托盘状态" := "全料架".料架[#检索物料信息.检索号码属在料架].料架层[#检索物料信息.检索号码属在层].料架每层数[#检索物料信息.检索号码属在料位]."电极/托盘状态";
#检索物料信息.条形码 := "全料架".料架[#检索物料信息.检索号码属在料架].料架层[#检索物料信息.检索号码属在层].料架每层数[#检索物料信息.检索号码属在料位]."电极/托盘数据".条形码;
;
END_IF;
请填写推广理由:
分享
只看
楼主