Problem in ALV Edit

Hi everyone,
I am working on ALV report and in this some coloumns should be edited.
I have done that , But Iam getting wrong result.
I mean Iam editing currency value , If I enter some value 3000.00, It is rounding off to 30.00.
I have done the report in other way also, i have taken character fields instead of currency fields for editing. Right now whatever value I enter it is taking into account, even If i enter characters also. But here I should have internal check i.e whenever user enters
characters it should not allow to enter characters.
can anyone of you help me regarding this issue.
Thanks & Regards,
Anitha
Message was edited by:
anitha puram

hi anitha,
regarding the rounding off problem, maybe its because all numeric values in sap have ',' instead of '.' and use '.' instead of ','. so that maybe the reason and the value maybe correct only.
reward points if useful....

Similar Messages

Problem with alv edit and save

hi all,
       can anyone find me a solution for alv edit and save...the issue is that i will be editing and just clicking on save button withot any row selction and the data changed should be updated in database.
                                                                                sunil.

Hi Bhaskar,
To make fields editable in ALV, while creating the field catalog for ALV, use:-
wa_field-edit = 'X'. " to make a field editable
To check the data changed in ALV, use code:-
ALV GRID Display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program                = sy_repid " report id
    i_callback_user_command           = 'USER_COMMAND' " to handle user command
    it_fieldcat                       = it_field " for field catalog
    it_sort                           = it_sort " for sort records info
TABLES
    t_outtab                          = it_final "internal table with records
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.
Sub-routine USER_COMMAND
FORM user_command USING v_okcode LIKE sy-ucomm selfield TYPE slis_selfield.
* assign the function code to variable v_okcode
v_okcode = sy-ucomm.
* handle the code execution based on the function code encountered
CASE v_okcode.
* when the function code is EXECUTE then process the selected records
    WHEN 'EXECUTE'.
*to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
* refresh the ALV Grid output from internal table
      selfield-refresh = c_check.
ENDCASE.
Hope this solves your problem.
Thanks & Regards,
Tarun Gambhir

ALV Editable Grid Control F4 help problem

HI Experts,
am facing some funny and critical problem in ALV Editable GRID,that is i used OOPS concept for ALV GRID Control output,
in fieldcatalog i given for fields as
wafieldcatlog-f4availabl = 'X'.
wafieldcatlog-ref_table = 'table'.
wafieldcatlog-ref_field = 'field'.
and for seven fields i given like this .
but in that editable if i use F4 help for the field and get that data and later save means that data is not considering and giving error message.
So can any one please help if u confused pls reply fo any clarifications, pls help me out in this situation.
THX

wafieldcatlog-f4availabl = 'X'.
wafieldcatlog-ref_table = 'table'. "should be in caps
wafieldcatlog-ref_field = 'field'. "should be in caps.
what error you are getting while saving..?

Problem with ALV grid in edit mode

Hello, gurus!
I have a problem with ALV-grid. Sometimes when I call F4 help for a cell, data is inserted in a different cell. And when I call check_changed_data method, my internal table (passed to ALV-control in set_table_for_first_display) does not updates properly. In what can be a problem?
Thanks,
Mikhail

Hi Prabhu,
MODULE pbo_100 OUTPUT.
SET PF-STATUS 'MAIN100'.
title_of_report = text-010.
SET TITLEBAR '0100' WITH title_of_report.
DATA: g_event_receiver TYPE REF TO lcl_event_handler.
IF z_custom_container IS INITIAL .
    CREATE OBJECT z_custom_container
      EXPORTING
        container_name = 'ALV_ZAC'.
    CREATE OBJECT alv_grid
      EXPORTING
        i_parent = z_custom_container.
    g_repid = sy-repid.
    gs_variant-report = g_repid.
    x_save = 'A'.
    PERFORM check_alv_grid_fields.
    ps_layout-cwidth_opt = 'X'.
    ps_layout-edit = 'X'.
    CALL METHOD alv_grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = '1'.
*    CALL METHOD alv_grid->register_edit_event
*      EXPORTING
*        i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    APPEND   s_list_rec   to it_list_rec.
    CALL METHOD alv_grid->set_table_for_first_display
      EXPORTING
        is_layout       = ps_layout
        is_variant      = gs_variant
        i_save          = x_save
      CHANGING
        it_fieldcatalog = pt_fieldcat
        it_outtab       = it_list_rec[].
    CALL METHOD alv_grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    CALL METHOD alv_grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.
ENDIF.
FORM check_alv_grid_fields .
DATA: ls_fcat LIKE LINE OF pt_fieldcat.
REFRESH pt_fieldcat .
CLEAR: ps_layout, ls_fcat.
ls_fcat-fieldname = 'VBELN'.
ls_fcat-ref_field = 'VBELN'. ls_fcat-ref_table = 'LIPS'. " .
ls_fcat-outputlen = 9.
* ls_fcat-datatype   = 'CHAR'.
* ls_fcat-inttype    = 'C'.
APPEND ls_fcat TO pt_fieldcat.
CLEAR: ls_fcat.
ls_fcat-fieldname = 'ERDAT'.
ls_fcat-ref_field = 'ERDAT'. ls_fcat-ref_table = 'LIPS'.
ls_fcat-outputlen = 9.
* ls_fcat-f4availabl = 'X' .
* ls_fcat-datatype   = 'DATS'.
* ls_fcat-inttype    = 'D'.
APPEND ls_fcat TO pt_fieldcat.
CLEAR: ls_fcat.
ENDFORM.                    " check_alv_grid_fields
FORM save_p .
CLEAR l_valid.
CALL METHOD alv_grid->check_changed_data
    IMPORTING
      e_valid = l_valid.
IF l_valid IS INITIAL.
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel = text-i01
        txt1 = text-i02
        txt2 = text-i03
        txt3 = text-i04.
ELSE.
    i_dat_reg = zrumm_prr-cdprr.
    CLEAR is_temp_otc.
    freshit i_prrpus_fax.
    freshit i_list2_ot.
    LOOP AT it_list_rec INTO s_list_rec.
      MOVE-CORRESPONDING s_list_rec TO i_list2_ot.
      i_list2_ot-fgrup = 'RECE'.
      i_list2_ot-prrnu = i_num_prr.
      APPEND i_list2_ot.
      MOVE-CORRESPONDING s_list_rec TO i_prrpus_fax.
      APPEND i_prrpus_fax.
    ENDLOOP.
ENDIF.
Edited by: Mikhail Sarychev on Mar 16, 2011 6:41 AM
Edited by: Mikhail Sarychev on Mar 16, 2011 6:49 AM
Edited by: Mikhail Sarychev on Mar 16, 2011 6:49 AM

Problem in ALV report

Hi Friends,
I have the following 2 problems in ALV report
1) Logo is not getting displayed in the report.
2) When i click on the Purchase order number in the report the interactive report is not working,i am not able to see report of First interactive level.
can you help it out friends.
Thanks and regards
Dinesh
REPORT YSDBALV1
tables: ekko , ekpo .
type-pools: slis .
Table for Display Header
data:i_header type slis_t_listheader with header line.
*Fieldcat Declaration
data:fieldcatalog type slis_T_fieldcat_alv WITH HEADER LINE.
*Table of Events
data:i_event type slis_t_event with header line .
For Layout
data:i_layout type slis_layout_alv .
data: text(30) .
*Internal Table Declaration
data: begin of it_final occurs 0 ,
      ebeln like ekko-ebeln ,           "Purchasing Document No.
      bedat like ekko-bedat ,           "Purchasing Document Date
      matnr like ekpo-matnr ,           "Material No.
      netwr like ekpo-netwr ,         "Net Order Value in PO Currancy
      meins like ekpo-meins ,           "UOM
      chk(1) ,
      light(1) ,
      change like ekpo-menge ,
      end of it_final .
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
selection-screen begin of block block1 .
parameters:grid radiobutton group r .
parameters:list radiobutton group r .
selection-screen end of block block1 .
at selection screen
at selection-screen .
select single * from ekko where ebeln in s_ebeln .
if sy-subrc <> 0 .
   message e000(8I) WITH 'No Data Exists' .
endif .
start-of-selection .
if grid = 'X' .
perform get_data .
perform event using i_event[] .
perform field using fieldcatalog[] .
perform layout using i_layout .
perform grid_display .
endif .
*&      Form get_data
      text
--> p1        text
<-- p2        text
form get_data .
*DATA Retrieval from tables
SELECT EKKO~EBELN
       EKKO~BEDAT
       EKPO~EBELP
       EKPO~MATNR
       EKPO~NETWR
       EKPO~MEINS
       EKPO~MENGE
       EKPO~BPRME
       INTO CORRESPONDING FIELDS OF table IT_FINAL
       FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
       WHERE EKKO~EBELN IN S_EBELN.
       APPEND IT_FINAL.
endform.                    " get_data
*Getting the Event for Top of Page display.
*&      Form event
      text
     -->P_I_event[] text
form event using    p_i_event type slis_t_event.
clear p_i_event .
refresh p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
   I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = p_i_event
EXCEPTIONS
   LIST_TYPE_WRONG       = 1
   OTHERS                = 2
read table p_i_event with key name = slis_ev_top_of_page into i_event.
      if sy-subrc = 0.
             move 'TOP_OF_PAGE_PO' to i_event-form.
             modify p_i_event from i_event index sy-tabix transporting form.
      endif.
      clear i_event.
endform.                    " event
*Display Top-of Page Details and Logo
form top_of_page_po .
       clear i_header .
       refresh i_header .
       write sy-datum to text.
       i_header-typ = 'H'.
       i_header-info = 'PURCHASE OREDER DETAILS'.
       append i_header.
      *Logo Display
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
             EXPORTING
                 it_list_commentary       = i_header[]
                 I_LOGO                   = 'ENJOYSAPLOGO'.
endform .
*Field Catalog Append
*&      Form field
      text
     -->P_fieldCATALOG[] text
form field using p_fieldcatalog type slis_t_fieldcat_alv.
     clear fieldcatalog.
      fieldcatalog-fieldname   = 'EBELN'.
      fieldcatalog-seltext_m   = 'Purchase Order No'.
      fieldcatalog-col_pos     = 1.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'BEDAT'.
      fieldcatalog-seltext_m   = 'PO Date'.
      fieldcatalog-col_pos     = 2.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'MATNR'.
      fieldcatalog-seltext_m   = 'Material No'.
      fieldcatalog-col_pos     = 4.
      fieldcatalog-outputlen   = 20.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'NETWR'.
      fieldcatalog-seltext_m   = 'Net Value '.
      fieldcatalog-col_pos     = 5.
      fieldcatalog-outputlen   = 20.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'MEINS'.
      fieldcatalog-seltext_m   = 'Units'.
      fieldcatalog-col_pos     = 6.
      fieldcatalog-outputlen   = 4.
      append fieldcatalog .
      clear fieldcatalog.
endform.                    " field
*&      Form layout
      text
form layout using    p_i_layout TYPE SLIS_LAYOUT_ALV .
i_layout-zebra = 'X'.
    i_layout-lights_fieldname = 'LIGHT'.
    i_layout-lights_tabname = 'IT_FINAL'.
    i_layout-box_fieldname = 'CHK'.
    i_layout-box_tabname = 'IT_FINAL'.
    i_layout-edit = ' '.
endform.
*To display Buttons in the MENU BAR if needed
FORM SET_PO_PF_STATUS USING P_I_EXTAB TYPE
                 SLIS_T_EXTAB.
                 SET PF-STATUS 'MENUPO'.
ENDFORM.
*Event for Interactive display of ALV report
form USER_COMMAND using r_ucomm like sy-ucomm
                         rs_selfield type slis_selfield .
if r_ucomm = '&IC1'.
READ TABLE IT_FINAL index   rs_selfield-tabindex.
write:/ IT_FINAL-ebeln.
endif.
endform .
*Parameters of FM REUSE_ALV_GRID_DISPLAY
*&      Form grid_display
      text
--> p1        text
<-- p2        text
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM                = SY-REPID
   I_CALLBACK_PF_STATUS_SET          = 'SET_PO_PF_STATUS'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
    IS_LAYOUT                         = I_LAYOUT
    IT_FIELDCAT                       = FIELDCATALOG[]
    IT_EVENTS                         = I_EVENT[]
TABLES
    t_outtab                          = IT_FINAL.
endform.                    " grid_display

*& Report YSDBALV1
REPORT YSDBALV1.
tables: ekko , ekpo .
type-pools: slis .
Table for Display Header
data:i_header type slis_t_listheader with header line.
*Fieldcat Declaration
data:fieldcatalog type slis_T_fieldcat_alv WITH HEADER LINE.
*Table of Events
data:i_event type slis_t_event with header line ,
     wa_event type line of slis_t_event.
For Layout
data:i_layout type slis_layout_alv .
data: text(30) .
*Internal Table Declaration
data: begin of it_final occurs 0 ,
ebeln like ekko-ebeln , "Purchasing Document No.
bedat like ekko-bedat , "Purchasing Document Date
matnr like ekpo-matnr , "Material No.
netwr like ekpo-netwr , "Net Order Value in PO Currancy
meins like ekpo-meins , "UOM
chk(1) ,
light(1) ,
change like ekpo-menge ,
end of it_final .
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
selection-screen begin of block block1 .
parameters:grid radiobutton group r .
parameters:list radiobutton group r .
selection-screen end of block block1 .
at selection screen
at selection-screen .
select single * from ekko where ebeln in s_ebeln .
if sy-subrc <> 0 .
message e000(8I) WITH 'No Data Exists' .
endif .
start-of-selection .
if grid = 'X' .
perform get_data .
perform event using i_event[] .
perform field using fieldcatalog[] .
perform layout using i_layout .
perform grid_display .
endif .
*& Form get_data
text
--> p1 text
<-- p2 text
form get_data .
*DATA Retrieval from tables
SELECT EKKO~EBELN
EKKO~BEDAT
EKPO~EBELP
EKPO~MATNR
EKPO~NETWR
EKPO~MEINS
EKPO~MENGE
EKPO~BPRME
INTO CORRESPONDING FIELDS OF table IT_FINAL
FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
WHERE EKKO~EBELN IN S_EBELN.
APPEND IT_FINAL.
endform. " get_data
*Getting the Event for Top of Page display.
*& Form event
text
-->P_I_event[] text
form event using p_i_event type slis_t_event.
clear p_i_event .
refresh p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = p_i_event.
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
read table p_i_event with key name = slis_ev_top_of_page into wa_event.
if sy-subrc = 0.
move 'TOP_OF_PAGE_PO' to i_event-form.
modify p_i_event from i_event index sy-tabix transporting form.
endif.
clear i_event.
endform. " event
*Display Top-of Page Details and Logo
form top_of_page_po .
clear i_header .
refresh i_header .
write sy-datum to text.
i_header-typ = 'H'.
i_header-info = 'PURCHASE OREDER DETAILS'.
append i_header.
*Logo Display
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header[]
I_LOGO = 'ENJOYSAP_LOGO'.
endform .
*Field Catalog Append
*& Form field
text
-->P_fieldCATALOG[] text
form field using p_fieldcatalog type slis_t_fieldcat_alv.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order No'.
fieldcatalog-col_pos = 1.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'BEDAT'.
fieldcatalog-seltext_m = 'PO Date'.
fieldcatalog-col_pos = 2.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material No'.
fieldcatalog-col_pos = 4.
fieldcatalog-outputlen = 20.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'NETWR'.
fieldcatalog-seltext_m = 'Net Value '.
fieldcatalog-col_pos = 5.
fieldcatalog-outputlen = 20.
fieldcatalog-do_sum = 'X'.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Units'.
fieldcatalog-col_pos = 6.
fieldcatalog-outputlen = 4.
append fieldcatalog .
clear fieldcatalog.
endform. " field
*& Form layout
text
form layout using p_i_layout TYPE SLIS_LAYOUT_ALV .
i_layout-zebra = 'X'.
i_layout-lights_fieldname = 'LIGHT'.
i_layout-lights_tabname = 'IT_FINAL'.
i_layout-box_fieldname = 'CHK'.
i_layout-box_tabname = 'IT_FINAL'.
i_layout-edit = ' '.
endform.
*To display Buttons in the MENU BAR if needed
FORM SET_PO_PF_STATUS USING P_I_EXTAB TYPE
SLIS_T_EXTAB.
SET PF-STATUS 'MENUPO'.
ENDFORM.
*Event for Interactive display of ALV report
form USER_COMMAND using r_ucomm like sy-ucomm
rs_selfield type slis_selfield .
if r_ucomm = '&IC1'.
READ TABLE IT_FINAL index rs_selfield-tabindex.
set parameter id 'VL1' field it_final-ebeln.
call transaction 'ME23N'.
endif.
endform .
*Parameters of FM REUSE_ALV_GRID_DISPLAY
*& Form grid_display
text
--> p1 text
<-- p2 text
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PO_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
IT_EVENTS = I_EVENT[]
TABLES
t_outtab = IT_FINAL.
endform. " grid_display
Regards,
Rusidar S.

ALV Edit in place.

Hi
I want to have the "Edit in place" functionality in an ALV. Do you have an URL or example of how to do this?
Thanx in advance

Hi,
When we using REUSE_ALV_GRID_DISPLAY
Most of us are facing Problem in ALV GRID if there is any editable field in the grid,When we edit the field in the GRID, its not getting reflected in the internal table
Do like this..
     Write this code in the callback subroutine (eg: in USER_COMMAND subroutine),
Data ref1 type ref to cl_gui_alv_grid.
   CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
   IMPORTING
   E_GRID = ref1.
   call method ref1->check_changed_data
Pls do give points ,if this will solve your problem
Cheers,
Pramod

Problem with ALV search help Dictionary Search Help

Hello experts
I have a problem with ALV search help.
I use DDIC table ZXXX with text table ZXXX_T. I created DDIC search help form table ZXXX. In my WD application, in context on COMPONENTCONTROLLER i set on attribute: 'Input help mode' as 'Dictionary Search Help' and in 'Dictionary Search Help' I pass name of new created DDIC search help.
I create a input field from that atrribute and search help works fine (there was a value and description for value from text table). So I created ALV witch contains that attribute too.
Next I set column for this attribute in ALV as editable but on Serch help for this collumn I have only value. I DON'T HAVE TEXT DESCRIPTION FOR VALUE.
Please help me and tell me what I do wrong?
Miko

Hello,
Thank's for your help. I create DDic Search help for all fields from my ALV. Next I changed 'TYPE' for all ALV fields in COMPONENTCONTROLLER from ZXXX-Zfield to Zfield, and I changed 'Input help mode' from 'Automatic' to 'Dictionary Search Help'. Now I see Value and Description for value in Search Help in my ALV.
Regards
Miko

ALV editable with error lvc_t_style

Hi experts!!!
I have a problem, I need develop an alv editable and i've read the solutions you have proposed in another threads, my problem is when i declare "celltab" type lvc_t_styl, the check syntax tell 'the type "lvc_t_styl" is uknown.
Do you have any idea why this error???
thanks!!.
Antonio Piñ

Welcome to SDN.
Which version of SAP are you using?
a®

ALV editable with traffic lights

Hello all,
I need some help about ALV editable; my reports display an ALV grid editable, and update all the new values on the DB table, but I have traffic lights as values on the DB table.
More informations:
So this is my internal table
<i>DATA: BEGIN OF it_table OCCURS 0,
      document    TYPE admi-document,
      status           TYPE admi-status,          (traffic</i> lights from the table able to modify)
      archiv_key TYPE admi_files-archiv_key,
      status_opt TYPE admi_files-status_opt,     (traffic lights from the table able to modify )
      status_fil    TYPE admi_files-status_fil,     (traffic lights from the table able to modify )
      END OF it_report.
</i>
I got all the match code form the table (DB) , so on my report I could modify all the traffic lights but when I save the modifications, I got a message error.
And the second problem was, I couldnt come back to the value initial and I getting the same message.
Can anybody help me please?
Thanks you.

see the program and i am using traffic lights in my program --
REPORT ZWM_BIN_STOCK_REQ no standard page heading
                    message-id zwave.
D A T A   D E C L A R A T I O N ****************************
Tables
tables : zpwvbap,
         mara,
         marc,
         makt,
         vbap,
         zshift,
         marm,
         lqua.
TYPE-POOLS: SLIS.
Internal Table for Sales order
data : begin of i_vbap occurs 0,
       matnr like zpwvbap-matnr," Material #
       ZZCUTOFF like zpwvbak-ZZCUTOFF," Cutoff Time
       vlpla like zpwvbap-vlpla,
       kwmeng like zpwvbap-kwmeng," Quantity
       vrkme like zpwvbap-vrkme, " Sales Unit
       meins like zpwvbap-meins, " Unit of measure
       end of i_vbap.
Internal Table for final Processing
data : begin of i_final occurs 0,
       date(8) type c,
       matnr like zpwvbap-matnr," Material #
       zzshift like zshift-zzshift, " Wave Drop
       maktx like makt-maktx," Desc
       lgpla like lagp-lgpla, " Pick Bin
       pverme like lqua-verme," Stock at Pick Bin
       prverme like lqua-verme," Stock at Prod Bin
       kwmeng like zpwvbap-kwmeng," Requiremnet from Wave Drop
       vrkme like zpwvbap-vrkme, " Sales Unit
      meins like zpwvbap-meins," Unit of measure
       end of i_final.
Internal Table for Output
data : begin of i_output occurs 0,
       field type c, " Traffic Lights
       zzshift like zshift-zzshift, " Wave Drop
       matnr like zpwvbap-matnr," Material #
       maktx like makt-maktx," Desc
       lgpla like lagp-lgpla, " Pick Bin
       pverme like lqua-verme," Stock at Pick Bin
       prverme like lqua-verme," Stock at Prod Bin
       kwmeng like zpwvbap-kwmeng," Requiremnet from Wave Drop
       vrkme like zpwvbap-vrkme," Sales Unit
      meins like zpwvbap-meins," Unit of measure
       diff like zpwvbap-kwmeng, " Diffrence
       end of i_output.
Work Area for Final Internal Table
data wa_final like i_final.
data : w_zzcutoff(12) TYPE c,
        v_date type sy-datum,
        v_time(4) type c,
        v_fldate(12) type c,
        v_fhdate(12) type c,
        v_pverme like lqua-verme,
        v_prverme like lqua-verme,
        v_diff like zpwvbap-kwmeng.
Variables for new check box
data : v_nverme like lqua-verme.
Internal Table for Pick Bin
data : begin of i_verme occurs 0,
       verme like lqua-verme,
       end of i_verme.
Internal table for Prod Bin
data : begin of i_pverme occurs 0,
       verme like lqua-verme,
       end of i_pverme.
Variables for ALV
DATA: FIELDCAT           TYPE SLIS_T_FIELDCAT_ALV,
      FIELDCAT_LN        LIKE LINE OF FIELDCAT,
      SORTCAT            TYPE SLIS_T_SORTINFO_ALV,
      SORTCAT_LN         LIKE LINE OF SORTCAT,
      EVENTCAT           TYPE SLIS_T_EVENT,
      EVENTCAT_LN        LIKE LINE OF EVENTCAT,
      LAYOUT             TYPE SLIS_LAYOUT_ALV,
      C_TOP_OF_PAGE      TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
      g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
      GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: COL_POS TYPE I,
      P_LIGNAM TYPE SLIS_FIELDNAME VALUE 'FIELD'.
DATA : V_REPID LIKE SY-REPID,
       flag type c.
S E L E C T I O N - S C R E E N *************************
selection-screen : begin of block blk with frame title text-001.
parameter : p_plant like marc-werks obligatory default '1000'.
select-options : s_date for sy-datum obligatory ,
                 s_shift for zshift-zzshift,
                 s_matnr for mara-matnr,
                 s_dept for zpwvbap-zzdept,
                 s_pdept for marc-ZZPRODDEPT.
selection-screen: end of block blk.
parameters : p_check as checkbox ."default 'X'.
ranges r_cutoff for w_zzcutoff.
I N I T I A L I Z A T I O N ****************************
initialization.
V_REPID = SY-REPID.
s_date-low = sy-datum + 1.
append s_date.
S T A R T - O F - S E L E C T I O N ***********************
start-of-selection.
Get the Shift Data.
PERFORM GET_SHIFT_DETAILS.
Get the data from ZPWVBAP Table
PERFORM GET_DATA_VBAP.
E N D - O F - S E L E C T I O N **********************
end-of-selection.
if not i_output[] is initial.
    sort i_output by field zzshift matnr.
Reset the all Fiedcatlog.
    PERFORM RESETVALUES.
Traffic Lights
    PERFORM BUILD_LAYOUT.
Fill the fieldcatlog values
    PERFORM FILL_FIELDCATLOG.
Call the List Function module
    PERFORM CALL_lIST.
endif.
*&      Form GET_SHIFT_DETAILS
      Get the Cutoff Time.
FORM GET_SHIFT_DETAILS.
clear : v_fldate,
          v_fhdate.
if not s_shift-low is initial.
    clear: v_time,
           v_date.
    if s_shift-low = '1'.
      v_time = '2000'.
    elseif s_shift-low = '2'.
      v_time = '2300'.
    endif.
    v_date = s_date-low - 1.
    concatenate v_date v_time into v_fldate.
endif.
if not s_shift-high is initial.
    clear : v_date,
            v_time.
    if s_shift-high = '1'.
      v_time = '2000'.
    elseif s_shift-high = '2'.
      v_time = '2300'.
    endif.
    if not s_date-high is initial.
      v_date = s_date-high - 1.
    else.
      v_date = s_date-low - 1.
    endif.
    concatenate v_date v_time into v_fhdate.
endif.
if not v_fhdate is initial.
    r_cutoff-low = v_fldate.
    r_cutoff-high = v_fhdate.
    r_cutoff-sign = 'I'.
    r_cutoff-option = 'BT'.
    append r_cutoff.
endif.
ENDFORM.                    " GET_SHIFT_DETAILS
*&      Form GET_DATA_VBAP
      Get the data from ZPWVBAP Table
FORM GET_DATA_VBAP.
Get the data from ZPWVBAP and ZPWVBAK Table
if not v_fhdate is initial.
    select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
                 into table i_vbap
                 from zpwvbap as a inner join zpwvbak as b on
                               a~vbeln = b~vbeln
                               where a~werks = p_plant
                               and   a~matnr in s_matnr
                               and b~vdatu in s_date
                               and a~zzdept in s_dept
                               and b~zzcutoff in r_cutoff
                              group by matnr zzcutoff vlpla vrkme meins.
elseif not v_fldate is initial.
    select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
                       into table i_vbap
                       from zpwvbap as a inner join zpwvbak as b on
                               a~vbeln = b~vbeln
                               where a~werks = p_plant
                               and   a~matnr in s_matnr
                               and b~vdatu in s_date
                               and a~zzdept in s_dept
                               and b~zzcutoff = v_fldate
                           group by matnr zzcutoff vlpla vrkme meins.
else.
    select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
                          into table i_vbap
       from zpwvbap as a inner join zpwvbak as b on
                               a~vbeln = b~vbeln
                               where a~werks = p_plant
                               and   a~matnr in s_matnr
                               and b~vdatu in s_date
                               and a~zzdept in s_dept
                               and b~zzcutoff in r_cutoff
                            group by matnr zzcutoff vlpla vrkme meins .
endif.
if sy-subrc ne 0.
    message i000(zwave) with 'No data found for given selection'.
    stop.
endif.
sort i_vbap by zzcutoff matnr.
loop at i_vbap.
    clear : v_pverme,
            v_prverme.
Compare the data with pick method
    select single zzpick from marc into marc-zzpick
                         where matnr = i_vbap-matnr
                         and   werks = p_plant
                         and   zzpick = '01'.
    if sy-subrc ne 0.
      continue.
    endif.
Compare the data from MARC Table with Production Department
    select single zzPRODdept from marc into marc-zzPRODdept
                         where matnr = i_vbap-matnr
                         and werks = p_plant
                         and zzPRODdept in s_pdept.
    if sy-subrc ne 0.
      continue.
    endif.
Get the Material Description from MAKT Table
    Select single maktx from makt into makt-maktx
                        where matnr = i_vbap-matnr
                        and   spras = 'E'.
    if sy-subrc eq 0.
      i_final-maktx = makt-maktx.
    endif.
Get the Pick Bin
    i_final-lgpla = i_vbap-vlpla.
    refresh i_verme.
    clear i_verme.
Get the stock at Pick bin
    select verme from lqua into table i_verme
                        where lgpla = i_vbap-vlpla
                        and   matnr = i_vbap-matnr
                        and   LGNUM = '100'.
    if sy-subrc eq 0.
      loop at i_verme.
        v_pverme = v_pverme + i_verme-verme.
      endloop.
      if sy-subrc eq 0.
        i_final-pverme = v_pverme.
      endif.
    endif.
    refresh i_pverme.
    clear i_pverme.
Get the stock at Production bin
    select verme from lqua into table i_pverme
                       where matnr = i_vbap-matnr
                       and   LGNUM = '100'
                   and ( lgpla = '9595959595' or
                         lgpla = '2222222222' or
                         lgpla = '5555555555' or
                         lgpla = '3232323232' or
                         lgpla = '8080808080' or
                         lgpla = '4040404040' or
                         lgpla = '9090909090' ).
    if sy-subrc eq 0.
      loop at i_pverme.
        v_prverme = v_prverme + i_pverme-verme.
      endloop.
      if sy-subrc eq 0.
        i_final-prverme = v_prverme.
      endif.
    endif.
Compare the unit of measure and sales unit
    if i_vbap-vrkme ne i_vbap-meins.
Get the data from MARM Table ( Unit of measure )
      select single * from marm into marm
                           where matnr = i_vbap-matnr
                           and   meinh = i_vbap-vrkme.
      if sy-subrc eq 0.
        i_final-pverme = ( i_final-pverme * marm-umren ) / marm-umrez.
      endif.
    endif.
Material #
    i_final-matnr = i_vbap-matnr.
Quantity from ZPWVBAP
    i_final-kwmeng = i_vbap-kwmeng.
Unit of Measure
   i_final-meins = i_vbap-meins.
Sales Unit
    i_final-vrkme = i_vbap-vrkme.
Wave Drop
    if i_vbap-ZZCUTOFF+8(4) = '2000' .
      i_final-zzshift = '1'.
    endif.
    if i_vbap-zzcutoff+8(4) = '2300'.
      i_final-zzshift = '2'.
    endif.
    i_final-date = i_vbap-zzcutoff+0(8).
    append i_final.
    clear : i_final,
            i_vbap.
**Difference
   i_output-diff = i_output-pverme - i_vbap-kwmeng.
Traffic Lights Depends on value
   if i_output-pverme > i_output-kwmeng.
     i_output-field = '3'.
   elseif i_output-pverme < i_output-kwmeng.
     i_output-field = '1'.
   elseif i_output-pverme = i_output-kwmeng.
     i_output-field = '2'.
   endif.
   append i_output.
   clear : i_output,
           i_vbap.
endloop.
refresh i_vbap.
sort i_final by date matnr zzshift.
Processing the internal table to get same material with pick quantity
deduction even it for 2nd shift
loop at i_final.
Move the data into work area in order remove #
    move i_final to wa_final.
    clear : flag.
    at new matnr.
      move : wa_final-matnr to i_output-matnr," Material #
             wa_final-maktx to i_output-maktx," Desc
             wa_final-lgpla to i_output-lgpla," Pick Bin
             wa_final-kwmeng to i_output-kwmeng," Order qty
             wa_final-zzshift to i_output-zzshift," Shift
             wa_final-pverme to i_output-pverme, " Pick bin qty
             wa_final-vrkme to i_output-vrkme," Sales Unit
             wa_final-prverme to i_output-prverme. " Prod Bin Qty
      break sreddy.
Difference
      i_output-diff = i_output-pverme - i_output-kwmeng.
New logic for Only HMR Department
      if p_check = 'X'.
        if i_output-pverme < i_output-kwmeng.
          v_nverme = i_output-pverme + i_output-prverme.
          if v_nverme > i_output-kwmeng.
           if i_output-pverme < i_output-kwmeng.
           i_output-field = '2'.
            else.
Traffic Lights Depends on value
            i_output-field = '3'.
            endif.
          elseif v_nverme < i_output-kwmeng.
            i_output-field = '1'.
          elseif v_nverme = i_output-kwmeng.
            i_output-field = '2'.
          endif.
        elseif i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '3'.
        endif.
      else.
Traffic Lights Depends on value
        if i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme < i_output-kwmeng.
          i_output-field = '1'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '2'.
        endif.
      endif.
      move i_output-diff to v_diff.
      flag = 'X'.
    endat.
    if flag ne 'X'.
      move : wa_final-matnr to i_output-matnr," Material #
             wa_final-maktx to i_output-maktx," Desc
             wa_final-lgpla to i_output-lgpla," Pick Bin
             wa_final-kwmeng to i_output-kwmeng," Order qty
             wa_final-zzshift to i_output-zzshift," Shift
             wa_final-vrkme to i_output-vrkme," Sales Unit
             wa_final-prverme to i_output-prverme. " Prod Bin Qty
Move Diffrence value
      move v_diff to i_output-pverme.
      clear: v_diff.
New logic for Only HMR Department
New logic for Only HMR Department
      if p_check = 'X'.
        if i_output-pverme < i_output-kwmeng.
          v_nverme = i_output-pverme + i_output-prverme.
          if v_nverme > i_output-kwmeng.
          if i_output-pverme < i_output-kwmeng.
           i_output-field = '2'.
            else.
Traffic Lights Depends on value
            i_output-field = '3'.
            endif.
Traffic Lights Depends on value
           i_output-field = '3'.
          elseif v_nverme < i_output-kwmeng.
            i_output-field = '1'.
          elseif v_nverme = i_output-kwmeng.
            i_output-field = '2'.
          endif.
        elseif i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '3'.
        endif.
i_output-diff = i_output-pverme - i_output-kwmeng.
      else.
Difference
        i_output-diff = i_output-pverme - i_output-kwmeng.
Traffic Lights Depends on value
        if i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme < i_output-kwmeng.
          i_output-field = '1'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '2'.
        endif.
      endif.
    endif.
    append i_output.
    clear : i_output,
            wa_final,
            i_final,
             v_nverme.
endloop.
sort i_output by field zzshift matnr.
ENDFORM.                    " GET_DATA_VBAP
*&      Form RESETVALUES
      Reset the all fieldcatlogs
FORM RESETVALUES.
FIELDCAT_LN-KEY = SPACE.
FIELDCAT_LN-DO_SUM = SPACE.
FIELDCAT_LN-NO_OUT = SPACE.
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = SPACE.
FIELDCAT_LN-OUTPUTLEN = '0'.
CLEAR: fieldcat_ln-seltext_l, fieldcat_ln-seltext_m,
         fieldcat_ln-seltext_s, fieldcat_ln-reptext_ddic.
ENDFORM.                    " RESETVALUES
*&      Form FILL_FIELDCATLOG
      Fill the Fieldcatlog values
FORM FILL_FIELDCATLOG.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
Trafiic Light
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'FIELD'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 7.
LS_FIELDCAT-col_pos    = '1'.
ls_fieldcat-seltext_L = 'Lights'.
ls_fieldcat-seltext_s = 'Lights'.
ls_fieldcat-seltext_m = 'Lights'.
APPEND LS_FIELDCAT TO FIELDCAT.
Wave Drop
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'ZZSHIFT'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 9.
LS_FIELDCAT-col_pos    = '2'.
ls_fieldcat-seltext_L = 'Wave Drop'.
APPEND LS_FIELDCAT TO FIELDCAT.
Material
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MATNR'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 18.
LS_FIELDCAT-col_pos    = '3'.
ls_fieldcat-seltext_L = 'Material'.
APPEND LS_FIELDCAT TO FIELDCAT.
Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MAKTX'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 40.
LS_FIELDCAT-col_pos    = '4'.
ls_fieldcat-seltext_L = 'Description'.
APPEND LS_FIELDCAT TO FIELDCAT.
Pick Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'LGPLA'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 15.
LS_FIELDCAT-col_pos    = '5'.
ls_fieldcat-seltext_L = 'Pick Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Trafiic Light
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'PVERME'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 16.
LS_FIELDCAT-col_pos    = '6'.
ls_fieldcat-seltext_L = 'Stock at Pick Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Stock at Prod Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'PRVERME'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 16.
LS_FIELDCAT-col_pos    = '7'.
ls_fieldcat-seltext_L = 'Stock at Prod Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Req from wave drop
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'KWMENG'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 23.
LS_FIELDCAT-col_pos    = '8'.
ls_fieldcat-seltext_L = 'Requirement from Wave Drop'.
APPEND LS_FIELDCAT TO FIELDCAT.
Sales Unit
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'VRKME'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 12.
LS_FIELDCAT-col_pos    = '9'.
ls_fieldcat-seltext_L = 'Sales Unit'.
APPEND LS_FIELDCAT TO FIELDCAT.
Unit of Measure
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MEINS'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 9.
LS_FIELDCAT-col_pos    = '10'.
ls_fieldcat-seltext_L = 'UNIT'.
ls_fieldcat-no_out = 'X'.
APPEND LS_FIELDCAT TO FIELDCAT.
Diffference
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'DIFF'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 12.
LS_FIELDCAT-col_pos    = '11'.
ls_fieldcat-seltext_L = 'Difference'.
APPEND LS_FIELDCAT TO FIELDCAT.
ENDFORM.                    " FILL_FIELDCATLOG
*&      Form CALL_lIST
      Use ALV Function module to display output
FORM CALL_lIST.
Top - of - Page
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
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           = g_user_command
      I_CALLBACK_TOP_OF_PAGE            = C_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                         = LAYOUT
      IT_FIELDCAT                       = FIELDCAT
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_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                          = I_OUTPUT
   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.                    " CALL_lIST
*&      Form BUILD_LAYOUT
      text
FORM BUILD_LAYOUT.
LAYOUT-GET_SELINFOS = 'X'.
Now we want a traffic light to say if the Truck is deleted
the variable p_lignam contains the name in IREPO which stores the
value for the traffic light
LAYOUT-LIGHTS_FIELDNAME = P_LIGNAM.
layout-HEADER_TEXT = 'Lights'.
LAYOUT-LIGHTS_CONDENSE = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form COMMENT_BUILD
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING    LT_TOP_OF_PAGE TYPE
                                        SLIS_T_LISTHEADER.
data : v_day(2) type c,
         v_mon(2) type c,
         v_year(4) type c,
         v_ldate(10) type c,
         v_hdate(10) type c.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
data: d_date like sy-datum.
clear : v_ldate,
          v_hdate.
Header Information.
LIST HEADING LINE: TYPE H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
LS_LINE-INFO = 'Bin Replenishment report for HMR'.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-003.
LS_LINE-INFO = TEXT-003.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-003.
LS_LINE-INFO = TEXT-003.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
Get the data ( s_date_low) into proper format.
v_year = s_date-low+0(4).
v_mon = s_date-low+4(2).
v_day = s_date-low+6(2).
concatenate v_mon '/' v_day '/' v_year into v_ldate.
clear : v_mon,
          v_year,
          v_day.
Get the data ( s_date_high) into proper format.
v_year = s_date-high+0(4).
v_mon = s_date-high+4(2).
v_day = s_date-high+6(2).
concatenate v_mon '/' v_day '/' v_year into v_hdate.
clear : v_mon,
          v_year,
          v_day.
Delivery date
if not s_date-low is initial .
    if not s_date-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Delivery date From:'.
      LS_LINE-INFO = v_ldate.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Delivery date To :'.
      LS_LINE-INFO = v_hdate.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not s_date-low is initial.
    if s_date-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Delivery date :'.
      LS_LINE-INFO = v_ldate.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
Wave Drop
if not S_SHIFT-LOW is initial.
    if not S_SHIFT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Wave Drop From :'.
      LS_LINE-INFO = s_shift-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Wave Drop to :'.
      LS_LINE-INFO = s_shift-high.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not S_SHIFT-LOW is initial.
    if S_SHIFT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Wave Drop :'.
      LS_LINE-INFO = s_shift-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
     CLEAR LS_LINE.
     LS_LINE-TYP = 'S'.
     LS_LINE-KEY = 'Wave Drop to :'.
     LS_LINE-INFO = s_shift-high.
     APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
Department
if not s_dept-low is initial .
    if not s_dept-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Department From :'.
      LS_LINE-INFO = s_dept-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Department to :'.
      LS_LINE-INFO = s_dept-high.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not s_dept-low is initial .
    if s_dept-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Department :'.
      LS_LINE-INFO = s_dept-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
Production Department
if not S_PDEPT-LOW is initial.
    if not S_PDEPT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Production Department From :'.
      LS_LINE-INFO = S_PDEPT-LOW.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Production Department to :'.
      LS_LINE-INFO = S_PDEPT-high.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not S_PDEPT-LOW is initial.
    if S_PDEPT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Production Department :'.
      LS_LINE-INFO = S_PDEPT-LOW.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
ENDFORM.                    " COMMENT_BUILD
      FORM TOP_OF_PAGE                                              *
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = GT_LIST_TOP_OF_PAGE
I_LOGO                   =
I_END_OF_LIST_GRID       =
ENDFORM.
      FORM USER_COMMAND                                             *
FORM user_command USING r_ucomm LIKE sy-ucomm
            rs_selfield TYPE slis_selfield.                 "#EC CALLED
CASE R_UCOMM.
    WHEN '&IC1'.
      read table i_output index rs_selfield-tabindex.
      SET PARAMETER ID 'MAT' FIELD i_output-matnr.
      SET PARAMETER ID 'WRK' FIELD p_plant.
      if not i_output-matnr is initial.
        call transaction 'MD04' and skip first screen.
      endif.
ENDCASE.
ENDFORM.

Problem with local editing after update to SP13

Hallo,
we have updated our Enterprise Portla 7.00 to SP13. Now many user have Problem with local editing. The error message is "The download of the document fail".
I know that every PC needs the "Docservice" Active X component installed. The "Docservice" is also installed.
At my PC theres only this problem with "html" documents.
What could be the problem. ?
Please help.
Many thanks
Ronald

We found that there is a problem with the Docservice Active X Component.
If we work in a deeper folder there is a problem with the length of the url. I changed the TEMP Setting
"Setting a different TEMP directory:
In cases that it is problematic to use the standard %TEMP% directory,
setting the environment variable SAPKM_USER_TEMP pinpointing to a
corresponding directory path (e.g.
X:\SHARES\USERS\xxx\CheckedOutDocuments) will be also supported. If the
access to that directory fails the standard %TEMP% directory will be
used as fallback."
I used "C:\TEMP" and now it works....... but this cant be the solution....
thans Ronald

I have a problem with ALV Grid User Command?

Hi Experts,
I have a problem with ALV GRID User Command.
I am calling TCODE IW33 (Order Display) from the ALV output at first time by selecting an order. But, User command is calling IW33 Initial screen with blank value of order. Even I checked in debugging the value what I selected is passing properly, but once that screen (IW33 Initial) displays, value doesn't appear. Then, Manually, I created another session and gone to TCODE IW33 and displayed an order. After that I came out from that order. Then again run my ALV program and selected another order, now order is displaying, but not what I selected current order instead of displaying previous order what I just displayed manually. If I selected any other order, system will display the same order what I dislayed manually.
Here is my code.
FORM user_command_alv USING u_ucomm TYPE sy-ucomm
                       us_self_field TYPE slis_selfield.
CASE u_ucomm.
WHEN '&IC1'.
READ TABLE it_final INDEX us_self_field-tabindex INTO wa_final.
        WHEN 'ORDER'.
          IF NOT wa_final-order IS INITIAL.
            SET PARAMETER ID 'COK' FIELD wa_final-order.
            CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
          ENDIF.
endform.
PARAMETER ID 'COK' also the standard one.
Could you please help me out, Where I did wrong?
If I select any order, that order only should display.
Thanks in advance.
Regards,
Sarayu.
Code Formatted by: Alvaro Tejada Galindo on Jan 8, 2009 2:33 PM

hi,
Please check it once the Paramater ID is 'ANR' for IW33 order number.
Hope this may help.
Regards,
Sravanthi

Problems with saving edited photos using Photoshop Elements 5.0 on WIndows 8.

Since a week I can not save the edited photos - when I try the communicate: "Caould not complete your request because of a program error" appeares. I had no problem with saving edited photos before, with the same software. My computer runs on Windows 8, 64 bit version. My Photoshop Elements is version 5.0. Where is the problem?

W dniu 2013-06-16 15:36, dj_paige pisze:
>
Yes, I did it long ago.

Has anyone experienced this problem: I am editing in FCP 7.0.3 on a Mac 10.6.8 - I have a clip in the browser that is full frame and matched the other clips but when I drop it in the time line it becomes a fully zoomed in version of itself

has anyone experienced this problem: I am editing in FCP 7.0.3 on a Mac 10.6.8 - I have a clip in the browser that is full frame and fine and it matches the other clips in my bins but when I drop it into the time line it becomes a fully zoomed in version of itself and I can only see a small portion of the image. What's going on? I've noticed this has happened in the past randomly with other clips and it's driving me cray cray! Any help appreciated greatly and thanks in advance for taking the time

In the FCP Browser, click on the source clip that is showing up sized incorrectly to select it. Once it is selected, type Command + 9 to see the item properties for the clip. Either report those properties here, or take a screen shot of the item properties and post the screen shot here.
Next, click anywhere in your sequence timeline and then type Command + 0 {zero} to see your sequence settings. Either report those settings or take a screen shot of the sequence settings and post that screen shot here.
MtD

PROBLEM WITH DIGITAL EDITIONS

Hi,
I've always encountered this problem with digital editions: Adobe Digital Editions 2.0 has encountered a problem and needs to close. We are sorry for the inconvenience.
I'm using Windows XP pro 2002, service pack2 on an old computer AMD Duron 901 Mhz , 384 mb RAM.
is there a solution ?
Thanks

Hi
I had the same problem, ADE 2 won't work with older AMD computers. See http://forums.adobe.com/thread/1081859
Older version that does work at: http://kb2.adobe.com/cps/403/kb403051/attachments/setup.exe
good luck

Background task problem with alv grid display

Hello !
I have a problem when executing my program in background.
In foreground I have no problem, my ALV appears. In the background I have a dump.
The current ABAP program "SAPLKKBL" had to be terminated because one of the statements could not be executed.
I use the function module 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
        i_callback_program      = gd_repid
        i_callback_user_command = 'F533_USER_COMMAND'
        is_layout               = gd_layout
        it_fieldcat             = fieldcatalog[]
        it_special_groups       = i_fgroup[]
        i_save                  = 'X'
        it_sort                 = gd_sort
        i_buffer_active         = ' '
        i_callback_pf_status_set = 'F534_SET_PF_STATUS'
     TABLES
        t_outtab                = mytab
     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.
I don't understand where the problem is. Please help me.
Thank you.

I love replying to old threads:
Try this link
http://scn.sap.com/people/prashant.patil12/blog/2007/02/20/displaying-alv-grid-in-background-job

Problem in ALV Edit

Similar Messages

Maybe you are looking for