ALTER PROCEDURE [dbo].[SP_HTTP_CLIENT_REV5]
@p_Send VARCHAR(4000),
@p_Rev VARCHAR(8000),
@P_CODE VARCHAR(100) OUT,
@P_MSG VARCHAR(4000) OUT
AS
/*向wms发送sort 分拣结果回传接口*/
DECLARE @v_Msg VARCHAR(4000) = '';
DECLARE @chuteMsg VARCHAR(8000) = ''
DECLARE @JSON VARCHAR(255) = ''
DECLARE @Code VARCHAR(255) = ''
DECLARE @V_BARCODE VARCHAR(200) = ''
DECLARE @Rectype VARCHAR(50) = ''
DECLARE @Boxtype VARCHAR(50) = ''
DECLARE @BATCH_NO VARCHAR(50) = ''
DECLARE @MATNO VARCHAR(50) = ''
DECLARE @BoxQuant VARCHAR(50) = ''
DECLARE @Port VARCHAR(50) = ''
BEGIN
SET @p_Send = '' ;
SET @Code = (SELECT StringValue from parseJSON(@p_Rev) WHERE name='Code')
SELECT @V_BARCODE = Barcode,@Rectype =Rectype, @Boxtype = box_type,@BATCH_NO = batch_no,@MATNO = Matno,@Port = Port FROM OPENJSON(@p_Rev)WITH(
Barcode VARCHAR(100) '$.DataINput.Barcode',
Rectype VARCHAR(100) '$.Data.Rectype',
box_type VARCHAR(100) '$.Data.box_type',
batch_no VARCHAR(100) '$.Data.batch_no',
Matno VARCHAR(100) '$.Data.Matno',
Port VARCHAR(100) '$.Data.Port'
)
IF @Code = 'S'
BEGIN
SET @P_MSG = 'WMS反馈成功'
SELECT * FROM WCS_BCR_TRK where BARCODE = @V_BARCODE AND DEAL_FLAG = '0' AND DATEDIFF(MINUTE,CREATE_DATE,GETDATE())<30 order by CREATE_DATE desc
IF @@ROWCOUNT = 0
BEGIN
INSERT INTO WCS_BCR_TRK(BARCODE,BATCH,MATNO,RecType,Box_Type,[Port],DEAL_FLAG) VALUES(ISNULL(@V_BARCODE,'') ,ISNULL(@BATCH_NO,'') ,ISNULL(@MATNO,''),ISNULL(@Rectype,''),ISNULL(@Boxtype,''),ISNULL(@Port,''),0)
END
UPDATE WCS_UNSTACKING_LOG
SET DEAL_FLAG = 1
WHERE DEAL_FLAG = 7 and BARCODE = @V_BARCODE
END
ELSE
BEGIN
SELECT * FROM WORK_LOG WHERE BARCODE='N0081559' AND WCS_TYPE= '拆垛单箱上报反馈' AND SHOW_MSG = 'WMS反馈成功' AND DATEDIFF(MINUTE,CREATE_DATA,GETDATE())<5 order by CREATE_DATA desc
IF @@ROWCOUNT > 0
BEGIN
SET @P_MSG = 'WMS已反馈成功,再次上报'
SELECT * FROM WCS_BCR_TRK where BARCODE = @V_BARCODE AND RecType='2' AND DEAL_FLAG = '0'
IF @@ROWCOUNT = 0
BEGIN
INSERT INTO WCS_BCR_TRK(BARCODE,BATCH,MATNO,RecType,Box_Type,[Port],DEAL_FLAG) VALUES(ISNULL(@V_BARCODE,'') ,ISNULL(@BATCH_NO,'') ,ISNULL(@MATNO,''),ISNULL(@Rectype,''),ISNULL(@Boxtype,''),ISNULL(@Port,''),0)
END
UPDATE WCS_UNSTACKING_LOG
SET DEAL_FLAG = 1
WHERE DEAL_FLAG = 7 and BARCODE = @V_BARCODE
END
ELSE
BEGIN
SET @P_MSG = 'WMS反馈异常'
END
--UPDATE WCS_UNSTACKING_LOG
--SET DEAL_FLAG = 1
--WHERE DEAL_FLAG = 7 and BARCODE = @V_BARCODE
END
EXEC dbo.SP_WCS_CREATE_WORK_LOG
'拆垛单箱上报反馈',
@V_BARCODE,
NULL,
NULL,
@p_msg,
@p_Rev,
'[SP_HTTP_CLIENT_REV5]',
@P_CODE,
NULL,
NULL,
NULL,
NULL,
NULL,
@Code,
NULL,
NULL,
NULL,
NULL
SET @P_MSG = ''
END 给改存储过程注释