*&---------------------------------------------------------------------*
*& Include ZFI_PAYROLL_TOP
*&---------------------------------------------------------------------*
TYPE-POOLS: slis,icon.
*Structure Declaration for Account Document Header Table.
*{ REPLACE CHDK900314 1
*\TABLES: PA0027, LFA1, BSEG, BKPF, zfi_gl_list_US, PA0185 .
TABLES: pa0027, lfa1, bseg, bkpf, zfi_gl_list_us, pa0185, zfi_gl_list_us2.
*} REPLACE
TYPES : BEGIN OF ty_up,
subty TYPE char30, "like PA0185-SUBTY," modify by chellam - 26.09.2015
* PERNR LIKE PA0027-PERNR,
name1 LIKE lfa1-name1,
* LIFNR LIKE LFA1-LIFNR,
budat TYPE char10,
* WAERS LIKE BKPF-WAERS, " CMD BY CHELLAM - 25.09.2015
* XBLNR LIKE BKPF-XBLNR," CMD BY CHELLAM - 25.09.2015
zuonr LIKE bseg-zuonr,
* SGTXT LIKE BSEG-SGTXT, " " CMD BY CHELLAM - 25.09.2015
spl_gl(16) TYPE c,
gl_1(16) TYPE c, "BSEG-WRBTR, "BAPIWRBTR,
gl_2(16) TYPE c,
gl_3(16) TYPE c,
gl_4(16) TYPE c,
gl_5(16) TYPE c,
gl_6(16) TYPE c,
gl_7(16) TYPE c,
gl_8(16) TYPE c,
gl_9(16) TYPE c,
gl_10(16) TYPE c,
gl_11(16) TYPE c,
gl_12(16) TYPE c,
gl_13(16) TYPE c,
gl_14(16) TYPE c,
gl_15(16) TYPE c,
gl_16(16) TYPE c,
gl_17(16) TYPE c,
gl_18(16) TYPE c,
gl_19(16) TYPE c,
gl_20(16) TYPE c,
********************** added by chellam - 28.09.2015
gl_21(16) TYPE c, "BSEG-WRBTR, "BAPIWRBTR,
gl_22(16) TYPE c,
gl_23(16) TYPE c,
gl_24(16) TYPE c,
gl_25(16) TYPE c,
gl_26(16) TYPE c,
gl_27(16) TYPE c,
gl_28(16) TYPE c,
gl_29(16) TYPE c,
gl_30(16) TYPE c,
gl_31(16) TYPE c,
gl_32(16) TYPE c,
gl_33(16) TYPE c,
gl_34(16) TYPE c,
gl_35(16) TYPE c,
gl_36(16) TYPE c,
gl_37(16) TYPE c,
gl_38(16) TYPE c,
gl_39(16) TYPE c,
gl_40(16) TYPE c,
gl_41(16) TYPE c,
gl_42(16) TYPE c,
gl_43(16) TYPE c,
gl_44(16) TYPE c,
gl_45(16) TYPE c,
********************** end of added by chellam - 28.09.2015
*{ INSERT CHDK900314 3
gl_46(16) TYPE c,
gl_47(16) TYPE c,
gl_48(16) TYPE c,
gl_49(16) TYPE c,
gl_50(16) TYPE c,
gl_51(16) TYPE c,
gl_52(16) TYPE c,
gl_53(16) TYPE c,
gl_54(16) TYPE c,
gl_55(16) TYPE c,
gl_56(16) TYPE c,
gl_57(16) TYPE c,
gl_58(16) TYPE c,
gl_59(16) TYPE c,
gl_60(16) TYPE c,
gl_61(16) TYPE c,
gl_62(16) TYPE c,
gl_63(16) TYPE c,
gl_64(16) TYPE c,
gl_65(16) TYPE c,
gl_66(16) TYPE c,
gl_67(16) TYPE c,
gl_68(16) TYPE c,
gl_69(16) TYPE c,
gl_70(16) TYPE c,
gl_71(16) TYPE c,
gl_72(16) TYPE c,
gl_73(16) TYPE c,
gl_74(16) TYPE c,
gl_75(16) TYPE c,
*} INSERT
END OF ty_up.
TYPES: BEGIN OF ty_gl_list,
gl_coloum_no TYPE zfi_gl_list_us-gl_coloum_no,
saknr TYPE zfi_gl_list_us-saknr,
END OF ty_gl_list.
* Structure Declaration for Uploading file.
TYPES : BEGIN OF ty_upload,
rec(2500) TYPE c,
END OF ty_upload.
DATA: lv_kbu01 LIKE pa0027-kbu01,
lv_kst01 LIKE pa0027-kst01,
lv_pernr LIKE pa0185-pernr,
lv_icnum LIKE pa0185-icnum.
************ ADDED BY CHELLAM - 31.05.2016
DATA : lv_bukrs TYPE mseg-bukrs.
TYPES : BEGIN OF ty_icnum,
pernr TYPE pa0185-pernr,
icnum TYPE pa0185-icnum,
END OF ty_icnum.
DATA : it_icnum TYPE TABLE OF ty_icnum,
wa_icnum TYPE ty_icnum.
TYPES : BEGIN OF ty_bukrs,
pernr type pa0027-pernr,
kbu01 LIKE pa0027-kbu01,
kst01 LIKE pa0027-kst01,
END OF ty_bukrs.
DATA : it_bukrs TYPE TABLE OF ty_bukrs,
wa_bukrs TYPE ty_bukrs.
************ END OF ADDED BY CHELLAM - 31.05.2016
DATA :w_periv(2),
w_mjahr(4),
lv_date_in(10) ,
lv_date_out TYPE sy-datum.
******** added by chellam - 25.09.2015
DATA : lv_day TYPE char2,
lv_month TYPE char2,
lv_year TYPE char4.
******** end of added by chellam - 25.09.2015
TYPES : BEGIN OF ty_msg_str,
sno TYPE i,
msg TYPE string,
belnr TYPE bseg-belnr,
END OF ty_msg_str .
TYPES : BEGIN OF ty_msg,
sta TYPE icon-id,
sno TYPE i,
belnr TYPE bseg-belnr,
message TYPE string,
END OF ty_msg.
DATA : gt_fmsg TYPE TABLE OF ty_msg_str,
gs_fmsg TYPE ty_msg_str.
DATA : gt_upload TYPE TABLE OF ty_upload,
lv_filename TYPE string,
gt_raw TYPE truxs_t_text_data,
gt_tab TYPE TABLE OF ty_up,
gs_tab TYPE ty_up,
gt_msg TYPE TABLE OF ty_msg,
gs_msg TYPE ty_msg,
gt_gl_list TYPE TABLE OF ty_gl_list,
gs_gl_list TYPE ty_gl_list,lv_ind TYPE i .
DATA : gt_return TYPE TABLE OF bapiret2,
gt_return1 TYPE TABLE OF bapiret2,
gs_return LIKE LINE OF gt_return,
gt_accountgl TYPE TABLE OF bapiacgl09,
gs_accountgl LIKE LINE OF gt_accountgl,
gt_accountpayable TYPE TABLE OF bapiacap09,
gs_accountpayable LIKE LINE OF gt_accountpayable,
gt_accountreceivable TYPE TABLE OF bapiacar09,
gs_accountreceivable LIKE LINE OF gt_accountreceivable,
gt_cur TYPE TABLE OF bapiaccr09,
gs_cur LIKE LINE OF gt_cur,
gs_head TYPE bapiache09,
gt_extention TYPE TABLE OF bapiextc,
gs_extention TYPE bapiextc,
gv_amt TYPE char20,
gv_acc TYPE sy-tabix,
lv_itemno(4) TYPE c,
lv_indicator(1) TYPE c,
obj_type TYPE bapiache02-obj_type,
obj_key TYPE bapiache02-obj_key,
obj_sys TYPE bapiache02-obj_sys, it_extension1 TYPE STANDARD TABLE OF bapiacextc,
wa_extension1 TYPE bapiacextc...
DATA : gt_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
gt_layout TYPE lvc_s_layo,
gs_layout TYPE slis_layout_alv.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
* SELECTION-SCREEN BEGIN OF LINE.
* SELECTION-SCREEN COMMENT 1(31) FOR FIELD R1.
* PARAMETERS R1 RADIOBUTTON GROUP RAD1 USER-COMMAND UCOM DEFAULT 'X'.
* SELECTION-SCREEN END OF LINE.
*
* SELECTION-SCREEN BEGIN OF LINE.
* SELECTION-SCREEN COMMENT 1(31) FOR FIELD R2.
* PARAMETERS R2 RADIOBUTTON GROUP RAD1 .
* SELECTION-SCREEN END OF LINE.
PARAMETERS p_file LIKE rlgrap-filename DEFAULT ' ' MODIF ID cc.
* PARAMETERS P_FILE1 LIKE RLGRAP-FILENAME DEFAULT 'C:\' MODIF ID DD.
SELECTION-SCREEN END OF BLOCK b2.
*{ INSERT CHDK900314 2
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-004.
PARAMETERS : p_us1 RADIOBUTTON GROUP r1 DEFAULT 'X' USER-COMMAND us,
p_us2 RADIOBUTTON GROUP r1.
SELECTION-SCREEN END OF BLOCK b3.
*} INSERT
AT SELECTION-SCREEN OUTPUT.
*LOOP AT SCREEN.
* CASE SCREEN-GROUP1.
* WHEN 'CC'.
* IF R1 = 'X'.
* SCREEN-ACTIVE = 1.
** SCREEN-REQUIRED = 1.
* MODIFY SCREEN.
* ELSE.
* SCREEN-ACTIVE = 0.
** SCREEN-REQUIRED = 0.
* MODIFY SCREEN.
* ENDIF.
*
* WHEN 'DD'.
* IF R2 = 'X'.
* SCREEN-ACTIVE = 1.
** SCREEN-REQUIRED = 1.
* MODIFY SCREEN.
* ELSE.
* SCREEN-ACTIVE = 0.
** SCREEN-REQUIRED = 0.
* MODIFY SCREEN.
* ENDIF.
* ENDCASE.
*ENDLOOP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
* PROGRAM_NAME = SYST-CPROG
* DYNPRO_NUMBER = SYST-DYNNR
field_name = 'P_FILE '
IMPORTING
file_name = p_file.
No comments:
Post a Comment