Abap Forum on Gate²App

Skip to content

Initialisieren einer Select-Option mit DYNP_VALUES_UPDATE

Benutzeroberflächen in SAP Systemen.
Post a reply

Initialisieren einer Select-Option mit DYNP_VALUES_UPDATE

Postby Ursula4506 » Thu Jan 29, 2009 3:43 pm

Hallo Zusammen,

Problem gelöst, Fehler war, dass ich den DYNP_VALUES_UPDATE zweimal aufgerufen habe, statt gemeinsam für P_ATTR01 und S_VALU01


ich bin gerade am verzweifeln, vielleicht hat jemand eine Idee:
- Auf einem Selektionsbild habe ich einen Parameter P_ATTR01 und eine Select-Option S_VALU01.
- P_ATTR01 kann nur über eine Werthilfe ausgewählt werden.
- Wenn sich P_ATTR01 ändert, soll S_VALU01 initialisiert werden.

Hier mein Coding (Beispiel):
Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. *&---------------------------------------------------------------------*
  2. *& Report  Z_TEST_SELOPT
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT  z_test_selopt.
  11.   BEGIN OF ty_selection_s,
  12.     atnam TYPE atnam,
  13.     atwrt TYPE atwrt,
  14.   END   OF ty_selection_s,
  15.   BEGIN OF ty_f4_attr_s,
  16.     atinn TYPE atinn,
  17.     atnam TYPE atnam,
  18.     atbez TYPE atbez,
  19.   END   OF ty_f4_attr_s,
  20.   tty_f4_attr TYPE STANDARD TABLE OF ty_f4_attr_s,
  21.   ty_range_atwrt        TYPE RANGE OF atwrt.
  22.  
  24.   gv_prog                 TYPE sy-cprog,
  25.   gv_dynnr                TYPE sy-dynnr,
  26.   gs_selection            TYPE ty_selection_s.
  27.  
  28. PARAMETERS: p_attr01 TYPE atnam MODIF ID att.
  29. SELECT-OPTIONS: s_valu01   FOR gs_selection-atwrt MODIF ID a01.
  30.  
  32.   gv_prog  = sy-cprog.
  33.   gv_dynnr = sy-dynnr.
  34.  
  35.  
  36. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_attr01.
  37.   PERFORM f4_attr USING '1'
  38.                         gv_prog
  39.                         gv_dynnr.
  40.  
  41. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_valu01-low.
  42.   PERFORM f4_valu CHANGING s_valu01[].
  43.  
  44. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_valu01-high.
  45.   PERFORM f4_valu CHANGING s_valu01[].
  46.  
  47. AT SELECTION-SCREEN OUTPUT.
  48.   LOOP AT SCREEN.
  49.     CASE screen-group1.
  50.       WHEN 'ATT'.
  51.         screen-input = 0.
  52.     ENDCASE.
  53.     MODIFY SCREEN.
  55.  
  57.  
  59.  
  60. *&---------------------------------------------------------------------*
  61. *&      Form  f4_attr
  62. *&---------------------------------------------------------------------*
  63. *       text
  64. *----------------------------------------------------------------------*
  65. *      -->P_INDEX    text
  66. *      -->P_PROG     text
  67. *      -->P_DYNNR    text
  68. *----------------------------------------------------------------------*
  69. FORM f4_attr  USING    p_index
  70.                        p_prog
  71.                        p_dynnr.
  72.   DATA:
  73.     lv_num                TYPE num02,
  74.     lv_attr               TYPE dynfnam,
  75.     lv_comm               TYPE dynfnam,
  76.     lv_old_value          TYPE dynfieldvalue,
  77.     lt_values             TYPE STANDARD TABLE OF M_MERKB,
  78.     ls_value              LIKE LINE OF lt_values,
  79.     lt_return             TYPE rsdm_f4_return_values,
  80.     ls_return             LIKE LINE OF lt_return,
  81.     lt_help_values        TYPE wrf_fields,
  82.     ls_help_value         TYPE help_value,
  83.     lt_mapping            TYPE icl_dselc_t,
  84.     ls_mapping            LIKE LINE OF lt_mapping,
  85.     lt_dynpfields         TYPE dynpread_tabtype,
  86.     ls_dynpfield          LIKE LINE OF lt_dynpfields.
  87.  
  88.   lv_num = p_index.
  89.   CONCATENATE 'P_ATTR' lv_num INTO lv_attr.
  90.   CONCATENATE 'COMM'   lv_num INTO lv_comm.
  91.  
  92.   ls_dynpfield-fieldname  = lv_attr.
  93.   APPEND ls_dynpfield TO lt_dynpfields.
  94.  
  95.   CALL FUNCTION 'DYNP_VALUES_READ'
  96.     EXPORTING
  97.       dyname     = p_prog
  98.       dynumb     = p_dynnr
  99.     TABLES
  100.       dynpfields = lt_dynpfields.
  101.  
  102.   READ TABLE lt_dynpfields INTO ls_dynpfield INDEX 1.
  103.   lv_old_value = ls_dynpfield-fieldvalue.
  104.  
  105.   ls_value-atnam  = 'ATNAM01'.
  106.   ls_value-atbez  = 'ATBEZ01'.
  107.   APPEND ls_value TO lt_values.
  108.   ls_value-atnam  = 'ATNAM02'.
  109.   ls_value-atbez  = 'ATBEZ02'.
  110.   APPEND ls_value TO lt_values.
  111.   ls_value-atnam  = 'ATNAM03'.
  112.   ls_value-atbez  = 'ATBEZ03'.
  113.   APPEND ls_value TO lt_values.
  114.  
  115.   ls_mapping-fldname = 'ATBEZ'.
  116.   ls_mapping-dyfldname = lv_comm.
  117.   APPEND ls_mapping TO lt_mapping.
  118.  
  119.   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  120.     EXPORTING
  121.       ddic_structure         = 'M_MERKB'
  122.       retfield               = 'ATNAM'
  123.       dynpprog               = p_prog
  124.       dynpnr                 = p_dynnr
  125.       dynprofield            = lv_attr
  126.       value_org              = 'S'
  127.       display                = 'F'
  128. *     CALLBACK_PROGRAM       = ' '
  129. *     CALLBACK_FORM          = ' '
  130. *     MARK_TAB               = MARK_TAB
  131. *   IMPORTING
  132. *     USER_RESET             = USER_RESET
  133.     TABLES
  134.       value_tab              = lt_values
  135. *      field_tab              = lt_help_values
  136.       return_tab             = lt_return
  137.       dynpfld_mapping        = lt_mapping.
  138.  
  139.   IF lt_return IS NOT INITIAL.
  140.     CLEAR:
  141.       ls_dynpfield,
  142.       lt_dynpfields.
  143.     LOOP AT lt_return INTO ls_return WHERE fieldname = 'ATNAM'.
  144.       ls_dynpfield-fieldname  = ls_return-retfield.
  145.       ls_dynpfield-fieldvalue = ls_return-fieldval.
  146.       APPEND ls_dynpfield TO lt_dynpfields.
  147.     ENDLOOP.
  148.  
  149.     IF ls_dynpfield-fieldvalue <> lv_old_value.
  150.       PERFORM clear_s_valu USING p_index
  151.                                  p_prog
  152.                                  p_dynnr.
  153.     ENDIF.
  154.  
  155.     CALL FUNCTION 'DYNP_VALUES_UPDATE'
  156.       EXPORTING
  157.         dyname     = p_prog
  158.         dynumb     = p_dynnr
  159.       TABLES
  160.         dynpfields = lt_dynpfields.
  161.   ENDIF.
  162.  
  163. ENDFORM.                                                    " F4_ATTR
  164. *&---------------------------------------------------------------------*
  165. *&      Form  CLEAR_S_VALU
  166. *&---------------------------------------------------------------------*
  167. *       text
  168. *----------------------------------------------------------------------*
  169. *      -->P_P_INDEX  text
  170. *----------------------------------------------------------------------*
  171. FORM clear_s_valu  USING    p_index TYPE sy-tabix
  172.                             p_prog  LIKE gv_prog
  173.                             p_dynnr LIKE gv_dynnr.
  174.  
  175.   DATA:
  176.     lv_num                TYPE num02,
  177.     lv_idx                TYPE num4,
  178.     lv_s_valu             TYPE string,
  179.     lt_dynpfields         TYPE dynpread_tabtype,
  180.     ls_dynpfield          LIKE LINE OF lt_dynpfields.
  181.  
  183.     <s_valu>              TYPE ty_range_atwrt,
  184.     <s_valu_line>         LIKE LINE OF <s_valu>.
  186. *----------------------------------------------------------------------*
  187. * assigning the corresponding select-option to field-symbol &#40;body&#41;
  188. *----------------------------------------------------------------------*
  189.   lv_num = p_index.
  190.   CONCATENATE 'S_VALU' lv_num '[]' INTO lv_s_valu.
  191.   ASSIGN &#40;lv_s_valu&#41; TO <s_valu>.
  192.  
  193. *----------------------------------------------------------------------*
  194. * each filled line of select-option has to be cleared
  195. *----------------------------------------------------------------------*
  196.   LOOP AT <s_valu> ASSIGNING <s_valu_line>.
  197.     lv_idx = sy-tabix.
  198.     CLEAR:
  199.       ls_dynpfield,
  200.       lt_dynpfields.
  201.  
  202.     CONCATENATE 'S_VALU' lv_num '[' lv_idx ']-SIGN' INTO lv_s_valu.
  203.     ls_dynpfield-fieldname  = lv_s_valu.
  204.     ls_dynpfield-fieldvalue = space.
  205.     APPEND ls_dynpfield TO lt_dynpfields.
  206.     CONCATENATE 'S_VALU' lv_num '[' lv_idx ']-OPTION' INTO lv_s_valu.
  207.     ls_dynpfield-fieldname  = lv_s_valu.
  208.     ls_dynpfield-fieldvalue = space.
  209.     APPEND ls_dynpfield TO lt_dynpfields.
  210.     CONCATENATE 'S_VALU' lv_num '[' lv_idx ']-LOW' INTO lv_s_valu.
  211.     ls_dynpfield-fieldname  = lv_s_valu.
  212.     ls_dynpfield-fieldvalue = space.
  213.     APPEND ls_dynpfield TO lt_dynpfields.
  214.     CONCATENATE 'S_VALU' lv_num '[' lv_idx ']-HIGH' INTO lv_s_valu.
  215.     ls_dynpfield-fieldname  = lv_s_valu.
  216.     ls_dynpfield-fieldvalue = space.
  217.     APPEND ls_dynpfield TO lt_dynpfields.
  218.  
  220.  
  221. *----------------------------------------------------------------------*
  222. * header line of select-option has to be cleared
  223. *----------------------------------------------------------------------*
  224.     CONCATENATE 'S_VALU' lv_num '-SIGN' INTO lv_s_valu.
  225.     ls_dynpfield-fieldname  = lv_s_valu.
  226.     ls_dynpfield-fieldvalue = space.
  227.     APPEND ls_dynpfield TO lt_dynpfields.
  228.     CONCATENATE 'S_VALU' lv_num '-OPTION' INTO lv_s_valu.
  229.     ls_dynpfield-fieldname  = lv_s_valu.
  230.     ls_dynpfield-fieldvalue = space.
  231.     APPEND ls_dynpfield TO lt_dynpfields.
  232.     CONCATENATE 'S_VALU' lv_num '-LOW' INTO lv_s_valu.
  233.     ls_dynpfield-fieldname  = lv_s_valu.
  234.     ls_dynpfield-fieldvalue = space.
  235.     APPEND ls_dynpfield TO lt_dynpfields.
  236.     CONCATENATE 'S_VALU' lv_num '-HIGH' INTO lv_s_valu.
  237.     ls_dynpfield-fieldname  = lv_s_valu.
  238.     ls_dynpfield-fieldvalue = space.
  239.     APPEND ls_dynpfield TO lt_dynpfields.
  240.  
  241. *----------------------------------------------------------------------*
  242. * clear dynpro data of select-option
  243. *----------------------------------------------------------------------*
  244.   CALL FUNCTION 'DYNP_VALUES_UPDATE'
  245.     EXPORTING
  246.       dyname     = p_prog
  247.       dynumb     = p_dynnr
  248.     TABLES
  249.       dynpfields = lt_dynpfields.
  250.  
  251.  
  252. *  CLEAR:
  253. *    ls_dynpfield,
  254. *    lt_dynpfields.
  255. *  ls_dynpfield-fieldname  = 'RSCSEL-SLOW_I'.
  256. *  ls_dynpfield-stepl      = '1'.
  257. *  ls_dynpfield-fieldvalue = space.
  258. *  APPEND ls_dynpfield TO lt_dynpfields.
  259. *
  260. *  CALL FUNCTION 'DYNP_VALUES_UPDATE'
  261. *    EXPORTING
  262. *      dyname     = 'SAPLALDB'
  263. *      dynumb     = '3010'
  264. *    TABLES
  265. *      dynpfields = lt_dynpfields.
  266.  
  267. *----------------------------------------------------------------------*
  268. * clear program data &#40;body and header&#41; of select-option
  269. *----------------------------------------------------------------------*
  270.   CONCATENATE 'S_VALU' lv_num INTO lv_s_valu.
  271.   ASSIGN &#40;lv_s_valu&#41; TO <s_valu_line>.
  272.   CLEAR:
  273.     <s_valu>,
  274.     <s_valu_line>.
  275.  
  276.  
  277. ENDFORM.                    " CLEAR_S_VALU
  278. *&---------------------------------------------------------------------*
  279. *&      Form  f4_valu
  280. *&---------------------------------------------------------------------*
  281. *       text
  282. *----------------------------------------------------------------------*
  283. *      -->S_VALU     text
  284. *----------------------------------------------------------------------*
  285. FORM f4_valu  CHANGING s_valu TYPE ty_range_atwrt.
  286. *  PERFORM dynp_values_read.
  288. ENDFORM.                                                    " F4_VALU
  289.  
GeSHi ©



Das Programm sollte bei euch lauffähig sein, wer sich die Mühe machen möchte :lol:

Ich habe mir eine Variante angelegt mit P_ATTR01 = 'ATNAM01'
und S_VALU01 mit 4 Werten A B C und D.

Wenn ich P_ATTR01 über die Werthilfe wechsle, bleibt leider immer Wert A in S_VALU01 stehen.

Vielleicht sehe ich mittlerweile den Wald vor lauter Bäumen nicht mehr :?
Hat jemand eine Idee?

Gruß

Frank
Ursula4506
...
...
 
Posts: 286
Joined: Fri Apr 15, 2005 8:40 am
Top

Postby Vanessa2987 » Fri Sep 18, 2009 12:31 pm

Die Anfrage ist zwar schon etwas lange her - da ich aber ein ähnliches Problem gerade selber mit Hilfe des Forums gelöst habe sein hier auf den Beitrag von ereglam (Befehl SUPPRESS DIALOG) hier verwiesen:

http://bb1.gate2app.com/viewtopic.php?t=13144

Der Befehl führt (wenn in at selection screen on value request eingesetzt) zu einem erneuten PBO - da kann man dann eigentlich alles so setzen wie man es aufgrund der Eingabe in der Wertehilfe möchte.
Vanessa2987
..
..
 
Posts: 44
Joined: Tue Feb 05, 2008 1:16 pm
Top
Post a reply

Return to Dialogprogrammierung

Who is online

Users browsing this forum: No registered users and 15 guests

Powered by phpBB® Forum Software © phpBB Group
  • Latest Topics