Печать BisPC

  • KSV
  • Автор темы
  • Посетитель
  • Посетитель
09 июнь 2012 10:16 #1 от KSV
COM_KUNENA_MESSAGE_CREATED_NEW
Насколько мне известно в шаблоне Word можно создавать таблицы, а в статье ничего про это не сказано или я чего-то не понял

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Больше
09 июнь 2012 11:14 #2 от admin
COM_KUNENA_MESSAGE_REPLIED_NEW
Да, Вы совершенно правы. BisPC достаточно функционален. Статьи размещенные на сайте имеею не окончательный вариант и будут обязательно дополняться информацией. Ваше пожелание будет обязательно учтено.

Так же если Вы сами владеете какой-то информацией в том или инов вопросе Вы можете пресылать ее на адрес Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра. и она будет давлена на сайт

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Больше
16 авг 2013 16:09 #3 от shumamura
COM_KUNENA_MESSAGE_REPLIED_NEW
вопрос по выгрузке через bispc в excel по команде

Run Insert_TTName(teg_name,teg_data).

есть ли ограничение на объем передаваемых данных через teg_data?

и подкскжите плиз как правильнее организовывать вывод большиx объемов информаций через bispc(в экселе до 10 тыс. строк по 9 столбцов емкость примерно 10-15 символов в каждой ячейке)

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Больше
20 янв 2016 11:48 - 22 янв 2016 14:55 #4 от kdz
COM_KUNENA_MESSAGE_REPLIED_NEW
Здравствуйте!

В нашем банке мы сами реализовали выгрузку отчетов в Excel. Правда мы пошли простым путем: выгружаем данные в текстовый фай с разделителями и в Excel через VBA разбираем текстовик с данными. Получилось достаточно компактно и быстро. Нам проще и удобнее, чем через BisPC.))))

Код процедуры:
/*
ВЫГРУЗКА КЛАССИФИКАТОРА В ТЕКСТОВЫЙ ФАЙЛ С РАЗДЕЛИТЕЛЯМИ
*/

{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.
Last edit: 22 янв 2016 14:55 by admin.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Время создания страницы: 0.095 секунд