How to show a field value and a message text in a message box

Hi
I have made a message box that shows the value of a text field when a button is clicked. I would like to add some message text to the message box as well, so that my message box will show something like:
You have entered this data: "textField value"
This script works to show the text field value but I cannot figure out how to combine it with an ordinary message box text message. I have tried various combinations of () and “ “ but no luck.
if
(TextField1.rawValue != null){
xfa.host.messageBox(TextField1.rawValue
, "Message box title");}
Kirstine

you can use below code:xfa.host.messageBox("Word you want to add in start "+TextField1.rawValue
+" Word you want to add in the end","Message Box Title")
Thanks

Similar Messages

How to retrieve the procedure value and pass the value to a form field

How to retrieve the procedure value and pass the value to a form field?

Set property for the field and the value is the actual procedure/function.
Cheers

How to Read Idoc - Segment fields values and status messages

Hi,
I am having one requirement as i want to read the segments along with the field values and also i want to read all the status messages.
first i read the idoc data from EDIDS and segments data from EDID4 and the staus messges from T100. but still i am not getting all the status messages.
is there any other table which contains the information of IDOC segments and field values and also the status messages.
Regards,
Kumar

You need to use
V_MSGNO = EDIDS-STAMNO.
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
    MSG_ID   = EDIDS-STAMID
    MSG_NO   = V_MSGNO
    MSG_VAR1 = EDIDS-STAPA1
    MSG_VAR2 = EDIDS-STAPA2
    MSG_VAR3 = EDIDS-STAPA3
    MSG_VAR4 = EDIDS-STAPA4
IMPORTING
    MSG_TEXT = V_TEXT.
WRITE: / V_TEXT.
a®

How can I pass field value betwen view in ICWC?

Hi experts,
I am new to this BSP programming. I have some requirements to modify standard ICWC in CRM 5.0
Hope can get some advices and helps here.
I have added a new field called <status> to context note SEARCHCUSTOMER in BupaSearchB2B view and also the same field name to context note CUSTOMER in BupaCreate view.
I have added the field into both the HTM views and able to execute thru WebClient. However, I have one problem in passing the <status> value from BupaSearchB2B view to the BupaCreate view when I click on the 'create' button.
I do search and saw this thread How can I pass field value beetwen view in IC Web Client? , but i cant figure out how it works.
Do I need to create the field <status> to context note CUSTOMER in BupaSearchB2B? Currently the context note does not have any attributes.
Really appreciate for any help.
Edited by: mervyn tay on Apr 7, 2009 11:42 AM

solved by myself...
code in the CREATE_ACCOUNT method.
ev_entity->set_property( iv_attr_name = 'ZZICNO'
iv_value = lv_icnum1 ).

File to RFC/BAPI - Async- How to capture response field value

Hi,
I am doing File to RFC/BAPI Scenario. I have Two BAPI's. THe same source xml file is mapped to the Two Target BAPI's.
For the first flow i.e File to BAPI1, I need to capture BAPI Response, field value and pass this value as Input to the BAPI2.
How do I proceed with the Mapping. I am working on PI 7.1
Any input would be Appreciated.
Thanks & Regards,
Varun

Hi Varun,
apparently you need a Business Process:
XML -> BP (asynchronous), Map to Bapi1 request structure
BP -> BAPI 1 (synchronous)
Transformations step with multi mapping merging XML and Bapi1 response to Bapi2 request structure
BP-> BAPI2
Regards,
Udo

How to read the field value from Table Control

Hello Experts,
I am creating my first Table Control Screen. Basically I have to create a screen (102) with a table control which has 2 fields: A_QTY, B_QTY and 2 Buttons: SAVE, EXIT.
When Clicked on 'SAVE' the data (MATNR) from a previous screen (101) and the data (A_QTY, B_QTY) from the new screen (102) should be saved into a Z-table.
Internal table t_data has 3 fields.
MATNR
A_QTY
B_QTY.
Table Control TC_RACK was declared like this:
controls tc_rack type tableview using screen 0102.
I/0 Fields:
A_QTY type ZQTY.
B_QTY type ZQTY.
The screen Flow Logic:
process before output.
module status_0102.
loop at t_data into w_data with control tc_rack.
endloop.
process after input.
module exit_0102 at exit-command.
loop at tc_rack.
endloop.
module user_command_0102.
module status_0102output.
set pf-status 'STATUS_102'.
set titlebar 'TITLE_102'.
describe table t_rack lines tc_rack-lines.
endmodule.                 "status_0102 output
process after input.
module user_command_0615 input.
case ok_code.
   when 'SAVE_RK'.
   when others.
