/*
ВЫГРУЗКА КЛАССИФИКАТОРА В ТЕКСТОВЫЙ ФАЙЛ С РАЗДЕЛИТЕЛЯМИ
*/

{globals.i}
DEF INPUT PARAM iParam AS CHARACTER NO-UNDO.
DEF VAR str       AS CHAR NO-UNDO.
DEF VAR fname     AS CHAR NO-UNDO.
DEF VAR user_ip   AS CHAR FORMAT "X(15)" NO-UNDO.
DEF VAR fpath     AS CHAR INIT "/qbis/wrk/imp-exp/0000/preview/" NO-UNDO.
user_ip=TRIM(SUBSTRING(OS-GETENV("SSH_CLIENT"),1,INDEX(OS-GETENV("SSH_CLIENT")," "))).
fname = fpath + "_tmp@" + user_ip.

/* функция парсинга параметров */
FUNCTION GetParam RETURN CHAR (INPUT iName AS CHAR,INPUT iData AS CHAR):
  DEF VAR i AS INT NO-UNDO.
  DEF VAR result AS CHAR NO-UNDO.
  REPEAT i = 1 TO NUM-ENTRIES(iData,";"):
    IF ENTRY(1,ENTRY(i,iData,";"),"=") = iName THEN DO:
      result =  ENTRY(2,ENTRY(i,iData,";"),"=").
      LEAVE.
    END.
  END.
  RETURN result.
END.


DEF VAR s_class     AS CHAR NO-UNDO.
DEF VAR s_parent    AS CHAR NO-UNDO.
DEF VAR s_delim     AS CHAR NO-UNDO.
DEF VAR s_headline  AS CHAR NO-UNDO.

DEF TEMP-TABLE ttRec NO-UNDO
FIELD class         LIKE   code.class
FIELD code          LIKE   code.code
FIELD name          LIKE   code.name
FIELD val           LIKE   code.val
FIELD kind          LIKE   code.kind
FIELD parent        LIKE   code.parent
FIELD misc          LIKE   code.misc
FIELD description   LIKE   code.description
.

ASSIGN
s_class  = GetParam("Class",iParam)
s_parent = GetParam("Parent",iParam)
s_delim  = IF GetParam("Delimiter",iParam) EQ "" THEN "|" ELSE GetParam("Delimiter",iParam)
.


FOR EACH code WHERE code.class EQ s_class AND code.parent EQ s_parent NO-LOCK.
    CREATE ttRec.
    ASSIGN
    ttRec.class       = code.class
    ttRec.code        = code.code
    ttRec.name        = code.name
    ttRec.val         = code.val
    ttRec.kind        = code.kind
    ttRec.parent      = code.parent
    ttRec.misc[1]     = code.misc[1]
    ttRec.misc[2]     = code.misc[2]
    ttRec.misc[3]     = code.misc[3]
    ttRec.misc[4]     = code.misc[4]
    ttRec.misc[5]     = code.misc[5]
    ttRec.misc[6]     = code.misc[6]
    ttRec.misc[7]     = code.misc[7]
    ttRec.misc[8]     = code.misc[8]
    ttRec.description[1] = code.description[1] 
    ttRec.description[2] = code.description[2]
    ttRec.description[3] = code.description[3]
    .
END.


/* вывод в файл */
OUTPUT TO VALUE (fname) CONVERT TARGET "1251".
PUT "kdz_code_out" SKIP.
ASSIGN
s_headline = "Код классификатора (class)"                       + s_delim +
             "Код параметра классификатора (code)"              + s_delim +
             "Наименование параметра классификатора (name)"     + s_delim +
             "Значение параметра классификатора (val)"          + s_delim +
             "Тип переменной (kind)"                            + s_delim +
             "Ссылка на классификатор верхнего уровня (parent)" + s_delim +
             "misc1"                                            + s_delim +
             "misc2"                                            + s_delim +
             "misc3"                                            + s_delim +
             "misc4"                                            + s_delim +
             "misc5"                                            + s_delim +
             "misc6"                                            + s_delim +
             "misc7"                                            + s_delim +
             "misc8"                                            + s_delim +
             "Описание 1"                                       + s_delim +
             "Описание 2"                                       + s_delim +
             "Описание 3"
.
PUT UNFORMATTED s_headline SKIP.
FOR EACH ttRec.
    str =    TRIM(ttRec.class)          + s_delim +
             TRIM(ttRec.code)           + s_delim +
             TRIM(ttRec.name)           + s_delim +
             TRIM(ttRec.val)            + s_delim +
             TRIM(ttRec.kind)           + s_delim +
             TRIM(ttRec.parent)         + s_delim +
             TRIM(ttRec.misc[1])        + s_delim +
             TRIM(ttRec.misc[2])        + s_delim +
             TRIM(ttRec.misc[3])        + s_delim +
             TRIM(ttRec.misc[4])        + s_delim +
             TRIM(ttRec.misc[5])        + s_delim +
             TRIM(ttRec.misc[6])        + s_delim +
             TRIM(ttRec.misc[7])        + s_delim +
             TRIM(ttRec.misc[8])        + s_delim +
             TRIM(ttRec.description[1]) + s_delim +
             TRIM(ttRec.description[2]) + s_delim +
             TRIM(ttRec.description[3])
    .
    PUT UNFORMATTED str SKIP.
END.

OUTPUT CLOSE.
MESSAGE "Файл " + fname + " сформирован !!!" VIEW-AS ALERT-BOX.