Формуляр PDF таблица цикл

mvs87

Добрый день.

Господа, подскажите:
1) нужно создать PDF формуляр, и там отразить таблицу состоящую из 2-х и более строк.
Грубо говоря, есть внутренняя таблица в программе, её нужно в формуляре показать.

Code:

CALL FUNCTION ls_function
  EXPORTING
    /1BCDWB/DOCPARAMS        = fp_docparams
    it_fizmeh_out            = it_him_out
 IMPORTING
   /1BCDWB/FORMOUTPUT        = ls_formoutput
 EXCEPTIONS
   USAGE_ERROR              = 1
   SYSTEM_ERROR             = 2
   INTERNAL_ERROR           = 3
   OTHERS                   = 4
          .

Получается только отражать Header Line тблицы, если сделать Read table.

В конструкторе перелазил всё что можно.
Нашел слово цикл в окне "контекст" транзакции SFP, но при создании оного требует указать таблицу.
Указывал ту, которую испортившую в формуляр - ругается. По средству поиска ничего не даёт. Как её создать чтобы в цикл загнать?

Нид хелп

weise

Попробуйте просто перетащить вашу табличку (из data view вроде как) на страницу формы. И посмотреть как организована получившаяся таблица.

trop

в структуру вложите

k1lc0m

it_fizmeh_out - надеюсь типа "таблица"(или имеет вложенные)?

Если it_him_out с хедерлайном, то укажите

Цитата:

it_fizmeh_out = it_him_out[]

mvs87

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

Попробуйте просто перетащить вашу табличку (из data view вроде как) на страницу формы. И посмотреть как организована получившаяся таблица.

Вот такая хрень получается.

mvs87

k1lc0m написал:

it_fizmeh_out - надеюсь типа "таблица"(или имеет вложенные)?

Если it_him_out с хедерлайном, то укажите

Цитата:

it_fizmeh_out = it_him_out[]

на это дамп валится.

Code:

>>>>> CALL FUNCTION ls_function
  920   EXPORTING
  921     /1BCDWB/DOCPARAMS        = fp_docparam
  922     it_fizmeh_out            = it_him_out[
  923  IMPORTING
  924    /1BCDWB/FORMOUTPUT        = ls_formoutp
  925  EXCEPTIONS
  926    USAGE_ERROR              = 1
  927    SYSTEM_ERROR             = 2
  928    INTERNAL_ERROR           = 3
  929    OTHERS                   = 4

weise

Это 15 столбцов должно быть в табличке? То, что вы передаете в формуляр не таблица, а структура.
В интерфейсе формуляра замените тип структуры на тип таблицы. Тогда в дамп падать не должна и можно еще раз повторить операцию перетаскивания таблички.

mvs87

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

Это 15 столбцов должно быть в табличке? То, что вы передаете в формуляр не таблица, а структура.
В интерфейсе формуляра замените тип структуры на тип таблицы. Тогда в дамп падать не должна и можно еще раз повторить операцию перетаскивания таблички.

вот правильно.
именно это и помогло.
Создал тип таблицы и вперед

Всё заработало. Осталась задача не выясненная, как сделать поля редактируемые?

tomacik

Добрый день! Для того, чтобы поля были редактируемыми нужно: 1) при вызове функции параметр fp_docparams-fillable ='X'
2) в формуляре сделать тип поля USER ENTER-OPTIONAL

mvs87

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

Добрый день! Для того, чтобы поля были редактируемыми нужно: 1) при вызове функции параметр fp_docparams-fillable ='X'
2) в формуляре сделать тип поля USER ENTER-OPTIONAL

Супер!

Только ругается.
ADS: com.adobe.ProcessingException: com.adobe.Processin(200101)

Вероятно, запонить нужно стурктурку:

Пробовал писать в лангу R в кантри RUS - ругается.
Поделитесь кусочком кода - примером... пожалуйста

mvs87

заполнил структуру:

Code:

fp_docparams-langu = 'R'.
fp_docparams-country = 'RU'.
fp_docparams-fillable = 'X'.
fp_docparams-dynamic = 'X'. 
fp_docparams-UPDATE_INTERACTION_CODE = 'X'.

всёравно пишет.
ADS: com.adobe.ProcessingException: com.adobe.Processin(200101)

Где ошибка?

mvs87

весь код подпрограммы

Code:

TABLES: nast, tnapr, toa_dara, arc_params.

