CALL FUNCTION 'OPEN_FORM' проблемы с экспортом.

Nesteroff

Доброе время суток.
Возникла проблема при составлении отчета.
Суть вот в чем.
Report собирает данные из таблиц в одну, потом передает их печатной форме и я получаю список товара.
Но выводится на печать только последняя строка в таблице.
Вернее, заголовок таблицы, как я выяснил при отладке, а сама таблица исчезает.
Огромнейшая просьба подсказать, как правильно экспортировать данные в форму, дабы выводились все строки таблицы.
И прошу прощения за, может быть, непрофессиональное изложение проблемы.

OlegDm

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

Доброе время суток.
Возникла проблема при составлении отчета.
Суть вот в чем.
Report собирает данные из таблиц в одну, потом передает их печатной форме и я получаю список товара.
Но выводится на печать только последняя строка в таблице.
Вернее, заголовок таблицы, как я выяснил при отладке, а сама таблица исчезает.
Огромнейшая просьба подсказать, как правильно экспортировать данные в форму, дабы выводились все строки таблицы.
И прошу прощения за, может быть, непрофессиональное изложение проблемы.

Ты хоть бы привел кусок программы печати где выводишь таблицу.
А вообще, в формуляре у тебя должен быть определен текстовый элемент который выводит позицию твоей таблицы (например PRINT_ITEM), и соответственно в программе печати ты должен сделать что-то типа:

Code:

  loop at tab. " где tab - твоя таблица
      call function 'WRITE_FORM'
         exporting  element = 'PRINT_ITEM'
                              type = 'BODY'
                          window = 'MAIN'.
  endloop.
 

Nesteroff

Nesteroff

Code:

FORM OUT_DATA.

CALL FUNCTION 'OPEN_FORM'
 EXPORTING
   DEVICE                            = 'PRINTER'
   LANGUAGE                          = SY-LANGU
   EXCEPTIONS
   CANCELED                          = 1
   DEVICE                            = 2
   FORM                              = 3
   OPTIONS                           = 4
   UNCLOSED                          = 5
   MAIL_OPTIONS                      = 6
   ARCHIVE_ERROR                     = 7
   INVALID_FAX_NUMBER                = 8
   MORE_PARAMS_NEEDED_IN_BATCH       = 9
   SPOOL_ERROR                       = 10
   OTHERS                            = 11 .
IF SY-SUBRC NE 0 AND SY-SUBRC NE 1.
 message i008(zmss01) with sy-subrc.
 exit.
ELSEIF SY-SUBRC EQ 1.
 EXIT.
ENDIF.

CALL FUNCTION 'START_FORM'
 EXPORTING
   FORM                   = 'ZJ_OUT_VALUT'.
IF SY-SUBRC NE 0.
 message i009(zmss01) with sy-subrc.
 exit.
ENDIF.

CALL FUNCTION 'WRITE_FORM'
 EXPORTING
   ELEMENT                        = 'TABLE_NUMBERED_HEADER'
   FUNCTION                       = 'SET'
   TYPE                           = 'BODY'
   WINDOW                         = 'MAIN'.

CALL FUNCTION 'WRITE_FORM'
 EXPORTING
   ELEMENT                        = 'ITEM_LINE'
   FUNCTION                       = 'APPEND'
   TYPE                           = 'BODY'
   WINDOW                         = 'MAIN'.

LOOP AT TVBAP.
ENDLOOP.

  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'TOTAL_BLOCK'
            WINDOW  = 'MAIN'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'CLOSE_FORM'.

ENDFORM.

Вот, собственно, и передача данных формуляру.
Этого куска достаточно?

111

Так а чего не так-то?
Один раз вызываешь

Code:

CALL FUNCTION 'WRITE_FORM'
 EXPORTING
   ELEMENT                        = 'ITEM_LINE'
   FUNCTION                       = 'APPEND'
   TYPE                           = 'BODY'
   WINDOW                         = 'MAIN'.

Она тебе один раз и печатает.
Если нужно, чтобы печатала каждую строку таблицы TVBAP, нужно

Code:

LOOP AT TVBAP.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
   ELEMENT                        = 'ITEM_LINE'
   FUNCTION                       = 'APPEND'
   TYPE                           = 'BODY'
   WINDOW                         = 'MAIN'.
ENDLOOP.

Nesteroff

Все верно. Эт я заработался, не иначе. Loop не туда поставил и удивляюсь... :shock:

Спасибо за внимание и помощь.
Сорри, что побеспокоил :oops:

.

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

CALL FUNCTION 'OPEN_FORM' проблемы с экспортом.

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