Solved: Calling refresh_table_display

Former Member · ‎2007 Jan 04

Hi,

I am getting somewhat frustrated with this one! I hope someone can point me in the right direction. Here is my problem.

I am calling method <b>'set_table_for_first_display'</b> with the changing parameter '<b>it_outtab being'</b> passed a field symbol as type table.

For the first instance this works fine but when the data in the field symbol changes and then subsequently the method <b>'refresh_table_display'</b> is called the old data appears on the screen even though the data in field symbol is different.

The strange things is though, this issue only arises when using field symbols rather than internal tables.

Can anyone shed any light on this?

uwe_schieferstein · ‎2007 Jan 04

Hello Neil

The following sample report (based on BCALV_GRID_DEMO) shows how to use field-symbols in ALV lists. Please adjust the GUI status that the ENTER button has ok-code ENTER assigned.

If you simply push the ENTER button several times every time a single entry of the selected data will be deleted. After refreshing the ALV list the displayed data are correct.

If you enter a different table name (e.g. SCARR) into the command line field a new dynamic select nothing happens because the grid instance (at the frontend) does not "know" that the output data (in the backend, i.e. the ABAP program) have been changed. You have to call SET_TABLE_FOR_FIRST_DISPLAY again to "inform" the grid instance about this change.

PROGRAM zus_sdn_bcalv_grid_demo_4.
DATA: ok_code LIKE sy-ucomm,
*      gt_sflight TYPE TABLE OF sflight,
      g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',
      grid1  TYPE REF TO cl_gui_alv_grid,
      g_custom_container TYPE REF TO cl_gui_custom_container.



DATA:
  gdo_data    TYPE REF TO data,
  p_table_old TYPE tabname.

FIELD-SYMBOLS:
  <gt_outtab>   TYPE table.



PARAMETERS:
  p_table      TYPE tabname  DEFAULT 'SFLIGHT'.


START-OF-SELECTION.

*---------------------------------------------------------------------*
*       MAIN                                                          *
*---------------------------------------------------------------------*

  p_table_old = p_table.
  PERFORM dynamic_select
                     USING
                        p_table.

  CALL SCREEN 100.


*---------------------------------------------------------------------*
*       MODULE PBO OUTPUT                                             *
*---------------------------------------------------------------------*
MODULE pbo OUTPUT.
  SET PF-STATUS 'MAIN100'.
  IF g_custom_container IS INITIAL.
    CREATE OBJECT g_custom_container
           EXPORTING container_name = g_container.

*   Instantiate ALV grid control
    CREATE OBJECT grid1
           EXPORTING i_parent = g_custom_container.



    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = p_table
      CHANGING
        it_outtab        = <gt_outtab>.


  ELSEIF ( p_table = p_table_old ).  " table did not change
    grid1->refresh_table_display( ).

  ELSEIF ( p_table <> p_table_old ). " table did change
    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = p_table
      CHANGING
        it_outtab        = <gt_outtab>.

    p_table_old = p_table.
  ENDIF.



ENDMODULE.                    "PBO OUTPUT
*---------------------------------------------------------------------*
*       MODULE PAI INPUT                                              *
*---------------------------------------------------------------------*
MODULE pai INPUT.
*   to react on oi_custom_events:
  CALL METHOD cl_gui_cfw=>dispatch.
  CASE ok_code.
    WHEN 'EXIT'.
      PERFORM exit_program.

    WHEN 'ENTER'.
*     delete one entry after the other
      DELETE <gt_outtab> INDEX 1.

    WHEN OTHERS.
*     Set new table
      p_table = ok_code.
      PERFORM dynamic_select
                         USING p_table.

  ENDCASE.
  CLEAR ok_code.
ENDMODULE.                    "PAI INPUT
*---------------------------------------------------------------------*
*       FORM EXIT_PROGRAM                                             *
*---------------------------------------------------------------------*
FORM exit_program.
*  CALL METHOD G_CUSTOM_CONTAINER->FREE.
*  CALL METHOD CL_GUI_CFW=>FLUSH.
  LEAVE PROGRAM.
ENDFORM.                    "EXIT_PROGRAM


*&---------------------------------------------------------------------*
*&      Form  DYNAMIC_SELECT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_TABLE  text
*----------------------------------------------------------------------*
FORM dynamic_select
                USING
                   value(ud_table)  TYPE tabname.

  CLEAR: gdo_data.
  TRANSLATE ud_table TO UPPER CASE.

  CREATE DATA gdo_data TYPE TABLE OF (ud_table).
  ASSIGN gdo_data->* TO <gt_outtab>.


  SELECT * FROM (ud_table) INTO TABLE <gt_outtab>.

ENDFORM.                    " DYNAMIC_SELECT

Regards

Uwe

Former Member · ‎2007 Jan 04

Hi Neil ,

Can you send ur code whatever u have written

Former Member · ‎2007 Jan 04

Here it is:

*<= This is where I populate the field symbol

data: lv_where_clause type string.

create data it_results_var type table of (w_config-results_tab).

assign it_results_var->* to <results>.

concatenate w_config-batch_fieldname ' eq w_main-batch_no'

into lv_where_clause.

select * into table <results>

from (w_config-results_tab)

where original_file eq w_main-original_file

and (lv_where_clause).

*<= This is where I call the methods

if cust104 is initial.

create object cust104 exporting container_name = 'CUST104'.

create object grid104 exporting i_parent = cust104.

call method grid104->set_table_for_first_display

exporting

i_structure_name = w_config-results_tab

is_layout = s_layo

changing

it_outtab = <results>

else.

call method grid104->refresh_table_display.

endif.

Cheers,

Neil.

Former Member · ‎2007 Jan 04

Hi Neil,

When You Fieldsymbols.It is like a reference .when you are using data and then assigning the fieldsymbol will have a different instance different time .

There are two ways .

You can do

1 .Use an Internal table that will work .

2 .UNASSIGN the Field symbol <result> . I hope this should work.

Please reward if useful .

Former Member · ‎2007 Jan 04

Thanks for your help dinesh. I resolved the probelm by using the method 'set_table_for_first_display' everytime.

Cheers,

Neil.

uwe_schieferstein · ‎2007 Jan 04

Hello Neil

The following sample report (based on BCALV_GRID_DEMO) shows how to use field-symbols in ALV lists. Please adjust the GUI status that the ENTER button has ok-code ENTER assigned.

If you simply push the ENTER button several times every time a single entry of the selected data will be deleted. After refreshing the ALV list the displayed data are correct.

If you enter a different table name (e.g. SCARR) into the command line field a new dynamic select nothing happens because the grid instance (at the frontend) does not "know" that the output data (in the backend, i.e. the ABAP program) have been changed. You have to call SET_TABLE_FOR_FIRST_DISPLAY again to "inform" the grid instance about this change.

PROGRAM zus_sdn_bcalv_grid_demo_4.
DATA: ok_code LIKE sy-ucomm,
*      gt_sflight TYPE TABLE OF sflight,
      g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',
      grid1  TYPE REF TO cl_gui_alv_grid,
      g_custom_container TYPE REF TO cl_gui_custom_container.



DATA:
  gdo_data    TYPE REF TO data,
  p_table_old TYPE tabname.

FIELD-SYMBOLS:
  <gt_outtab>   TYPE table.



PARAMETERS:
  p_table      TYPE tabname  DEFAULT 'SFLIGHT'.


START-OF-SELECTION.

*---------------------------------------------------------------------*
*       MAIN                                                          *
*---------------------------------------------------------------------*

  p_table_old = p_table.
  PERFORM dynamic_select
                     USING
                        p_table.

  CALL SCREEN 100.


*---------------------------------------------------------------------*
*       MODULE PBO OUTPUT                                             *
*---------------------------------------------------------------------*
MODULE pbo OUTPUT.
  SET PF-STATUS 'MAIN100'.
  IF g_custom_container IS INITIAL.
    CREATE OBJECT g_custom_container
           EXPORTING container_name = g_container.

*   Instantiate ALV grid control
    CREATE OBJECT grid1
           EXPORTING i_parent = g_custom_container.



    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = p_table
      CHANGING
        it_outtab        = <gt_outtab>.


  ELSEIF ( p_table = p_table_old ).  " table did not change
    grid1->refresh_table_display( ).

  ELSEIF ( p_table <> p_table_old ). " table did change
    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = p_table
      CHANGING
        it_outtab        = <gt_outtab>.

    p_table_old = p_table.
  ENDIF.



ENDMODULE.                    "PBO OUTPUT
*---------------------------------------------------------------------*
*       MODULE PAI INPUT                                              *
*---------------------------------------------------------------------*
MODULE pai INPUT.
*   to react on oi_custom_events:
  CALL METHOD cl_gui_cfw=>dispatch.
  CASE ok_code.
    WHEN 'EXIT'.
      PERFORM exit_program.

    WHEN 'ENTER'.
*     delete one entry after the other
      DELETE <gt_outtab> INDEX 1.

    WHEN OTHERS.
*     Set new table
      p_table = ok_code.
      PERFORM dynamic_select
                         USING p_table.

  ENDCASE.
  CLEAR ok_code.
ENDMODULE.                    "PAI INPUT
*---------------------------------------------------------------------*
*       FORM EXIT_PROGRAM                                             *
*---------------------------------------------------------------------*
FORM exit_program.
*  CALL METHOD G_CUSTOM_CONTAINER->FREE.
*  CALL METHOD CL_GUI_CFW=>FLUSH.
  LEAVE PROGRAM.
ENDFORM.                    "EXIT_PROGRAM


*&---------------------------------------------------------------------*
*&      Form  DYNAMIC_SELECT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_TABLE  text
*----------------------------------------------------------------------*
FORM dynamic_select
                USING
                   value(ud_table)  TYPE tabname.

  CLEAR: gdo_data.
  TRANSLATE ud_table TO UPPER CASE.

  CREATE DATA gdo_data TYPE TABLE OF (ud_table).
  ASSIGN gdo_data->* TO <gt_outtab>.


  SELECT * FROM (ud_table) INTO TABLE <gt_outtab>.

ENDFORM.                    " DYNAMIC_SELECT

Regards

Uwe

Former Member · ‎2007 Jan 04

Gruetzi Uwe,

Thanks for the feedback. I think I have not made clear my issue. I will try again.

Currently I have a main alv grid which has several function each one of these functions calls a different ALV grid.

When a line is selected from the main grid and a function called for the first time everything works according to plan. The new grid gets instantiated and displayed on the screen.

The issue happens when the same function is called again but for a different line on the main ALV grid.

Even though the field symbol contains the new data based on the new line selected, when the ALV grid for the function is called is still contains the data from the previous line selected. Even after calling the method <b>'refresh_table_display</b>'. When debugging this process the IT_OUTTAB contains the new data.

Am I going completely insane?

Cheers,

Neil.

uwe_schieferstein · ‎2007 Jan 04

Hello Neil

Could you please paste the entire coding?

Regards & Greetings from Zürich

Uwe

Former Member · ‎2007 Jan 04

HI Uwe,

I love Zurich, I spent 18 months there working for SLI Consulting back in the day! Although the name doesn't look like it but I am actually from Geneva.

Here is the code as requested.

Cheers,

Neil.

&******************************************************************&

& Author : Neil Gardiner &

& &

& Date : December 2006 &

& &

& Description: &

& &

&******************************************************************&

& Modifications: &

& -

&

& User: Description: Trace: &

& -

-

&

& &

&******************************************************************&

program zfhp_audit_trail message-id zi.

<= Tables => *******************************

tables: zzhp_mvt_hdr,

zzhp_mvt_dtl,

pa0105.

<= Type Pools => *****************************

type-pools: cntl.

<= Includes => ******************************

include: <icon>.

<= Types => ******************************

*<= Auto Reconciliation

types: begin of t_journals,

bukrs type bkpf-bukrs,

belnr type bkpf-belnr,

gjahr type bkpf-gjahr,

budat type bkpf-budat,

xblnr type bkpf-xblnr,

debit type bseg-dmbtr,

items type i,

end of t_journals.

types: begin of t_debits,

wrbtr type zzhpfm_mvt_hdr-control_debits,

end of t_debits.

*<= Screen 100

types: begin of t_main ,

original_file type zzhp_mvt_hdr-original_file ,

description type text50 ,

batch_no type zzhp_mvt_hdr-batch_no ,

sequence_no type zzhp_mvt_hdr-sequence_no ,

create_date type zzhp_mvt_hdr-create_date ,

mst_map_errors type zzhp_mvt_hdr-mst_map_errors ,

trn_map_errors type zzhp_mvt_hdr-trn_map_errors ,

total_records type zzhp_mvt_hdr-total_records ,

status type zzhp_mvt_hdr-status ,

status_text(42) type c ,

processed_date type zzhp_mvt_hdr-processed_date ,

processed_time type zzhp_mvt_hdr-processed_time ,

total_gl_debits type zzhp_mvt_hdr-total_gl_debits ,

total_adjustment type zzhp_mvt_hdr-total_adjustment,

objnr(19) type c ,

line_colour(4) type c ,

end of t_main .

*<= Screen 101

types: begin of t_accounting,

bukrs type bkpf-bukrs,

belnr type bkpf-belnr,

gjahr type bkpf-gjahr,

total type bseg-wrbtr,

items type i,

end of t_accounting.

*<= Function codes to be excluded

types: begin of t_exclude,

fcode type rsmpe-func,

end of t_exclude.

<= Itabs => ******************************

data: it_config type standard table of zziface_config,

it_mailto type standard table of zziface_mailto,

it_mvt_hdr type standard table of zzhp_mvt_hdr,

it_exclude type standard table of t_exclude,

it_content type bcsy_text.

*<= Auto Reconciliation

data: it_journals type standard table of t_journals,

it_debits type standard table of t_debits.

*<= Screen 100

data: it_fieldcat type standard table of lvc_s_fcat,

it_main type standard table of t_main,

it_rows type lvc_t_row.

*<= Screen 101

data: it_accounting type standard table of t_accounting,

it_fieldcat101 type standard table of lvc_s_fcat.

*<= Screen 103

data: it_fieldcat103.

*<= Screen 104

data: it_fieldcat104 type standard table of lvc_s_fcat,

it_results type standard table of zzhp_results.

<= Work Areas => ****************************

data: w_config type zziface_config,

w_mailto type zziface_mailto,

w_mvt_hdr type zzhp_mvt_hdr,

w_rows type lvc_s_row,

w_fieldcat type lvc_s_fcat,

w_exclude type t_exclude,

w_content type string.

*<= Screen 100

data: w_main type t_main.

*<= Screen 101

data: w_accounting type t_accounting.

*<= Screen 104

data: w_results type zzhp_results.

*<= Auto Reconciliation

data: w_journals type t_journals,

w_debits type t_debits.

*<= Work areas for SAP document

data: w_doco type soodk,

w_folder type soodk,

w_new_doco type soodk.

<= Structures => ****************************

data: s_layo type lvc_s_layo,

s_toolbar type stb_button.

<= Constants => ****************************

constants: c_interface(9) type c value 'INTERFACE',

c_hiport(6) type c value 'HIPORT' ,

c_iface(7) type c value 'P_IFACE',

c_fname(15) type c value 'PROCESSING_FLAG',

c_usr type p0005-subty value '0001',

c_colon(1) type c value ':' ,

c_000(3) type c value '000' ,

c_100(3) type c value '100' ,

c_0100(4) type c value '0100' ,

c_eq(2) type c value 'EQ' ,

c_0(1) type c value '0' ,

c_1(1) type c value '1' ,

c_2(1) type c value '2' ,

c_3(1) type c value '3' ,

c_i(1) type c value 'I' ,

c_p(1) type c value 'P' ,

c_r(1) type c value 'R' ,

c_s(1) type c value 'S' ,

c_u(1) type c value 'U' ,

c_x(1) type c value 'X' .

*<= Constants for screen processing

constants: c_back type sy-ucomm value 'BACK' ,

c_canc type sy-ucomm value 'CANC' ,

c_exit type sy-ucomm value 'EXIT' ,

c_fb03 type sy-ucomm value 'FB03' ,

c_arecon type sy-ucomm value 'AU_RECON' ,

c_mrecon type sy-ucomm value 'MAN_RECON',

c_all type sy-ucomm value 'HP_ALL' ,

c_reslts type sy-ucomm value 'RESULTS' ,

c_fnote type sy-ucomm value 'FNOTE' ,

c_mvtdtl type sy-ucomm value 'MOV_DTLS' ,

c_msterr type sy-ucomm value 'MST_ERR' ,

c_trnerr type sy-ucomm value 'TRN_ERR' ,

c_inamst type sy-ucomm value 'INA_MST' ,

c_inatrn type sy-ucomm value 'INA_TRN' ,

c_mstmap type sy-ucomm value 'MST_MAP' ,

c_trnmap type sy-ucomm value 'TRN_MAP' .

*<= Constants for HOTSPOT clicks

constants: c_belnr(5) type c value 'BELNR'.

*<= Constants for BATCH status

constants: c_e type c value 'E',

c_d type c value 'D',

c_f type c value 'F',

c_m type c value 'M',

c_t type c value 'T',

c_v type c value 'V'.

*<= Constants for transaction calling

constants: c_mst_map(15) type c value 'ZZHP_MSTALL_DIS',

c_trn_map(15) type c value 'ZZHP_TRNMAP_DIS'.

*<= Constants for authority check

constants: c_06(2) type c value '06',

c_16(2) type c value '16'.

*<= Constants for line colours

constants: c_c310(4) type c value 'C310',

c_c410(4) type c value 'C410',

c_c510(4) type c value 'C510',

c_c610(4) type c value 'C610',

c_c710(4) type c value 'C710'.

*<= Constants for popup function

constants: c_warning(7) type c value 'Warning' ,

c_continue(8) type c value 'Continue',

c_cancel(6) type c value 'Cancel' .

<= Global Variables => *************************

data: v_okcode type sy-ucomm ,

ok_code type sy-ucomm ,

v_xblnr type bkpf-xblnr,

v_index type sy-tabix ,

v_errors type c ,

v_answer type c .

*< Variables for SAP document

data: v_objnam type sofd-objnam,

v_docnam type sofd-objnam,

v_retcode type c.

<= Object Declaration => ************************

*<= Dynamic table selection

data: w_waref type ref to data.

*<= Screen 100

data: it_main_var type ref to data,

cust100 type ref to cl_gui_custom_container,

grid100 type ref to cl_gui_alv_grid.

*<= Screen 101

data: it_header_var type ref to data,

cust101 type ref to cl_gui_custom_container,

grid101 type ref to cl_gui_alv_grid.

*<= Screen 103

data: it_mvt_dtl_var type ref to data,

cust104 type ref to cl_gui_custom_container,

grid104 type ref to cl_gui_alv_grid.

*<= Screen 104

data: it_results_var type ref to data,

cust103 type ref to cl_gui_custom_container,

grid103 type ref to cl_gui_alv_grid.

*<= Email processing

data: send_request type ref to cl_bcs,

document type ref to cl_document_bcs,

bcs_exception type ref to cx_bcs.

<= Field Symbols => **************************

field-symbols: <main> type standard table,

<header> type standard table,

<results> type standard table,

<mvt_dtl> type standard table,

<wa> type any .

<= Ranges => ******************************

ranges: r_status for zzhp_mvt_hdr-status.

<= Local Class Definition => *********************

----

CLASS lcl_event_receiver DEFINITION

----

*

----

class lcl_event_receiver definition.

public section.

class-methods: handle_hotspot_click

for event hotspot_click of cl_gui_alv_grid

importing

e_row_id

e_column_id

es_row_no,

handle_user_command

for event user_command of cl_gui_alv_grid

importing e_ucomm,

handle_toolbar

for event toolbar of cl_gui_alv_grid

importing e_object e_interactive.

private section.

endclass. "lcl_event_receiver DEFINITION

----

CLASS lcl_program_utilities DEFINITION

----

*

----

class lcl_program_utilities definition.

public section.

class-methods: get_index

importing

e_index type sy-tabix

exporting

i_index type sy-tabix.

private section.

endclass. "lcl_program_utilities DEFINITION

<= Selection Screen => *************************

selection-screen: begin of block b01 with frame title text-001.

parameters: p_iface type zziface_descript-original_file.

selection-screen: end of block b01.

<= Initialisation => **************************

initialization.

p_iface = c_hiport.

loop at screen.

case screen-name.

when c_iface.

screen-input = c_0.

endcase.

modify screen.

endloop.

************************************************************************

----

<= Main Program => -

----

************************************************************************

*<= Start of selection

start-of-selection.

perform get_config_info using p_iface.

perform authority_check.

perform get_email_recipients.

if sy-batch = c_x.

perform status_range.

perform auto_reconcile.

else.

set screen 100.

endif.

*<= End of selection

end-of-selection.

*<= If the program is executed and in background mode and errors occur

*<= during the processing an email needs to be sent to inform the people

*<= responsible.

if sy-batch = c_x and

v_errors = c_x.

perform send_email.

endif.

************************************************************************

----

<= Sub Routines and Modules => -

----

************************************************************************

&----

*& Form get_config_info

&----

text

----

-->P_P_IFACE text

----

form get_config_info using p_p_iface.

select * into table it_config

from zziface_config

where original_file eq p_p_iface.

endform. " get_config_info

&----

*& Form authority_check

&----

text

----

--> p1 text
<-- p2 text

----

form authority_check .

loop at it_config into w_config.

authority-check object w_config-auth_object

id w_config-auth_interface

field w_config-original_file

id 'ACTVT' field c_06.

if sy-subrc ne 0.

message e000 with text-901.

else.

authority-check object w_config-auth_object

id w_config-auth_interface

field w_config-original_file

id 'ACTVT' field c_16.

if sy-subrc <> 0.

w_exclude-fcode = c_arecon. " Exclude Auto Recon

append w_exclude to it_exclude.

clear w_exclude.

w_exclude-fcode = c_mrecon. " Exclude Manual Recon

append w_exclude to it_exclude.

clear w_exclude.

endif.

endloop.

endform. " authority_check

&----

*& Form status_range

&----

text

----

--> p1 text
<-- p2 text

----

form status_range .

r_status-sign = c_i.

r_status-option = c_eq.

r_status-low = c_p.

append r_status.

clear r_status.

r_status-sign = c_i.

r_status-option = c_eq.

r_status-low = c_u.

append r_status.

clear r_status.

endform. " status_range

&----

*& Form auto_reconcile

&----

text

----

--> p1 text
<-- p2 text

----

form auto_reconcile.

if sy-batch = c_x.

read table it_config into w_config with key original_file = p_iface.

create data it_header_var type table of (w_config-mvt_hdr_tab).

assign it_header_var->* to <header>.

select * into table <header>

from (w_config-mvt_hdr_tab)

where original_file eq w_config-original_file

and status in r_status.

loop at <header> into <wa>.

move-corresponding <wa> to w_mvt_hdr.

perform reconcile_movement using w_mvt_hdr-original_file

w_mvt_hdr-batch_no

w_mvt_hdr-sequence_no

w_mvt_hdr-total_gl_debits

w_mvt_hdr-total_adjustment.

endloop.

else.

call method lcl_program_utilities=>get_index

exporting

e_index = '1'

importing

i_index = v_index.

read table it_main index v_index into w_main.

if w_main-status na 'PURM'.

message i000 with text-113.

exit.

endif.

perform reconcile_movement using w_main-original_file

w_main-batch_no

w_main-sequence_no

w_main-total_gl_debits

w_main-total_adjustment.

.

endif.

endform. " auto_reconcile

&----

*& Form reconcile_movement

&----

text

----

--> p1 text
<-- p2 text

----

form reconcile_movement using p_original_file

p_batch_no

p_sequence_no

p_totals

p_adjustments.

perform create_ref_doc using p_batch_no

changing v_xblnr.

perform get_journals using v_xblnr.

perform get_amounts.

perform check_amounts using p_original_file

p_batch_no

p_sequence_no

p_totals

p_adjustments.

endform. " reconcile_movement

&----

*& Form create_ref_doc

&----

text

----

<--P_XBLNR text

----

form create_ref_doc using p_batch_no

changing p_xblnr.

data: lv_xblnr type bkpf-xblnr.

v_xblnr = w_config-reference2.

replace '&BATCH&' in v_xblnr with p_batch_no.

endform. " create_ref_doc

&----

*& Form get_journals

&----

text

----

-->P_V_XBLNR text

----

form get_journals using p_xblnr.

refresh: it_journals.

select bukrs belnr gjahr into table it_journals

from bkpf

where xblnr eq p_xblnr

and stblg eq ''.

if sy-subrc <> 0.

if sy-batch = c_x.

message i000 with text-110 p_xblnr.

else.

message e000 with text-110 p_xblnr.

endif.

else.

sort it_journals.

endif.

endform. " get_journals

&----

*& Form get_amounts

&----

text

----

--> p1 text
<-- p2 text

----

form get_amounts .

refresh: it_debits.

clear : w_debits.

select wrbtr into table it_debits

from bseg

for all entries in it_journals

where bukrs eq it_journals-bukrs

and belnr eq it_journals-belnr

and gjahr eq it_journals-gjahr

and shkzg eq c_s.

endform. " get_amounts

&----

*& Form check_amounts

&----

text

----

--> p1 text
<-- p2 text

----

form check_amounts using p_original_file

p_batch_no

p_sequence_no

p_totals

p_adjustments.

data: lv_tot type bseg-wrbtr.

loop at it_debits into w_debits.

at first.

sum.

lv_tot = p_totals + p_adjustments.

if w_debits-wrbtr <> lv_tot.

update (w_config-mvt_hdr_tab) set status = c_u

where original_file = p_original_file

and batch_no = p_batch_no

and sequence_no = p_sequence_no.

message id w_config-message_id type c_i number c_000

with p_batch_no text-116 w_debits-wrbtr lv_tot.

if sy-batch <> c_x.

w_main-status = c_u.

modify it_main from w_main index v_index transporting status.

endif.

else.

update (w_config-mvt_hdr_tab) set status = c_r

where original_file = p_original_file

and batch_no = p_batch_no

and sequence_no = p_sequence_no.

message id w_config-message_id type c_i number c_000

with p_batch_no text-117.

if sy-batch <> c_x.

w_main-status = c_r.

modify it_main from w_main index v_index transporting status.

endif.

endat.

exit.

endloop.

endform. " check_amounts

&----

*& Module status_0100 OUTPUT

&----

text

----

module status_0100 output.

set pf-status '0100' excluding it_exclude.

set titlebar '0100'.

if cust100 is initial.

perform build_layout.

perform build_fieldcat_100.

perform get_data_100.

create object cust100 exporting container_name = 'CUST100'.

create object grid100 exporting i_parent = cust100.

call method grid100->set_table_for_first_display

exporting

i_structure_name = 'IT_MAIN'

is_layout = s_layo

changing

it_outtab = it_main

it_fieldcatalog = it_fieldcat.

else.

call method grid100->refresh_table_display.

endif.

*<= Set the handlers for the events.

set handler lcl_event_receiver=>handle_hotspot_click

for all instances.

set handler lcl_event_receiver=>handle_toolbar for grid100.

set handler lcl_event_receiver=>handle_user_command for grid100.

*<= Set the toolbar of the ALV grip to interactive

call method grid100->set_toolbar_interactive.

endmodule. " status_0100 OUTPUT

&----

*& Form get_data_100

&----

text

----

--> p1 text
<-- p2 text

----

form get_data_100 .

refresh: it_mvt_hdr,

it_main.

clear : w_mvt_hdr,

w_main.

read table it_config into w_config with key original_file = p_iface.

create data it_header_var type table of (w_config-mvt_hdr_tab).

assign it_header_var->* to <header>.

create data w_waref type (w_config-mvt_hdr_tab).

assign w_waref->* to <wa>.

select * into table <header>

from (w_config-mvt_hdr_tab)

where original_file eq w_config-original_file.

loop at <header> into <wa>.

move-corresponding <wa> to w_mvt_hdr.

append w_mvt_hdr to it_mvt_hdr.

endloop.

loop at it_mvt_hdr into w_mvt_hdr.

perform get_sap_document using w_mvt_hdr-objtp

w_mvt_hdr-objyr

w_mvt_hdr-objno

changing w_main-objnr.

perform get_status_text using w_mvt_hdr-status

changing w_main-status_text

w_main-line_colour.

perform get_description using w_mvt_hdr-original_file

changing w_main-description.

w_main-original_file = w_mvt_hdr-original_file .

w_main-batch_no = w_mvt_hdr-batch_no .

w_main-sequence_no = w_mvt_hdr-sequence_no .

w_main-create_date = w_mvt_hdr-create_date .

w_main-mst_map_errors = w_mvt_hdr-mst_map_errors .

w_main-trn_map_errors = w_mvt_hdr-trn_map_errors .

w_main-total_records = w_mvt_hdr-total_records .

w_main-processed_date = w_mvt_hdr-processed_date .

w_main-processed_time = w_mvt_hdr-processed_time .

w_main-total_gl_debits = w_mvt_hdr-total_gl_debits.

w_main-status = w_mvt_hdr-status.

append w_main to it_main.

clear w_main.

endloop.

sort it_main by processed_date batch_no sequence_no ascending.

endform. " get_data_100

&----

*& Form build_fieldcat_100

&----

text

----

--> p1 text
<-- p2 text

----

form build_fieldcat_100 .

w_fieldcat-fieldname = 'ORIGINAL_FILE'.