Mapping for a particular field

HI Friends,
In my source structure i have field called "Purchase ID". I need to map this field to target based on one criteria as follows :
Only the following Purchase ID's should be considered from source xml.
Purchase ID
100
101
102
103
104
I should not pick any other values. If i get any other values. we should throw expection.
Kindly guide me friends.
Renu

Hi ,
I used Fixed Values. I added all the values under 'value column' and chose 'throw expection' option
What i have to use under Key column ?
When i places some dummy texts under key column and tried to test in Test tab. I got the following error
Exception:[java.lang.IllegalArgumentException: No value found for '101'] in class com.sap.aii.mappingtool.flib7.TextFunctions method fixed_values[101, FixedValues{ purchase1=101}, com.sap.aii.ib.bom.flib.types.ValueMappingStrategy@1f5c37b, , com.sap.aii.mappingtool.tf7.rt.Context@6a12bdc] com.sap.aii.utilxi.misc.api.BaseRuntimeException: Exception:[java.lang.IllegalArgumentException: No value found for '101'] in class com.sap.aii.mappingtool.flib7.TextFunctions method fixed_values[101, FixedValues{purchase1=101}, com.sap.aii.ib.bom.flib.types.ValueMappingStrategy@1f5c37b, , com.sap.aii.mappingtool.tf7.rt.Context@6a12bdc]
kindly guide me

Similar Messages

How to provide hyperlink for a particular field in ALV

Hi,
How to provide hyperlink for a particular field in alv report.
Regards,
Ramu.

Yes you can do that. using the fieldcatalog there is an option for that. give HOT_SPOT = 'X'. for the column you want.
wa_field-hotspot = 'X'.
REPORT ztest_alv.
TYPE-POOLS:slis.
DATA:it_fieldcat TYPE slis_t_fieldcat_alv,
     wa_field LIKE LINE OF it_fieldcat.
DATA: BEGIN OF it_likp OCCURS 0,
       vbeln TYPE likp-vbeln,
      END OF it_likp.
DATA: layout TYPE slis_layout_alv.
wa_field-fieldname = 'VBELN'.
wa_field-tabname = 'IT_LIKP'.
wa_field-hotspot = 'X'.
wa_field-outputlen = 10.
wa_field-no_zero = 'X'.
wa_field-seltext_l = 'Sales'.
APPEND wa_field TO it_fieldcat.
SELECT vbeln FROM likp
UP TO 10 ROWS
INTO TABLE it_likp.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program      = sy-repid
    is_layout               = layout
    i_callback_user_command = 'USER_COMMAND'
    it_fieldcat             = it_fieldcat
TABLES
    t_outtab                = it_likp
EXCEPTIONS
    program_error           = 1.
*&      Form user_Command
*       text
*      -->UCOMM      text
*      -->SELFIELD   text
FORM user_command USING ucomm TYPE sy-ucomm
                    selfield TYPE slis_selfield.
CASE ucomm.
    WHEN '&IC1'.
      SET PARAMETER ID 'VL' FIELD selfield-value.
      CALL TRANSACTION 'VL02N' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "user_Command

Maintaing a default value for a particular field in the selection screen

Hi all,
How to maintain a default value for a particular field in the Selection Screen of a Standard report
Regards
Ajay

>
ajay babu wrote:
> Hi all,
>
> How to maintain a default value for a particular field in the Selection Screen of a Standard report
>
> Regards
> Ajay
Create a variant for your standard program and assign this variant to the field 'Start with variant' while creating transaction code for the standard program in the transaction 'SE93'.
Regards
Rajesh.

Code for reading particular fields from the file placed in application

hi,
code for reading particular fields from the file placed in application server in to the internal table.

Hi,
Use the GUI_UPLOAD FM to upload the File into ur Internal Table.
DATA : FILE_TABLE TYPE FILE_TABLE OCCURS 0,
         fwa TYPE FILE_TABLE,
         FILENAME TYPE STRING,
         RC TYPE I.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
    WINDOW_TITLE            = 'Open File'
   DEFAULT_EXTENSION       =
   DEFAULT_FILENAME        =
   FILE_FILTER             =
   INITIAL_DIRECTORY       =
   MULTISELECTION          =
   WITH_ENCODING           =
CHANGING
    FILE_TABLE              = FILE_TABLE
    RC                      = RC
   USER_ACTION             =
   FILE_ENCODING           =
EXCEPTIONS
    FILE_OPEN_DIALOG_FAILED = 1
    CNTL_ERROR              = 2
    ERROR_NO_GUI            = 3
    NOT_SUPPORTED_BY_GUI    = 4
    others                  = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE FILE_TABLE INDEX 1 into fwa.
FILENAME = fwa-FILENAME.
    CALL FUNCTION 'GUI_UPLOAD'
         EXPORTING
              filename                = filename
              FILETYPE                = 'DAT'
       IMPORTING
            FILELENGTH              =
         TABLES
              data_tab                = itab
         EXCEPTIONS
              file_open_error         = 1
              file_read_error         = 2
              no_batch                = 3
              gui_refuse_filetransfer = 4
              invalid_type            = 5
              OTHERS                  = 6 .
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
Regards,
Balakumar.G
Reward Points if helpful.

ALV Totals , Subtotals for a particular field in ALV Grid report