endcase.
endmodule.                 "user_command_0102 input
Now for eg, when the users enter values for A_QTY and B_QTY like this:
A_QTY     B_QTY
1000         2000
3000         4000
How can I read these values and pass them to T_DATA so that I can save it into Z-table?
I greatly appreciate your help.
I've gone through some previously posted threads and could not understand because my knowledge in this area is preliminary.
Thanks a lot.
Could you please let me know
Edited by: dev a on Jan 13, 2010 2:46 PM

Hi dev a
You should use
DATA: lv_name(30) TYPE c.
FIELD-SYMBOLS: <QTY> type ZQTY.
GET CURSOR FIELD lv_name.   "Get the field name in table control
check sy-subrc = 0.
assign (lv_name) to <QTY>. "Here you get the value in <QTY>
check sy-subrc = 0.
Also use <your table control>-current_line to get the table index uo're currently on.
Hint: Do not use GET CURSOR LINE if you want to get table index since this gives you the line relative to dialog screen
Good luck
Dean Q.
Edited by: Dean Q on Jan 13, 2010 11:11 PM

HOW TO SHOW A DEFAULT VALUE IN AN UPDATABLE TABULAR FORM

I have an updatable form that has three columns:
Employee Name (display only)
Reporting Name (select list)
Element Type ID (hidden and updatable)
When the user select a value in the reporting name column it updates the
element type id with the appropriate value. But when they look at the select list
it has the select list values as well as the selected value in the list. How do I
overcome this. My example is setup and ready to be reviewed at http://apex.oracle.com/pls/otn/f?p=32409:1
Thank you
Forrest
p.s. weather in Anchorage Alaska Sunny and 45 degrees!

Woody,
I'm a little confused (not uncommon), as I don't understand why you have a hidden column to hold the element_type_id value.
It looks like you're doing a simple SELECT LIST/LOV that shows the display value and stores the code value. I guess I don't understand why you need the hidden column. Shouldn't the code value end up in the APEX_ITEM array, so you can save it to your table?
I would think you'd have a hidden value to hold the primary key for your table in one APEX_ITEM array, and the element_type_id column is the second parameter of the APEX_ITEM.SELECT_LIST() call. Then your manual update procedure saves that value to the right record, using the primary key from the hidden column?
What am I missing here?
Good luck,
Stew

How to Assign a Field value to a Variable??

Dear All,
Kindly let me know, if <b>"HOW TO ASSIGN A FIELD VALUE TO A VARIABLE????"</b>
Situation is, we have a Field (OBJK-TASER) in which 2 tables (SER01 & SER03) are stored. And we want to access names of the Tables which are there in the field(TASER) in (OBJK) table to a variable and then passing that variable to the sql query as a table name to get data accessed dynamicaly.

try this
select TASER from OBJK into table it_table.
loop at it_table.
select field1 field2 from (it_table-table) into table it_fields.
endloop

How to show register attribute value in my register users report in FIM 2010 R2

Hi,
How to show register attribute value in my register users report in FIM 2010 R2?
Please suggest on this.
Regards
Anil Kumar

hello,
the only way I know is manage the attribute descriptiona s a property and then enable the pivot table option "Show properties in tooltip".
But I'm interested in what you mean with "using
"OLAP pivot table extension" is an option". How this works?
Thanks
bye
Norman

How to Handle Blank Field Value based Condition in SmartForms

Dear Sir,
In SMARTFORM , we need to define a Condition that incase Field Value is not equal to BLANK value (blank means that field is empty) then a specific text gets printed .
Our problem is that We do not know as how to define Empty Field Value based condition .
Had it been Non Empty Field value based condition then solution was simple and could be done in following way :
Field Value                        R                     Comparision Value
WA_KZDKZ                      =                      'X'
In our case , we need to give Blank (Empty Value) instead of 'X' .
Kindly help us pl .
Rgds
B Mittal

Hi,
To handle blank field values in SMARTFORMS,
Go to the conditions tab in your SMARTFORM and give condition there
Field                Comparision operator          value
<Field name>      <> Here symbol is diff     space.
eg:
wa_mara-matnr    =/                                   space.
Regards,
Santosh Kumar M.

How do I define Field-Catalog and Event-Catalog in OOPs ALV

Hi All,
This is the piece of the code on which I'm working upon. This program is giving an exception "No Field-Catalog Found".
I'm new to OOPs ALV. Could anybody please tell me how to define the field-catalog and event-catalog in this.
module PBO output.
      IF g_custom_container IS INITIAL.
          CREATE OBJECT g_custom_container EXPORTING CONTAINER_NAME = 'CCCONTAINER'.
          CREATE OBJECT g_grid             EXPORTING I_PARENT       = g_custom_container.
      CALL METHOD g_grid->set_table_for_first_display
          EXPORTING I_STRUCTURE_NAME = 'IT_MATERIAL'
                    is_layout = layout
          CHANGING IT_OUTTAB         = gt_it_material.
      ENDIF.
endmodule.
Regards,
Saurabh

hi,
chk this sampl ceode.
TYPE-POOLS: slis.
CLASS lcl_event_receiver DEFINITION DEFERRED.
TABLES : zmpets_shipactiv, zmpets_chargebk, zmpets_shiphdr.
DATA : BEGIN OF int_crb OCCURS 0,
       sel TYPE char1,
       icon TYPE icon_d,
       pernr LIKE zmpets_cil-pernr,
       vorna LIKE pa0002-vorna,
       movreason LIKE zmpets_shiphdr-movreason,
       shipdocnum LIKE zmpets_chargebk-shipdocnum,
       createdon LIKE zmpets_chargebk-createdon,
       chargeamount LIKE zmpets_chargebk-chargeamount,
       version LIKE zmpets_shipactiv-version,
       activity LIKE zmpets_shipactiv-activity,
       vendor LIKE zmpets_shiphdr-vendor,
      smtp_addr LIKE adr6-smtp_addr,
       empperid LIKE zmpets_167doc-empperid,
       celltab TYPE lvc_t_styl,
       END OF int_crb.
DATA : int_crb_ver LIKE int_crb OCCURS 0 WITH HEADER LINE.
DATA : int_crb_mail LIKE int_crb OCCURS 0 WITH HEADER LINE.
DATA : int_shipactiv LIKE zmpets_shipactiv OCCURS 0 WITH HEADER LINE.
DATA: gt_fieldcatalog TYPE lvc_t_fcat.
DATA : wf_flag TYPE i.
DATA : wf_res TYPE c.
DATA : wf_tabix TYPE sy-tabix.
DATA: BEGIN OF int_sin OCCURS 0,
      shipdocnum LIKE zmpets_chargebk-shipdocnum,
        shipdocnum LIKE zmpets_shipactiv-petsdocnumber,
      END OF int_sin.
DATA: objpack   LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA: objhead   LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: objbin    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: objtxt    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: reclist   LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
DATA l_num(3).
DATA: ok_code            LIKE          sy-ucomm,
      w_repid            LIKE          sy-repid,
      wl_sno             TYPE          i         VALUE 0,
      w_max              TYPE          i         VALUE 100,
      wf_layout          TYPE          lvc_s_layo,
      cont_on_main       TYPE          scrfname   VALUE 'GRID_CONTROL',
      cont_on_dialog     TYPE          scrfname   VALUE 'GRID_CONTROL',
      grid1              TYPE          REF TO cl_gui_alv_grid,
      grid2              TYPE          REF TO cl_gui_alv_grid,
      custom_container1 TYPE          REF TO cl_gui_custom_container,
      custom_container2 TYPE          REF TO cl_gui_custom_container,
      event_receiver     TYPE          REF TO lcl_event_receiver,
      lt_exclude         TYPE          ui_functions,
      ls_celltab         TYPE          lvc_s_styl,
      lt_celltab         TYPE          lvc_t_styl.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-001.
PARAMETERS : p_cash AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b3.
PERFORM fieldcatalog_init USING gt_fieldcatalog[].
Selection-Screen----
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_chdate FOR zmpets_chargebk-createdon,
               s_pernr FOR zmpets_shiphdr-pernr,
               s_mvrsn FOR zmpets_shiphdr-movreason,
               s_sin FOR zmpets_chargebk-shipdocnum NO INTERVALS
NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK b1.
PERFORM f_clear_fields.
CALL SCREEN 100.
      CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
    handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive,
    handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm.
PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
      CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
§ 2.In event handler method for event TOOLBAR: Append own functions
by using event parameter E_OBJECT.
    DATA: ls_toolbar TYPE stb_button.
append a separator to normal toolbar
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
    CLEAR ls_toolbar.
new button -
    MOVE 'PROCESSED' TO ls_toolbar-function.
    MOVE icon_execute_object TO ls_toolbar-icon.
    MOVE 'Process the Record'(110) TO ls_toolbar-quickinfo.
    MOVE ' Process '(200) TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.                    "handle_toolbar
METHOD handle_user_command.
§ 3.In event handler method for event USER_COMMAND: Query your
function codes defined in step 2 and react accordingly.
    DATA: lt_rows TYPE lvc_t_row.
    CASE e_ucomm.
      WHEN 'PROCESSED'.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
                 EXPORTING
                  defaultoption        = 'N'
textline1     = 'Do you want to process the selected documents?'
          TEXTLINE2            = ' '
                   titel                = 'Process Documents'
          START_COLUMN         = 25
          START_ROW            = 6
          CANCEL_DISPLAY       = 'X'
                IMPORTING
                  answer               = wf_res.
*--IF THE USER CONFIRMS 'YES',
        IF wf_res = 'J'.
          PERFORM f_modify_activity.
          CALL METHOD grid1->refresh_table_display.
       PERFORM SENDINGMAIL.
        ENDIF.
    ENDCASE.
ENDMETHOD.                           "handle_user_command
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
MODULE pbo_100 OUTPUT
MODULE pbo_100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
w_repid = sy-repid.
IF custom_container1 IS INITIAL.
*get the data from charge back table
    PERFORM select_table_chb.
create a custom container control for our ALV Control
    CREATE OBJECT custom_container1
        EXPORTING
            container_name = cont_on_main
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
add your handling, for example
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = w_repid
          txt2 = sy-subrc
          txt1 = 'The control could not be created'(510).
    ENDIF.
    CREATE OBJECT grid1
              EXPORTING i_parent = custom_container1.
Set a titlebar for the grid control
    wf_layout-grid_title = 'Charge Back'(100).
allow to select multiple lines
    wf_layout-sel_mode = 'C'.
    wf_layout-stylefname = 'CELLTAB'.
Exclude all edit functions in this example since we do not need them:
    PERFORM exclude_tb_functions CHANGING lt_exclude.
    CALL METHOD grid1->set_table_for_first_display
               EXPORTING
            I_BUFFER_ACTIVE               =
            I_CONSISTENCY_CHECK           =
            I_STRUCTURE_NAME              =
            IS_VARIANT                    =
            I_SAVE                        =
            I_DEFAULT                     = 'X'
                 is_layout                     = wf_layout
            IS_PRINT                      =
            IT_SPECIAL_GROUPS             =
              it_toolbar_excluding          = lt_exclude
            IT_HYPERLINK                  =
            IT_ALV_GRAPHICS               =
          CHANGING
            it_outtab                     = int_crb[]
            it_fieldcatalog               = gt_fieldcatalog.
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_user_command FOR grid1.
    SET HANDLER event_receiver->handle_toolbar FOR grid1.
    CALL METHOD grid1->set_toolbar_interactive.
ENDIF.                               "IF grid1 IS INITIAL
CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = grid1.
ENDMODULE.                    "pbo_100 OUTPUT
MODULE pai_100 INPUT
MODULE pai_100 INPUT.
CASE ok_code.
    WHEN 'EXIT'.
      PERFORM f_clear_fields.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      PERFORM f_clear_fields.
      LEAVE TO SCREEN 0.
    WHEN 'BACK'.
      PERFORM f_clear_fields.
      LEAVE TO SCREEN 0.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                    "pai_100 INPUT
**&      Form select_table_chb
      text
FORM select_table_chb.
IF p_cash = 'X'.
*Consider the pending documents also.
*get the documents which are not processed yet,
*Doctype -> 06 = Charge Back document type.
    SELECT zmpets_shiphdrpernr pa0002vorna
     zmpets_shiphdrmovreason zmpets_chargebkshipdocnum
     zmpets_chargebkcreatedon zmpets_chargebkchargeamount
     zmpets_shipactivversion zmpets_shipactivactivity
zmpets_shiphdr~vendor
   adr6~smtp_addr
zmpets_167doc~empperid
             INTO CORRESPONDING FIELDS OF TABLE int_crb_ver
             FROM zmpets_chargebk
             JOIN zmpets_shiphdr
           ON zmpets_chargebkshipdocnum = zmpets_shiphdrshipdocno
             JOIN zmpets_shipactiv
     ON zmpets_chargebkshipdocnum = zmpets_shipactivpetsdocnumber
             JOIN pa0002
             ON zmpets_shiphdrpernr = pa0002pernr
                JOIN lfa1
                ON lfa1lifnr = zmpets_shiphdrvendor
                JOIN adr6
                ON adr6addrnumber = lfa1adrnr
             JOIN zmpets_167doc
             ON zmpets_167docpernr = pa0002pernr
                       WHERE zmpets_shipactiv~doctype = '06'
                    zmpets_shipactiv~activity NE '30'
                  ZMPETS_CHARGEBK~CREATEDON IN s_chdate
                  AND ZMPETS_SHIPHDR~pernr IN s_pernr
                  AND ZMPETS_SHIPHDR~MOVREASON IN s_mvrsn
                  AND ZMPETS_CHARGEBK~SHIPDOCNUM IN s_sin
                       AND zmpets_chargebk~loekz NE 'X'
                       AND zmpets_shipactiv~loekz NE 'X'
                       AND zmpets_shiphdr~loekz NE 'X'.
    IF sy-subrc <> 0.
*Message is 'No Pending Documents Available.'.
      MESSAGE s196(zm050).
    ELSE.
      LOOP AT int_crb_ver.
*Not yet processed. set to red
        int_crb_ver-icon = '@0A@'.
        MODIFY int_crb_ver.
      ENDLOOP.
      PERFORM f_filter_data_pending.
    ENDIF.
ELSE.
*Get the document details from pa0002,zmpets_shipactiv,ZMPETS_CHARGEBK
*table.
*Consider document type as '01' during the selection.
*Doctype -> 06 = Charge Back document type.
    SELECT zmpets_shiphdrpernr pa0002vorna zmpets_shiphdr~movreason
    zmpets_chargebkshipdocnum zmpets_chargebkcreatedon
zmpets_chargebkchargeamount zmpets_shipactivversion
zmpets_shipactivactivity zmpets_shiphdrvendor
*adr6~smtp_addr
zmpets_167doc~empperid
             INTO CORRESPONDING FIELDS OF TABLE int_crb_ver
             FROM zmpets_chargebk
             JOIN zmpets_shiphdr
             ON zmpets_chargebkshipdocnum = zmpets_shiphdrshipdocno
             JOIN zmpets_shipactiv
       ON zmpets_chargebkshipdocnum = zmpets_shipactivpetsdocnumber
             JOIN pa0002
             ON zmpets_shiphdrpernr = pa0002pernr
            JOIN lfa1
                ON lfa1lifnr = zmpets_shiphdrvendor
                JOIN adr6
                ON adr6addrnumber = lfa1adrnr
                 JOIN zmpets_167doc
                 ON zmpets_167docpernr = pa0002pernr
                       WHERE zmpets_chargebk~createdon IN s_chdate
                       AND zmpets_shiphdr~pernr IN s_pernr
                       AND zmpets_shiphdr~movreason IN s_mvrsn
                       AND zmpets_chargebk~shipdocnum IN s_sin
                      AND zmpets_shipactiv~activity NE '30'
                       AND zmpets_shipactiv~doctype = '06'
                       AND zmpets_chargebk~loekz NE 'X'
                       AND zmpets_shipactiv~loekz NE 'X'
                       AND zmpets_shiphdr~loekz NE 'X'.
    IF sy-subrc <> 0.
*Message is 'No Charge Back Documents Available.'.
      MESSAGE s201(zm050).
    ELSE.
      PERFORM f_filter_data.
    ENDIF.
ENDIF.
ENDFORM.                    "select_table_chb
*&      Form UPDATE_RECORDS
      text
--> p1        text
<-- p2        text
FORM update_records TABLES p_et_index_rows
                                STRUCTURE lvc_s_row.
DATA: ls_selected_line LIKE lvc_s_row,
          lf_row_index TYPE lvc_index.
LOOP AT p_et_index_rows INTO ls_selected_line.
    lf_row_index = ls_selected_line-index.
ENDLOOP.
ENDFORM.                    " UPDATE_RECORDS
**&      Form fieldcatalog_init
      text
     -->P_GT_FIELDCATALOG[] text
FORM fieldcatalog_init USING lt_fieldcatalog TYPE lvc_t_fcat.
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'SEL'.
ls_fieldcatalog-tabname = 'INT_CRB'.
ls_fieldcatalog-datatype = 'C'.
ls_fieldcatalog-col_pos = 1.
ls_fieldcatalog-edit     = 'X'.
ls_fieldcatalog-reptext = 'Select for Processing'.
ls_fieldcatalog-coltext = 'Select for Processing'.
ls_fieldcatalog-seltext = 'Select for Processing'.
ls_fieldcatalog-tooltip = 'Select for Processing'.
ls_fieldcatalog-checkbox = 'X'.
ls_fieldcatalog-key = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'ICON'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-datatype = 'CHAR'.
ls_fieldcatalog-col_pos    = 2.
ls_fieldcatalog-intlen     = '4'.
ls_fieldcatalog-reptext   = 'Status'.
ls_fieldcatalog-coltext   = 'Status'.
ls_fieldcatalog-seltext   = 'Status'.
ls_fieldcatalog-tooltip   = 'Status'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'PERNR'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-datatype = 'NUMC'.
ls_fieldcatalog-col_pos   = 2.
ls_fieldcatalog-intlen    = '8'.
ls_fieldcatalog-reptext   = 'Employee Number'.
ls_fieldcatalog-coltext   = 'Employee Number'.
ls_fieldcatalog-seltext   = 'Employee Number'.
ls_fieldcatalog-tooltip   = 'Employee Number'.
ls_fieldcatalog-key = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'VORNA'.
ls_fieldcatalog-tabname    = 'INT_CRB'.
ls_fieldcatalog-col_pos    = 3 .
ls_fieldcatalog-datatype   = 'CHAR'.
ls_fieldcatalog-outputlen      = '20'.
ls_fieldcatalog-reptext    = 'Employee Name'.
ls_fieldcatalog-coltext    = 'Employee Name'.
ls_fieldcatalog-seltext    = 'Employee Name'.
ls_fieldcatalog-tooltip    = 'Employee Name'.
ls_fieldcatalog-key      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'MOVREASON'.
ls_fieldcatalog-tabname    = 'INT_CRB'.
ls_fieldcatalog-col_pos    = 4.
ls_fieldcatalog-datatype   = 'NUMC'.
ls_fieldcatalog-outputlen = '10'.
ls_fieldcatalog-reptext    = 'Move Reason'.
ls_fieldcatalog-coltext    = 'Move Reason'.
ls_fieldcatalog-seltext    = 'Move Reason'.
ls_fieldcatalog-tooltip    = 'Move Reason'.
ls_fieldcatalog-key      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'SHIPDOCNUM'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-datatype = 'NUMC'.
ls_fieldcatalog-outputlen = '10'.
ls_fieldcatalog-col_pos   = 5.
ls_fieldcatalog-reptext   = 'Shipping Document Number'.
ls_fieldcatalog-coltext   = 'Shipping Document Number'.
ls_fieldcatalog-seltext   = 'Shipping Document Number'.
ls_fieldcatalog-tooltip   = 'Shipping Document Number'.
ls_fieldcatalog-key = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'CREATEDON'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-col_pos   = 6.
ls_fieldcatalog-datatype = 'DATS'.
ls_fieldcatalog-outputlen = '8'.
ls_fieldcatalog-reptext   = 'Created On'.
ls_fieldcatalog-coltext   = 'Created On'.
ls_fieldcatalog-seltext   = 'Created On'.
ls_fieldcatalog-tooltip   = 'Created On'.
ls_fieldcatalog-DO_sum      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'CHARGEAMOUNT'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-col_pos   = 7.
ls_fieldcatalog-datatype = 'CURR'.
ls_fieldcatalog-outputlen = '13'.
ls_fieldcatalog-reptext   = 'Charge Back Amount'.
ls_fieldcatalog-coltext   = 'Charge Back Amount'.
ls_fieldcatalog-seltext   = 'Charge Back Amount'.
ls_fieldcatalog-tooltip   = 'Charge Back Amount'.
ls_fieldcatalog-DO_sum      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ENDFORM.                    "fieldcatalog_init
*&      Form f_modify_activity
Modify the activity to 79 in zmpets_shipaciv table.
--> p1        text
<-- p2        text
FORM f_modify_activity .
REFRESH int_crb_mail.
int_crb_mail[] = int_crb[].
*All the document number which is to be processed is stored in
*the internel table 'INT_SIN'.
LOOP AT int_crb INTO int_crb.
    IF int_crb-sel ='X'.
      MOVE int_crb-shipdocnum TO int_sin.
      APPEND int_sin.
      CLEAR int_sin.
*Removing the processed documents.
      DELETE int_crb.
    ENDIF.
    CLEAR int_crb.
ENDLOOP.
*Get the details from shipactiv table.
IF int_sin[] IS NOT INITIAL.
    SELECT * FROM zmpets_shipactiv
        INTO TABLE int_shipactiv
          FOR ALL ENTRIES IN int_sin
                WHERE petsdocnumber = int_sin-shipdocnum.
*Modify the activity code, version, actual date and last changed date.
    SORT int_shipactiv BY petsdocnumber version DESCENDING.
    CLEAR wf_tabix.
    LOOP AT int_shipactiv.
      wf_tabix = sy-tabix.
      AT NEW petsdocnumber.
        READ TABLE int_shipactiv INDEX wf_tabix.
        int_shipactiv-activity = '030'.
        int_shipactiv-version = int_shipactiv-version + 1.
        int_shipactiv-actdate = sy-datum.
        int_shipactiv-lastchangedby = sy-uname.
        int_shipactiv-lastchangedt = sy-datum.
*Modify the data base table
        MODIFY zmpets_shipactiv FROM int_shipactiv.
      ENDAT.
      CLEAR int_shipactiv.
      AT LAST.
*Message is 'Data Processed Successfully.'.
        MESSAGE s203(zm050).
      ENDAT.
    ENDLOOP.
*-send mail to the vendor and employee that the shipment is cleared for
    LOOP AT int_crb_mail WHERE sel = 'X'.
      PERFORM f_send_mail.
    ENDLOOP.
    REFRESH int_crb_mail.
   CALL SELECTION-SCREEN 1000.
ELSE.
*Message is 'No Data Selected for Processing.'.
    MESSAGE s200(zm050).
ENDIF.
ENDFORM.                    " f_modify_activity
*&      Form f_clear_fields
      text
--> p1        text
<-- p2        text
FORM f_clear_fields .
CLEAR int_crb.
CLEAR int_crb_ver.
CLEAR int_sin.
REFRESH int_crb.
REFRESH int_crb_ver.
REFRESH int_sin.
CLEAR int_shipactiv.
REFRESH int_shipactiv.
CLEAR wf_flag.
CLEAR wf_tabix.
ENDFORM.                    " f_clear_fields
*&      Form f_filter_data
      text
--> p1        text
<-- p2        text
FORM f_filter_data .
*Take the latest Version Data.
*take all the activities, including the activity '30'.
then put the details in internal table 'INT_CRB'.
SORT int_crb_ver BY shipdocnum version DESCENDING.
CLEAR wf_tabix.
CLEAR int_crb.
REFRESH int_crb.
LOOP AT int_crb_ver.
    wf_tabix = sy-tabix.
    AT NEW shipdocnum.
      READ TABLE int_crb_ver INDEX wf_tabix.
      MOVE-CORRESPONDING int_crb_ver TO int_crb.
      APPEND int_crb.
      CLEAR int_crb.
    ENDAT.
ENDLOOP.
IF int_crb[] IS INITIAL.
*Message is 'No Records Available.'.
    MESSAGE s202(zm050).
ELSE.
    CLEAR wf_tabix.
    LOOP AT int_crb.
      wf_tabix = sy-tabix.
      REFRESH lt_celltab.
      ls_celltab-fieldname = 'SEL'.
      IF int_crb-activity = '030'.
        ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.
*status becomes green. ie processed
        int_crb-icon = '@08@'. "Green
      ELSE.
        ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
*status set to red. ie not yet processed
        int_crb-icon = '@0A@'. "Red
      ENDIF.
      INSERT ls_celltab INTO TABLE lt_celltab.
      INSERT LINES OF lt_celltab INTO TABLE int_crb-celltab.
      MODIFY int_crb INDEX wf_tabix.
    ENDLOOP.
ENDIF.
ENDFORM.                    " f_filter_data
*&      Form f_filter_data
      text
--> p1        text
<-- p2        text
FORM f_filter_data_pending.
*Take the latest Version Data.
*take all the activities, including the activity '30'.
*then filter it with out the activities '30' and having the lastest
*version. then put the details in internal table 'INT_CRB'.
SORT int_crb_ver BY shipdocnum version DESCENDING.
CLEAR wf_tabix.
CLEAR int_crb.
REFRESH int_crb.
LOOP AT int_crb_ver.
    wf_tabix = sy-tabix.
    AT NEW shipdocnum.
      READ TABLE int_crb_ver INDEX wf_tabix.
      IF int_crb_ver-activity NE '030'.
        MOVE-CORRESPONDING int_crb_ver TO int_crb.
        APPEND int_crb.
        CLEAR int_crb.
      ENDIF.
    ENDAT.
ENDLOOP.
IF int_crb[] IS INITIAL.
*Message is 'No Records Available.'.
    MESSAGE s202(zm050).
ENDIF.
ENDFORM.                    " f_filter_data_pending
*&      Form EXCLUDE_TB_FUNCTIONS
      text
     <--P_LT_EXCLUDE text
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
APPEND ls_exclude TO pt_exclude.
ENDFORM.                               " EXCLUDE_TB_FUNCTIONS
*&      Form f_send_mail
      text
--> p1        text
<-- p2        text
FORM f_send_mail .
*store the vendor name, vendor email id , employee name and employee
*email id in the internal table int_crb
Creation of the document to be sent
CLEAR doc_chng.
REFRESH objpack.
REFRESH objhead.
REFRESH reclist.
REFRESH objtxt.
File Name
doc_chng-obj_name = 'SHIPMENT'.
Mail Subject
CONCATENATE 'Shipment Document No.' int_crb_mail-shipdocnum
'Cleared.'
INTO doc_chng-obj_descr SEPARATED BY ' '.
Mail Contents
objtxt-line = 'Hi,'.
APPEND objtxt.
objtxt-line = ' '.
APPEND objtxt.
CONCATENATE 'Shipment Document Number ' int_crb_mail-shipdocnum
' cleared for move.' INTO objtxt-line SEPARATED BY ' '.
APPEND objtxt.
objtxt-line = ' '.
APPEND objtxt.
CLEAR objtxt.
objtxt-line = 'Regards '.
APPEND objtxt.
objtxt-line = ' '.
APPEND objtxt.
objtxt-line = 'SAP '.
APPEND objtxt.
CLEAR objtxt.
APPEND objtxt.
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN(
objtxt ).
Creation of the entry for the compressed document
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
APPEND objpack.
Completing the recipient list
target recipent
CLEAR reclist.
reclist-receiver = int_crb_mail-empperid. "employee email ID
"wf_empperid.
reclist-express = 'X'.
reclist-rec_type = 'U'.
APPEND reclist.
copy recipents
CLEAR reclist.
reclist-receiver = 'anversha.shahul@'."int_crb_mail-smtp_addr
reclist-express = 'X'.
reclist-rec_type = 'U'.
reclist-copy     = 'X'.
APPEND reclist.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
    TABLES
      packing_list               = objpack
      object_header              = objhead
   contents_bin               = objbin
      contents_txt               = objtxt
      receivers                  = reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
COMMIT WORK.
SUBMIT rsconn01
                WITH mode = 'INT'
                WITH output = ' '
                  AND RETURN.
ENDFORM.                    " f_send_mail
rgds
anver
pls mark hlpful answers

How to get item field values for old versions?

I need to be able to query old field values from previous versions of items in a SharePoint list. I can't execute code on the server (it needs to work with SharePoint Online/O365 for a start).
So far the ONLY API I've that lets me do this is the lists.asmx GetVersionCollection SOAP call.
This lets me specify a single field name and returns an XML structure with the values for the various versions, along with the modification time and who made the change - but NO reliable way of actually identifying *which* version (i.e. an ID or label). That
is, if I know I need to fetch the Title value from version 512 ("1.0") of item 1 in list "Documents", I don't see how to reliably parse the results to determine which entry is version 512. While they may be returned in order, in many cases
the entries are actually missing when there was no field value present (or perhaps when the field hadn't been created yet). I've tried comparing the Modified date to the Created date of the corresponding FileVersion item (which I can get via CSOM or REST),
and while it works some of the time, it's not reliable. I've also looked at the output from the lists.asmx GetVersion API but I don't see how that's useful either, as the Created property for all versions always seems to be just the date the file was originally
created.
It does seem odd to me that there's not a neat way of doing this - if I need to return information for several fields but just for a single version, I have to make a whole lot of requests that return far more info than I need, and then I need to figure out
how to parse the returned text in the case of, say, multiple-value taxonomy fields etc.
Anyone tried doing anything similar here?
Thanks
Dylan

try these links:
https://support.office.microsoft.com/en-us/article/Track-and-view-version-information-for-SharePoint-list-items-2d69d936-fb0b-4c84-830e-11708e6ec317?CorrelationId=f87cf6ea-8cbf-446a-a4a0-e2c3a86b3425&ui=en-US&rs=en-US&ad=US
https://social.technet.microsoft.com/Forums/en-US/e48ff216-7ed1-4b20-9f21-d496b1583eea/how-to-get-item-field-values-for-old-versions?forum=sharepointdevelopment
http://sharepoint.stackexchange.com/questions/20019/get-meta-data-from-a-previous-version-of-a-document-through-webservice-in-moss-2
http://sharepoint.stackexchange.com/questions/121594/getting-information-from-previous-versions-of-a-sp-list-using-csom
Please mark answer as correct if it is correct else vote for it if you find it useful Happy SharePointing

How to take a field value in an array?

how to take a field value in an array? its urgent........

yaa... i know, but actually we need to multiply that number with some digit.
take it this is way, if i push it into another array, we have an array of digits but what i need is a all digit to be together to be multiplied to a number
for example -
if i push the numbers into new array say arr[];
so i will have something like this. arr[1,2,3,4,5,6.......]
but i need the new varaible should have value as 12345........ all concatenated.
if i perform operation on array each digit will be multiplied individually.
hope u got what m trying to sayy....
Thanks for the prompt response..........

How to show property bag values of site collection in web part on landing page in sharepoint online?

How to show property bag values of site collection in web part on landing page in sharepoint online - office 365?

You can use JavaScript Client object model to read the property bag values. Example:
function getWebProperty() {
var ctx = new SP.ClientContext.get_current();
var web = ctx.get_site().get_rootWeb();
this.props = web.get_allProperties();
ctx.load(web);
ctx.load(this.props); //need to load the properties explicitly
ctx.executeQueryAsync(Function.createDelegate(this, gotProperty), Function.createDelegate(this, failedGettingProperty));
function gotProperty() {
var myPropBag = this.props;
alert(myPropBag.get_fieldValues()["allowdesigner"]); //returns the value of the key allowdesigner
function failedGettingProperty(args, sender)
//handle errors here
Source:
http://sharepoint.stackexchange.com/questions/37198/grab-a-specific-property-bag-using-ecma-script
Blog | SharePoint Learnings CodePlex Tools |
Export Version History To Excel |
Autocomplete Lookup Field

How to get the kerning value and set it to back use script?

hi,guys
I come back again.
I encountered a kerning problem.
how to get the kerning value and set it to back use script?
Thanks very much!

For both cases, the filename can be found on the FILE.ReceivedFileName Context Property. You can access this Property in a Pipeline Component or Orchestration and take any action you want, such as apply to a database.
The value is accessed by: MyReceivedMessage(FILE.ReceivedFileName)
In the case of a duplicate EDI Interchange, you would use the Failed Message Routing feature to capture the error message with either an Orchestration or Send Port.

How to show a field value and a message text in a message box

Similar Messages

Maybe you are looking for