مشكلة في Cost Api

اخواني الكرام
انا بستعمل api لرفع التكلفة

--alter session set nls_language = American
DECLARE
V_STATUS VARCHAR2(240);
V_COUNT NUMBER;
V_MSG_DATA VARCHAR2(4000);
L_COUNT NUMBER:=0;
L_LOOP_CNT NUMBER:=0;
L_RECORD_COUNT NUMBER:=0;
L_DATA VARCHAR2(2000);
L_RETURN_STATUS VARCHAR2(1);
L_STATUS VARCHAR2(1);
I NUMBER:=1;
L_DUMMY_CNT NUMBER;
L_API_VERSION NUMBER:=1;
L_INIT_MSG_LIST BOOLEAN;
L_COMMIT BOOLEAN;
RETURN_STS BOOLEAN;
L_ADJUSTMENT GMF_ACTUAL_COST_ADJUSTMENT_PUB.ADJUSTMENT_REC_TYPE;
BEGIN
---------------------------------------------
DBMS_OUTPUT.ENABLE(100000000);
FND_GLOBAL.APPS_INITIALIZE(1097,50669,555) ;
DBMS_OUTPUT.ENABLE(2560000) ;
FA_SRVR_MSG.INIT_SERVER_MESSAGE ;
FA_DEBUG_PKG.INITIALIZE ;
DBMS_OUTPUT.PUT_LINE('START----------LOOP');
---------------------------------------------
L_ADJUSTMENT.ORGANIZATION_ID :=105;
L_ADJUSTMENT.INVENTORY_ITEM_ID :=19530;
L_ADJUSTMENT.COST_TYPE_ID :=1000;
L_ADJUSTMENT.PERIOD_ID :=1;

L_ADJUSTMENT.COST_CMPNTCLS_ID :=1;--سبب المشكلة

L_ADJUSTMENT.COST_ANALYSIS_CODE :='DIRC';
L_ADJUSTMENT.ADJUST_QTY :=1;
L_ADJUSTMENT.ADJUST_QTY_UOM :='ECH';
L_ADJUSTMENT.ADJUST_COST :=4.6901;
L_ADJUSTMENT.REASON_CODE :='ADJS';
L_ADJUSTMENT.ADJUST_STATUS :=0;
L_ADJUSTMENT.CREATION_DATE :=SYSDATE;
L_ADJUSTMENT.CREATED_BY :=1097;
L_ADJUSTMENT.LAST_UPDATE_DATE :=SYSDATE;
L_ADJUSTMENT.LAST_UPDATED_BY :=1097;
L_ADJUSTMENT.DELETE_MARK :=0;
L_ADJUSTMENT.ADJUSTMENT_IND :=0;
L_ADJUSTMENT.SUBLEDGER_IND :=1;
L_ADJUSTMENT.ADJUSTMENT_DATE :=TO_DATE('31-12-2010','DD-MM-YYYY');
L_ADJUSTMENT.USER_NAME :='AFATHY';


DBMS_OUTPUT.PUT_LINE('END ----------LOOP');
---------------------------------------------
GMF_ACTUAL_COST_ADJUSTMENT_PUB.CREATE_ACTUAL_COST_ADJUSTMENT
(
P_API_VERSION => 1.0,
P_INIT_MSG_LIST => FND_API.G_TRUE,
P_COMMIT => FND_API.G_TRUE,
X_RETURN_STATUS => L_STATUS,
X_MSG_COUNT => L_COUNT,
X_MSG_DATA => L_DATA,
P_ADJUSTMENT_REC => L_ADJUSTMENT
);
---------------------------------------------
COMMIT;
IF L_COUNT >= 0 THEN
L_LOOP_CNT := 1;
LOOP
FND_MSG_PUB.GET (
P_MSG_INDEX => L_LOOP_CNT,
P_DATA => L_DATA,
P_ENCODED => FND_API.G_FALSE,
P_MSG_INDEX_OUT => L_DUMMY_CNT
);
DBMS_OUTPUT.PUT_LINE ('RECORD = ' || L_LOOP_CNT);
DBMS_OUTPUT.PUT_LINE (L_DATA);
IF L_STATUS = 'E' OR L_STATUS = 'U' THEN
L_DATA := CONCAT ('ERROR ', L_DATA);
END IF;
DBMS_OUTPUT.PUT_LINE (L_DATA);
IF (L_STATUS = 'U') THEN
L_RETURN_STATUS := L_STATUS;
ELSIF (L_STATUS = 'E' AND L_RETURN_STATUS <> 'U') THEN
L_RETURN_STATUS := L_STATUS;
ELSE
L_RETURN_STATUS := L_STATUS;
END IF;
L_LOOP_CNT := L_LOOP_CNT + 1;
IF L_LOOP_CNT > L_COUNT THEN
EXIT;
END IF;
END LOOP;
END IF;
END;

ولكن يظهر خطأ كل مرة
Error : Invalid Component Class Id : 1


برجاء الإفادة