Hi,
I have an issue in ALV totals and subtotals.
Scenario is like this.
i have a vendor data to be pulled out of SAP and to be shown in the form of report.
i am populating all the data and doing do_sum based on Vendor ( has expansin & collapse option ) and display the number of reports .
Vendor -
100
Vendor1 -
1
Vendor2----
2.
Vendor100----
100.
but my problem is in the same report i have a date field .
if i have a five vendors created on 03/03/2008. in the same report for the date field having ( expansion & collapse ) , when i expand based on that date can i be able to sum up all the vendors created on 03/03/2008 and display in the same report along with the vendor count.
Let me know . Thank you in advance
Regards,
Ry

Hi Roby,
Have a look at this sample code
It will help u,
REPORT ZIN_FI_AGEING
       message-id zbdc
       no standard page heading.
Title                   : For Ageing Details
Author                  :
Date                    : 22/11/2004
Transport/Correction Id :
Clarify case ID         :
Application             : FI
Program Type            :
Frequency               :
Purpose                 :
Comments                :
Request No              :
TABLES DELCARATIONS
Tables: zzgeinz9a,    "Actual line item table
        t001.         "Plants/Branches
ALV TTPE DELCARATIONS
type-pools: slis.
*Type Declarations for Field Catalog
data : i_fldcat_head type slis_t_fieldcat_alv,
       wa_fldcat_head type slis_fieldcat_alv.
*Type Declarations for ALV Events
data : i_events type slis_t_event,
       wa_event like line of i_events.
*Type Declarations for Layout Design
data : wa_layout type slis_layout_alv.
*Type Declarations for Sorting Fields
data: it_sort type slis_sortinfo_alv occurs 0 with header line.
*Type Declarations for Displaying Images on Grid
data : i_comment type slis_t_listheader,
       wa_comment type slis_listheader.
*Type Declarations for Grouping fields
data : wa_group type slis_sp_group_alv,
       i_group type slis_t_sp_group_alv.
DATA DELCARATIONS
data: v_flag,                 "Status Flag
      v_repid like sy-repid, "Program Name
      p_year(4) type c,       "Year
      v_due_days type i.      "To hold the due days
CONSTANTS DELCARATIONS
constants: c_x type c value 'X',
           c_bukrs(4) type c value '0373'.
INTERNAL TABLES DELCARATIONS
*--Internal table to hold the required data
data: begin of it_final_vendor occurs 0,
        rzzlifnr    like zzgeinz9a-rzzlifnr, "Vendor
        name1       like lfa1-name1,          "Vendor Name
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        belnr       like bkpf-belnr,          "FI Doc No
        doc_date    like bkpf-awkey,          "Document Date
        zbd1t       like bsik-zbd1t,          "Cash discount days 1
        bldat       like bkpf-bldat,          "Document Date
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        hsl         like zzgeinz9a-hsl,       "local currency
        found       type c,                   "Existance Flag
      end of it_final_vendor.
data: begin of it_final_vendor_temp occurs 0,
        rzzlifnr    like zzgeinz9a-rzzlifnr, "Vendor
        name1       like lfa1-name1,          "Vendor Name
        belnr       like bkpf-belnr,          "FI Doc No
        bldat       like bkpf-bldat,          "Document Date
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        hsl        like zzgeinz9a-hsl,        "local currency
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        buck_0_30   like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_31_60 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_61_90 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_91_180 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_180    like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        doc_date    like bkpf-awkey,          "Document Date
        found       type c,                   "Existance Flag
      end of it_final_vendor_temp.
data: begin of it_final_customer occurs 0,
        rzzkunnr    like zzgeinz9a-rzzkunnr, "Customer
        name1       like kna1-name1,          "Customer Name
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        belnr       like bkpf-belnr,          "FI Doc No
        doc_date    like bkpf-awkey,          "Document Date
        zbd1t       like bsik-zbd1t,          "Cash discount days 1
        bldat       like bkpf-bldat,          "Document Date
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        hsl         like zzgeinz9a-hsl,       "local currency
        found       type c,                   "Existance Flag
      end of it_final_customer.
data: begin of it_final_customer_temp occurs 0,
        rzzkunnr    like zzgeinz9a-rzzkunnr, "Customer
        name1       like kna1-name1,          "Customer Name
        belnr       like bkpf-belnr,          "FI Doc No
        bldat       like bkpf-bldat,          "Document Date
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        hsl        like zzgeinz9a-hsl,        "local currency
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        buck_0_30   like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_31_60 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_61_90 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_91_180 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_180    like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        doc_date    like bkpf-awkey,          "Document Date
        found       type c,                   "Existance Flag
      end of it_final_customer_temp.
*--Internal Table to hold the Cash discount days 1 for Vendors
data: begin of it_final_bsik occurs 0,
        belnr like bsik-belnr,
        zbd1t like bsik-zbd1t,
      end of it_final_bsik.
*--Internal Table to hold the Cash discount days 1 for Customers
data: begin of it_final_bsid occurs 0,
        belnr like bsid-belnr,
        zbd1t like bsid-zbd1t,
      end of it_final_bsid.
INITIALIZATION
v_repid = sy-repid.
SELECTION SCREEN
selection-screen: begin of block b1 with frame title text-h01.
selection-screen skip.
select-options: s_vendor for zzgeinz9a-rzzlifnr modif id ven.
parameters: p_comp1 like t001-bukrs modif id ven.
parameters: p_rundt1 like bkpf-bldat modif id ven.
select-options: s_cust for zzgeinz9a-rzzkunnr modif id cst.
parameters: p_comp2 like t001-bukrs modif id cst.
parameters: p_rundt2 like bkpf-bldat modif id cst.
selection-screen skip.
selection-screen: begin of block b2 with frame title text-h02.
parameters : p_vendor radiobutton group gr1 default 'X'
                                  user-command test,
             p_cust radiobutton group gr1.
