on 06-30-2017 12:02 PM
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
REPORT zr_voucher_fi.
TABLES: bkpf, bseg, kna1,t005u,mvkt,bset.
SELECTION-SCREEN : BEGIN OF BLOCK b1.
PARAMETERS: kunnr TYPE kna1-kunnr OBLIGATORY,
bukrs TYPE bkpf-bukrs OBLIGATORY,
gjahr TYPE bkpf-gjahr OBLIGATORY,
umskz TYPE bseg-umskz.
SELECTION-SCREEN : END OF BLOCK b1.
TYPES: BEGIN OF ty_bset,
hwbas TYPE bset-hwbas,
kbetr TYPE bset-kbetr,
hwste TYPE bset-hwste,
kschl TYPE bset-kschl,
s_hwste TYPE bset-hwste,
p_hwste TYPE bset-hwste,
p_kbetr TYPE bset-kbetr,
s_kbetr TYPE bset-kbetr,
END OF ty_bset.
DATA: it_bset TYPE STANDARD TABLE OF ty_bset WITH HEADER LINE,
wa_bset TYPE ty_bset.
TYPES: BEGIN OF ty_bseg,
belnr TYPE bseg-belnr,
bukrs TYPE bseg-bukrs,
gjahr TYPE bseg-gjahr,
umskz TYPE bseg-umskz,
plc_sup TYPE bseg-plc_sup,
hsn_sac TYPE bseg-hsn_sac,
dmbtr TYPE bseg-dmbtr,
END OF ty_bseg.
DATA: it_bseg TYPE STANDARD TABLE OF ty_bseg WITH HEADER LINE,
wa_bseg TYPE ty_bseg.
TYPES: BEGIN OF ty_kna1,
name1 TYPE kna1-name1,
ort01 TYPE kna1-ort01,
kunnr TYPE kna1-kunnr,
stras TYPE kna1-stras,
adrnr TYPE kna1-adrnr,
mcod3 TYPE kna1-mcod3,
stcd3 TYPE kna1-stcd3,
regio TYPE kna1-regio,
END OF ty_kna1.
DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1 WITH HEADER LINE,
wa_kna1 TYPE ty_kna1.
TYPES: BEGIN OF ty_final,
belnr TYPE bseg-belnr,
name1 TYPE kna1-name1,
ort01 TYPE kna1-ort01,
kunnr TYPE kna1-kunnr,
stras TYPE kna1-stras,
adrnr TYPE kna1-adrnr,
mcod3 TYPE kna1-mcod3,
stcd3 TYPE kna1-stcd3,
regio TYPE kna1-regio,
bland TYPE t005u-bland,
matnr TYPE mvkt-matnr,
hwbas TYPE bset-hwbas,
kbetr TYPE bset-kbetr,
s_kbetr TYPE bset-kbetr,
s_ktosl TYPE bset-ktosl,
hwste TYPE bset-hwste,
s_hwste TYPE bset-hwste,
p_hwste TYPE bset-hwste,
p_kbetr TYPE bset-kbetr,
plc_sup TYPE bseg-plc_sup,
hsn_sac TYPE bseg-hsn_sac,
dmbtr TYPE bseg-dmbtr,
END OF ty_final.
DATA : fm_name TYPE rs38l_fnam, " Name of the Function Module
fp_docparams TYPE sfpdocparams,
fp_outputparams TYPE sfpoutputparams.
DATA: it_final TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,
wa_final TYPE ty_final.
DATA: it_t005u TYPE STANDARD TABLE OF t005u WITH HEADER LINE,
wa_t005u TYPE t005u.
DATA: it_mvkt TYPE STANDARD TABLE OF mvkt WITH HEADER LINE,
wa_mvkt TYPE mvkt.
START-OF-SELECTION.
SELECT belnr
plc_sup
hsn_sac
dmbtr
kunnr
FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE kunnr EQ kunnr AND
bukrs EQ bukrs AND
gjahr EQ gjahr.
IF it_bseg[] IS NOT INITIAL.
SELECT hwbas
kbetr
hwste
FROM bset INTO CORRESPONDING FIELDS OF TABLE it_bset
FOR ALL ENTRIES IN it_bseg
WHERE belnr = it_bseg-belnr.
SELECT name1
ort01
stras
adrnr
mcod3
stcd3
regio
FROM kna1 INTO CORRESPONDING FIELDS OF TABLE it_kna1
WHERE kunnr EQ kunnr.
SELECT SINGLE bland FROM t005u INTO wa_t005u.
SELECT SINGLE matnr FROM mvkt INTO wa_mvkt.
READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JISG '.
wa_bset-hwste = wa_bset-hwste. " CGST
wa_bset-kbetr = wa_bset-kbetr.
READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JICG '.
wa_bset-s_hwste = wa_bset-hwste. "sgst
wa_bset-s_kbetr = wa_bset-kbetr.
READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JIIG '.
wa_bset-p_hwste = wa_bset-hwste. "igst
wa_bset-p_kbetr = wa_bset-kbetr.
APPEND: wa_bset TO it_bset.
CLEAR: wa_bset.
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZR_VOUCHER_FI'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
CALL FUNCTION fm_name
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
mm_it_bset = it_bset
mm_it_bseg = it_bseg
mm_it_kna1 = it_kna1
mm_wa_t005u = wa_t005u
mm_wa_mvkt = wa_mvkt
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
REPORT zr_voucher_fi.
TABLES: bkpf, bseg, kna1,t005u,mvkt,bset.
SELECTION-SCREEN : BEGIN OF BLOCK b1.
PARAMETERS: kunnr TYPE kna1-kunnr OBLIGATORY,
bukrs TYPE bkpf-bukrs OBLIGATORY,
gjahr TYPE bkpf-gjahr OBLIGATORY,
umskz TYPE bseg-umskz.
SELECTION-SCREEN : END OF BLOCK b1.
TYPES: BEGIN OF ty_bset,
hwbas TYPE bset-hwbas,
kbetr TYPE bset-kbetr,
hwste TYPE bset-hwste,
kschl TYPE bset-kschl,
s_hwste TYPE bset-hwste,
p_hwste TYPE bset-hwste,
p_kbetr TYPE bset-kbetr,
s_kbetr TYPE bset-kbetr,
END OF ty_bset.
DATA: it_bset TYPE STANDARD TABLE OF ty_bset WITH HEADER LINE,
wa_bset TYPE ty_bset.
TYPES: BEGIN OF ty_bseg,
belnr TYPE bseg-belnr,
bukrs TYPE bseg-bukrs,
gjahr TYPE bseg-gjahr,
umskz TYPE bseg-umskz,
plc_sup TYPE bseg-plc_sup,
hsn_sac TYPE bseg-hsn_sac,
dmbtr TYPE bseg-dmbtr,
END OF ty_bseg.
DATA: it_bseg TYPE STANDARD TABLE OF ty_bseg WITH HEADER LINE,
wa_bseg TYPE ty_bseg.
TYPES: BEGIN OF ty_kna1,
name1 TYPE kna1-name1,
ort01 TYPE kna1-ort01,
kunnr TYPE kna1-kunnr,
stras TYPE kna1-stras,
adrnr TYPE kna1-adrnr,
mcod3 TYPE kna1-mcod3,
stcd3 TYPE kna1-stcd3,
regio TYPE kna1-regio,
END OF ty_kna1.
DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1 WITH HEADER LINE,
wa_kna1 TYPE ty_kna1.
TYPES: BEGIN OF ty_final,
belnr TYPE bseg-belnr,
name1 TYPE kna1-name1,
ort01 TYPE kna1-ort01,
kunnr TYPE kna1-kunnr,
stras TYPE kna1-stras,
adrnr TYPE kna1-adrnr,
mcod3 TYPE kna1-mcod3,
stcd3 TYPE kna1-stcd3,
regio TYPE kna1-regio,
bland TYPE t005u-bland,
matnr TYPE mvkt-matnr,
hwbas TYPE bset-hwbas,
kbetr TYPE bset-kbetr,
s_kbetr TYPE bset-kbetr,
s_ktosl TYPE bset-ktosl,
hwste TYPE bset-hwste,
s_hwste TYPE bset-hwste,
p_hwste TYPE bset-hwste,
p_kbetr TYPE bset-kbetr,
plc_sup TYPE bseg-plc_sup,
hsn_sac TYPE bseg-hsn_sac,
dmbtr TYPE bseg-dmbtr,
END OF ty_final.
DATA : fm_name TYPE rs38l_fnam, " Name of the Function Module
fp_docparams TYPE sfpdocparams,
fp_outputparams TYPE sfpoutputparams.
DATA: it_final TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,
wa_final TYPE ty_final.
DATA: it_t005u TYPE STANDARD TABLE OF t005u WITH HEADER LINE,
wa_t005u TYPE t005u.
DATA: it_mvkt TYPE STANDARD TABLE OF mvkt WITH HEADER LINE,
wa_mvkt TYPE mvkt.
START-OF-SELECTION.
SELECT belnr
plc_sup
hsn_sac
dmbtr
kunnr
FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE kunnr EQ kunnr AND
bukrs EQ bukrs AND
gjahr EQ gjahr.
IF it_bseg[] IS NOT INITIAL.
SELECT hwbas
kbetr
hwste
FROM bset INTO CORRESPONDING FIELDS OF TABLE it_bset
FOR ALL ENTRIES IN it_bseg
WHERE belnr = it_bseg-belnr.
SELECT name1
ort01
stras
adrnr
mcod3
stcd3
regio
FROM kna1 INTO CORRESPONDING FIELDS OF TABLE it_kna1
WHERE kunnr EQ kunnr.
SELECT SINGLE bland FROM t005u INTO wa_t005u.
SELECT SINGLE matnr FROM mvkt INTO wa_mvkt.
READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JISG '.
wa_bset-hwste = wa_bset-hwste. " CGST
wa_bset-kbetr = wa_bset-kbetr.
READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JICG '.
wa_bset-s_hwste = wa_bset-hwste. "sgst
wa_bset-s_kbetr = wa_bset-kbetr.
READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JIIG '.
wa_bset-p_hwste = wa_bset-hwste. "igst
wa_bset-p_kbetr = wa_bset-kbetr.
APPEND: wa_bset TO it_bset.
CLEAR: wa_bset.
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZR_VOUCHER_FI'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
CALL FUNCTION fm_name
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
mm_it_bset = it_bset
mm_it_bseg = it_bseg
mm_it_kna1 = it_kna1
mm_wa_t005u = wa_t005u
mm_wa_mvkt = wa_mvkt
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
More or less useless to paste all your coding without the actual dump.... ¿?¿? What is it we are supposed to do?
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
101 | |
13 | |
13 | |
11 | |
11 | |
7 | |
6 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.