SapScript & Formular: Как динамически создать поля на фо

Gas

Необходимо напечатать бумаженцию типа квитанции. У каждого клиента свое число услуг и прочего. Т.е. число полей в формуляре будет динамическим.
Как это сделать?
Заранее спасибо.

Aleksey S.

полей или строк?

Gas

А какая разница?
Допустим строк.

Aleksey S.

используй текстовые элементы и окна типа main.. если структура строк одинаковая

Gas

Понял, что несколько некорректно задал вопрос.
Меня интересует динамическая вставка команды, например BOX (чтобы отрисовать табличку в зависимости от количество строк), и динамическая вставка текстового элемента в этот BOX.

Сергей Королев

Динамической вставки нет. Нужно будет в формуляре заготовить несколько (на разные варианты) именованных текстовых элементов и выводить их в программе печати в зависимости от условий. Конечно же, как сказал Алексей, динамическую таблицу нужно выводить в окно типа Main.

sy-uname

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

Понял, что несколько некорректно задал вопрос.
Меня интересует динамическая вставка команды, например BOX (чтобы отрисовать табличку в зависимости от количество строк), и динамическая вставка текстового элемента в этот BOX.

Никакой динамической вставки "текстового элемента в этот BOX" в принципе быть не может. Так как этот BOX - обыкновенная прямоугольная рамка, рисуемая поверх текста и никак не связанная с текстом.

Для того, чтобы рисовать табличку (текст и BOX) - нужно всё необходимое сосредоточить внутри одного текстового элемента (Text Elements) и в цикле для каждой строки выполнять вызов 'WRITE_FORM' с указанием данного элемента. И не забывать двигать координаты для этого самого BOX. Впрочем, про это уже несколько раз здесь говорили.

Tetty

Чтобы динамически вставить команду достаточно лишь выполнить CONTROL_FORM (это и есть выполнение любой команды, которая в формуляре была бы представлена как '/:'). Сюда можно вставить и BOX и любые другие команды.

Гость

Tetty

самый грамотный ответ, спасибо, все заработало

Сергей Королев

Вот ведь, век живи, век учись...

Gas

Хочу вывести строку B1 на определенное место (60, 60).

почему этот код не работает?

*------------Позиционируем
A1 = 'Position XPOS 60 MM YPOS 60 MM'.

CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = A1
EXCEPTIONS
OTHERS = 1.
*---------------------------------
B1 = '123'.

A1 = '&B1&'.

*---------выводим--------------
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = A1
EXCEPTIONS
OTHERS = 1.
*---------------------------------

в результате на экране ничего.

P.S. с отрисовкой боксов все нормально.

sy-uname

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

Хочу вывести строку B1 на определенное место (60, 60).

почему этот код не работает?

*------------Позиционируем
A1 = 'Position XPOS 60 MM YPOS 60 MM'.

CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = A1
EXCEPTIONS
OTHERS = 1.
*---------------------------------
B1 = '123'.

A1 = '&B1&'.

*---------выводим--------------
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = A1
EXCEPTIONS
OTHERS = 1.
*---------------------------------

в результате на экране ничего.

P.S. с отрисовкой боксов все нормально.

Потому что POSITION не предназначен для позиционирования текста. Нкжно двигать окно.

Цитата:

POSITION Command

Syntax

/: POSITION [XORIGIN] [YORIGIN] [WINDOW] [PAGE]

Effect: Sets the origin for the coordinate system used by the XPOS and YPOS parameters of the BOX command. When a window is first started, the POSITION value is set to refer to the upper left corner of the window (default setting).

Gas

sy-uname

вы уже не в первый раз проявляете невнимательность и не зрите в корень вопроса.

в результате на экране ничего.

при чем тут Position? Пускай он применяется к боксу. Ну неправильно я отпозиционировал, какая разница-то?

Если есть что написать по теме , то приведите работающий код, а не цитаты из хелпа.
например вот для этого высказывания:

Цитата:

Для того, чтобы рисовать табличку (текст и BOX) - нужно всё необходимое сосредоточить внутри одного текстового элемента (Text Elements) и в цикле для каждой строки выполнять вызов 'WRITE_FORM' с указанием данного элемента. И не забывать двигать координаты для этого самого BOX.

реализацию через WRITE_FORM отрисовки BOX плиз в студию

sy-uname

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

sy-uname

вы уже не в первый раз проявляете невнимательность и не зрите в корень вопроса.

в результате на экране ничего.

при чем тут Position? Пускай он применяется к боксу. Ну неправильно я отпозиционировал, какая разница-то?

Разница большая. Так как исходный вопрос звучал как "Хочу вывести строку B1 на определенное место. почему этот код не работает? ". Ответ давался приминительно к "вывести строку на определенное место".

Цитата:

Если есть что написать по теме , то приведите работающий код, а не цитаты из хелпа.
например вот для этого высказывания:

Цитата:

Для того, чтобы рисовать табличку (текст и BOX) - нужно всё необходимое сосредоточить внутри одного текстового элемента (Text Elements) и в цикле для каждой строки выполнять вызов 'WRITE_FORM' с указанием данного элемента. И не забывать двигать координаты для этого самого BOX.

реализацию через WRITE_FORM отрисовки BOX плиз в студию

Code:

  loop at data.
  CALL FUNCTION 'WRITE_FORM'
      EXPORTING
           ELEMENT                  = 'DATALINE'
           TYPE                     = 'BODY'
           WINDOW                   = 'MAIN'
*    IMPORTING
*         PENDING_LINES            =
       EXCEPTIONS
            ELEMENT                  = 1
            FUNCTION                 = 2
            TYPE                     = 3
            UNOPENED                 = 4
            UNSTARTED                = 5
            WINDOW                   = 6
            BAD_PAGEFORMAT_FOR_PRINT = 7
            OTHERS                   = 8
  .
  endloop.

соответственно элемент "DATALINE" определяется примерно как

Code:

/E  DATALINE
/:  BOX  WIDTH '2' CM HEIGHT '1' LN
LL  &DATA-DATA&
/: POSITION YORIGIN '+1' LN 

Gas

sy-uname
да, код отрисовал табличку, правда пришлось добавить FRAME 1 PT.

но через CONTROL_FORM мне понравилось больше

и через CONTROL_FORM не получилось вывести текст (т.е. вначале определить текстовый элемент, а потом вывести его через WRITE_FORM).

к тому же CONTROL_FORM работает только с окном 'Main'.

Резюмируя, вообщем-то понял как мне решить указанную задачу.

Всем спасибо

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

SapScript & Formular: Как динамически создать поля на фо

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