selection-screen: end of block b2.
selection-screen: end of block b1.
**************************AT Selection Screen OutPut ******************
at selection-screen output.
loop at screen.
    if p_cust = 'X'.
      if screen-group1 = 'VEN'.
        screen-active = '0'.
        screen-input = '0'.
        screen-output = '0'.
        screen-invisible = '0'.
      endif.
    elseif p_vendor = 'X'.
      if screen-group1 = 'CST'.
        screen-active = '0'.
        screen-input = '0'.
        screen-output = '0'.
        screen-invisible = '0'.
      endif.
    endif.
    modify screen.
endloop.
SELECTION SCREEN ON
at selection-screen on s_vendor.
*--Validating Vendor
if not s_vendor[] is initial.
    perform validate_s_vendor.
endif.
at selection-screen on s_cust.
*--Validating Customer
if not s_cust[] is initial.
    perform validate_s_cust.
endif.
at selection-screen on p_comp1.
*--Validating Company Code.
if not p_comp1 is initial.
    perform validate_p_comp1.
endif.
at selection-screen on p_comp2.
*--Validating Company Code.
if not p_comp2 is initial.
    perform validate_p_comp2.
endif.
START OF SELECTION
start-of-selection.
if p_vendor = 'X'.
   perform get_vendor_data.
elseif p_cust = 'X'.
   perform get_customer_data.
endif.
END OF SELECTION
end-of-selection.
if p_vendor = 'X'.
*--Generating the output for vendor
perform generate_field_catalog_vendor.
perform get_events_vendor.
perform generate_layout_vendor.
perform generate_sort_vendor.
perform generate_group_vendor.
perform disp_alv_grid_vendor.
elseif p_cust = 'X'.
*--Generating the output for customer
perform generate_field_catalog_cust.
perform get_events_customer.
perform generate_layout_customer.
perform generate_sort_customer.
perform generate_group_customer.
perform disp_alv_grid_customer.
endif.
*&      Form validate_s_vendor
      Validating the Vendor
form validate_s_vendor.
select rzzlifnr up to 1 rows
into (zzgeinz9a-rzzlifnr)
from zzgeinz9a
where rzzlifnr in s_vendor.
endselect.
if sy-subrc ne 0.
    message e004 with 'Invalid Range of Vendor'(002)
s_vendor-low 'To'(006) s_vendor-high.
endif.
endform.                    " validate_s_vendor
*&      Form validate_s_cust
      Validating the Customer
form validate_s_cust.
   select rzzkunnr up to 1 rows
   into (zzgeinz9a-rzzkunnr)
   from zzgeinz9a
   where rzzkunnr in s_cust.
   endselect.
   if sy-subrc ne 0.
     message e004 with 'Invalid Range of Customer'(005)
s_cust-low 'To'(006) s_cust-high.
endif.
endform.                    " validate_s_cust
*&      Form validate_p_comp1
      Validating the Company Code
form validate_p_comp1.
select single bukrs
         into   (t001-bukrs)
         from   t001
         where bukrs eq p_comp1.
if sy-subrc ne 0.
    message e004 with 'Company Code'(004) p_comp1 'Does not Exists'(003)
endif.
endform.                    " validate_p_comp1
*&      Form validate_p_comp2
      Validating the Company Code
form validate_p_comp2.
select single bukrs
         into   (t001-bukrs)
         from   t001
         where bukrs eq p_comp2.
if sy-subrc ne 0.
    message e004 with 'Company Code'(004) p_comp2 'Does not Exists'(003)
endif.
endform.                    " validate_p_comp2
*&      Form get_vendor_data
      Getting the Vendor Related Docs
form get_vendor_data.
select a~rzzlifnr
        b~name1
        a~docnr
        a~refdocnr
        a~rzz_ebeln
        a~hsl
    into corresponding fields of table it_final_vendor
    from zzgeinz9a as a
    inner join lfa1 as b
    on arzzlifnr = blifnr
    where rzzlifnr in s_vendor
    and   rbukrs   eq p_comp1.
    if sy-subrc eq 0.
      v_flag = 'X'.
      p_year = sy-datum+0(4).
      perform get_doc_date using p_comp1
                                 p_year.
      perform move_records.
      sort it_final_vendor by rzzlifnr.
      perform generate_data.
    else.
      v_flag = space.
    endif.
endform.                    " get_vendor_data
*&      Form get_customer_data
      Getting the Customer Related Docs
form get_customer_data.
select a~rzzkunnr
        b~name1
        a~docnr
        a~refdocnr
        a~rzz_ebeln
        a~hsl
    into corresponding fields of table it_final_customer
    from zzgeinz9a as a
    inner join kna1 as b
    on arzzkunnr = bkunnr
    where rzzkunnr in s_cust
    and   rbukrs   eq p_comp2.
    if sy-subrc eq 0.
      v_flag = 'X'.
      p_year = sy-datum+0(4).
      perform get_doc_date_cust using p_comp2
                                      p_year.
      perform move_records_cust.
      sort it_final_customer by rzzkunnr.
      perform generate_data_cust.
    else.
      v_flag = space.
    endif.
endform.                    " get_customer_data
*&      Form get_doc_date
      Getting the Document Date and FI Doc No
     -->P_P_COMP1 Company Code
     -->P_P_YEAR Fiscal Year
form get_doc_date using    p_p_comp1
                           p_p_year.
loop at it_final_vendor.
    concatenate it_final_vendor-refdocnr '*' into
it_final_vendor-doc_date.
    modify it_final_vendor index sy-tabix.
endloop.
clear it_final_vendor.
data: v_doc_date(11) type c,
      v_belnr like bkpf-belnr,
      v_bldat like bkpf-bldat.
      loop at it_final_vendor.
       concatenate it_final_vendor-refdocnr '%' into v_doc_date.
        select single belnr
                      bldat
               into corresponding fields of it_final_vendor
               from bkpf
               where bukrs eq p_p_comp1
               and   gjahr eq p_p_year
               and   awkey like v_doc_date.
               modify it_final_vendor.
       endloop.
    clear:it_final_vendor.
endform.                    " get_doc_date
*&      Form move_records
      Moving records to final internal table
form move_records.
*--Checking the existance of belnr in bsik
clear it_final_vendor.
select belnr
         zbd1t
         into table it_final_bsik
         from bsik
         for all entries in it_final_vendor
         where belnr eq it_final_vendor-belnr
         and   bukrs eq c_bukrs.
clear it_final_bsik.
loop at it_final_vendor.
    read table it_final_bsik with key belnr = it_final_vendor-belnr.
    if sy-subrc eq 0.
      it_final_vendor-zbd1t = it_final_bsik-zbd1t.
      it_final_vendor-due_date = it_final_vendor-bldat +
it_final_bsik-zbd1t.
      it_final_vendor-found    = 'X'.
      modify it_final_vendor.
    endif.
endloop.
endform.                    " move_records
*&      Form generate_data
      Segregating the records based on due_date
form generate_data.
delete it_final_vendor[] where found ne 'X'.
sort it_final_vendor by belnr.
loop at it_final_vendor.
    if it_final_vendor-due_date > p_rundt1.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-not_due.
    elseif it_final_vendor-due_date < p_rundt1.
      it_final_vendor-due_days = p_rundt1 - it_final_vendor-DUE_DATE.
    endif.
*--filling 0-30 bucket.
    if it_final_vendor-due_days ge 0 AND it_final_vendor-due_days le 30.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_0_30.
*--filling 31-60 bucket.
elseif it_final_vendor-due_days ge 31 AND it_final_vendor-due_days le 60
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_31_60.
*--filling 61-90 bucket.
elseif it_final_vendor-due_days ge 61 AND it_final_vendor-due_days le 90
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_61_90.
*--filling 91-180 bucket.
    elseif it_final_vendor-due_days ge 91 AND it_final_vendor-due_days
le 180.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_91_180.
*--filling 180 bucket.
    elseif it_final_vendor-due_days gt 180.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_180.
    endif.
     append it_final_vendor_temp.
     clear it_final_vendor_temp.
endloop.
endform.                    " generate_data
*&      Form DISP_ALV_GRID_VENDOR
      Displaying the output in grid For Vendor
form DISP_ALV_GRID_VENDOR.
*--Generating the OUTPUT GRID FOR VENDOR
call function 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK                 = ' '
    I_BYPASSING_BUFFER                =
    I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                = v_repid
    I_CALLBACK_PF_STATUS_SET          = ' '
    I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
    I_CALLBACK_HTML_END_OF_LIST       = ' '
    I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      =
    I_GRID_SETTINGS                   =
      IS_LAYOUT                         = wa_layout
      IT_FIELDCAT                       = i_fldcat_head
    IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 = i_group
      IT_SORT                           = it_sort[]
    IT_FILTER                         =
    IS_SEL_HIDE                       =
    I_DEFAULT                         = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        =
      IT_EVENTS                         = i_events
    IT_EVENT_EXIT                     =
    IS_PRINT                          =
    IS_REPREP_ID                      =
    I_SCREEN_START_COLUMN             = 0
    I_SCREEN_START_LINE               = 0
    I_SCREEN_END_COLUMN               = 0
    I_SCREEN_END_LINE                 = 0
    IT_ALV_GRAPHICS                   =
    IT_ADD_FIELDCAT                   =
    IT_HYPERLINK                      =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
    IT_EXCEPT_QINFO                   =
IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    tables
      t_outtab                          = it_final_vendor_temp
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform.                    " DISP_ALV_GRID
*&      Form get_doc_date_cust
      text
     -->P_P_COMP2 Company Code
     -->P_P_YEAR Fiscal Year
form get_doc_date_cust using    p_p_comp2
                                p_p_year.
loop at it_final_customer.
    concatenate it_final_customer-refdocnr '*' into
it_final_customer-doc_date.
    modify it_final_customer index sy-tabix.
endloop.
clear it_final_customer.
data: v_doc_date(11) type c,
      v_belnr like bkpf-belnr,
      v_bldat like bkpf-bldat.
      loop at it_final_customer.
       concatenate it_final_customer-refdocnr '%' into v_doc_date.
        select single belnr
                      bldat
               into corresponding fields of it_final_customer
               from bkpf
               where bukrs eq p_p_comp2
               and   gjahr eq p_p_year
               and   awkey like v_doc_date.
               modify it_final_customer.
       endloop.
    clear:it_final_customer.
endform.                    " get_doc_date_cust
*&      Form move_records_cust
      Moving Customer Data to Final Internal Table
form move_records_cust.
*--Checking the existance of belnr in bsid
select belnr
         zbd1t
         into table it_final_bsid
         from bsid
         for all entries in it_final_customer
         where belnr eq it_final_customer-belnr
         and   bukrs eq c_bukrs.
clear it_final_bsid.
loop at it_final_customer.
    read table it_final_bsid with key belnr = it_final_customer-belnr.
    if sy-subrc eq 0.
      it_final_customer-zbd1t    = it_final_bsid-zbd1t.
      it_final_customer-due_date = it_final_customer-bldat +
it_final_bsid-zbd1t.
      it_final_customer-found    = 'X'.
      modify it_final_customer.
    endif.
endloop.
endform.                    " move_records_cust
*&      Form generate_data_cust
      Generating the Customer Output
form generate_data_cust.
delete it_final_customer[] where found ne 'X'.
sort it_final_customer by belnr.
loop at it_final_customer.
    if it_final_customer-due_date > p_rundt2.
     move-corresponding it_final_customer to it_final_customer_temp.
     move it_final_customer-hsl to it_final_customer_temp-not_due.
    elseif it_final_customer-due_date < p_rundt2.
     it_final_customer-due_days = p_rundt2 - it_final_customer-DUE_DATE.
    endif.
*--filling 0-30 bucket.
if it_final_customer-due_days ge 0 AND it_final_customer-due_days le 30
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_0_30.
*--filling 31-60 bucket.
elseif it_final_customer-due_days ge 31 AND it_final_customer-due_days
le 60
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_31_60.
*--filling 61-90 bucket.
elseif it_final_customer-due_days ge 61 AND it_final_customer-due_days
le 90
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_61_90.
*--filling 91-180 bucket.
    elseif it_final_customer-due_days ge 91 AND
it_final_customer-due_days
le 180.
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_91_180.
*--filling 180 bucket.
    elseif it_final_customer-due_days gt 180.
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_180.
    endif.
     append it_final_customer_temp.
     clear it_final_customer_temp.
endloop.
endform.                    " generate_data_cust
*&      Form generate_field_catalog_vendor
      Generating the Field Catalog for Vendor
form generate_field_catalog_vendor.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
      I_PROGRAM_NAME               = v_repid
      I_INTERNAL_TABNAME           = 'IT_FINAL_VENDOR_TEMP'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = v_repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    changing
      ct_fieldcat                  = i_fldcat_head
   EXCEPTIONS
     INCONSISTENT_INTERFACE       = 1
     PROGRAM_ERROR                = 2
     OTHERS                       = 3
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
if not i_fldcat_head[] is initial.
    loop at i_fldcat_head into wa_fldcat_head.
    case wa_fldcat_head-fieldname.
     when 'RZZLIFNR'.
        wa_fldcat_head-col_pos = '1'.
        wa_fldcat_head-ref_tabname = ' '.
        wa_fldcat_head-seltext_m = 'Vendor No'(001).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
     when 'NAME1'.
        wa_fldcat_head-col_pos = '2'.
        wa_fldcat_head-seltext_m = 'Vendor Name'(007).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '35'.
     when 'BELNR'.
        wa_fldcat_head-col_pos = '3'.
        wa_fldcat_head-seltext_m = 'Invoice No'(008).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-KEY       = ' '.
     when 'BLDAT'.
        wa_fldcat_head-col_pos = '4'.
        wa_fldcat_head-seltext_m = 'Document Date'(009).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'RZZ_EBELN'.
        wa_fldcat_head-col_pos = '5'.
        wa_fldcat_head-seltext_m = 'PO.Ref.No'(010).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'HSL'.
        wa_fldcat_head-col_pos = '6'.
        wa_fldcat_head-seltext_m = 'Invoice Amount'(011).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'DUE_DATE'.
        wa_fldcat_head-col_pos = '7'.
        wa_fldcat_head-seltext_m = 'Due Date'(012).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'DUE_DAYS'.
        wa_fldcat_head-col_pos = '8'.
        wa_fldcat_head-seltext_m = 'Due Days'(013).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '9'.
     when 'NOT_DUE'.
        wa_fldcat_head-col_pos = '9'.
        wa_fldcat_head-seltext_m = 'Not Due'(014).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_0_30'.
        wa_fldcat_head-col_pos = '10'.
        wa_fldcat_head-seltext_m = '0 To 30'(015).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_31_60'.
        wa_fldcat_head-col_pos = '11'.
        wa_fldcat_head-seltext_m = '31 To 60'(016).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_61_90'.
        wa_fldcat_head-col_pos = '12'.
        wa_fldcat_head-seltext_m = '61 To 90'(017).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_91_180'.
        wa_fldcat_head-col_pos = '13'.
        wa_fldcat_head-seltext_m = '91 To 180'(018).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_180'.
        wa_fldcat_head-col_pos = '14'.
        wa_fldcat_head-seltext_m = 'Beyond 180'(019).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
    when 'DOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'REFDOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'DOC_DATE'.
        wa_fldcat_head-no_out = 'X'.
    when 'FOUND'.
        wa_fldcat_head-no_out = 'X'.
     endcase.
     modify i_fldcat_head from wa_fldcat_head index sy-tabix.
    endloop.
endif.
endform.                    " generate_field_catalog_vendor
*&      Form get_events_vendor
      Getting ALV Events
form get_events_vendor.
    call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
    I_LIST_TYPE           = 0
   importing
     et_events             = i_events
exceptions
    list_type_wrong       = 1
    others                = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
