You need to create records on fnd_attachment_functions, fnd_doc_category_usages, fnd_attachment_blocks and
fnd_attachment_blk_entities for the custom form.

This one is for attachments on "PO_HEADERS" block, for a form named "ANPO002". Work for 10.7 SC.

DECLARE
W_Attachment_function_id NUMBER := 0;
W_doc_category_usage_id NUMBER := 0;
W_attachment_blk_id NUMBER := 0;
W_attachment_blk_entity_id NUMBER := 0;
W_function_id NUMBER := 0;
W_Application_id NUMBER := 0;
W_Function_Name VARCHAR2(30) := NULL;
BEGIN

BEGIN
SELECT Fnd_Attachment_functions_s.NextVal
INTO W_Attachment_function_id
FROM Dual;
EXCEPTION
WHEN No_Data_Found THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Attachment_functions_s ');
WHEN Others THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Attachment_functions_s ');
END;

BEGIN
SELECT Function_Id, Function_name, Application_id
INTO W_Function_Id, W_Function_Name, W_Application_id
FROM fnd_form_functions
WHERE Function_Name = 'ANPO002';
EXCEPTION
WHEN No_Data_Found THEN
Raise_Application_Error(-20060,'ERROR: Function_Name not exist in
Fnd_Form_Functions ');
WHEN Others THEN
Raise_Application_Error(-20060,'ERROR: Function_Name not exist in
Fnd_Form_Functions ');
END;

BEGIN
INSERT into Fnd_Attachment_Functions(
ATTACHMENT_FUNCTION_ID,
FUNCTION_TYPE,
FUNCTION_ID,
FUNCTION_NAME,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
APPLICATION_ID,
SESSION_CONTEXT_FIELD,
ENABLED_FLAG)
VALUES(
W_ATTACHMENT_FUNCTION_ID,
'F',
W_FUNCTION_ID,
W_FUNCTION_NAME,
SYSDATE,
1,
SYSDATE,
1,
1,
W_APPLICATION_ID,
NULL,
'Y');

EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
Raise_Application_Error(-20070,'ERROR: Duplicate Index in
Fnd_Attachment_Functions ');
WHEN Others THEN
Raise_Application_Error(-20075,' Cannot insert in Fnd_Attachment_Functions');
END;

BEGIN
SELECT Fnd_Doc_Category_Usages_s.NextVal
INTO W_Doc_Category_Usage_id
FROM Dual;
EXCEPTION
WHEN No_Data_Found THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Doc_Category_Usages_s ');
WHEN Others THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Doc_Category_Usages_s ');
END;

BEGIN
INSERT into Fnd_Doc_Category_Usages(
DOC_CATEGORY_USAGE_ID,
CATEGORY_ID,
ATTACHMENT_FUNCTION_ID,
ENABLED_FLAG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
VALUES(
W_DOC_CATEGORY_USAGE_ID,
34,
W_ATTACHMENT_FUNCTION_ID,
'Y',
SYSDATE,
1,
SYSDATE,
1,
1);

EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
Raise_Application_Error(-20070,'ERROR: Duplicate Index in
Fnd_Doc_Category_Usages ');
WHEN Others THEN
Raise_Application_Error(-20075,' Cannot insert in Fnd_Doc_Category_Usages');
END;

BEGIN
SELECT Fnd_Attachment_blocks_s.NextVal
INTO W_attachment_blk_id
FROM Dual;
EXCEPTION
WHEN No_Data_Found THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Attachment_blocks_s ');
WHEN Others THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Attachment_blocks_s ');
END;
BEGIN
INSERT into Fnd_Attachment_blocks(
ATTACHMENT_BLK_ID,
ATTACHMENT_FUNCTION_ID,
BLOCK_NAME,
QUERY_FLAG,
SECURITY_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ORG_CONTEXT_FIELD,
SET_OF_BOOKS_CONTEXT_FIELD,
BUSINESS_UNIT_CONTEXT_FIELD,
CONTEXT1_FIELD,
CONTEXT2_FIELD,
CONTEXT3_FIELD)
VALUES(
W_attachment_blk_id,
W_ATTACHMENT_FUNCTION_ID,
'PO_HEADERS',
'N',
1,
SYSDATE,
1,
SYSDATE,
1,
1,
'PO_STARTUP_VALUES.ORG_ID',
NULL,
NULL,
'PO_HEADERS.SEGMENT1',
NULL,
NULL);

EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
Raise_Application_Error(-20070,'ERROR: Duplicate Index in
Fnd_Attachment_Blocks ');
WHEN Others THEN
Raise_Application_Error(-20075,' Cannot insert in Fnd_Attachment_Blocks');
END;

BEGIN
SELECT Fnd_Attachment_Blk_Entities_s.NextVal
INTO W_attachment_blk_entity_id
FROM Dual;
EXCEPTION
WHEN No_Data_Found THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Attachment_Blk_Entities_s ');
WHEN Others THEN
Raise_Application_Error(-20065,'ERROR: Sequence does not exist -
Fnd_Attachment_Blk_Entities_s ');
END;

BEGIN
INSERT into Fnd_Attachment_Blk_Entities(
ATTACHMENT_BLK_ENTITY_ID,
ATTACHMENT_BLK_ID,
DISPLAY_METHOD,
INCLUDE_IN_INDICATOR_FLAG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
PK1_FIELD,
PK2_FIELD,
PK3_FIELD,
PK4_FIELD,
PK5_FIELD,
SQL_STATEMENT,
DATA_OBJECT_CODE,
INDICATOR_IN_VIEW_FLAG,
QUERY_PERMISSION_TYPE,
INSERT_PERMISSION_TYPE,
UPDATE_PERMISSION_TYPE,
DELETE_PERMISSION_TYPE,
CONDITION_FIELD,
CONDITION_OPERATOR,
CONDITION_VALUE1,
CONDITION_VALUE2)
VALUES(
W_attachment_blk_entity_id,
W_attachment_blk_id,
'M',
'Y',
SYSDATE,
1,
SYSDATE,
1,
1,
'PO_HEADERS.PO_HEADER_ID',
NULL,
NULL,
NULL,
NULL,
NULL,
'PO_HEADERS',
'N',
'Y',
'Y',
'Y',
'Y',
NULL,
NULL,
NULL,
NULL);

EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
Raise_Application_Error(-20070,'ERROR: Duplicate Index in
Fnd_Attachment_Blk_Entities');
WHEN Others THEN
Raise_Application_Error(-20075,' Cannot insert in
Fnd_Attachment_Blk_Entities');
END;

COMMIT;
END;
/

Return to : Oracle Database, SQL, Application, Programming Tips