CREATE OR REPLACE PROCEDURE xx_valid_cc(
segments1 IN VARCHAR2,
segments2 IN VARCHAR2,
segments3 IN VARCHAR2,
segments4 IN VARCHAR2,
segments5 IN VARCHAR2,
segments6 IN VARCHAR2,
segments7 IN VARCHAR2,
segments8 IN VARCHAR2,
segments9 IN VARCHAR2,
segments10 IN VARCHAR2,
segments11 IN VARCHAR2,
l_success OUT NUMBER,
l_message OUT VARCHAR2 )
IS
l_conc_segs GL_CODE_COMBINATIONS_KFV.CONCATENATED_SEGMENTS%TYPE;
l_structure_num FND_ID_FLEX_STRUCTURES.ID_FLEX_NUM%TYPE;
l_valid_combination BOOLEAN;
BEGIN
SELECT id_flex_num
INTO l_structure_num
FROM apps.fnd_id_flex_structures
WHERE id_flex_code = 'GL#'
AND id_flex_structure_code='XXX_PLAN_KONT';
l_conc_segs := segments1||'-'||segments2||'-'||segments3||'-'||segments4||'-'||segments5||'-'||segments6||'-'||segments7||'-'||segments8||'-'||segments9||'-'||segments10||'-'||segments11;
l_valid_combination := APPS.FND_FLEX_KEYVAL.VALIDATE_SEGS ( operation => 'CHECK_COMBINATION', appl_short_name => 'SQLGL', key_flex_code => 'GL#', structure_number => L_STRUCTURE_NUM, concat_segments => L_CONC_SEGS );
IF l_valid_combination THEN
l_success :='1';
l_message := 'OK';
ELSE
l_success :='0';
l_message := FND_FLEX_KEYVAL.ERROR_MESSAGE;
END IF;
EXCEPTION
WHEN OTHERS THEN
l_success :='0';
l_message := 'Nieobsługiwany wyjątek';
END xx_valid_cc; |
create or replace PROCEDURE xx_valid_cc(
segments1 IN VARCHAR2,
segments2 IN VARCHAR2,
segments3 IN VARCHAR2,
segments4 IN VARCHAR2,
segments5 IN VARCHAR2,
segments6 IN VARCHAR2,
segments7 IN VARCHAR2,
segments8 IN VARCHAR2,
segments9 IN VARCHAR2,
segments10 IN VARCHAR2,
segments11 IN VARCHAR2,
l_success OUT NUMBER,
l_message OUT VARCHAR2 )
IS
l_conc_segs GL_CODE_COMBINATIONS_KFV.CONCATENATED_SEGMENTS%TYPE;
l_structure_num FND_ID_FLEX_STRUCTURES.ID_FLEX_NUM%TYPE;
l_valid_combination BOOLEAN;
BEGIN
SELECT id_flex_num
INTO l_structure_num
FROM apps.fnd_id_flex_structures
WHERE id_flex_code = 'GL#'
AND id_flex_structure_code='XXX_PLAN_KONT';
l_conc_segs := segments1||'-'||segments2||'-'||segments3||'-'||segments4||'-'||segments5||'-'||segments6||'-'||segments7||'-'||segments8||'-'||segments9||'-'||segments10||'-'||segments11;
l_valid_combination := APPS.FND_FLEX_KEYVAL.VALIDATE_SEGS ( operation => 'CHECK_COMBINATION', appl_short_name => 'SQLGL', key_flex_code => 'GL#', structure_number => L_STRUCTURE_NUM, concat_segments => L_CONC_SEGS );
IF l_valid_combination THEN
l_success :='1';
l_message := 'OK';
ELSE
l_success :='0';
l_message := FND_FLEX_KEYVAL.ERROR_MESSAGE;
END IF;
EXCEPTION
WHEN OTHERS THEN
l_success :='0';
l_message := 'Nieobsługiwany wyjątek';
END xx_valid_cc;
Ten wpis został opublikowany w kategorii
API,
PLSQL i oznaczony tagami
api. Dodaj zakładkę do
bezpośredniego odnośnika.