if not i_events[] is initial.
   read table i_events into wa_event with key name = 'TOP_OF_PAGE'(024)
   wa_event-form = 'GENERATE_USERCOMMAND'.
   modify i_events from wa_event index sy-tabix.
   read table i_events into wa_event with key name = 'END_OF_LIST'(025)
   wa_event-form = 'GENERATE_USERCOMMAND_FOOTER'.
   modify i_events from wa_event index sy-tabix.
endif.
endform.                    " get_events_vendor
*&      Form GENERATE_USERCOMMAND
      Displaying Header-Text and Logo on Grid
form generate_usercommand .
clear i_comment[].
wa_comment-typ = 'H'.
wa_comment-info = 'Vendor Ageing Report'(026).
append wa_comment to i_comment.
call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_comment
      i_logo             = 'ENJOYSAP_LOGO'
    I_END_OF_LIST_GRID       = 'X'
endform.                    " GENERATE_USERCOMMAND
*&      Form GENERATE_USERCOMMAND_FOOTER
      Displaying Footer-Text on Grid
form generate_usercommand_footer.
clear i_comment[].
clear wa_comment.
wa_comment-typ = 'S'.
wa_comment-key = 'GE-Betz'(027).
append wa_comment to i_comment.
call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary       = i_comment
    I_LOGO                  = ''
      i_end_of_list_grid       = 'X'.
endform.                    " GENERATE_USERCOMMAND_FOOTER
*&      Form generate_layout_vendor
      Generating the ALV Layout
form generate_layout_vendor.
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.     "OPTIMIZING FIELD WIDTH
wa_layout-zebra = 'X'.                  "PUTTING ZEBRA COLORS
wa_layout-confirmation_prompt = 'X'.    "DISPLAYS CONFIRMATION DIALOG
wa_layout-totals_text = 'Totals'(028).       "DISPLAYS TOTALS TEXT
wa_layout-subtotals_text = 'Sub Totals'(029)."DISPLAYS SUBTOTALS TEXT
endform.                    " generate_layout_vendor
*&      Form generate_sort_vendor
      Sorting the Internal Table by Vendor
form generate_sort_vendor.
it_sort-fieldname = 'RZZLIFNR'.
it_sort-tabname = 'IT_FINAL_VENDOR_TEMP'.
it_sort-up = 'X'.
it_sort-subtot = 'X'.
append it_sort.
endform.                    " generate_sort_vendor
*&      Form generate_group_vendor
      Grouping the Data
form generate_group_vendor.
clear i_group.
wa_group-sp_group = 'A'.
wa_group-text = 'RZZLIFNR'.
append wa_group to i_group.
endform.                    " generate_group_vendor
*&      Form GENERATE_FIELD_CATALOG_CUST
      Generating Field Catalog for Customer
form GENERATE_FIELD_CATALOG_CUST.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
      I_PROGRAM_NAME               = v_repid
      I_INTERNAL_TABNAME           = 'IT_FINAL_CUSTOMER_TEMP'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = v_repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    changing
      ct_fieldcat                  = i_fldcat_head
   EXCEPTIONS
     INCONSISTENT_INTERFACE       = 1
     PROGRAM_ERROR                = 2
     OTHERS                       = 3
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
if not i_fldcat_head[] is initial.
    loop at i_fldcat_head into wa_fldcat_head.
    case wa_fldcat_head-fieldname.
     when 'RZZKUNNR'.
        wa_fldcat_head-col_pos = '1'.
        wa_fldcat_head-ref_tabname = ' '.
        wa_fldcat_head-seltext_m = 'Customer No'(020).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
     when 'NAME1'.
        wa_fldcat_head-col_pos = '2'.
        wa_fldcat_head-seltext_m = 'Customer Name'(021).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '35'.
     when 'BELNR'.
        wa_fldcat_head-col_pos = '3'.
        wa_fldcat_head-seltext_m = 'Invoice No'(008).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-KEY       = ' '.
     when 'BLDAT'.
        wa_fldcat_head-col_pos = '4'.
        wa_fldcat_head-seltext_m = 'Document Date'(009).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'RZZ_EBELN'.
        wa_fldcat_head-col_pos = '5'.
        wa_fldcat_head-seltext_m = 'PO.Ref.No'(010).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'HSL'.
        wa_fldcat_head-col_pos = '6'.
        wa_fldcat_head-seltext_m = 'Invoice Amount'(011).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'DUE_DATE'.
        wa_fldcat_head-col_pos = '7'.
        wa_fldcat_head-seltext_m = 'Due Date'(012).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'DUE_DAYS'.
        wa_fldcat_head-col_pos = '8'.
        wa_fldcat_head-seltext_m = 'Due Days'(013).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '9'.
     when 'NOT_DUE'.
        wa_fldcat_head-col_pos = '9'.
        wa_fldcat_head-seltext_m = 'Not Due'(014).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_0_30'.
        wa_fldcat_head-col_pos = '10'.
        wa_fldcat_head-seltext_m = '0 To 30'(015).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_31_60'.
        wa_fldcat_head-col_pos = '11'.
        wa_fldcat_head-seltext_m = '31 To 60'(016).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_61_90'.
        wa_fldcat_head-col_pos = '12'.
        wa_fldcat_head-seltext_m = '61 To 90'(017).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_91_180'.
        wa_fldcat_head-col_pos = '13'.
        wa_fldcat_head-seltext_m = '91 To 180'(018).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_180'.
        wa_fldcat_head-col_pos = '14'.
        wa_fldcat_head-seltext_m = 'Beyond 180'(019).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
    when 'DOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'REFDOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'DOC_DATE'.
        wa_fldcat_head-no_out = 'X'.
    when 'FOUND'.
        wa_fldcat_head-no_out = 'X'.
     endcase.
     modify i_fldcat_head from wa_fldcat_head index sy-tabix.
    endloop.