DATA: BEGIN OF hd_invoice.           "structure for head
        INCLUDE STRUCTURE j_3rf_hd_inv.
DATA: END OF hd_invoice.
DATA: txt_invoice TYPE j_3rf_txt. "internal table for texts
DATA: it_invoice TYPE j_3rf_tinv . "internal table for items

DATA:   retcode   LIKE sy-subrc.         "Returncode
DATA:   xscreen(1) TYPE c.               "Output on printer or screen
DATA:   repeat(1) TYPE c.


DATA: ls_function           TYPE rs38l_fnam.
  DATA  ls_formoutput     TYPE fpformoutput.
  DATA: ls_addr_key           LIKE addr_key.
  DATA: fp_docparams      TYPE sfpdocparams,
        fp_outputparams   TYPE sfpoutputparams,
        lv_device       TYPE char1,  "output_device,
        l_errstr TYPE string, edt,
        fp_joboutput TYPE  sfpjoboutput,
        spoolid TYPE rspoid,
        event TYPE t048-event.



  tnapr-sform = 'Z_QM_QS_TEST'.

*  ls_addr_key-addrnumber = '0000021730'. "vbdkr-adrnr.
*  ls_addr_key-persnumber = ''. "vbdkr-adrnp.
*  ls_addr_key-addr_type  = '1' ."vbdkr-address_type.
  lv_device = 'P'.

fp_outputparams-NODIALOG = 'X'.
fp_outputparams-device   = 'PRINTER'.
fp_outputparams-PREVIEW  = 'X'.
fp_outputparams-PDFTAGGED = 'X'.
fp_outputparams-DEST     = 'PDF'.
fp_outputparams-getpdf   = ' '.
*fp_outputparams-REQNEW = 'X'.
*fp_outputparams-COPIES = '001'.
*fp_outputparams-COVTITLE = 'Вид доступа для параметра печати и предложения'.
*fp_outputparams-RECEIVER = sy-uname.
*fp_outputparams-ARCMODE = '1'.
*fp_outputparams-NOPRIBUTT = 'X'.
fp_outputparams-title    = sy-title.

  PERFORM read_fm USING tnapr-sform
               CHANGING ls_function.

  CALL FUNCTION 'FP_JOB_OPEN'
    CHANGING
      ie_outputparams = fp_outputparams
    EXCEPTIONS
      cancel          = 1
      usage_error     = 2
      system_error    = 3
      internal_error  = 4
      OTHERS          = 5.


CLEAR: IT_FIZMEH_OUT_PDF, IT_FIZMEH_OUT_PDF[], IT_HIM_OUT_PDF, IT_HIM_OUT_PDF[], IT_ZERN_OUT_PDF, IT_ZERN_OUT_PDF[].

IT_FIZMEH_OUT_PDF[] = IT_FIZMEH_OUT[].
IT_HIM_OUT_PDF[]    = IT_HIM_OUT[].
IT_ZERN_OUT_PDF[]   = IT_ZERN_OUT[].

fp_docparams-langu = 'R'. "sy-langu'.
fp_docparams-country = 'RU'.
fp_docparams-fillable = 'X'.
fp_docparams-dynamic = 'X'. " edt.
fp_docparams-UPDATE_INTERACTION_CODE = 'X'.


CALL FUNCTION ls_function
  EXPORTING
    /1BCDWB/DOCPARAMS   = fp_docparams
    IT_FIZMEH_OUT       = IT_FIZMEH_OUT_PDF
    IT_HIM_OUT          = IT_HIM_OUT_PDF
    IT_ZERN_OUT         = IT_ZERN_OUT_PDF
 IMPORTING
   /1BCDWB/FORMOUTPUT   = ls_formoutput
 EXCEPTIONS
   USAGE_ERROR          = 1
   SYSTEM_ERROR         = 2
   INTERNAL_ERROR       = 3
   OTHERS               = 4 .
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


  CALL FUNCTION 'FP_JOB_CLOSE'
    IMPORTING
      e_result       = fp_joboutput
    EXCEPTIONS
      usage_error    = 1
      system_error   = 2
      internal_error = 3
      OTHERS         = 4.

endform.                    " FRM_RUS_CREATE_PDF

tomacik

Добрый день! Посмотрите SN 1143442 - это Ваш случай?

tomacik

И еще посмотрите, пожалуйста, ноту 944221, может это вам поможет.

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

Формуляр PDF таблица цикл

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