Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

POPUP_GET_VALUES_USER_HELP problem !!!! Urgent !!!

Former Member

‎2007 Sep 17 10:21 AM

0 Likes
2,716

i am using the POPUP_GET_VALUES_USER_HELP FM to insert some values to an internal table via a popup.I works ok but i Can't create a search help (f4) for one field that is

RLGRAP-FILENAME type field.

Please look my code ....

      INS-TABNAME = 'YCONTRACTS'.
      INS-FIELDNAME = 'EDATE'.
      APPEND INS.

      INS-TABNAME = 'YCONTRACTS'.
      INS-FIELDNAME = 'FILENAME'.
      INS-NOVALUEHLP = ' '.
      APPEND INS.

      CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP'
        EXPORTING
      F1_FORMNAME                         = 'F4_FORM'
      F1_PROGRAMNAME                      = 'YDP_INSERT_CONTRACT'
          F4_FORMNAME                     = 'F4_FORM'
          F4_PROGRAMNAME                  = 'YDP_INSERT_CONTRACT'
          FORMNAME                        = 'USER_FORM2'
          POPUP_TITLE                     = 'Insert New Contract'
          PROGRAMNAME                     = 'YDP_INSERT_CONTRACT'
         START_COLUMN                    = '5'
         START_ROW                       = '5'
*     NO_CHECK_FOR_FIXED_VALUES       = ' '
*    IMPORTING
*      RETURNCODE                      = w_rc
        TABLES
          FIELDS                          = INS
        EXCEPTIONS
          ERROR_IN_FIELDS                 = 1
          OTHERS                          = 2.

.....
.....
*&---------------------------------------------------------------------*
*&      Form  f4_form
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F4_FORM.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      DEF_FILENAME     = FILENA
      MASK             = ',*.txt.'
      MODE             = 'O'
      TITLE            = 'Upload File'(078)
    IMPORTING
      FILENAME         = YCONTRACTS-FILENAME
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4
      OTHERS           = 5.
ENDFORM.                                                    "f4_form

is this code ok?

i am using the POPUP_GET_VALUES_USER_HELP FM to insert some values to an internal table via a popup.I works ok but i Can't create a search help (f4) for one field that is

RLGRAP-FILENAME type field.

Please look my code ....

      INS-TABNAME = 'YCONTRACTS'.
      INS-FIELDNAME = 'EDATE'.
      APPEND INS.

      INS-TABNAME = 'YCONTRACTS'.
      INS-FIELDNAME = 'FILENAME'.
      INS-NOVALUEHLP = ' '.
      APPEND INS.

      CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP'
        EXPORTING
      F1_FORMNAME                         = 'F4_FORM'
      F1_PROGRAMNAME                      = 'YDP_INSERT_CONTRACT'
          F4_FORMNAME                     = 'F4_FORM'
          F4_PROGRAMNAME                  = 'YDP_INSERT_CONTRACT'
          FORMNAME                        = 'USER_FORM2'
          POPUP_TITLE                     = 'Insert New Contract'
          PROGRAMNAME                     = 'YDP_INSERT_CONTRACT'
         START_COLUMN                    = '5'
         START_ROW                       = '5'
*     NO_CHECK_FOR_FIXED_VALUES       = ' '
*    IMPORTING
*      RETURNCODE                      = w_rc
        TABLES
          FIELDS                          = INS
        EXCEPTIONS
          ERROR_IN_FIELDS                 = 1
          OTHERS                          = 2.

.....
.....
*&---------------------------------------------------------------------*
*&      Form  f4_form
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F4_FORM.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      DEF_FILENAME     = FILENA
      MASK             = ',*.txt.'
      MODE             = 'O'
      TITLE            = 'Upload File'(078)
    IMPORTING
      FILENAME         = YCONTRACTS-FILENAME
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4
      OTHERS           = 5.
ENDFORM.                                                    "f4_form

is this code ok?

Reply
2 REPLIES 2
Read only

Former Member

‎2007 Sep 17 10:29 AM

0 Likes
685

Hi,

In MASK: ',. ,..'... remove the txt

In MODE: Check out is it ZERO or O....

Regards,

Prabhu Rajesh

Read only

messier31
Active Contributor

‎2007 Sep 17 10:49 AM

0 Likes
685

Try following function module in

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION '<b>/SAPDMC/LSM_F4_FRONTEND_FILE</b>'

EXPORTING

pathname = 'C:'

CHANGING

pathfile = p_file

EXCEPTIONS

canceled_by_user = 1

system_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

ENDIF.

where prpsfile if of TYPE /sapdmc/mg_pthfil..

Hope this helps.

Enjoy SAP.

Pankaj Singh.