Web Adi

Download as txt, pdf, or txt
Download as txt, pdf, or txt
You are on page 1of 11

ERP-Distributor Delivery Details

TABLE : ERP_CHQ_AUTO_TAG_TBL
: ERP_CHQ_AUTO_TAG_TBL_NEW

PACKAGE : ERP_CHQ_AUTO_TAG_PKG

PROCEDURE : ERP_CHQ_TAG_AUTO1 ----> Cheque Automation Procedure


ERP_CHQ_TAG_AUTO2
ERP_CHQ_TAG_AUTO_TBL_INS ----> Insert Procedure in Custom
Table

INTEGRATOR : ERP_CHQ_TAG_TBL_ADI

INTERFACE : ERP_CHQ_TAG_TBL_ADI Interface

LAYOUT : ERP_CHQ_TAG_TBL_ADI Layout

Importer : ERP_CHQ_TAG_TBL_ADI_Importer

-----------------------------------------------------------

TABLE : ERP_CHQ_AUTO_TAGG_TBL_NEW

SEQ : ERP_CHQ_AUTO_TAGG_SEQ

INTEGRATOR : ERP_AUTO_CHQ_TAG_ADI

INTERFACE : ERP_CHQ_TAGG_TBL_ADI Interface

Importer : ERP_CHQ_TAGG_TBL_ADI_IMP

INSERT --> TAGGING ---> PRINTING

Report Name : ERP - Auto Cheque Tag Status


: ERP_AUTO_CHQ_TAG_STATUS_New

Executable : ERP_AUTO_CHQ_TAG_STATUS

ERP_AUTO_CHQ_TAG_STATUS_NEW

FUNCTION : ERP_AUTO_CHQ_TAG_WEB_ADI

Respocibility : TBM-Delivery Cheque Tagging

Menu : Delivery Cheque Tagging

bne:page=BneCreateDoc&bne:viewer=BNE:EXCEL2007&bne:reporting=N&bne:integrator=BMCD:
BMCD_IND_PF_UAN_UPLOAD_XINTG&bne:layout=BMCD:BMCD_IND_PF_UAN_LAYOUT&bne:content=BMC
D:BMCD_IND_PF_UAN_UPLOAD_CNT1&bne:noreview=Y

bne:page=BneCreateDoc&bne:viewer=BNE:EXCEL2007&bne:reporting=N&bne:integrator=ONT:E
RP_AUTO_CHQ_TAG_ADI_XINTG&bne:layout=ONT:ERP_AUTO_CHQ_TAG_TBL_ADILAYOUT&bne:content
=ONT:ERP_AUTO_CHQ_TAG_ADI_CNT1&bne:noreview=Y

Check Tagging : custome table insert

Printing there is diffrent

Cheque Tagging Automation

Solution : Web ADI

ADI the purpose is to insert the data into custom table.

-----------------------------Steps for creation of


webadi-----------------------------------------------------

1)Create integrator -> checkbox the display in create document page (so that while
creating document in last stage it is visible in lov) ->add function bne:create
document and bne:adi create document

2)Create interface -> select api procedure -> select package -> add insert
procedure

3)Skip the content-> next

4)Create uploader

5)Create importer -> pl/sql api call -> add the submit program procedure

6)Go to desktop integrator -> Create layout

7)Create document

----------------------------------Pending Steps for creation of


webadi---------------------------

1) Prepare a procedure in same package to call concurrent program for cheque


printing

2) call the cheque tagging procedure after inserting the data in the custom table

3) call the insert procedure in webadi in the interface stage

4) call submit program procedure in the importer

-------------------------------------Bye Bye :-) Call Me :-p


-------------------------------------------------------

Validations

Check Limit : XXERPDISTCHQ_DTL.NOT_OVER_VALUE


ERP_CHQ_TAG_AUTO1

SELECT * FROM ALL_OBJECTS WHERE OBJECT_TYPE LIKE 'SEQUENCE' AND OBJECT_NAME LIKE
'XXERP%'

XXERP_WMS_HEADER_ID

select * from hz_parties hp where hp.PARTY_NAME = 'Akash Associates, Kota'

