-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathZCL_ZOUTSTANDING_DPC_EXT~SFORMSET_GET_ENTITY.txt
114 lines (101 loc) · 3.28 KB
/
ZCL_ZOUTSTANDING_DPC_EXT~SFORMSET_GET_ENTITY.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
METHOD sformset_get_entity.
**TRY.
*CALL METHOD SUPER->SFORMSET_GET_ENTITY
* EXPORTING
* IV_ENTITY_NAME =
* IV_ENTITY_SET_NAME =
* IV_SOURCE_NAME =
* IT_KEY_TAB =
** io_request_object =
** io_tech_request_context =
* IT_NAVIGATION_PATH =
** IMPORTING
** er_entity =
** es_response_context =
* .
** CATCH /iwbep/cx_mgw_busi_exception.
** CATCH /iwbep/cx_mgw_tech_exception.
**ENDTRY.
DATA: input TYPE string,
w_bukrs TYPE selopt,
s_bukrs TYPE TABLE OF selopt,
w_cust TYPE selopt,
s_cust TYPE TABLE OF selopt,
w_date TYPE selopt,
i_date TYPE TABLE OF selopt,
print_parameters TYPE pri_params,
valid_flag TYPE char1,
gv_rqident TYPE rspoid,
gv_spool_nr TYPE tsp01-rqident,
gt_pdf_file TYPE xstring.
input = it_key_tab[ 1 ]-value.
w_date-sign = 'I'.
w_date-option = 'CP'.
CONCATENATE sy-datum '*' INTO w_date-low.
APPEND w_date TO i_date.
w_bukrs-sign = 'I'.
w_bukrs-option = 'EQ'.
w_bukrs-low = 'R001'.
APPEND w_bukrs TO s_bukrs.
w_cust-sign = 'I'.
w_cust-option = 'EQ'.
w_cust-low = input.
APPEND w_cust TO s_cust.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
copies = 1
destination = 'LOCL'(015)
expiration = 1
immediately = ' '
new_list_id = 'X'
no_dialog = 'X'
IMPORTING
out_parameters = print_parameters
valid = valid_flag
EXCEPTIONS
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
OTHERS = 4.
print_parameters-plist = 'ZWA_OUTST'.
SUBMIT zfi_oustanding_openitems1_new TO SAP-SPOOL
SPOOL PARAMETERS print_parameters
WITHOUT SPOOL DYNPRO
WITH c2 EQ 'X'
WITH ch1 EQ 'X'
WITH ch2 EQ 'X'
WITH s_bukrs IN s_bukrs
WITH s_cust IN s_cust
AND RETURN.
WAIT UP TO 1 SECONDS.
SELECT MAX( rqident ) FROM tsp01 INTO gv_rqident
WHERE rqclient = sy-mandt
AND rqowner = sy-uname
AND rqcretime IN i_date
AND rq2name EQ 'ZWA_OUTST'.
gv_spool_nr = gv_rqident.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = gv_spool_nr
no_dialog = ' '
pdf_destination = 'X'
IMPORTING
bin_file = gt_pdf_file
EXCEPTIONS
err_no_abap_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_destdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11
OTHERS = 12.
IF sy-subrc EQ 0.
er_entity-output = gt_pdf_file.
ENDIF.
er_entity-input = input.
ENDMETHOD.