не так давно для интереса пробовал в 4.0B, небольшие изменения в коде автора и вполне можно пользоваться...

давай, давай..)) - не тяни ))

вроде ничего сложного, там где Parazit использует field-symbols (в частности конструкция loop at itab assigning <fs>) переписал с использованием структур
далее ругался на set/get property.. вылечилось простым включением стандарного инклуда OLE2INCL вместо простого определения пула-типов OLE2
вместо ФМ GUI_DELETE_FILE которого нету в системе, использовал ФМ WS_FILE_DELETE вроде все

и еще в 4.0 ФМ DOWNLOAD_WEB_OBJECT отличается от более поздних версии, там нету параметра для указания пути файла(DESTINATION), вместо этого при вызове выскакивает окошко где и указываем вручную путь файла-шаблона... при желании можно исправить

нету сейчас доступа к 4.0 вот все что помнится, удачи

Возможно, собака зарыта была в том, что Вы изменили тип константы
табуляции char_tab с X на C.
При этом недостаточно заменить букву X на букву C, нужно грамотно
заполнять эту переменную (через field-symbols).

При создании в 4.0B

осталась последняя ошибка, точнее предупреждение

ФМ ZWWW_PREPARE_TABLE

Data:
it_Struc type tt_Struc,...

"TT_STRUC" is a generic type. A type reference is possible only for field
symbols and FORM parameters.

Скажите как исправить, при генерации выдаём
Type "TT_STRUC" is generic. You need to specify a key.
Все остальное:ZWWW_OPENFORM и LZWWWFORMF01 проверку проходят

Так работает или нет?

Ну, попробуй описать обычным путем:


или так (не помню уже ограничений 4.0)

Спасибо прошло, но вот с этим?


read table it_any_table assigning <it_line> index 1.

The addition "ASSIGNING <fs>" is not supported at present. "READ SEGMENT *DA".

Понятно что языком не поддерживается ASSIGNING, но и не понятно чем заменять <it_line>, просто не вдоюсь в исходники особо дабы оставить их исходный смысл.

Если мне не изменяет память, то в 4.0 поддерживается ASSIGNING в Loop. Тогда можно так:

>Loop at it_any_table assigning <it_line>.
> Exit.
>EndLoop.
Хоть и есть assigning в синтаксической диаграмме LOOP Но почему-то
не работает данный цикл,

можно ли заменить
read table it_any_table assigning <it_line> index 1.
на
read table it_any_table into <it_line> index 1.
ошибки не даёт и в дальнейшем assigning на into?

В принципе можно. Но, если дальше есть модификация <it_line>, т.е. запись в таблицу, то нужно будет воспользоваться оператором MODIFY.

ведь можно сделать так

Здравствуйте!
FUNCTION ZWWW_PREPARE_TABLE.
....
If IT_FIELDS_CATALOG is requested.
Loop at IT_FIELDS_CATALOG assigning <it_FldCtlg>.
Translate <it_FldCtlg>-Field_Name to upper case.
EndLoop.
Sort IT_FIELDS_CATALOG by Field_Name.

Loop at it_Struc assigning <it_Struc>.
Read table IT_FIELDS_CATALOG assigning <it_FldCtlg>
with key Field_Name = <it_Struc>-Field_Name
binary search.
If sy-subrc = 0.
If not <it_FldCtlg>-Find_Text is initial.
<it_Struc>-Find_Text = <it_FldCtlg>-Find_Text.
EndIf.
<it_Struc>-Field_Header = <it_FldCtlg>-Field_Header.
EndIf.
EndLoop.
EndIf.
....
СКАЖИТЕ как лучше преобразовать данный код к синтаксису 4.0B не нарушая логики программы

Я начал така, но

If IT_FIELDS_CATALOG is requested.
data: it_fldctlg like line of it_fields_catalog.
loop at it_fields_catalog into it_fldctlg.
Translate it_FldCtlg-Field_Name to upper case.
EndLoop.
Sort IT_FIELDS_CATALOG by Field_Name.

Loop at it_Struc assigning <it_Struc>.

*Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!
в дальнейшем опять используется <it_FldCtlg>
но перед этим была произведена замена на it_fldctlg, СКАЖИТЕ как лучше преобразовать данный код к синтаксису 4.0B не нарушая логики программы
*Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!
Read table IT_FIELDS_CATALOG assigning <it_FldCtlg>
with key Field_Name = <it_Struc>-Field_Name
binary search.
If sy-subrc = 0.
If not <it_FldCtlg>-Find_Text is initial.
<it_Struc>-Find_Text = <it_FldCtlg>-Find_Text.
EndIf.
<it_Struc>-Field_Header = <it_FldCtlg>-Field_Header.
EndIf.
EndLoop.
EndIf.

Спасибо

Предлагаю Parazit'у в следующей версии сделать небольшие улучшения:

1) в функцию ZWWW_OPENFORM добавить параметр sort, чтобы можно было отменять сортировку it_values (правильный порядок строк таблицы как правило гарантирован при заполнении, а порядок вызова вспомогательных макросов часто бывает важен);

2) устанавливать system-settings Excel'я перед заливкой в зависимости от пользовательских настроек sap (таблица usr01) (тем самым упростив автоматическую подготовку данных внутри ZWWW_PREPARE_TABLE и/или снаружи вручную);

3) восстанавливать system-settings Excel'я после заливки данных.

PS. Если кто-то уже адаптировал функции к 4.0, почему бы не выложить? А то народ мучается...

Нашёл неприятные грабли в этом ФМ: текст записывается в первую ячейку интервала, а затем с помощью Excel-функции "Текст по столбцам" разливается по ячейкам (в любом случае, работает оптимизация или нет).

Если при этом в текстовую ячейку пишется строка 1234E-4, то формат ячейки становится экспоненциальным, т.е. строка превращается в 1,234-1. Такое бывает крайне редко, но наступить на эти грабли может каждый пользователь ФМ.

ну например так: