代码修复

wms/hd/nladmin-system/src/main/java/org/nl/wms/pda/callEmpty/service/impl/CallEmptyServiceImpl.java

@@ -40,7 +40,9 @@ public class CallEmptyServiceImpl implements CallEmptyService {
         if (StrUtil.isEmpty(area_code)) {
             throw new PdaRequestException("区域不能为空！");
         }
-        JSONArray pointArr = WQL.getWO("QPAEMPTY").addParam("flag", "2").addParam("area_type", area_code).process().getResultJSONArray(0);
+        String param1 = "";
+        if (area_code.equals("27")) param1 = "上料";
+        JSONArray pointArr = WQL.getWO("QPAEMPTY").addParam("flag", "2").addParam("area_type", area_code).addParam("param", param1).process().getResultJSONArray(0);
         JSONObject returnjo = new JSONObject();
         returnjo.put("code", "1");
         returnjo.put("desc", "操作成功！");

wms/hd/nladmin-system/src/main/java/org/nl/wms/pda/callMaterial/service/impl/CallMaterialServiceImpl.java

@@ -71,7 +71,7 @@ public class CallMaterialServiceImpl implements CallMaterialService {
         String device_id = pointObj.getString("device_id");
         //2 根据设备去找对应的生产任务
         JSONObject productTaskObj = WQLObject.getWQLObject("PDM_MG_produceTask")
-                .query("device_id ='" + device_id + "' and producetask_status in ('03','02','04')", "seq_no")
+                .query("device_id ='" + device_id + "' and producetask_status in ('03','02','04')", "create_time")
                 .uniqueResult(0);
         if (ObjectUtil.isEmpty(productTaskObj)) {
             throw new BadRequestException("未找到点位为'" + code + "'的生产任务！");

wms/hd/nladmin-system/src/main/java/org/nl/wms/pda/checkout/service/impl/CheckOutServiceImpl.java

@@ -53,6 +53,8 @@ public class CheckOutServiceImpl implements CheckOutService {
             throw new BadRequestException("点位为'" + point_code + "'已锁定，不能出库");
         }
         WQLObject ivtTable = WQLObject.getWQLObject("st_ivt_structivt");
+        WQLObject groupTab = WQLObject.getWQLObject("st_buss_vehiclegroup");
+        WQLObject pointTab = WQLObject.getWQLObject("sch_base_point");
         JSONObject ivtObj = ivtTable.query("struct_id = '" + point_id + "'").uniqueResult(0);
         if (ObjectUtil.isEmpty(ivtObj)){
             throw new BadRequestException("未找到库存信息");
@@ -93,6 +95,13 @@ public class CheckOutServiceImpl implements CheckOutService {
         param.put("workprocedure_id", ivtObj.getString("ivt_workprocedure_id"));
         param.put("struct_id",point_id);
         ivtService.addIvtFlow(param, IvtChangeTypeEnum.SUB_IVT_AND_CAN_USE);
+        // 删除阻盘信息
+        groupTab.delete("vehicle_code = '" +ivtObj.getString("vehicle_code")+"'" );
+        // 点位状态更新
+        JSONObject object = pointTab.query("point_code = '" + point_code + "'").uniqueResult(0);
+        object.put("point_status", "00");
+        object.put("vehicle_code", "");
+        pointTab.update(object);
         JSONObject returnjo = new JSONObject();
         returnjo.put("code", "1");
         returnjo.put("desc", "操作成功！");

wms/hd/nladmin-system/src/main/java/org/nl/wms/pda/sendEmpty/wql/QPAEMPTY.wql

@@ -1,10 +1,10 @@
 [交易说明]
 	交易名：	库区分页查询
-	所属模块：	
+	所属模块：
-	功能简述：	
+	功能简述：
-	版权所有：	
+	版权所有：
-	表引用：	
+	表引用：
-	版本经历：	
+	版本经历：
 
 [数据库]
 	--指定数据库，为空采用默认值，默认为db.properties中列出的第一个库
@@ -15,30 +15,31 @@
 	#################################################
 	输入.flag					            TYPEAS s_string
 	输入.area_type					        TYPEAS s_string
+	输入.param					        TYPEAS s_string
 
 
 [临时表]
 	--这边列出来的临时表就会在运行期动态创建
-	
+
 [临时变量]
 	--所有中间过程变量均可在此处定义
-		 
+
 [业务过程]
 
 	##########################################
 	#			1、输入输出检查				 #
 	##########################################
 
-	
+
 	##########################################
 	#			2、主过程前处理				 #
 	##########################################
-	
+
-	
+
 	##########################################
 	#			3、业务主过程			 	 #
 	##########################################
-	 
+
     IF 输入.flag = "1"
         QUERY
           SELECT
@@ -66,6 +67,9 @@
           	 OPTION 输入.area_type <> ""
                  point.area_type  = 输入.area_type
               ENDOPTION
+              OPTION 输入.param <> ""
+                 point.point_name LIKE "%" 输入.param "%"
+              ENDOPTION
               ENDSELECT
         ENDQUERY
     ENDIF
@@ -95,4 +99,4 @@
                       	sys.dict_id = '34'
                       	ENDSELECT
                     ENDQUERY
-                ENDIF
+                ENDIF