endif.
endform.                    " GENERATE_FIELD_CATALOG_CUST
*&      Form get_events_customer
      Getting ALV Events
form get_events_customer.
    call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
    I_LIST_TYPE           = 0
   importing
     et_events             = i_events
exceptions
    list_type_wrong       = 1
    others                = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
if not i_events[] is initial.
   read table i_events into wa_event with key name = 'TOP_OF_PAGE'(024)
   wa_event-form = 'GENERATE_USERCOMMAND_CUST'.
   modify i_events from wa_event index sy-tabix.
   read table i_events into wa_event with key na

Condense the leading spaces for a particular field

hi
total_weight TYPE char10,
I need to condense the leading spaces.for a particular
how shd i do it.

shift total_weight left deleting leading space.
Regards,
RIch Heilman

Delimiter in Syndication Maps for Multi-Valued Fields

We are in the process of upgrading to MDM 7.1 from MDM 5.5. In one of our syndication maps we are syndicating a multi-valued hierarchy field with no particular limit as to how many values the field can hold. In the old MDM 5.5 Syndication map the xml output delimits this data with ";" (semi-colon) as in the below example.
<Field>Level 1Level 2Value 1; Level 1Level 2Value 2;Level 1Level2Value 3</Field>
In MDM 7.1 the values are separated by a "," (comma) like in the example below.
<Field>Level 1Level 2Value 1, Level 1Level 2Value 2, Level 1Level2Value 3</Field>
Is there anyway to change the delimiter in MDM 7.1 from a "," (comma) to a ";" (semi-colon) with out splitting the field?
Thanks!
Sincerely,
Courtney

Hi Brewer,
Is there anyway to change the delimiter in MDM 7.1 from a "," (comma) to a ";" (semi-colon) with out splitting the field?
Yes, for e.g in in your syndication map at source item lookup field display as follows
Country
|___ Code
|___ Name
just map country to destination item instead of using Code or Name, multi vaule will display with ; operator
In one of our syndication maps we are syndicating a multi-valued hierarchy field with no particular limit as to how many values the field can hold.
if you want to set length of field you require to set properties at destination item as follows :
Fixed Column Width : the specific with destination item
Max Item Length : Maximum length allowed for the item
Hope Above mention point will resolved your problem if not revert back
Thanks,
Jignesh Patel

How to provide validation for a particular field of screen

Hi Experts,
For my project, I have created a screen. In the screen, we have one field. For this field we have provided F4 help. When the user clicks on the F4 list of values is displayed.
I have to provide following condition for this field.
User should only select values from this F4 list only. If the user tries to enter any data which is not contained in the list, system should throw message that 'Invalid data. Select valid values".
Can you please let me know how I can do so?
The relevant portion of code is
CASE save_ok_code.
    WHEN 'EXIT'.
     LEAVE PROGRAM.
    WHEN 'BACK'.
      PERFORM exit.
    WHEN 'CANCEL'.
     LEAVE PROGRAM.
    WHEN 'SAVE'.
      CALL FUNCTION 'MESSAGES_INITIALIZE'.
      PERFORM check_batch CHANGING fl_error.
      IF fl_error IS INITIAL.
        PERFORM save.
        IF sy-subrc EQ 0.
          CLEAR gv_deleted.
          PERFORM update_alv_grid_display.
***for message display
          CALL FUNCTION 'MESSAGES_SHOW'.
        ENDIF.
      ELSE.
        CALL FUNCTION 'MESSAGE_STORE'
          EXPORTING
            arbgb = 'ZEX_MYPROJECT'
            msgty = 'S'
            txtnr = '053'
            msgv1 = text-008
          EXCEPTIONS
            OTHERS = 3.
        CHECK sy-subrc = 0.
        CALL FUNCTION 'MESSAGES_SHOW'.
      ENDIF.
    WHEN OTHERS.
      CALL METHOD cl_gui_cfw=>dispatch.
I am totally new for ABAP. So, please help me out.
Thanks
Smith

Hi,
Try this.
Create an internal table and populated it with the values present in the F4 help of the field. Then in AT SELECTION-SCREEN event check the value of the field with the values in the internal table and display the appropriate message.
Sharin.

Data not available for a particular field - when exectuing report on MP

hai sdn,
I am executing a report on multiprovider where 3 ods's are linked.i'm getting data into all the fields except for one field.(sales doc type).I have checked all my linking in the identification also. i cross checked by using the Tcode : listcube and executed the report - here i'm getting the data but in the report i'm not getting.Can any one help me out with this.
Itz urgent..................
Thanks in advance.

Hi Sunita,
0DOC_TYPE has key and text in the (business explorer Display), but you are saying you have it as text and key. Make it inline with what is there in the info object definitione.
Note you have 2 options in Extras of the multiprovider.
1. Key and Text
2. Text and Key.
Hope this helps you.
Regards
Ananth

How to keep f4 help for a particular field in module pool problem-urgent

hi all,
i am displaying output using alv list display. here i am showing my pf status here. in this status i have one button called position. when i click this button it is showing pop up inside this pop up i am showing appln
for this i need keep f4 help. anybody can tell me how to keep f4 help fo this field.
thanks,
maheedhar.t

