ZWWW - ФМ для выгрузки данных в WORD, EXCEL

Parazit

Sten написал(а):

в общем, проблема как оказалось в определении разделителя char_tab type c value cl_abap_char_utilities=>horizontal_tab .
в первом случае, он выгрузился с кодовой страницей 4102, а во втором 4103, потому макрос и не отработал (

А какие настройки кодовых страниц в SAP-logon ?

Sten

от SAP logon не зависит. там везде 1100 стоит.
в рамках системы заходил на разные аплик сервера, смотрел кодовые страницы FM SCP_GET_CODEPAGE_NUMBER и там где 4103 другой символ разделителя, а в 4102 другой.

Parazit

Sten написал(а):

... инструмент, пользуюсь успешно им достаточно давно.

А как давно? И как давно обновляли мои модули? Дело в том, что универсальный код для поддержки любой кодировки я выложил относительно недавно, в прошлом году.

Sten написал(а):

от SAP logon не зависит. там везде 1100 стоит.

Зависит от настройки "Кодировки загрузки/выгрузки". Это точно, т.к. у нас возникали проблемы в отдельных случаях (именно с разделителем), когда люди почему то меняли эти настройки. Но, видимо, это еще зависит от сочетания версий системы и logon.
У меня сейчас настройки в SAP-Logon 710:
- Настройка языка "Русский" (1504), Unicode Off
- Кодировка загрузки/выгрузки "Кириллица (Windows)".

Всё корректно работает со всем "зоопарком" систем: от 4.6 до 7.01, в т.ч. с поддержкой юникодов и без неё, в т.ч. локально и удаленно через роутеры.

p.s.
Я только что проверил, если, например, параметру "Кодировка загрузки/выгрузки" присвоить значение "По умолчанию - UTF8 для юникода", то происходит именно такой косяк.

Sten

с 2008 года точно. с этого же года не обновлял.
все выставил как у вас - не помогло. но проблема очевидна.
когда под отладчиком я смотрю переменную cl_abap_char_utilities=>horizontal_tab при одном входе в систему(он настройками логона ничем не отличается от другого), там стоит кодировка 4103.
меняю в отладчике кодировку на 4102 , меняется символ, выгружается отлично.

у нас вход в продуктив разделили на несколько в зависимости от модуля с целью распределения нагрузки. при чем настройки входа у всех одинаковы, проверил. Но ФМ SCP_GET_CODEPAGE_NUMBER возвращает разные кодовый страницы, 4102 или 4103 - без вариантов. и на том апл сервере, где 4102 все ок, где 4103 - другой символ разделителя.
причем 4103 - там, где настроено распределение нагрузки, а на тех , где еще не настроено 4102.
т.е. на одном сервере настроено распределение нагрузки(4103), на другом нет(4102) и настройки входа(логон) у них идентичны!

конечно могу командой перекодировать разделитель - проблем нет. Но хочу понять откуда берется разделитель cl_abap_char_utilities=>horizontal_tab для той и др кодировки. может нота есть, посмотрим.

KoShi4

Народ, доброго времени суток. Столкнулся с проблемой выгрузки более 255 столбцов в Excel. В 2003 нельзя, насколько я понял, больше 255 делать, а в 2007 есть такая возможность (.xlsm), но шаблоны, загруженные с таким расширением не работают, просто прога работает и нифига не выгружает, даже Ексель не открывает, а в .xlsx нет поддержки макросов. Кто-нибудь может помочь в решении проблемы?

Konstantin Anikeev

KoShi4 написал(а):

Народ, доброго времени суток. Столкнулся с проблемой выгрузки более 255 столбцов в Excel. В 2003 нельзя, насколько я понял, больше 255 делать, а в 2007 есть такая возможность (.xlsm), но шаблоны, загруженные с таким расширением не работают, просто прога работает и нифига не выгружает, даже Ексель не открывает, а в .xlsx нет поддержки макросов. Кто-нибудь может помочь в решении проблемы?

Excel 2007 с поддержкой макросов это не xlsx, а xlsm.

Parazit

Konstantin Anikeev написал:

Excel 2007 с поддержкой макросов это не xlsx, а xlsm.

Хех, и правда! :shock:

Ну. пока добавьте в подпрограмму GetFileType еще и расширение '.XLSM'.

Code:

  Case Ext.
    when '.XLS' or '.XLSX' or '.XLSM'.

Я тоже у себя добавлю в версию 2.7.

p.s.
Блин, надо еще .DOCX проверить, может такая же фигня...

Parazit

Parazit написал:

Блин, надо еще .DOCX проверить, может такая же фигня...

Точно!
Значит еще добавить '.DOCM'

Цитата:

when '.DOC' or '.DOCX' or '.DOCM'.

Konstantin Anikeev

Parazit написал:

Точно!
Значит еще добавить '.DOCM'

Добавьте еще:
.xlsb Та же рабочая книга Excel с макросами, но хранящая информацию в бинарном формате, открывая документы быстрее чем XML. В особенности часто используется для очень больших документов с десятками тысяч строк и/или сотнями колонок.

Parazit

Konstantin Anikeev написал:

Добавьте еще:
.xlsb Та же рабочая книга Excel с макросами, но хранящая информацию в бинарном формате, открывая документы быстрее чем XML. В особенности часто используется для очень больших документов с десятками тысяч строк и/или сотнями колонок.

Спасибо! Добавил.

raaleksandr

Небольшое замечание по данной разработке.
В ней использован элемент данных FILEP, который относится к DMS.
DMS не входит в базис, то есть это как бы модуль. Поэтому когда я попытался поставить разработку на "пустой" системе (без ERP), то данный элемент данных в ней отсутствовал и при первом запуске естественно был дамп.
Конечно с этой проблемой несложно разобраться (особенно если есть полноценная ERP под рукой, где можно подсмотреть этот элемент данных), но если бы можно было избежать использования этого элемента, то разработка без проблем ставилась бы и на системе без ERP (например на ABAP Sneak Preview).

Parazit

raaleksandr написал:

В ней использован элемент данных FILEP, который относится к DMS.

Спасибо за замечание!
Действительно, от DMS используется ФМ CV120_COPY_FILE и соотвествующие ему параметры. Сейчас посмотрел, попробую заменить на WS_FILE_COPY.
Но, в принципе, это используется только в моем модуле ZLCL_OPENFORM, которым наверно пользуюсь только я. :-)

На основную функциональность это влияния не оказывает.

FeBO-Sh

Пытаюсь выгрузить данные, но система как бы зависает. W "Сервер занят". В папке куда выгружаю формируется 2 файла: один Excel-овский, второй без расширения . Код вот такой:

Code:

  
TYPES: BEGIN OF gst_tout,
        filial            LIKE mbewh-bwkey,  
        matnr1       LIKE mbewh-matnr,
        bwtar         LIKE mbewh-bwtar,  
        account      LIKE t030-konts,   
        matnr2      LIKE mara-bismt,
        maktx        LIKE makt-maktx, 
        qty1(16)     TYPE p DECIMALS 3,
        amount1(16) TYPE p DECIMALS 2,
        qty2            LIKE mbewh-lbkum,  
        amount2     LIKE mbewh-salk3,
       END OF gst_tout,
       gst_out TYPE gst_tout OCCURS 0.

DATA: gtb_out  TYPE gst_out.

<....>

CALL FUNCTION 'ZWWW_PREPARE_TABLE'
    EXPORTING
*     HEADER_NAME             =
      line_name               = 'SAP!Table'
*     VAL_TYPE                = ''
    tables
      it_any_table            = gtb_out
      it_values               = gtb_val
*     IT_FIELDS_CATALOG       =
*     IT_GROUPS_CATALOG       =
            .

  CALL FUNCTION 'ZWWW_OPENFORM'
    EXPORTING
      file_name         = pflname
      form_name         = 'ZTST_TEST_XLS'
      printdialog       = abap_false
      protect           = abap_false
      decimal_separator = ','
      close_form        = abap_true
      delete_file       = abap_false
    TABLES
      it_values         = gtb_val
    EXCEPTIONS
      printcancel       = 1
      OTHERS            = 99.

Короче никак не пойму где ошибся, может с шаблоном накосячил, хотя при выгрузке 3 полей отрабатывает нормально.

Parazit

FeBO-Sh написал:

Пытаюсь выгрузить данные, но система как бы зависает. W "Сервер занят". В папке куда выгружаю формируется 2 файла: один Excel-овский, второй без расширения . ...
Короче никак не пойму где ошибся, может с шаблоном накосячил, хотя при выгрузке 3 полей отрабатывает нормально.

Попробуй просто закомментировать строку
file_name = pflname
Если заработает, значит что то с именем файла не так, например, файл уже существует и недоступен (заблокирован).

FeBO-Sh

пробовал, не сработало.
Оставил в структуре 3 поля, тогда выгрузил успешно.

Code:

  FIELD-SYMBOLS: <fs_out> LIKE LINE OF gtb_out.

  DATA: inum TYPE i VALUE 0,
            fnamelist TYPE zwww_values-var_name VALUE 'SAP!'.

  LOOP AT gtb_out ASSIGNING <fs_out>.
    inum = inum + 1.
    PERFORM set_value USING  fnamelist 'Table' inum '[FILIAL]'    '' <fs_out>-filial.
    PERFORM set_value USING  fnamelist 'Table' inum '[ACCOUNT]'   '' <fs_out>-account.
    PERFORM set_value USING  fnamelist 'Table' inum '[MATNR1]' '' <fs_out>-matnr1.
  ENDLOOP.

Правила форума

ZWWW - ФМ для выгрузки данных в WORD, EXCEL

Кто сейчас на конференции