02-22-2024 2:26 AM - edited 02-22-2024 7:54 AM
When I execute this program, it excutes without error.
But when I try to search some BP,
Nothing Appear.
There is no differnt if I put some bp code or taxnumber in parameters.
Do I have to add some fields in SET_FIELDCATALOG??
*&---------------------------------------------------------------------*
*& Report ZFIR0111
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
INCLUDE ZFIR0111_TOP . " Global Data
INCLUDE ZFIR0111_O01 . " PBO-Modules
INCLUDE ZFIR0111_I01 . " PAI-Modules
INCLUDE ZFIR0111_F01 . " FORM-Routines
START-OF-SELECTION.
PERFORM get_data.
CALL SCREEN '100'.
*&---------------------------------------------------------------------*
*& Include ZFIR0111_TOP - Report ZFIR0111
*&---------------------------------------------------------------------*
REPORT ZFIR0111.
*----------------------------------------------------------------------*
* Tables
*----------------------------------------------------------------------*
TABLES : DFKKBPTAXNUM, KNA1, LFA1.
*----------------------------------------------------------------------*
* Internal Tables
*----------------------------------------------------------------------*
DATA: BEGIN OF gt_list OCCURS 0,
partner TYPE DFKKBPTAXNUM-partner,
taxtype TYPE DFKKBPTAXNUM-taxtype,
taxnum TYPE DFKKBPTAXNUM-taxnum,
kunnr TYPE KNA1-kunnr,
name1 TYPE KNA1-name1,
lifnr TYPE LFA1-lifnr,
mcod1 TYPE LFA1-mcod1,
END OF gt_list.
*----------------------------------------------------------------------*
* Alv Object
*----------------------------------------------------------------------*
DATA : ok_code LIKE sy-ucomm.
DATA : go_docking TYPE REF TO cl_gui_docking_container,
go_grid TYPE REF TO cl_gui_alv_grid,
gt_fcat TYPE lvc_t_fcat,
gs_layout TYPE lvc_s_layo.
*----------------------------------------------------------------------*
* Parameters
*----------------------------------------------------------------------*
SELECT-OPTIONS : s_part FOR DFKKBPTAXNUM-partner,
s_taxnum FOR DFKKBPTAXNUM-taxnum.
*&---------------------------------------------------------------------*
*& Include ZFIR0111_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '100'.
SET TITLEBAR '100'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SET_ALV OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE SET_ALV OUTPUT.
PERFORM set_alv.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Include ZFIR0111_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM GET_DATA.
FREE GT_LIST.
SELECT
D~PARTNER,
D~TAXTYPE,
D~TAXNUM,
K~KUNNR,
K~NAME1,
L~LIFNR,
L~MCOD1
FROM DFKKBPTAXNUM AS D
LEFT OUTER JOIN KNA1 AS K ON D~PARTNER = K~KUNNR
LEFT OUTER JOIN LFA1 AS L ON D~PARTNER = L~LIFNR
WHERE D~PARTNER IN @S_PART
AND D~TAXNUM IN @S_TAXNUM
INTO CORRESPONDING FIELDS OF @GT_LIST.
ENDSELECT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM SET_ALV .
IF go_grid IS INITIAL.
PERFORM create_object.
PERFORM set_fieldcatalog.
PERFORM set_layout.
PERFORM display_layout.
ELSE.
CALL METHOD go_grid->refresh_table_display.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CREATE_OBJECT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM CREATE_OBJECT .
CREATE OBJECT go_docking
EXPORTING
repid = sy-repid
dynnr = sy-dynnr
side = go_docking->dock_at_top
extension = 2000.
CREATE OBJECT go_grid
EXPORTING
i_parent = go_docking.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_FIELDCATALOG
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM SET_FIELDCATALOG .
DATA : ls_fcat TYPE lvc_s_fcat.
REFRESH gt_fcat.
CLEAR : ls_fcat.
ls_fcat-fieldname = 'PARTNER'.
ls_fcat-coltext = 'BP코드'.
ls_fcat-just = 'c'.
ls_fcat-outputlen = 6.
APPEND ls_fcat TO gt_fcat.
CLEAR : ls_fcat.
ls_fcat-fieldname = 'TAXTYPE'.
ls_fcat-coltext = '세금분류'.
ls_fcat-just = 'c'.
ls_fcat-outputlen = 3.
APPEND ls_fcat TO gt_fcat.
CLEAR : ls_fcat.
ls_fcat-fieldname = 'TAXNUM'.
ls_fcat-coltext = '세금번호'.
ls_fcat-just = 'c'.
ls_fcat-outputlen = 12.
APPEND ls_fcat TO gt_fcat.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_LAYOUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM SET_LAYOUT .
CLEAR gs_layout.
gs_layout-zebra = 'X'.
gs_layout-cwidth_opt = 'A'.
gs_layout-sel_mode = 'A'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISPLAY_LAYOUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM DISPLAY_LAYOUT .
CALL METHOD go_grid->set_table_for_first_display
EXPORTING
i_save = 'X'
i_default = 'X'
is_layout = gs_layout
CHANGING
it_outtab = gt_list[]
it_fieldcatalog = gt_fcat.
ENDFORM.
I upload my code in text
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
4 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.