API – APPS.FND_FLEX_KEYVAL.VALIDATE_SEGS walidacja konta księgowego

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 . Dodaj zakładkę do bezpośredniego odnośnika.

Dodaj komentarz