SELECT * from XXERP_CHEQUE_INVENTORY_HDR WHERE TO_DATE(CREATION_DATE) =


TO_DATE(SYSDATE)

SELECT * from XXERP_CHEQUE_INVENTORY_LINES WHERE TO_DATE(CREATION_DATE) =


TO_DATE(SYSDATE)

DELETE from XXERP_CHEQUE_INVENTORY_HDR WHERE TO_DATE(CREATION_DATE) =


TO_DATE(SYSDATE)

DELETE from XXERP_CHEQUE_INVENTORY_LINES WHERE TO_DATE(CREATION_DATE) =


TO_DATE(SYSDATE)

DELETE from XXERP_CHEQUE_INV_CREDIT_NOTES WHERE TO_DATE(CREATION_DATE) =


TO_DATE(SYSDATE)

COMMIT;

TBM - Cheque Printing(Tagging Form)

TBM - Check Printing Report (TBM - Cheque Printing(Tagging Form))

select * from hz_parties hp where hp.PARTY_NAME = 'Kamakhya Drugs & Surgicals'

select * from ERP_CHQ_AUTO_TAGG_TBL

CREATE SEQUENCE ERP_CHQ_AUTO_TAGG_SEQ


START WITH 861
MAXVALUE 999999999999999999999999999
MINVALUE 1
NOCYCLE
NOCACHE
NOORDER;

ERP_CHQ_AUTO_TAGG_SEQ

CREATE TABLE ERP_CHQ_AUTO_TAGG_TBL


(
ID NUMBER,
ZONE VARCHAR2(240),
PARTY_NAME VARCHAR2(240),
WAREHOUSE VARCHAR2(240),
PAYMENT_TERM VARCHAR2(240),
DELIVERY_AMT NUMBER,
CHECK_NUMBER NUMBER,
STATUS VARCHAR2(2400),
FLAG VARCHAR2(30),
CREATION_DATE DATE,
CREATED_BY NUMBER,
LAST_UPDATION_DATE DATE,
LAST_UPDATED_BY NUMBER,
LAST_UPDATE_LOGIN NUMBER,
ATTRIBUTE_1 VARCHAR2(240),
ATTRIBUTE_2 VARCHAR2(240),
ATTRIBUTE_3 VARCHAR2(240),
ATTRIBUTE_4 VARCHAR2(240),
ATTRIBUTE_5 VARCHAR2(240)
)

ERP_CHQ_AUTO_TAG_PKG

UPDATE ERP_CHQ_AUTO_TAGG_TBL
SET CHECK_NUMBER = '000012'
WHERE ID = 1

XXERP_CHEQUE_INV_CREDIT_NOTES

XXERP_CHEQUE_INVENTORY_LINES

ALTER TABLE APPS.ERP_CHQ_AUTO_TAGG_TBL


MODIFY(CHECK_NUMBER VARCHAR2(240))

ALTER TABLE APPS.ERP_CHQ_AUTO_TAGG_TBL


MODIFY(CHECK_NUMBER VARCHAR2(240))

SELECT * FROM ERP_CHQ_AUTO_TAGG_TBL CHQ

SELECT UPPER(TRIM(CHQ.PARTY_NAME)),CHQ.* FROM ERP_CHQ_AUTO_TAGG_TBL CHQ


