Skip to content

B
business-java
Commit a4463755 authored by jshinde's avatar jshinde
Browse files
Options

W16ASUN004 SQL 


git-svn-id: http://15.206.35.175/svn/proteus/business-java/trunk@101375 ce508802-f39f-4f6c-b175-0d175dae99d5
parent 2f55253b
Show whitespace changes
Inline Side-by-side
Showing with 129 additions and 0 deletions
webitm-wms/module-resource/sql/W16ASUN004.sql 0 → 100755
View file @ a4463755
--------------------------------------------function[start]-----------------------------------------------------------------------
CREATE OR REPLACE
function fn_chk_pr
(as_loccode location.loc_code%type,as_tranid in pallet_req_hdr.tran_id%type)
return number is
ll_retval number(1) := 0;
ls_tranid pallet_req_hdr.tran_id%type := 0;
begin
ls_tranid := as_tranid;
if ls_tranid is null or ls_tranid = 'null' then
ls_tranid := '@@@@@@@@@@';
end if;
begin
SELECT count(1) INTO ll_retval FROM swms_to_awms A
where A.IN_OUT in( 'R','O') AND a.schedule_status = 'N'
and a.pallet_no = as_loccode;
exception when others then
ll_retval := 0;
end;
if ll_retval = 0 then
begin
select count(1) into ll_retval from pallet_req_hdr h, pallet_req_det d
where h.tran_id = d.tran_id
and h.confirmed = 'N'
and d.pallet_no = as_loccode
and h.tran_id <> ls_tranid;
exception when others then
ll_retval := 0;
end;
end if;
RETURN (ll_retval);
end;
--------------------------------------------function[End]-----------------------------------------------------------------------
---------------------------------------------Pallet Request [start]-------------------------------------------------------------
delete from pophelp where mod_name='W_PALLET_REQ' AND field_name='PALLET_NO';
commit;
INSERT INTO POPHELP (FIELD_NAME,MOD_NAME,SQL_STR,MSG_TITLE,WIDTH,HEIGHT,CHG_DATE,CHG_USER,
CHG_TERM,DIST_OPT,SQL_INPUT,HELP_OPTION)
VALUES ('PALLET_NO','W_PALLET_REQ','SELECT DISTINCT S.LOC_CODE AS PALLET_NO ,L.DESCR FROM STOCK S ,LOCATION L,SITEITEM T WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND L.INV_STAT = S.INV_STAT AND L.LOC_CODE = S.LOC_CODE AND L.LOC_GROUP != ''EXEX'' AND T.ITEM_CODE = S.ITEM_CODE AND S.SITE_CODE = T.SITE_CODE AND T.ITEM_SER__RG1 NOT IN (''FS'',''FA'') AND FN_CHK_PR(TRIM(S.LOC_CODE),'''') = 0
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1) IS NOT NULL'
,'USER-DEFINED TYPE',0,0,SYSDATE,'BASE','BASE','0',':SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE',
'0');
UPDATE messages SET msg_descr='Entered Pallet Number already added in previous Pallet Out/Pallet Consolidation transaction.'
where msg_no='VMPALDCOEX';
---------------------------------------------Pallet Request [end]-------------------------------------------------------------
---------------------------------------------Pallet Request with stock details [start]-------------------------------------------------------------
delete from pophelp where mod_name='W_PALLET_REQ_STK' AND field_name='PALLET_NO';
commit;
INSERT INTO POPHELP (FIELD_NAME,MOD_NAME,SQL_STR,MSG_TITLE,WIDTH,HEIGHT,CHG_DATE,CHG_USER,
CHG_TERM,DIST_OPT,SQL_INPUT,HELP_OPTION)
VALUES ('PALLET_NO','W_PALLET_REQ_STK','SELECT DISTINCT S.LOC_CODE AS PALLET_NO ,L.DESCR FROM STOCK S ,LOCATION L,SITEITEM T WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND L.INV_STAT = S.INV_STAT AND L.LOC_CODE = S.LOC_CODE AND L.LOC_GROUP != ''EXEX'' AND T.ITEM_CODE = S.ITEM_CODE AND S.SITE_CODE = T.SITE_CODE AND T.ITEM_SER__RG1 NOT IN (''FS'',''FA'') AND FN_CHK_PR(TRIM(S.LOC_CODE),'''') = 0
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1) IS NOT NULL'
,'USER-DEFINED TYPE',0,0,SYSDATE,'BASE','BASE','0',':SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE',
'0');
UPDATE messages SET msg_descr='Entered Pallet Details already added in previous Pallet Out/Pallet Consolidation transaction.'
where msg_no='VMPALDEPEX';
---------------------------------------------Pallet Request with stock details[end]-------------------------------------------------------------
---------------------------------------------Pallet Consolidation[start]-------------------------------------------------------------
delete from pophelp where mod_name='W_CONSOLIDATE_PALLET' AND field_name='PALLET_NO';
commit;
INSERT INTO POPHELP (FIELD_NAME,MOD_NAME,SQL_STR,MSG_TITLE,WIDTH,HEIGHT,CHG_DATE,CHG_USER,
CHG_TERM,DIST_OPT,SQL_INPUT,HELP_OPTION)
VALUES ('PALLET_NO','W_CONSOLIDATE_PALLET','SELECT DISTINCT S.LOC_CODE AS PALLET_NO ,L.DESCR FROM STOCK S ,LOCATION L,SITEITEM T WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND L.INV_STAT = S.INV_STAT AND L.LOC_CODE = S.LOC_CODE AND L.LOC_GROUP != ''EXEX'' AND T.ITEM_CODE = S.ITEM_CODE AND S.SITE_CODE = T.SITE_CODE AND T.ITEM_SER__RG1 NOT IN (''FS'',''FA'') AND FN_CHK_PR(TRIM(S.LOC_CODE),'''') = 0
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''Q'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''B'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''X'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''M'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''U'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMS'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''P'')-1) IS NOT NULL
UNION ALL
SELECT DISTINCT SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1) ,L.DESCR FROM STOCK S ,LOCATION L WHERE S.INV_STAT = ''AWMSQ'' AND S.SITE_CODE=''?'' AND S.QUANTITY > 0 AND FN_CHK_PR(SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1),'''') = 0 AND L.LOC_CODE = S.LOC_CODE AND S.INV_STAT=L.INV_STAT AND SUBSTR(S.LOC_CODE,1,INSTR(S.LOC_CODE,''S'')-1) IS NOT NULL'
,'USER-DEFINED TYPE',0,0,SYSDATE,'BASE','BASE','0',':SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE,:SITE_CODE',
'0');
---------------------------------------------Pallet Consolidation[End]-------------------------------------------------------------
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment