Skip to Content
author's profile photo Former Member
Former Member

can somebody give me a sample about alv oo?

hi experts ,can you give me a sample about alv using oo method,

i have tried

data GS_LAYOUT TYPE SLIS_LAYOUT_ALV.

data lt_fieldcat TYPE slis_t_fieldcat_alv.

call method alv_grid->set_table_for_first_display

exporting is_layout = gs_layout

changing it_outtab = itab_data

it_fieldcatalog = lt_fieldcat.

but the code cann't be compiled, and says "lt_fieldcat is not type-compatible with formal parameter it_fieldcatalog.",and so is the gs_layout.

can you give me a sample for using alv oo ,and use the fieldcat to set table for first display, not to use i_structure_name.

Message was edited by:

liu shaochang

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

2 Answers

  • Best Answer
    Posted on Nov 20, 2007 at 02:01 AM

    Hi,

    Please take a look at my code below. Just create a custom control in screen painter and PF-status and title as well. Hope it helps...

    P.S. Please award points if it helps...

    [code]

    &----


    *& Report ZFI_CASH_PROOF_SHEET

    *&

    *& PROGRAM TYPE : Report

    *& RICEF ID : R-149

    *& TITLE : ZFI_CASH_PROOF_SHEET

    *& SAP Module : FI

    *& CREATION DATE : 11/06/2007

    *& AUTHOR : Aris Hidalgo

    *& DESIGNER : Aris Hidalgo

    &----


    *& DESCRIPTION :

    &----


    $*********************************************************************

    *$ CHANGE HISTORY

    *$----


    *$ DATE | T-Num | Description | Reference

      • | | |

      $*********************************************************************

      REPORT zfi_cash_proof_sheet

      NO STANDARD PAGE HEADING

      MESSAGE-ID zfi.

      ----


      • Data Dictionary Table/s *

      ----


      TABLES: t012k.

      CLASS lcl_event_receiver DEFINITION DEFERRED.

      ----


      • Global Data/s *

      ----


      DATA: gt_fieldcat TYPE lvc_t_fcat,

      wa_fieldcat LIKE LINE OF gt_fieldcat,

      ok_code TYPE syst-ucomm,

      save_ok TYPE syst-ucomm,

      g_repid TYPE syst-repid,

      gs_layout TYPE lvc_s_layo,

      gv_container TYPE scrfname VALUE 'CUSTOM_CONTROL',

      lcl_grid1 TYPE REF TO cl_gui_alv_grid,

      lcl_custom_container TYPE REF TO cl_gui_custom_container,

      gs_disvariant TYPE disvariant,

      lcl_event_receiver TYPE REF TO lcl_event_receiver,

      gt_sort TYPE lvc_t_sort,

      gs_sort TYPE lvc_s_sort.

      ----


      • Global Structure/s *

      ----


      TYPES: BEGIN OF t_output,

      bukrs TYPE bsis-bukrs,

      hbkid TYPE t012k-hbkid,

      hktid TYPE t012k-hktid,

      cash_in_bank TYPE bsis-dmbtr,

      one_day TYPE bsis-dmbtr,

      two_days TYPE bsis-dmbtr,

      more_than_two_days TYPE bsis-dmbtr,

      misc_collection TYPE bsis-dmbtr,

      outs_rel_checks TYPE bsis-dmbtr,

      treas_transactions TYPE bsis-dmbtr,

      tot_cash_bal TYPE bsis-dmbtr,

      outs_unrel_checks TYPE bsis-dmbtr,

      imp_docs_due TYPE bsis-dmbtr,

      est_cash_balance TYPE bsis-dmbtr,

      END OF t_output.

      DATA: gt_output TYPE STANDARD TABLE OF t_output,

      wa_output LIKE LINE OF gt_output.

      ----


      • SELECTION-SCREEN *

      ----


      SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

      SELECT-OPTIONS: s_bukrs FOR t012k-bukrs OBLIGATORY,

      s_hbkid FOR t012k-hbkid,

      s_hktid FOR t012k-hktid.

      PARAMETERS: p_budat TYPE bsak-budat OBLIGATORY.

      SELECTION-SCREEN END OF BLOCK b1.

      */ CLASS DEFINITION/S */

      ----


      • CLASS lcl_data_def DEFINITION

      ----


      *

      ----


      CLASS lcl_data_def DEFINITION ABSTRACT.

      PUBLIC SECTION.

      TYPES: BEGIN OF t_t012k,

      bukrs TYPE t012k-bukrs,

      hbkid TYPE t012k-hbkid,

      hktid TYPE t012k-hktid,

      hkont TYPE t012k-hkont,

      END OF t_t012k.

      TYPES: BEGIN OF t_bsis_bsas,

      bukrs TYPE bsis-bukrs,

      hkont TYPE bsis-hkont,

      belnr TYPE bsis-belnr,

      buzei TYPE bsis-buzei,

      gjahr TYPE bsis-gjahr,

      budat TYPE bsis-budat,

      blart TYPE bsis-blart,

      dmbtr TYPE bsis-dmbtr,

      shkzg TYPE bsis-shkzg,

      END OF t_bsis_bsas.

      TYPES: BEGIN OF t_bsid_bsad,

      bukrs TYPE bsid-bukrs,

      belnr TYPE bsid-belnr,

      gjahr TYPE bsid-gjahr,

      blart TYPE bsid-blart,

      buzei TYPE bsid-buzei,

      budat TYPE bsid-budat,

      dmbtr TYPE bsid-dmbtr,

      shkzg TYPE bsid-shkzg,

      bschl TYPE bsid-bschl,

      END OF t_bsid_bsad.

      TYPES: BEGIN OF t_cash_in_bank,

      bukrs TYPE bsis-bukrs,

      hkont TYPE bsis-hkont,

      dmbtr TYPE bsis-dmbtr,

      END OF t_cash_in_bank.

      TYPES: BEGIN OF t_outs_trade_coll,

      bukrs TYPE bsis-bukrs,

      hkont TYPE bsis-hkont,

      one_day TYPE bsis-dmbtr,

      two_days TYPE bsis-dmbtr,

      more_than_two_days TYPE bsis-dmbtr,

      END OF t_outs_trade_coll.

      TYPES: BEGIN OF t_zcheck_monitor,

      zzbukr TYPE zcheck_monitor-zzbukr,

      zhbkid TYPE zcheck_monitor-zhbkid,

      zhktid TYPE zcheck_monitor-zhktid,

      zubhkt TYPE zcheck_monitor-zubhkt,

      zrwbtr TYPE zcheck_monitor-zrwbtr,

      zrlsvd TYPE zcheck_monitor-zrlsvd,

      zrlsdt TYPE zcheck_monitor-zrlsdt,

      END OF t_zcheck_monitor.

      TYPES: BEGIN OF t_zcheck_monitor_collect,

      zzbukr TYPE zcheck_monitor-zzbukr,

      zubhkt TYPE zcheck_monitor-zubhkt,

      zrwbtr TYPE zcheck_monitor-zrwbtr,

      END OF t_zcheck_monitor_collect.

      TYPES: BEGIN OF t_company,

      bukrs TYPE t001-bukrs,

      butxt TYPE t001-butxt,

      END OF t_company.

      TYPES: BEGIN OF t_header,

      bukrs TYPE t001-bukrs,

      butxt TYPE t001-butxt,

      hbkid TYPE t012k-hbkid,

      hktid TYPE t012k-hktid,

      expand(1) TYPE c,

      END OF t_header.

      DATA: gt_t012k TYPE HASHED TABLE OF t_t012k

      WITH UNIQUE KEY bukrs hbkid hktid,

      gt_bsis TYPE STANDARD TABLE OF t_bsis_bsas,

      wa_bsis LIKE LINE OF gt_bsis,

      gt_bsas LIKE gt_bsis,

      gt_bsis_bsas LIKE gt_bsas,

      gt_bsid_bsad TYPE STANDARD TABLE OF t_bsid_bsad

      WITH NON-UNIQUE KEY bukrs belnr gjahr blart,

      gt_bsid LIKE gt_bsid_bsad,

      gt_bsad LIKE gt_bsid_bsad,

      gt_bsik LIKE gt_bsid_bsad,

      gt_bsak LIKE gt_bsid_bsad,

      gt_cash_in_bank TYPE HASHED TABLE OF t_cash_in_bank

      WITH UNIQUE KEY bukrs hkont,

      gt_misc_collection LIKE gt_cash_in_bank,

      wa_misc_collection LIKE LINE OF gt_misc_collection,

      gt_importation_docs_due LIKE gt_cash_in_bank,

      wa_importation_docs_due LIKE LINE OF gt_importation_docs_due,

      wa_cash_in_bank LIKE LINE OF gt_cash_in_bank,

      gt_outs_trade_coll TYPE HASHED TABLE OF t_outs_trade_coll

      WITH UNIQUE KEY bukrs hkont,

      wa_outs_trade_coll LIKE LINE OF gt_outs_trade_coll,

      gt_zcheck_monitor TYPE STANDARD TABLE OF t_zcheck_monitor,

      gt_zcheck_monitor_collect TYPE HASHED TABLE OF t_zcheck_monitor_collect

      WITH UNIQUE KEY zzbukr zubhkt,

      wa_zcheck_monitor_collect LIKE LINE OF gt_zcheck_monitor_collect,

      gt_outs_rel_checks LIKE gt_cash_in_bank,

      wa_outs_rel_checks LIKE LINE OF gt_outs_rel_checks,

      gt_outs_unrel_checks LIKE gt_cash_in_bank,

      wa_outs_unrel_checks LIKE LINE OF gt_outs_unrel_checks,

      gt_company TYPE HASHED TABLE OF t_company

      WITH UNIQUE KEY bukrs,

      wa_company LIKE LINE OF gt_company,

      gt_header TYPE STANDARD TABLE OF t_header,

      wa_header LIKE LINE OF gt_header.

      ENDCLASS. "lcl_data_def DEFINITION

      ----


      • CLASS lcl_get_data DEFINITION

      ----


      *

      ----


      CLASS lcl_get_data DEFINITION INHERITING FROM lcl_data_def.

      PUBLIC SECTION.

      METHODS: get_bank_details,

      get_gl_balances,

      get_cust_items,

      get_vend_items,

      sum_gl_accounts,

      monday_routines

      IMPORTING

      im_date TYPE bsis-budat

      im_bukrs TYPE bsis-bukrs

      im_hkont TYPE bsis-hkont

      im_budat TYPE bsis-budat

      im_dmbtr TYPE bsis-dmbtr,

      sunday_routines

      IMPORTING

      im_date TYPE bsis-budat

      im_bukrs TYPE bsis-bukrs

      im_hkont TYPE bsis-hkont

      im_budat TYPE bsis-budat

      im_dmbtr TYPE bsis-dmbtr,

      tuesday_routines

      IMPORTING

      im_date TYPE bsis-budat

      im_bukrs TYPE bsis-bukrs

      im_hkont TYPE bsis-hkont

      im_budat TYPE bsis-budat

      im_dmbtr TYPE bsis-dmbtr,

      other_days_routines

      IMPORTING

      im_date TYPE bsis-budat

      im_bukrs TYPE bsis-bukrs

      im_hkont TYPE bsis-hkont

      im_budat TYPE bsis-budat

      im_dmbtr TYPE bsis-dmbtr,

      difference_in_days

      IMPORTING

      im_date TYPE bsis-budat

      im_budat TYPE bsis-budat

      EXPORTING

      ex_diff TYPE vtbbewe-atage,

      outs_check_released,

      process_data.

      PRIVATE SECTION.

      CONSTANTS: lc_credit TYPE bsis-shkzg VALUE 'H',

      lc_debit TYPE bsis-shkzg VALUE 'S',

      lc_nt TYPE bsis-blart VALUE 'NT',

      lc_nc TYPE bsis-blart VALUE 'NC',

      lc_gl_zero TYPE bsis-hkont VALUE '+++++++++0',

      lc_gl_one TYPE bsis-hkont VALUE '+++++++++1',

      lc_gl_three TYPE bsis-hkont VALUE '+++++++++3',

      lc_monday TYPE dtresr-weekday VALUE 'Monday',"#EC NOTEXT

      lc_tuesday TYPE dtresr-weekday VALUE 'Tuesday',"#EC NOTEXT

      lc_sunday TYPE dtresr-weekday VALUE 'Sunday'."#EC NOTEXT

      CONSTANTS: lc_k3 TYPE bsik-blart VALUE 'K3',

      lc_k4 TYPE bsik-blart VALUE 'K4',

      lc_k5 TYPE bsik-blart VALUE 'K5',

      lc_k6 TYPE bsik-blart VALUE 'K6',

      lc_k7 TYPE bsik-blart VALUE 'K7',

      lc_kb TYPE bsik-blart VALUE 'KB',

      lc_kd TYPE bsik-blart VALUE 'KD',

      lc_31 TYPE bsid-blart VALUE '31',

      lc_001 TYPE bsid-buzei VALUE '001'.

      DATA: lv_hkont TYPE bsis-hkont,

      lr_hkont TYPE RANGE OF bsis-hkont,

      wa_hkont LIKE LINE OF lr_hkont,

      lr_blart TYPE RANGE OF bsik-blart,

      wa_blart LIKE LINE OF lr_blart,

      lv_hkont_new TYPE bsis-hkont,

      lv_hkont_old TYPE bsis-hkont,

      lv_date TYPE vtbbewe-atage,

      lv_budat TYPE bsis-budat,

      lv_day TYPE dtresr-weekday.

      ENDCLASS. "lcl_get_data DEFINITION

      ----


      • CLASS lcl_alv_routines DEFINITION

      ----


      *

      ----


      CLASS lcl_alv_routines DEFINITION INHERITING FROM lcl_data_def.

      PUBLIC SECTION.

      METHODS: build_fieldcat FINAL,

      sort_alv_display FINAL.

      ENDCLASS. "lcl_alv_routines DEFINITION

      ----


      • CLASS lcl_event_receiver DEFINITION

      ----


      *

      ----


      CLASS lcl_event_receiver DEFINITION.

      PUBLIC SECTION.

      METHODS:

      handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid

      IMPORTING

      er_data_changed,

      handle_top_of_page FOR EVENT print_top_of_page OF cl_gui_alv_grid,

      handle_top_of_list FOR EVENT print_top_of_list OF cl_gui_alv_grid.

      PRIVATE SECTION.

      DATA: ls_good TYPE lvc_s_modi,

      lv_treas_transactions TYPE t_output-tot_cash_bal,

      lv_tot_cash_bal TYPE t_output-tot_cash_bal,

      lv_outs_unrel_checks TYPE t_output-outs_unrel_checks,

      lv_imp_docs_due TYPE t_output-imp_docs_due,

      lv_est_cash_balance TYPE t_output-est_cash_balance.

      ENDCLASS. "lcl_event_receiver DEFINITION

      */ CLASS IMPLEMENTATION/S */

      ----


      • CLASS lcl_get_data IMPLEMENTATION

      ----


      *

      ----


      CLASS lcl_get_data IMPLEMENTATION.

      • METHOD get_bank_details

      METHOD get_bank_details.

      FIELD-SYMBOLS: <fs_t012k> LIKE LINE OF gt_t012k.

      • Get bank account/s and their corresponding G/L account/s

      SELECT bukrs hbkid

      hktid hkont

      FROM t012k

      INTO TABLE gt_t012k

      WHERE bukrs IN s_bukrs

      AND hbkid IN s_hbkid

      AND hktid IN s_hktid.

      IF NOT gt_t012k[] IS INITIAL.

      SORT gt_t012k BY bukrs hbkid hktid hkont.

      • Get company name

      SELECT bukrs butxt

      FROM t001

      INTO TABLE gt_company

      FOR ALL ENTRIES IN gt_t012k

      WHERE bukrs = gt_t012k-bukrs.

      LOOP AT gt_t012k ASSIGNING <fs_t012k>.

      wa_hkont-sign = 'I'.

      wa_hkont-option = 'EQ'.

      wa_hkont-low = <fs_t012k>-hkont.

      SHIFT wa_hkont-low LEFT DELETING LEADING space.

      APPEND wa_hkont TO lr_hkont.

      CLEAR wa_hkont.

      lv_hkont_new = <fs_t012k>-hkont.

      IF lv_hkont_new <> lv_hkont_old.

      CLEAR lv_hkont.

      lv_hkont = <fs_t012k>-hkont.

      DO 4 TIMES.

      ADD 1 TO lv_hkont.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

      EXPORTING

      input = lv_hkont

      IMPORTING

      output = lv_hkont.

      wa_hkont-sign = 'I'.

      wa_hkont-option = 'EQ'.

      wa_hkont-low = lv_hkont.

      SHIFT wa_hkont-low LEFT DELETING LEADING space.

      APPEND wa_hkont TO lr_hkont.

      CLEAR wa_hkont.

      ENDDO.

      ENDIF.

      lv_hkont_old = lv_hkont_new.

      ENDLOOP.

      CALL METHOD me->get_gl_balances.

      ENDIF.

      ENDMETHOD. "get_bank_details

      • METHOD get_gl_balances

      METHOD get_gl_balances.

      • Get G/L line items(Open items)

      SELECT bukrs hkont belnr

      buzei gjahr budat

      blart dmbtr shkzg

      FROM bsis

      INTO TABLE gt_bsis

      FOR ALL ENTRIES IN gt_t012k

      WHERE bukrs = gt_t012k-bukrs

      AND hkont IN lr_hkont

      AND budat <= p_budat.

      • Get G/L line items(Cleared items)

      SELECT bukrs hkont belnr

      buzei gjahr budat

      blart dmbtr shkzg

      FROM bsas

      INTO TABLE gt_bsas

      FOR ALL ENTRIES IN gt_t012k

      WHERE bukrs = gt_t012k-bukrs

      AND hkont IN lr_hkont

      AND budat <= p_budat.

      APPEND LINES OF gt_bsis TO gt_bsis_bsas.

      APPEND LINES OF gt_bsas TO gt_bsis_bsas.

      IF NOT gt_bsis_bsas[] IS INITIAL.

      CALL METHOD me->get_cust_items.

      CALL METHOD me->get_vend_items.

      CALL METHOD me->sum_gl_accounts.

      ENDIF.

      ENDMETHOD. "get_gl_balances

      • METHOD get_cust_items

      METHOD get_cust_items.

      • Get customer line items(Open items)

      SELECT bukrs belnr gjahr blart

      buzei budat dmbtr shkzg

      bschl

      FROM bsid

      INTO TABLE gt_bsid

      FOR ALL ENTRIES IN gt_bsis_bsas

      WHERE bukrs = gt_bsis_bsas-bukrs

      AND gjahr = gt_bsis_bsas-gjahr

      AND belnr = gt_bsis_bsas-belnr.

      • Get customer line items(Cleared items)

      SELECT bukrs belnr gjahr blart

      buzei budat dmbtr shkzg

      bschl

      FROM bsad

      INTO TABLE gt_bsad

      FOR ALL ENTRIES IN gt_bsis_bsas

      WHERE bukrs = gt_bsis_bsas-bukrs

      AND gjahr = gt_bsis_bsas-gjahr

      AND belnr = gt_bsis_bsas-belnr.

      APPEND LINES OF gt_bsid TO gt_bsid_bsad.

      APPEND LINES OF gt_bsad TO gt_bsid_bsad.

      ENDMETHOD. "get_cust_items

      • METHOD get_vend_items

      METHOD get_vend_items.

      • Get vendor line items(Open items)

      SELECT bukrs belnr gjahr blart

      buzei budat dmbtr shkzg

      bschl

      FROM bsik

      INTO TABLE gt_bsik

      FOR ALL ENTRIES IN gt_bsis_bsas

      WHERE bukrs = gt_bsis_bsas-bukrs

      AND gjahr = gt_bsis_bsas-gjahr

      AND belnr = gt_bsis_bsas-belnr.

      DEFINE m_blart.

      wa_blart-sign = 'I'.

      wa_blart-option = 'EQ'.

      wa_blart-low = &1.

      append wa_blart to lr_blart.

      clear wa_blart.

      END-OF-DEFINITION.

      m_blart lc_k3.

      m_blart lc_k4.

      m_blart lc_k5.

      m_blart lc_k6.

      m_blart lc_k7.

      m_blart lc_kb.

      m_blart lc_kd.

      IF NOT gt_bsik[] IS INITIAL AND NOT lr_blart[] IS INITIAL.

      DELETE gt_bsik WHERE blart NOT IN lr_blart[].

      DELETE gt_bsik WHERE bschl <> lc_31.

      ENDIF.

      ENDMETHOD. "get_vend_items

      • METHOD sum_gl_accounts

      METHOD sum_gl_accounts.

      FIELD-SYMBOLS: <fs_bsis_bsas> LIKE LINE OF gt_bsis_bsas,

      <fs_bsis> LIKE LINE OF gt_bsis,

      <fs_bsid_bsad> LIKE LINE OF gt_bsid_bsad,

      <fs_bsik> LIKE LINE OF gt_bsik,

      <fs_outs_rel_checks> LIKE LINE OF gt_outs_rel_checks,

      <fs_outs_unrel_checks> LIKE LINE OF gt_outs_unrel_checks.

      SORT gt_bsis_bsas BY bukrs hkont belnr.

      LOOP AT gt_bsis_bsas ASSIGNING <fs_bsis_bsas>.

      IF <fs_bsis_bsas>-shkzg = lc_credit. "H

      MULTIPLY <fs_bsis_bsas>-dmbtr BY -1.

      ENDIF.

      */Routine for cash in bank

      IF <fs_bsis_bsas>-hkont CP lc_gl_zero.

      MOVE-CORRESPONDING <fs_bsis_bsas> TO wa_cash_in_bank.

      COLLECT wa_cash_in_bank INTO gt_cash_in_bank.

      CLEAR wa_cash_in_bank.

      ENDIF.

      */Routine for miscellaneous collection

      IF <fs_bsis_bsas>-blart = lc_nt OR

      <fs_bsis_bsas>-blart = lc_nc AND

      <fs_bsis_bsas>-shkzg = lc_debit AND

      <fs_bsis_bsas>-hkont CP lc_gl_one.

      READ TABLE gt_bsid_bsad ASSIGNING <fs_bsid_bsad> WITH TABLE KEY bukrs = <fs_bsis_bsas>-bukrs

      belnr = <fs_bsis_bsas>-belnr

      gjahr = <fs_bsis_bsas>-gjahr

      blart = <fs_bsis_bsas>-blart.

      IF sy-subrc = 0.

      MOVE-CORRESPONDING <fs_bsis_bsas> TO wa_misc_collection.

      COLLECT wa_misc_collection INTO gt_misc_collection.

      CLEAR wa_misc_collection.

      ENDIF.

      ENDIF.

      */Routine for importation docs.due

      IF <fs_bsis_bsas>-shkzg = lc_credit.

      READ TABLE gt_bsik ASSIGNING <fs_bsik> WITH TABLE KEY bukrs = <fs_bsis_bsas>-bukrs

      belnr = <fs_bsis_bsas>-belnr

      gjahr = <fs_bsis_bsas>-gjahr

      blart = <fs_bsis_bsas>-blart.

      IF sy-subrc = 0.

      MOVE-CORRESPONDING <fs_bsis_bsas> TO wa_importation_docs_due.

      COLLECT wa_importation_docs_due INTO gt_importation_docs_due.

      CLEAR gt_importation_docs_due.

      ENDIF.

      ENDIF.

      ENDLOOP.

      IF NOT gt_bsis[] IS INITIAL.

      IF NOT gt_bsis[] IS INITIAL.

      lv_budat = p_budat.

      CALL FUNCTION 'DATE_TO_DAY'

      EXPORTING

      date = lv_budat

      IMPORTING

      weekday = lv_day.

      LOOP AT gt_bsis ASSIGNING <fs_bsis>.

      */Routine for outstanding trade collection

      IF <fs_bsis>-shkzg = lc_debit AND <fs_bsis>-blart <> lc_nt.

      IF lv_day = lc_monday.

      CALL METHOD me->monday_routines

      EXPORTING

      im_date = p_budat

      im_bukrs = <fs_bsis>-bukrs

      im_hkont = <fs_bsis>-hkont

      im_budat = <fs_bsis>-budat

      im_dmbtr = <fs_bsis>-dmbtr.

      ELSEIF lv_day = lc_sunday.

      CALL METHOD me->sunday_routines

      EXPORTING

      im_date = p_budat

      im_bukrs = <fs_bsis>-bukrs

      im_hkont = <fs_bsis>-hkont

      im_budat = <fs_bsis>-budat

      im_dmbtr = <fs_bsis>-dmbtr.

      ELSEIF lv_day = lc_tuesday.

      CALL METHOD me->tuesday_routines

      EXPORTING

      im_date = p_budat

      im_bukrs = <fs_bsis>-bukrs

      im_hkont = <fs_bsis>-hkont

      im_budat = <fs_bsis>-budat

      im_dmbtr = <fs_bsis>-dmbtr.

      ELSE.

      CALL METHOD me->other_days_routines

      EXPORTING

      im_date = p_budat

      im_bukrs = <fs_bsis>-bukrs

      im_hkont = <fs_bsis>-hkont

      im_budat = <fs_bsis>-budat

      im_dmbtr = <fs_bsis>-dmbtr.

      ENDIF.

      ENDIF.

      */Routine for outstanding released checks

      IF <fs_bsis>-hkont CP lc_gl_three AND <fs_bsis>-shkzg = lc_debit.

      MOVE-CORRESPONDING <fs_bsis> TO wa_outs_rel_checks.

      COLLECT wa_outs_rel_checks INTO gt_outs_rel_checks.

      CLEAR wa_outs_rel_checks.

      */Routine for outstanding unreleased checks

      ELSEIF <fs_bsis>-hkont CP lc_gl_three AND <fs_bsis>-shkzg = lc_credit.

      MOVE-CORRESPONDING <fs_bsis> TO wa_outs_unrel_checks.

      COLLECT wa_outs_unrel_checks INTO gt_outs_unrel_checks.

      CLEAR wa_outs_unrel_checks.

      ENDIF.

      ENDLOOP.

      ENDIF.

      ENDIF.

      */Routine for outstanding released check/s

      */this routine will get all records from custom table zcheck_monitor

      */where status is released to vendor

      CALL METHOD me->outs_check_released.

      IF NOT gt_outs_rel_checks[] IS INITIAL.

      • Subtract debit line items from ZFE002

      LOOP AT gt_outs_rel_checks ASSIGNING <fs_outs_rel_checks>.

      CLEAR wa_zcheck_monitor_collect.

      READ TABLE gt_zcheck_monitor_collect INTO wa_zcheck_monitor_collect

      WITH TABLE KEY zzbukr = <fs_outs_rel_checks>-bukrs

      zubhkt = <fs_outs_rel_checks>-hkont.

      IF sy-subrc = 0.

      <fs_outs_rel_checks>-dmbtr = wa_zcheck_monitor_collect-zrwbtr -

      <fs_outs_rel_checks>-dmbtr.

      ELSE.

      <fs_outs_rel_checks>-dmbtr = 0 - <fs_outs_rel_checks>-dmbtr.

      ENDIF.

      ENDLOOP.

      ENDIF.

      IF NOT gt_outs_unrel_checks[] IS INITIAL.

      • Subtract ZFE002 records from credit line items

      LOOP AT gt_outs_unrel_checks ASSIGNING <fs_outs_unrel_checks>.

      CLEAR wa_zcheck_monitor_collect.

      READ TABLE gt_zcheck_monitor_collect INTO wa_zcheck_monitor_collect

      WITH TABLE KEY zzbukr = <fs_outs_unrel_checks>-bukrs

      zubhkt = <fs_outs_unrel_checks>-hkont.

      IF sy-subrc = 0.

      <fs_outs_unrel_checks>-dmbtr = ABS( <fs_outs_unrel_checks>-dmbtr ) -

      ABS( wa_zcheck_monitor_collect-zrwbtr ).

      ENDIF.

      ENDLOOP.

      ENDIF.

      • Move records to output table

      CALL METHOD me->process_data.

      ENDMETHOD. "sum_gl_accounts

      • METHOD monday_routines

      METHOD monday_routines.

      wa_outs_trade_coll-bukrs = im_bukrs.

      wa_outs_trade_coll-hkont = im_hkont.

      CLEAR lv_date.

      CALL METHOD me->difference_in_days

      EXPORTING

      im_date = im_date

      im_budat = im_budat

      IMPORTING

      ex_diff = lv_date.

      • One day

      IF lv_date = 3.

      wa_outs_trade_coll-one_day = im_dmbtr.

      • Two days

      ELSEIF lv_date = 4.

      wa_outs_trade_coll-two_days = im_dmbtr.

      • More than two days

      ELSEIF lv_date > 4.

      wa_outs_trade_coll-more_than_two_days = im_dmbtr.

      ENDIF.

      COLLECT wa_outs_trade_coll INTO gt_outs_trade_coll.

      CLEAR wa_outs_trade_coll.

      ENDMETHOD. "monday_routines

      • METHOD sunday_routines

      METHOD sunday_routines.

      wa_outs_trade_coll-bukrs = im_bukrs.

      wa_outs_trade_coll-hkont = im_hkont.

      CLEAR lv_date.

      CALL METHOD me->difference_in_days

      EXPORTING

      im_date = im_date

      im_budat = im_budat

      IMPORTING

      ex_diff = lv_date.

      • One day

      IF lv_date = 2.

      wa_outs_trade_coll-one_day = im_dmbtr.

      • Two days

      ELSEIF lv_date = 3.

      wa_outs_trade_coll-two_days = im_dmbtr.

      • More than two days

      ELSEIF lv_date > 3.

      wa_outs_trade_coll-more_than_two_days = im_dmbtr.

      ENDIF.

      COLLECT wa_outs_trade_coll INTO gt_outs_trade_coll.

      CLEAR wa_outs_trade_coll.

      ENDMETHOD. "sunday_routines

      • METHOD tuesday_routines

      METHOD tuesday_routines.

      wa_outs_trade_coll-bukrs = im_bukrs.

      wa_outs_trade_coll-hkont = im_hkont.

      CLEAR lv_date.

      CALL METHOD me->difference_in_days

      EXPORTING

      im_date = im_date

      im_budat = im_budat

      IMPORTING

      ex_diff = lv_date.

      • One day

      IF lv_date = 1.

      wa_outs_trade_coll-one_day = im_dmbtr.

      • Two days

      ELSEIF lv_date = 4.

      wa_outs_trade_coll-two_days = im_dmbtr.

      • More than two days

      ELSEIF lv_date > 4.

      wa_outs_trade_coll-more_than_two_days = im_dmbtr.

      ENDIF.

      COLLECT wa_outs_trade_coll INTO gt_outs_trade_coll.

      CLEAR wa_outs_trade_coll.

      ENDMETHOD. "tuesday_routines

      • METHOD other_days_routines

      METHOD other_days_routines.

      wa_outs_trade_coll-bukrs = im_bukrs.

      wa_outs_trade_coll-hkont = im_hkont.

      CLEAR lv_date.

      CALL METHOD me->difference_in_days

      EXPORTING

      im_date = im_date

      im_budat = im_budat

      IMPORTING

      ex_diff = lv_date.

      • One day

      IF lv_date = 1.

      wa_outs_trade_coll-one_day = im_dmbtr.

      • Two days

      ELSEIF lv_date = 2.

      wa_outs_trade_coll-two_days = im_dmbtr.

      • More than two days

      ELSEIF lv_date > 3.

      wa_outs_trade_coll-more_than_two_days = im_dmbtr.

      ENDIF.

      COLLECT wa_outs_trade_coll INTO gt_outs_trade_coll.

      CLEAR wa_outs_trade_coll.

      ENDMETHOD. "other_days_routines

      • METHOD difference_in_days

      METHOD difference_in_days.

      CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'

      EXPORTING

      i_date_from = im_budat

      • I_KEY_DAY_FROM =

      i_date_to = im_date

      • I_KEY_DAY_TO =

      • I_FLG_SEPARATE = ' '

      IMPORTING

      e_days = ex_diff.

      • E_MONTHS =

      • E_YEARS =

      ENDMETHOD. "difference_in_days

      • METHOD outs_check_released

      METHOD outs_check_released.

      FIELD-SYMBOLS: <fs_zcheck_monitor> LIKE LINE OF gt_zcheck_monitor.

      SELECT zzbukr zhbkid zhktid

      zubhkt zrwbtr zrlsvd

      zrlsdt

      FROM zcheck_monitor

      INTO TABLE gt_zcheck_monitor

      WHERE zrlsvd <> space.

      IF NOT gt_zcheck_monitor[] IS INITIAL.

      LOOP AT gt_zcheck_monitor ASSIGNING <fs_zcheck_monitor>.

      MOVE-CORRESPONDING <fs_zcheck_monitor> TO wa_zcheck_monitor_collect.

      COLLECT wa_zcheck_monitor_collect INTO gt_zcheck_monitor_collect.

      CLEAR wa_zcheck_monitor_collect.

      ENDLOOP.

      ENDIF.

      ENDMETHOD. "outs_check_released

      • METHOD process_data

      METHOD process_data.

      FIELD-SYMBOLS: <fs_t012k> LIKE LINE OF gt_t012k,

      <fs_company> LIKE LINE OF gt_company,

      <fs_cash_in_bank> LIKE LINE OF gt_cash_in_bank,

      <fs_outs_trade_coll> LIKE LINE OF gt_outs_trade_coll,

      <fs_misc_collection> LIKE LINE OF gt_misc_collection,

      <fs_outs_rel_checks> LIKE LINE OF gt_outs_rel_checks,

      <fs_outs_unrel_checks> LIKE LINE OF gt_outs_unrel_checks.

      SORT gt_t012k BY bukrs hbkid.

      LOOP AT gt_t012k ASSIGNING <fs_t012k>.

      AT NEW hbkid.

      READ TABLE gt_company ASSIGNING <fs_company>

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs.

      IF sy-subrc = 0.

      wa_header-bukrs = <fs_company>-bukrs.

      wa_header-butxt = <fs_company>-butxt.

      wa_header-hbkid = <fs_t012k>-hbkid.

      • wa_header-hktid = <fs_t012k>-hktid.

      APPEND wa_header TO gt_header.

      CLEAR wa_header.

      ENDIF.

      ENDAT.

      wa_output-bukrs = <fs_t012k>-bukrs.

      wa_output-hbkid = <fs_t012k>-hbkid.

      wa_output-hktid = <fs_t012k>-hktid.

      • Move cash in bank

      READ TABLE gt_cash_in_bank ASSIGNING <fs_cash_in_bank>

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs

      hkont = <fs_t012k>-hkont.

      IF sy-subrc = 0.

      wa_output-cash_in_bank = <fs_cash_in_bank>-dmbtr.

      ADD wa_output-cash_in_bank TO wa_output-tot_cash_bal.

      ENDIF.

      CLEAR lv_hkont.

      lv_hkont = <fs_t012k>-hkont.

      ADD 1 TO lv_hkont.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

      EXPORTING

      input = lv_hkont

      IMPORTING

      output = lv_hkont.

      • Move outstanding trade collection(Deposit in transit)

      READ TABLE gt_outs_trade_coll ASSIGNING <fs_outs_trade_coll>

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs

      hkont = lv_hkont.

      IF sy-subrc = 0.

      wa_output-one_day = <fs_outs_trade_coll>-one_day.

      ADD wa_output-one_day TO wa_output-tot_cash_bal.

      wa_output-two_days = <fs_outs_trade_coll>-two_days.

      ADD wa_output-two_days TO wa_output-tot_cash_bal.

      wa_output-more_than_two_days = <fs_outs_trade_coll>-more_than_two_days.

      ADD wa_output-more_than_two_days TO wa_output-tot_cash_bal.

      ENDIF.

      • Move miscellaneous collection

      READ TABLE gt_misc_collection ASSIGNING <fs_misc_collection>

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs

      hkont = lv_hkont.

      IF sy-subrc = 0.

      wa_output-misc_collection = <fs_misc_collection>-dmbtr.

      ADD wa_output-misc_collection TO wa_output-tot_cash_bal.

      ENDIF.

      • Move outstanding released checks

      CLEAR lv_hkont.

      lv_hkont = <fs_t012k>-hkont.

      ADD 3 TO lv_hkont.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

      EXPORTING

      input = lv_hkont

      IMPORTING

      output = lv_hkont.

      READ TABLE gt_outs_rel_checks ASSIGNING <fs_outs_rel_checks>

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs

      hkont = lv_hkont.

      IF sy-subrc = 0.

      wa_output-outs_rel_checks = <fs_outs_rel_checks>-dmbtr.

      IF wa_output-outs_rel_checks < 0.

      ADD wa_output-outs_rel_checks TO wa_output-tot_cash_bal.

      ELSE.

      SUBTRACT wa_output-outs_rel_checks FROM wa_output-tot_cash_bal.

      ENDIF.

      ELSE.

      CLEAR wa_zcheck_monitor_collect.

      READ TABLE gt_zcheck_monitor_collect INTO wa_zcheck_monitor_collect

      WITH TABLE KEY zzbukr = <fs_t012k>-bukrs

      zubhkt = lv_hkont.

      IF sy-subrc = 0.

      wa_output-outs_rel_checks = wa_zcheck_monitor_collect-zrwbtr.

      IF wa_output-outs_rel_checks < 0.

      ADD wa_output-outs_rel_checks TO wa_output-tot_cash_bal.

      ELSE.

      SUBTRACT wa_output-outs_rel_checks FROM wa_output-tot_cash_bal.

      ENDIF.

      ENDIF.

      ENDIF.

      • Move outstanding unreleased checks

      CLEAR lv_hkont.

      lv_hkont = <fs_t012k>-hkont.

      ADD 3 TO lv_hkont.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

      EXPORTING

      input = lv_hkont

      IMPORTING

      output = lv_hkont.

      READ TABLE gt_outs_unrel_checks ASSIGNING <fs_outs_unrel_checks>

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs

      hkont = lv_hkont.

      IF sy-subrc = 0.

      wa_output-outs_unrel_checks = <fs_outs_unrel_checks>-dmbtr.

      ENDIF.

      • Move importation docs. due

      CLEAR wa_importation_docs_due.

      READ TABLE gt_importation_docs_due INTO wa_importation_docs_due

      WITH TABLE KEY bukrs = <fs_t012k>-bukrs

      hkont = lv_hkont

      TRANSPORTING dmbtr.

      IF sy-subrc = 0.

      wa_output-imp_docs_due = wa_importation_docs_due-dmbtr.

      ENDIF.

      wa_output-est_cash_balance = wa_output-tot_cash_bal - ( wa_output-outs_unrel_checks +

      wa_output-imp_docs_due ).

      APPEND wa_output TO gt_output.

      CLEAR wa_output.

      ENDLOOP.

      ENDMETHOD. "process_data

      ENDCLASS. "lcl_get_data IMPLEMENTATION

      ----


      • CLASS lcl_alv_routines IMPLEMENTATION

      ----


      *

      ----


      CLASS lcl_alv_routines IMPLEMENTATION.

      METHOD build_fieldcat.

      DEFINE m_fieldcat.

      add 1 to wa_fieldcat-col_pos.

      wa_fieldcat-fieldname = &1.

      wa_fieldcat-tabname = &2.

      wa_fieldcat-coltext = &3.

      wa_fieldcat-outputlen = &4.

      wa_fieldcat-key = &5.

      wa_fieldcat-just = &6.

      wa_fieldcat-do_sum = &7.

      wa_fieldcat-emphasize = &8.

      wa_fieldcat-edit = &9.

      append wa_fieldcat to gt_fieldcat.

      clear wa_fieldcat.

      END-OF-DEFINITION.

      m_fieldcat 'BUKRS' 'GT_OUTPUT' text-a01 '12' 'X' '' '' '' ''.

      m_fieldcat 'HBKID' 'GT_OUTPUT' text-a14 '10' 'X' '' '' '' ''.

      m_fieldcat 'HKTID' 'GT_OUTPUT' text-a02 '10' 'X' '' '' '' ''.

      m_fieldcat 'CASH_IN_BANK' 'GT_OUTPUT' text-a03 '12' '' 'R' 'X' '' ''.

      m_fieldcat 'ONE_DAY' 'GT_OUTPUT' text-a04 '05' '' 'R' 'X' '' ''.

      m_fieldcat 'TWO_DAYS' 'GT_OUTPUT' text-a05 '06' '' 'R' 'X' '' ''.

      m_fieldcat 'MORE_THAN_TWO_DAYS' 'GT_OUTPUT' text-a06 '08' '' 'R' 'X' '' ''.

      m_fieldcat 'MISC_COLLECTION' 'GT_OUTPUT' text-a07 '16' '' 'R' 'X' '' ''.

      m_fieldcat 'OUTS_REL_CHECKS' 'GT_OUTPUT' text-a08 '21' '' 'R' 'X' '' ''.

      m_fieldcat 'TREAS_TRANSACTIONS' 'GT_OUTPUT' text-a09 '19' '' 'R' 'X' '' 'X'.

      m_fieldcat 'TOT_CASH_BAL' 'GT_OUTPUT' text-a10 '15' '' 'R' 'X' 'C300' ''.

      m_fieldcat 'OUTS_UNREL_CHECKS' 'GT_OUTPUT' text-a11 '19' '' 'R' 'X' '' ''.

      m_fieldcat 'IMP_DOCS_DUE' 'GT_OUTPUT' text-a12 '14' '' 'R' 'X' '' ''.

      m_fieldcat 'EST_CASH_BALANCE' 'GT_OUTPUT' text-a13 '17' '' 'R' 'X' 'C300' ''.

      ENDMETHOD. "build_fieldcat

      METHOD sort_alv_display.

      DEFINE m_sort.

      clear gs_sort.

      gs_sort-fieldname = &1.

      gs_sort-spos = &2.

      gs_sort-up = &3.

      gs_sort-down = &4.

      gs_sort-subtot = &5.

      append gs_sort to gt_sort.

      END-OF-DEFINITION.

      m_sort 'BUKRS' '1' 'X' '' ''.

      m_sort 'HBKID' '2' 'X' '' 'X'.

      ENDMETHOD. "sort_alv_display

      ENDCLASS. "lcl_alv_routines IMPLEMENTATION

      ----


      • CLASS lcl_event_receiver IMPLEMENTATION

      ----


      *

      ----


      CLASS lcl_event_receiver IMPLEMENTATION.

      METHOD handle_data_changed.

      LOOP AT er_data_changed->mt_mod_cells INTO ls_good.

      CASE ls_good-fieldname.

      WHEN 'TREAS_TRANSACTIONS'.

      CLEAR lv_tot_cash_bal.

      CALL METHOD er_data_changed->get_cell_value

      EXPORTING

      i_row_id = ls_good-row_id

      i_fieldname = 'TOT_CASH_BAL'

      IMPORTING

      e_value = lv_tot_cash_bal.

      IF ls_good-value CA 'ABCDEFGHIJKLMNOPQRSTUVWXYZ/'.

      CALL METHOD er_data_changed->add_protocol_entry

      EXPORTING

      i_msgid = '0K'

      i_msgno = '000'

      i_msgty = 'E'

      i_msgv1 = text-e01

      i_msgv2 = ls_good-value

      i_msgv3 = text-e02

      i_fieldname = ls_good-fieldname

      i_row_id = ls_good-row_id.

      EXIT.

      ELSE.

      CLEAR lv_treas_transactions.

      lv_treas_transactions = ls_good-value.

      ADD lv_tot_cash_bal TO lv_treas_transactions.

      CALL METHOD er_data_changed->modify_cell

      EXPORTING

      i_row_id = ls_good-row_id

      i_fieldname = 'TOT_CASH_BAL'

      i_value = lv_treas_transactions.

      CLEAR lv_outs_unrel_checks.

      CALL METHOD er_data_changed->get_cell_value

      EXPORTING

      i_row_id = ls_good-row_id

      i_fieldname = 'OUTS_UNREL_CHECKS'

      IMPORTING

      e_value = lv_outs_unrel_checks.

      CLEAR lv_imp_docs_due.

      CALL METHOD er_data_changed->get_cell_value

      EXPORTING

      i_row_id = ls_good-row_id

      i_fieldname = 'IMP_DOCS_DUE'

      IMPORTING

      e_value = lv_imp_docs_due.

      lv_est_cash_balance = ls_good-value - ( lv_outs_unrel_checks +

      lv_imp_docs_due ).

      CALL METHOD er_data_changed->modify_cell

      EXPORTING

      i_row_id = ls_good-row_id

      i_fieldname = 'EST_CASH_BALANCE'

      i_value = lv_est_cash_balance.

      CLEAR lv_est_cash_balance.

      ENDIF.

      ENDCASE.

      ENDLOOP.

      ENDMETHOD. "handle_data_changed

      METHOD handle_top_of_page.

      WRITE: sy-repid.

      ENDMETHOD. "handle_top_of_page

      METHOD handle_top_of_list.

      WRITE: sy-repid.

      ENDMETHOD. "handle_top_of_list

      ENDCLASS. "lcl_event_receiver IMPLEMENTATION

      ----


      • START-OF-SELECTION *

      ----


      START-OF-SELECTION.

      DATA: o_lcl_get_data TYPE REF TO lcl_get_data.

      CREATE OBJECT o_lcl_get_data.

      CALL METHOD o_lcl_get_data->get_bank_details.

      ----


      • END-OF-SELECTION *

      ----


      END-OF-SELECTION.

      IF NOT gt_output[] IS INITIAL.

      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

      EXPORTING

      • PERCENTAGE = 0

      text = text-p01.

      CALL SCREEN 100.

      ELSE.

      MESSAGE i000 WITH text-i01.

      ENDIF.

      &----


      *& Module STATUS_0100 OUTPUT

      &----


      • text

      ----


      MODULE status_0100 OUTPUT.

      SET PF-STATUS 'MAIN100'.

      SET TITLEBAR 'MAIN100'.

      DATA: o_lcl_alv_routines TYPE REF TO lcl_alv_routines. "#EC *

      CREATE OBJECT o_lcl_alv_routines. "#EC

      g_repid = sy-repid.

      IF lcl_custom_container IS INITIAL.

      CREATE OBJECT lcl_custom_container

      EXPORTING

      container_name = gv_container

      EXCEPTIONS

      cntl_error = 1

      cntl_system_error = 2

      create_error = 3

      lifetime_error = 4

      lifetime_dynpro_dynpro_link = 5.

      IF sy-subrc NE 0.

      CALL FUNCTION 'POPUP_TO_INFORM'

      EXPORTING

      titel = g_repid

      txt2 = sy-subrc

      txt1 = text-004.

      ENDIF.

      CREATE OBJECT lcl_grid1

      EXPORTING

      i_parent = lcl_custom_container.

      gs_layout-stylefname = 'GS_CELLTAB'.

      • Build fieldcatalog for initial display

      CALL METHOD o_lcl_alv_routines->build_fieldcat.

      CALL METHOD o_lcl_alv_routines->sort_alv_display.

      gs_disvariant-report = sy-repid.

      • Display initial window

      CALL METHOD lcl_grid1->set_table_for_first_display

      EXPORTING

      • i_structure_name = ''

      is_layout = gs_layout

      i_save = 'A'

      is_variant = gs_disvariant

      CHANGING

      it_outtab = gt_output

      it_fieldcatalog = gt_fieldcat

      it_sort = gt_sort.

      • Set editable cells to ready for input

      CALL METHOD lcl_grid1->set_ready_for_input

      EXPORTING

      i_ready_for_input = 1.

      CALL METHOD lcl_grid1->register_edit_event

      EXPORTING

      i_event_id = cl_gui_alv_grid=>mc_evt_enter.

      CREATE OBJECT lcl_event_receiver.

      SET HANDLER lcl_event_receiver->handle_data_changed FOR lcl_grid1.

      SET HANDLER lcl_event_receiver->handle_top_of_page FOR lcl_grid1.

      SET HANDLER lcl_event_receiver->handle_top_of_list FOR lcl_grid1.

      ENDIF.

      CALL METHOD cl_gui_control=>set_focus

      EXPORTING

      control = lcl_grid1.

      ENDMODULE. " STATUS_0100 OUTPUT

      &----


      *& Module USER_COMMAND_0100 INPUT

      &----


      • text

      ----


      MODULE user_command_0100 INPUT.

      save_ok = ok_code.

      CASE save_ok.

      WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.

      CALL METHOD lcl_custom_container->free.

      CALL METHOD cl_gui_cfw=>flush.

      IF sy-subrc <> 0.

      CALL FUNCTION 'POPUP_TO_INFORM'

      EXPORTING

      titel = g_repid

      txt2 = sy-subrc

      txt1 = text-005.

      ENDIF.

      LEAVE TO SCREEN 0.

      ENDCASE.

      ENDMODULE. " USER_COMMAND_0100 INPUT

      [/code]

      Add a comment
      10|10000 characters needed characters exceeded

    • author's profile photo Former Member
      Former Member
      Posted on Nov 20, 2007 at 01:42 AM

      Hi,

      Check programs staring with SALV*. They are the sample programs of ALV using OO.

      Regards,

      Atish

      Add a comment
      10|10000 characters needed characters exceeded

    Before answering

    You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
    You must be Logged in to submit an answer.

    Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.