WHERE UPPER(CHQ.PARTY_NAME) = cast(regexp_replace(UPPER('Akash Associates,
Kota'), '[^0-9]+', '.') as VARCHAR2) -- REGEXP_REPLACE(UPPER('Akash Associates,
Kota'),' ','')

Akash Associates, Kota

Anjan Distributors.

The cache version being compared to the current version of SITE_PROFILE_CACHE is


greater. This should never occur since the current version of SITE_PROFILE_CACHE
should always be greater than or equal to the cache version being compared.
--PROCEDURE ERP_SUBMIT_AUTO_CHQ_TAG_PROC IS
DECLARE
/*********************************************************

*PURPOSE: To Submit a Concurrent Request from backend *


*AUTHOR: Shailender Thallam *
**********************************************************/
--DECLARE
v_resp_id fnd_responsibility.responsibility_id%TYPE;
v_appl_id fnd_application.application_id%TYPE;
v_usr_id fnd_user.user_id%TYPE;
v_con_req_id NUMBER ;
l_request_id NUMBER;
l_phase VARCHAR2 (100);
l_status VARCHAR2 (100);
l_dev_phase VARCHAR2 (100);
l_dev_status VARCHAR2 (100);
v_error VARCHAR2 (1500);
l_wait_for_request boolean := FALSE;
l_messase VARCHAR2(2400);
l_set_layout boolean;
l_get_request_status boolean := FALSE;
l_usr_id Number := 1090;--fnd_profile.value('USER_ID');

BEGIN
dbms_output.put_line ('Start');

SELECT DISTINCT fr.responsibility_id,


frx.application_id
INTO v_resp_id,
v_appl_id
FROM apps.fnd_responsibility frx,
apps.fnd_responsibility_tl fr
WHERE fr.responsibility_id = frx.responsibility_id
AND LOWER (fr.responsibility_name) LIKE LOWER('TBM-Delivery Cheque Tagging');

dbms_output.put_line ('Before Apps initialize');

apps.fnd_global.apps_initialize (user_id => l_usr_id,--fnd_global.user_id ,


resp_id => v_resp_id,
resp_appl_id => v_appl_id);

dbms_output.put_line ('Before set layout');

--l_set_layout :=
--fnd_request.add_layout (template_appl_name => 'AR',
--template_code => 'TBM_CHECK_PRINT_PDC',
--template_language => 'English',
--template_territory => null,--'US',
--output_format => 'PDF');

--IF l_set_layout is not null THEN


v_con_req_id :=
fnd_request.submit_request (
application => 'AR',
program => 'TBM_CHECK_PRINT_PDC',
description => 'TBM - Check Printing Report',
start_time => sysdate,
sub_request => FALSE,
argument1 => NULL,
argument2 => NULL ,
argument3 => NULL,
argument4 => LTRIM(to_char(:P_CHECK_NUMBER,'000000')),
argument5 => NULL,
argument6 => TO_CHAR(SYSDATE,'DD-MON-YYYY')
);
dbms_output.put_line ('After Submit Request'|| v_con_req_id);

COMMIT;
IF v_con_req_id = 0
THEN

v_error:=('Concurrent Program failed to Call from plsql');


update ERP_CHQ_AUTO_TAGG_TBL_NEW CHQ
set ATTRIBUTE_2 = v_error
where 1=1
AND CHECK_NUMBER = :P_CHECK_NUMBER
AND FLAG in ('S','E')
and ATTRIBUTE_2 is null;

dbms_output.put_line ('Concurrent Program failed to Call from plsql');

ELSE

update ERP_CHQ_AUTO_TAGG_TBL_NEW CHQ


set ATTRIBUTE_2 = v_con_req_id
where 1=1
AND CHECK_NUMBER = :P_CHECK_NUMBER
AND FLAG IN ('S','E')
and ATTRIBUTE_2 is null;

dbms_output.put_line('Concurrent Program Sucessfully Call from plsql');

--waits for the request completion


/* l_wait_for_request :=
fnd_concurrent.wait_for_request (request_id => l_request_id,
interval => 60,
max_wait => 0,
phase => l_phase,
status => l_status,
dev_phase => l_dev_phase,
dev_status => l_dev_status,
MESSAGE => l_messase);

COMMIT;
--Get the Request Completion Status.

l_get_request_status :=
fnd_concurrent.get_request_status (
request_id => l_request_id,
appl_shortname => NULL,
program => NULL,
phase => l_phase,
status => l_status,
dev_phase => l_dev_phase,
dev_status => l_dev_status,
MESSAGE => l_messase
);
COMMIT;
dbms_output.put_line('l_dev_phase: '||l_dev_phase);
dbms_output.put_line('l_dev_status: '||l_dev_status);
dbms_output.put_line('l_request_id: '||l_request_id);*/

END IF; --v_con_req_id


-- END IF; --l_set_layout

EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Error In Concurrent Program Call Main Procedure 2 '||
TO_CHAR(SQLCODE)||'-'||sqlerrm);
END ;

You might also like