Hi Maheedhar,
You need to use function module POPUP_GET_VALUES.
If you want see sampl eprogram for this check the program RSSPO410.
Execute this program and input Example2 = X in the selection screen.
Code from the above Program:
DATA: BEGIN OF FIELDS OCCURS 1.
        INCLUDE STRUCTURE SVAL.
DATA: END OF FIELDS,
      RETURNCODE(1)       TYPE C,
      POPUP_TITLE(30)     TYPE C.
POPUP_TITLE       = 'Nachrichten anzeigen'(200).
CLEAR FIELDS.
FIELDS-TABNAME    = 'T100'.
FIELDS-FIELDNAME = 'ARBGB'.
FIELDS-FIELDTEXT = 'Arbeitsgebiet'(202). "Text nicht aus DTEL
APPEND FIELDS.
CALL FUNCTION 'POPUP_GET_VALUES'
       EXPORTING POPUP_TITLE     = POPUP_TITLE
       IMPORTING RETURNCODE      = RETURNCODE
       TABLES    FIELDS          = FIELDS.
IF RETURNCODE = 'A'.
    If Cancel is clicked
ELSE.
    If OK is clicked.
    Table FIELDS congtains the input data.
ENDIF.
Thank you
Ramakrishna

How to look for a particular field in the segments of IDOC ?

Hi,
I am looking at a particular IDOC which I will use to do data trasfer from lgacy to R/3 using BAPI in LSMW. Now I know a field which is required to create a given business transaction when igrating data. But there are 100's of segments on the IDOC.
Is there a way I can see if the given field is present in any of the IDOC segment ? I don't want to dig though each and everys egment and find it out...
Regards,
Rajesh

Try using WE09..There you have the option of searching by the idoc data..CHeck in the bottom of the selection screen
Thanks,
Naren
Message was edited by: Narendran Muthukumaran

How do I check Business object set type for a particular field

Hi,
I have a requirement to make the DESCRIPTION field editable for Internal Goods and Service .I have done it for Limit shopping cart with following details in the below configuration
Goto SPRO->SAP Supplier Relation ship Management
                         ->SRM Server
                             ->Coss applications and settings -> Extensions and Field Control
                                      ->Configure field control->configure control for fields substructure (in tabs field)
Bus. Object Set Type 32
Structure Field Name   DESCRIPTION
Bus. Object Type        BUS2121
Set Level                    ITEM
field editable               checked
But for Internal Goods and Service which Bus. Object Set Type should i use to achive this
Thanks
Vivek

Hello Vivek,
Execute transaction SM30 and display the Table/View /SAPSRM/V_ACTSET. Here you will find set type of all the fields.
Regards,
Arun Singh

How to prvide f4 help for the particular field in table control

hi all,
my requirement is iam having one i/p field in screen 100.name of the field is sales order number. i just want to keep f4 help for this field only.when i click F4 on this field it has to show all the sales order numbers from vbak table.
anybody can send me the code please.
thanks,
maheedhar.t

Hi,
In POV Modlue u write
Filed (ur field name ) module get_values.
In that get_values module u declare an itab according to ur requirement and get the values into internal table using select query .After u get the values in select query u call a function popup_with_table_display in which u pass the itab along with the starting and postion , width and height of the popup window .Hope this will help u
Regards,
Shafi

Material master change access for a particular field

Dear Experts,
Can any one suggest me the posibility of doing the folliwing change.
Client needs to give the access to a user for MM02 transaction for updating only one field.
In Material master -- Plant data/Storage 1 view, there is a field called storage bin. (if we mention storagle location then only this field will be populated), user has to allowed to change this field only, he should not allowed to change the ramining fields in that view.
Please suggest me the posibilities for the above issue.
Thanks in advance,
Regards,
Krish.

Hi,
contact your basis consultant.
in t-code PFCG, he will create the role and restrict the object.
this activity will be performed by basis consultant only.
Regards
Rajesh

HOW TO HANDLE MULTIPLE VALUES IN BDC FOR A PARTICULAR FIELD.

I THINK IT IS HANDLING OF TABLE CONTROLS IN BDC
PLEASE LET KNOW WHETHER THESE TWO ARE SAME CONCEPT OR NOT
HOW TO HANDLE TABLE CONTROLS IN BDC
Moderator message - Please do not use all caps. Please do not ask interview questions - post locked
Edited by: Rob Burbank on Jun 26, 2009 10:02 AM

Hi,
To handle table control in BDC you will have to enter at least one record in the table control and there after use the index number to increment to the next line item.
Say you run a recording for a transaction which has a table control (ME21), here after you have completed the recording, you'll see the code which will have sometjing like <fieldname>(01) and the entered value. that valeu has been entered as the first line item (01 being the index).
You will have to replace the hard coded line item index with a variable and inside a loop increment the item index. Once you reach the maximum allowed line items on your screen juct press the pagedown button (or insert new row) and reset the index to 1.
Following is a code snippet I used while uploading data for ME31K (vendor contract). It is not the complete code but does show how your code needs to be changed with using index for line items.
Here we assumne that the maximun number of lines displayed at a time on the screen is 14.
<< Unformatable code removed >>
Hope this helps.
Regards,
Sachin
Edited by: Rob Burbank on Jun 26, 2009 10:03 AM

Mapping for a particular field

Similar Messages

Maybe you are looking for