Blog for Sap Abap

BAPI Report for uploading data from legacy system: Part II

joelsandeep — Fri, 19 Dec 2008 16:07:35 +0000

var gaJsHost = ((“https:” == document.location.protocol) ? “https://ssl.” : “http://www.”);
document.write(unescape(“%3Cscript src=’” + gaJsHost + “google-analytics.com/ga.js’ type=’text/javascript’%3E%3C/script%3E”));

try {
var pageTracker = _gat._getTracker(“UA-6282860-2″);
pageTracker._trackPageview();
} catch(err) {}

Save Report Output to a PDF File

joelsandeep — Tue, 18 Nov 2008 10:08:41 +0000

Your Ad Here

This report takes another report as input, and captures the output of that report. The output is then converted to PDF and saved to a local file. This shows how to use some of the PDF function modules, as well as an easy way to create PDF files.

One thing I am not thrilled about is how the spool number is retrieved. If anyone has any better method, please let me know! Until I actually have a production use for a program like this, I will not try to find a better way.

Source Code Listing
report zabap_2_pdf.
*– Enhancements: only allow to be run with variant. Then called
*– program will be transparent to users
*– TABLES

tables: tsp01.
*– STRUCTURES
data:
mstr_print_parms like pri_params,
mc_valid(1) type c,
mi_bytecount type i,
mi_length type i,
mi_rqident like tsp01-rqident.

*– INTERNAL TABLES
data:
mtab_pdf like tline occurs 0 with header line,
mc_filename like rlgrap-filename.
*– SELECTION SCREEN
parameters:
p_repid like sy-repid, ” Report to execute
p_linsz like sy-linsz default 132, ” Line size
p_paart like sy-paart default ‘X_65_132′. ” Paper Format
start-of-selection.
concatenate ‘c:\’
p_repid
‘.pdf’
into mc_filename.
*– Setup the Print Parmaters
call function ‘GET_PRINT_PARAMETERS’
exporting
authority= space
copies = ’1′
cover_page = space
data_set = space
department = space
destination = space
expiration = ’1′
immediately = space
in_archive_parameters = space
in_parameters = space
layout = space
mode = space
new_list_id = ‘X’
no_dialog= ‘X’
user = sy-uname
importing
out_parameters = mstr_print_parms
valid = mc_valid
exceptions
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
others = 4.
*– Make sure that a printer destination has been set up
*– If this is not done the PDF function module ABENDS
if mstr_print_parms-pdest = space.
mstr_print_parms-pdest = ‘LOCL’.
endif.
*– Explicitly set line width, and output format so that
*– the PDF conversion comes out OK
mstr_print_parms-linsz = p_linsz.
mstr_print_parms-paart = p_paart.
submit (p_repid) to sap-spool without spool dynpro
spool parameters mstr_print_parms
via selection-screen
and return.
*– Find out what the spool number is that was just created
perform get_spool_number using sy-repid
sy-uname
changing mi_rqident.

*– Convert Spool to PDF
call function ‘CONVERT_ABAPSPOOLJOB_2_PDF’
exporting
src_spoolid= mi_rqident
no_dialog = space
dst_device = mstr_print_parms-pdest
importing
pdf_bytecount = mi_bytecount
tables
pdf = mtab_pdf
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.
call function ‘DOWNLOAD’
exporting
bin_filesize = mi_bytecount
filename = mc_filename
filetype = ‘BIN’
importing
act_filename = mc_filename
tables
data_tab = mtab_pdf.

*———————————————————————*
* FORM get_spool_number *
*———————————————————————*
* Get the most recent spool created by user/report *
*———————————————————————*
* –> F_REPID *
* –> F_UNAME *
* –> F_RQIDENT *
*———————————————————————*
form get_spool_number using f_repid
f_uname
changing f_rqident.
data:
lc_rq2name like tsp01-rq2name.
concatenate f_repid+0(8)
f_uname+0(3)
into lc_rq2name separated by ‘_’.
select * from tsp01 where rq2name = lc_rq2name
order by rqcretime descending.
f_rqident = tsp01-rqident.
exit.
endselect.
if sy-subrc ne 0.
clear f_rqident.
endif.
endform.” get_spool_number

ABAP Program to check for holidays using the factory calendar

joelsandeep — Tue, 18 Nov 2008 09:57:32 +0000

REPORT Z_CONECT_A.

* ABAP Program to check for holidays using the factory calendar
* include zday .
* substitute tdate = ‘yyyymmdd’.
* tholiday_found = ‘X’ -> Holiday

TABLES THOCS.

DATA: BEGIN OF INT_THOCS OCCURS 100,
THOCS LIKE THOCS.
DATA: END OF INT_THOCS.

DATA: TDAY(1),
* TDATE LIKE SY-DATUM,
THOLIDAY_ATTRIBUTES,
THOLIDAY_FOUND(1).

PARAMETERS: P_DATE LIKE SY-DATUM DEFAULT SY-DATUM.

*&——- Selection ————————
START-OF-SELECTION.

PERFORM HOLIDAY.

FORM HOLIDAY.
CALL FUNCTION ‘HOLIDAY_CHECK_AND_GET_INFO’
EXPORTING
DATE = P_DATE
HOLIDAY_CALENDAR_ID = ‘XX’
* WITH_HOLIDAY_ATTRIBUTES = ‘ ‘
IMPORTING
HOLIDAY_FOUND = THOLIDAY_FOUND
TABLES
HOLIDAY_ATTRIBUTES = INT_THOCS
EXCEPTIONS
CALENDAR_BUFFER_NOT_LOADABLE = 1
DATE_AFTER_RANGE = 2
DATE_BEFORE_RANGE = 3
DATE_INVALID = 4
HOLIDAY_CALENDAR_ID_MISSING = 5
HOLIDAY_CALENDAR_NOT_FOUND = 6
OTHERS = 7.
CALL FUNCTION ‘DATE_COMPUTE_DAY’
EXPORTING
DATE = P_DATE
IMPORTING
DAY = TDAY
EXCEPTIONS
OTHERS = 1.

* For checking.
if tholiday_found = ‘X’.
write: /1 ‘Holiday ‘, P_DATE.
else.
write: /1 ‘Not Holiday ‘, P_DATE.
endif.

case sy-subrc.
when 0.
write: /1 P_DATE, ‘is’, tday, ‘day of the week.’.
when others.
write: /1 ‘Unknown day ‘, P_DATE.
endcase.

ENDFORM.

Report for Selection Screen Output

joelsandeep — Tue, 18 Nov 2008 07:53:27 +0000

report tabbed_sel_screen.
*– Definitions to hold user command for subscreens
data:
ucomm1 like sy-ucomm,
ucomm2 like sy-ucomm,
ucomm3 like sy-ucomm.
*– Macro to put checkbox on selection screen
*– &1 – checbox parameter name
*– &2 – text element (description)
*– &3 – default value for checkbox
define make_checkbox.
selection-screen begin of line.
parameters: &1 as checkbox default &3.
selection-screen comment 3(60) &2.
selection-screen end of line.
end-of-definition.
*– Macro to put radiobutton on selection screen
*– &1 – radiobutton parameter name
*– &2 – text element (description)
*– &3 – radiobutton group
define make_radiobutton.
selection-screen begin of line.
parameters: &1 radiobutton group &3.
selection-screen comment 3(60) &2.
selection-screen end of line.
end-of-definition.
*– Macro to put a parameter on selection screen
*– &1 – parameter name
*– &2 – text element (description)
*– &3 – like data element
*– &4 – default value
define make_parameter.
selection-screen begin of line.
selection-screen comment 1(30) &2.
selection-screen position pos_low.
parameters: &1 like &3 default &4.
selection-screen end of line.
end-of-definition.
*– Macro to put a dropdown listbox on selection screen
*– &1 – parameter name
*– &2 – length of listbox
*– &3 – default value
*– &4 – text element (description)
define make_dropdown.
selection-screen begin of line.
selection-screen comment 1(30) &4.
selection-screen position pos_low.
parameters: &1 as listbox visible length &2 default &3 obligatory.
selection-screen end of line.
end-of-definition.
*– Define subscreen for upload options
selection-screen begin of screen 1100 as subscreen.
selection-screen begin of block file_options with frame.
make_parameter p_filein fil_desc rlgrap-filename ‘/filename.txt’.
make_radiobutton rb_unix unx_desc src.
make_radiobutton rb_local dos_desc src.
make_parameter p_filety typ_desc rlgrap-filetype ‘DAT’.
selection-screen end of block file_options.
selection-screen end of screen 1100.

NIIT Training

*– Define subscreen for BDC/CT Processing Options
selection-screen begin of screen 1200 as subscreen.
selection-screen begin of block bdc_options with frame.
make_radiobutton rb_callt ctr_desc typ.
make_radiobutton rb_bdc bdc_desc typ.
make_dropdown p_mode(1) 30 ‘N’ mod_desc.
make_dropdown p_uptyp(1) 30 ‘S’ upd_desc.
selection-screen end of block bdc_options.
selection-screen end of screen 1200.
*– Define subscreen for Output Options
selection-screen begin of screen 1300 as subscreen.
selection-screen begin of block output_opts with frame.
make_checkbox c_detail det_desc ‘ ‘.
make_checkbox c_error err_desc ‘X’.
make_checkbox c_stats sta_desc ‘X’.
selection-screen end of block output_opts.
selection-screen end of screen 1300.
*– Define Main Selection screen that will incorporate the subscreens
selection-screen begin of tabbed block tabs for 10 lines.
selection-screen tab (15) tabs1 user-command ucomm1
default screen 1100.
selection-screen tab (30) tabs2 user-command ucomm2
default screen 1200.
selection-screen tab (15) tabs3 user-command ucomm3
default screen 1300.
selection-screen end of block tabs.
*– Fill the dropdown list boxes before displaying them
at selection-screen output.
perform fill_dropdown_list using ‘P_MODE’.
perform fill_dropdown_list using ‘P_UPTYP’.
at selection-screen on value-request for p_filein.
perform choose_filename using p_filein
changing p_filein.
initialization.
tabs1 = ‘Upload Options’.
tabs2 = ‘BDC/Call Transaction Options’.
tabs3 = ‘Output Options’.
*– Setup descriptions for Selection Screen items
err_desc = ‘Show Errors (Call Transaction Only)’.
det_desc = ‘Show details on records being processed’.
sta_desc = ‘Show statistics on what has been processed’.
unx_desc = ‘File is on App Server (unix)’.
dos_desc = ‘File is on Presentation Server (pc)’.
typ_desc = ‘File Type’..
fil_desc = ‘Name of File’.
ctr_desc = ‘Process in Call Transaction Mode’.
bdc_desc = ‘Process in BDC Mode’.
mod_desc = ‘Transaction Processing Mode’.
upd_desc = ‘Update Type’.
start-of-selection.
*– Open input file or Read data from database tables
end-of-selection.
*– Loop at data, and create BDC/Call Transactions
*———————————————————————*
* FORM fill_dropdown_list *
*———————————————————————*
* Populate the dropdown list for the parameter provided *
*———————————————————————*
* –> VALUE(F_PARAMETER) *
*———————————————————————*
form fill_dropdown_list using value(f_parameter).
type-pools: vrm. ” For parameter drop down lists
*– Definitions for parameter drop down lists
data:
name type vrm_id,
list type vrm_values,
value like line of list.
name = f_parameter.
case f_parameter.
when ‘P_MODE’.
value-key = ‘N’. value-text = ‘Do not display any screens’.
append value to list.
value-key = ‘A’. value-text = ‘Display ALL screens’.
append value to list.
value-key = ‘E’. value-text = ‘Only display screens in error’.
append value to list.
when ‘P_UPTYP’.
value-key = ‘S’. value-text = ‘Update in Synchronous Mode’.
append value to list.
value-key = ‘A’. value-text = ‘Update in Asynchronous Mode’.
append value to list.
when others.
endcase.
call function ‘VRM_SET_VALUES’
exporting
id = name
values = list.
endform.” fill_dropdown_list
*———————————————————————*
* FORM choose_filename *
*———————————————————————*
* Select a filename. Only provied if a local file is selected *
* as the source of the input file. A *
* custom function or routine could be *
* written to provide the same functionality *
* for unix. *
*———————————————————————*
* –> F_FILENAME_IN *
* F_REPID *
* –> F_DYNNR *
* –> VALUE(F_FIELDNAME_IN) *
* <– F_FIELDNAME_OUT *
* F_FILENAME_OUT *
* –> DATA *
* –> : *
* –> L_FILENAME *
*———————————————————————*
form query_local_filename changing f_filename_out like rlgrap-filename.
data: l_filename like rlgrap-filename.
data: l_mask(80) type c.
* Build Filter
l_mask =
‘,All Files (*.*),*.*.’.
call function ‘WS_FILENAME_GET’
exporting
def_filename = f_filename_out
def_path = ‘c:\’
mask = l_mask
* mode = O or S
title = ‘Choose input file’
importing
filename = l_filename
exceptions
inv_winsys = 01
no_batch = 02
selection_cancel = 03
selection_error = 04.
if sy-subrc = 0.
f_filename_out = l_filename.
endif.
endform.

BAPI Report for uploading data from legacy system: Part II

joelsandeep — Mon, 17 Nov 2008 18:40:33 +0000

NIIT Training

IF NOT it_return[] IS INITIAL.

PERFORM error_handling.

ENDIF.

IF p_chkbox EQ ‘X’.

PERFORM gui_download.

ENDIF.

*&———————————————————————*

*& Form gui_upload

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM gui_upload.

CALL FUNCTION ‘GUI_UPLOAD’

EXPORTING

filename = w_filename

filetype = ‘ASC’

has_field_separator = ‘X’

read_by_line = ‘X’

TABLES

data_tab = it_final

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

OTHERS = 17.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. ” gui_upload

*&———————————————————————*

*& Form move_header

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM move_header .

MOVE :

sy-uname TO wa_docheader-username,

‘RMWA’ TO wa_docheader-bus_act,

wa_final-bukrs TO wa_docheader-comp_code.

w_var1 = wa_final-bldat+6(4).

w_var2 = wa_final-bldat+0(2).

w_var3 = wa_final-bldat+3(2).

CONCATENATE w_var1 w_var2 w_var3 INTO w_var4.

MOVE : w_var4 TO wa_docheader-doc_date.

CLEAR : w_var1,

w_var2,

w_var3,

w_var4.

w_var1 = wa_final-budat+6(4).

w_var2 = wa_final-budat+0(2).

w_var3 = wa_final-budat+3(2).

CONCATENATE w_var1 w_var2 w_var3 INTO w_var4.

MOVE : w_var4 TO wa_docheader-pstng_date,

wa_final-monat TO wa_docheader-fis_period,

wa_final-blart TO wa_docheader-doc_type,

wa_final-xblnr TO wa_docheader-ref_doc_no.

ENDFORM. ” move_header

*&———————————————————————*

*& Form conversion_account

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM conversion_account.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

EXPORTING

input = wa_final-hkont

IMPORTING

output = wa_final-hkont.

ENDFORM. ” conversion_account

*&———————————————————————*

*& Form conversion_costcenter

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM conversion_costcenter.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

EXPORTING

input = wa_final-kostl

IMPORTING

output = wa_final-kostl.

ENDFORM. ” conversion_costcenter

*&———————————————————————*

*& Form conversion_order

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM conversion_order.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

EXPORTING

input = wa_final-aufnr

IMPORTING

output = wa_final-aufnr.

ENDFORM. ” conversion_order

*&———————————————————————*

*& Form move_acar

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM move_acar.

WRITE wa_final-hkont TO wa_acar-customer.

if wa_final-glind eq ’09′ or ’19′.

endif.

MOVE : w_count TO wa_acar-itemno_acc,

wa_final-gsber TO wa_acar-bus_area,

wa_final-sgtxt TO wa_acar-item_text,

wa_final-mwskz TO wa_acar-tax_code,

wa_final-txjcd TO wa_acar-taxjurcode,

wa_final-glind TO wa_acar-sp_gl_ind.

APPEND : wa_acar TO it_acar.

ENDFORM. ” move_acar

*&———————————————————————*

*& Form move_acap

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM move_acap.

WRITE wa_final-hkont TO wa_acap-vendor_no.

MOVE : w_count TO wa_acap-itemno_acc,

wa_final-gsber TO wa_acap-bus_area,

wa_final-sgtxt TO wa_acap-item_text,

wa_final-mwskz TO wa_acap-tax_code,

wa_final-txjcd TO wa_acap-taxjurcode,

wa_final-glind TO wa_acap-sp_gl_ind.

APPEND : wa_acap TO it_acap.

ENDFORM. ” move_acap

*&———————————————————————*

*& Form move_acgl

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM move_acgl.

WRITE wa_final-hkont TO wa_acgl-gl_account.

MOVE : w_count TO wa_acgl-itemno_acc,

wa_final-hkont TO wa_acgl-gl_account,

wa_final-sgtxt TO wa_acgl-item_text,

wa_final-bukrs TO wa_acgl-comp_code,

wa_final-gsber TO wa_acgl-bus_area,

wa_final-mwskz TO wa_acgl-tax_code,

wa_final-txjcd TO wa_acgl-taxjurcode,

wa_final-kostl TO wa_acgl-costcenter,

wa_final-aufnr TO wa_acgl-orderid.

APPEND : wa_acgl TO it_acgl.

ENDFORM. ” move_acgl

*&———————————————————————*

*& Form move_accr

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM move_accr.

MOVE : w_count TO wa_accr-itemno_acc,

wa_final-waers TO wa_accr-currency,

wa_final-wrbtr TO wa_accr-amt_doccur,

wa_final-kursf TO wa_accr-exch_rate,

w_count TO wa_extension2-structure,

wa_final-bschl TO wa_extension2-valuepart1.

APPEND : wa_accr TO it_accr,

wa_extension2 TO it_extension2.

w_sum = w_sum + wa_accr-amt_doccur.

ENDFORM. ” move_accr

*&———————————————————————*

*& Form bapi_postdata

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM bapi_postdata.

CALL FUNCTION ‘BAPI_ACC_DOCUMENT_POST’

EXPORTING

documentheader = wa_docheader

TABLES

accountgl = it_acgl

accountreceivable = it_acar

accountpayable = it_acap

currencyamount = it_accr

return = it_return

extension2 = it_extension2.

ENDFORM. ” bapi_postdata

*&———————————————————————*

*& Form error_handling

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM error_handling.

LOOP AT it_return INTO wa_return.

CALL FUNCTION ‘FORMAT_MESSAGE’

EXPORTING

id = wa_return-id

lang = sy-langu

no = wa_return-number

v1 = wa_return-message_v1

v2 = wa_return-message_v2

v3 = wa_return-message_v3

v4 = wa_return-message_v4

IMPORTING

msg = w_msg

EXCEPTIONS

not_found = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

* WRITE :/5 wa_return-id,

* 27 wa_return-number,

* 45 w_msg.

CLEAR wa_return.

ENDLOOP.

ENDFORM. ” error_handling

*&———————————————————————*

*& Form bapi_commit

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM bapi_commit.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

IMPORTING

return = wa_return.

WRITE : “/5 wa_return-id,

* 27 wa_return-number,

45 w_msg.

ENDFORM. ” bapi_commit

*&———————————————————————*

*& Form gui_download

*&———————————————————————*

* text

*———————————————————————-*

* –> p1 text

* <– p2 text

*———————————————————————-*

FORM gui_download.

CALL FUNCTION ‘GUI_DOWNLOAD’

EXPORTING

filename = w_filename2

TABLES

data_tab = it_return

EXCEPTIONS

file_write_error = 1

no_batch = 2

gui_refuse_filetransfer = 3

invalid_type = 4

no_authority = 5

unknown_error = 6

header_not_allowed = 7

separator_not_allowed = 8

filesize_not_allowed = 9

header_too_long = 10

dp_error_create = 11

dp_error_send = 12

dp_error_write = 13

unknown_dp_error = 14

access_denied = 15

dp_out_of_memory = 16

disk_full = 17

dp_timeout = 18

file_not_found = 19

dataprovider_exception = 20

control_flush_error = 21

OTHERS = 22.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. ” gui_download

BAPI Report for uploading data from legacy system: Part I

joelsandeep — Mon, 17 Nov 2008 18:38:35 +0000

* Description : This program will take the Payroll, Fixed Assets and

* other Accrual/Deferral Journal Entries data from the

* ASK_MANMAN legacy system into a flat file and uploads

* the data into SAP through a direct upload program.

************************************************************************

* Modification History:

* Change Req Date Developer Description of Change

* XXXXXXXXXXX xx/xx/xxxx xxxxxxxxxxx Original Release

*———————————————————————-*

REPORT zfiu001 LINE-SIZE 300.

************************************************************************

* TYPES DECLARATIONS

************************************************************************

TYPES : BEGIN OF t_final,

item TYPE posnr_acc, ” Item Number

bukrs TYPE bukrs, ” Company Code

bldat(10) TYPE c, ” Document Date in Document

budat(10) TYPE c, ” Posting Date in the Document

monat TYPE monat, ” Period

blart TYPE blart, ” Document Type

waers TYPE waers, ” Currency Key

kursf TYPE kursf, ” Exchange Rate

xblnr TYPE xblnr1, ” Reference Document Number

bktxt TYPE bktxt, ” Document Header Text

bschl TYPE bschl, ” Posting Key

hkont TYPE hkont, ” Account Number (GL/Vendor/Customer)

umskz TYPE umskz, ” Special G/L Indicator

wrbtr TYPE wrbtr, ” Amount

mwskz TYPE mwskz, ” Tax Code

txjcd TYPE txjcd, ” Tax Jurisdiction Code

sgtxt TYPE sgtxt, ” Text

gsber TYPE gsber, ” Business Area

kostl TYPE kostl, ” Cost Center

aufnr TYPE aufnr, ” Order Number

bus_act TYPE bukrs, ” Business Transaction

glind TYPE umskz, ” Special GL Indicator

END OF t_final.

************************************************************************

* DATA DECLARATIONS

************************************************************************

DATA : it_final TYPE STANDARD TABLE OF t_final,

it_error TyPE STANDARD TABLE OF t_final,

it_acgl TYPE STANDARD TABLE OF bapiacgl09,

it_acar TYPE STANDARD TABLE OF bapiacar09,

it_acap TYPE STANDARD TABLE OF bapiacap09,

it_accr TYPE STANDARD TABLE OF bapiaccr09,

it_return TYPE STANDARD TABLE OF bapiret2,

it_extension2 TYPE STANDARD TABLE OF bapiparex,

wa_final TYPE t_final,

wa_error TYPE t_final,

wa_docheader TYPE bapiache09,

wa_acgl TYPE bapiacgl09,

wa_acar TYPE bapiacar09,

wa_acap TYPE bapiacap09,

wa_accr TYPE bapiaccr09,

wa_return TYPE bapiret2,

wa_extension2 TYPE bapiparex,

wa_obj_type TYPE bapiache09-obj_type,

wa_obj_key TYPE bapiache09-obj_key,

wa_obj_sys TYPE bapiache09-obj_sys.

************************************************************************

* VARIABLE DECLARATIONS

************************************************************************

DATA: w_filename TYPE string,

w_filename2 TYPE string,

w_sum TYPE wrbtr,

w_msg TYPE string,

w_var1(4) TYPE c,

w_var2(2) TYPE c,

w_var3(2) TYPE c,

w_var4(8) TYPE c.

************************************************************************

* SELECTION-SCREEN

************************************************************************

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

PARAMETERS: p_fname TYPE rlgrap-filename,

p_chkbox AS CHECKBOX,

p_xlname TYPE rlgrap-filename.

SELECTION-SCREEN END OF BLOCK blk1.

************************************************************************

* AT SELECTION-SCREEN ON VALUE-REQUEST

************************************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

CALL FUNCTION ‘F4_FILENAME’

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = ‘ ‘

IMPORTING

file_name = p_fname.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_xlname.

CALL FUNCTION ‘F4_FILENAME’

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = ‘ ‘

IMPORTING

file_name = p_xlname.

************************************************************************

* START-OF-SELECTION

************************************************************************

START-OF-SELECTION.

DATA : w_count TYPE posnr.

w_filename = p_fname.

w_filename2 = p_xlname.

PERFORM gui_upload.

WRITE :/1 text-002.

WRITE :/1 text-003,

26 text-004,

45 text-005.

LOOP AT it_final INTO wa_final.

w_count = w_count + 1.

PERFORM move_header.

IF wa_final-bschl BETWEEN ’01′ AND ’19′.

PERFORM move_acar.

ELSEIF wa_final-bschl BETWEEN ’21′ AND ’39′.

PERFORM move_acap.

ELSEIF wa_final-bschl BETWEEN ’40′ AND ’50′.

IF wa_final-hkont+0(1) EQ ’6′ AND wa_final-kostl EQ ‘ ‘.

MESSAGE e005(zfi).

ENDIF.

PERFORM conversion_account.

PERFORM conversion_costcenter.

PERFORM conversion_order.

PERFORM move_acgl.

ENDIF.

IF wa_final-bschl BETWEEN ’11′ AND ’19′.

wa_final-wrbtr = wa_final-wrbtr * -1.

ELSEIF wa_final-bschl BETWEEN ’21′ AND ’29′.

wa_final-wrbtr = wa_final-wrbtr * -1.

ELSEIF wa_final-bschl BETWEEN ’31′ AND ’39′.

wa_final-wrbtr = wa_final-wrbtr * -1.

ELSEIF wa_final-bschl EQ ’50′.

wa_final-wrbtr = wa_final-wrbtr * -1.

ENDIF.

PERFORM move_accr.

AT END OF item.

IF w_sum EQ 0.

PERFORM bapi_postdata.

ELSE.

move-corresponding : wa_docheader to wa_error,

wa_acgl to wa_error,

wa_acap to wa_error,

wa_acar to wa_error,

wa_accr to wa_error.

append wa_error to it_error.

ENDIF.

ENDAT.

PERFORM bapi_commit.

ENDLOOP.

OOPS inheritance Report

joelsandeep — Mon, 17 Nov 2008 18:34:10 +0000

REPORT z_vcr_oops_inher .

*OOPS INHERITANCE
*SUPER CLASS FUNCTIONALITY
*DEFINE THE CLASS.
CLASS cl_lc DEFINITION.
PUBLIC SECTION.
DATA: a TYPE i,
b TYPE i,
c TYPE i.
METHODS: display,
mm1.
CLASS-METHODS: mm2.
ENDCLASS.
*CLASS IMPLEMENTATION
CLASS cl_lc IMPLEMENTATION.
METHOD display.
WRITE:/ ‘THIS IS SUPER CLASS’ COLOR 7.
ENDMETHOD.
METHOD mm1.
WRITE:/ ‘THIS IS MM1 METHOD IN SUPER CLASS’.
ENDMETHOD.
METHOD mm2.
WRITE:/ ‘THIS IS THE STATIC METHOD’ COLOR 2.
WRITE:/ ‘THIS IS MM2 METHOD IN SUPER CLASS’ COLOR 2.
ENDMETHOD.
ENDCLASS.
*SUB CLASS FUNCTIONALITY
*CREATE THE CLASS.
*INHERITING THE SUPER CLASS.
CLASS cl_sub DEFINITION INHERITING FROM cl_lc. “HOW WE CAN INHERIT
PUBLIC SECTION.
DATA: a1 TYPE i,
b1 TYPE i,
c1 TYPE i.
METHODS: display REDEFINITION, “REDEFINE THE SUPER CLASS METHOD
sub.
ENDCLASS.
*CLASS IMPLEMENTATION.
CLASS cl_sub IMPLEMENTATION.
METHOD display.
WRITE:/ ‘THIS IS THE SUB CLASS OVERWRITE METHOD’ COLOR 3.
ENDMETHOD.
METHOD sub.
WRITE:/ ‘THIS IS THE SUB CLASS METHOD’ COLOR 3.
ENDMETHOD.
ENDCLASS.
*CREATE THE OBJECT FOR SUB CLASS.
DATA: obj TYPE REF TO cl_sub.

START-OF-SELECTION.
CREATE OBJECT obj.
CALL METHOD obj->display. “THIS IS SUB CLASS METHOD
CALL METHOD obj->sub.
WRITE:/’THIS IS THE SUPER CL METD CALLED BY THE SUB CL object’ COLOR 5.
SKIP 1.
CALL METHOD obj->mm1. “THIS IS SUPER CLASS METHOD
CALL METHOD obj->mm2.
*CREATE THE OBJECT FOR SUPER CLASS.
DATA: obj1 TYPE REF TO cl_lc.

START-OF-SELECTION.
CREATE OBJECT obj1.
SKIP 3.
WRITE:/ ‘WE CAN CALL ONLY SUPER CL METHODS BY USING SUPER CL object’
COLOR 5.
CALL METHOD obj1->display. “THIS IS SUPER CLASS METHOD
CALL METHOD obj1->mm1.
CALL METHOD obj1->mm2.

Report

joelsandeep — Mon, 17 Nov 2008 18:32:09 +0000

REPORT Z_SELECT_RISTRICT .

* Include type pool SSCR
TYPE-POOLS sscr.

TABLES :
marc.

* defining the selection-screen
select-options :
s_matnr for marc-matnr,
s_werks for marc-werks.

* Define the object to be passed to the RESTRICTION parameter
DATA restrict TYPE sscr_restrict.

* Auxiliary objects for filling RESTRICT
DATA : optlist TYPE sscr_opt_list,
ass type sscr_ass.

INITIALIZATION.

* Restricting the MATNR selection to only EQ and ‘BT’.
optlist-name = ‘OBJECTKEY1′.
optlist-options-eq = ‘X’.
optlist-options-bt = ‘X’.
APPEND optlist TO restrict-opt_list_tab.

ass-kind = ‘S’.
ass-name = ‘S_MATNR’.
ass-sg_main = ‘I’.
ass-sg_addy = space.
ass-op_main = ‘OBJECTKEY1′.
APPEND ass TO restrict-ass_tab.

* Restricting the WERKS selection to CP, GE, LT, NE.
optlist-name = ‘OBJECTKEY2′.
optlist-options-cp = ‘X’.
optlist-options-ge = ‘X’.
optlist-options-lt = ‘X’.
optlist-options-ne = ‘X’.
APPEND optlist TO restrict-opt_list_tab.

ass-kind = ‘S’.
ass-name = ‘S_WERKS’.
ass-sg_main = ‘I’.
ass-sg_addy = space.
ass-op_main = ‘OBJECTKEY2′.
APPEND ass TO restrict-ass_tab.

CALL FUNCTION ‘SELECT_OPTIONS_RESTRICT’
EXPORTING
restriction                  = restrict
EXCEPTIONS
TOO_LATE                     = 1
REPEATED                     = 2
SELOPT_WITHOUT_OPTIONS       = 3
SELOPT_WITHOUT_SIGNS         = 4
INVALID_SIGN                 = 5
EMPTY_OPTION_LIST            = 6
INVALID_KIND                 = 7
REPEATED_KIND_A              = 8
OTHERS                       = 9
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Report on Events

joelsandeep — Mon, 17 Nov 2008 18:30:01 +0000

*&———————————————————————*
*& Report Z_ALV_EVENTS                                                *
*&                                                                     *
*&———————————————————————*
*&                                                                     *
*&                                                                     *
*&———————————————————————*

REPORT Z_ALV_EVENTS .
TYPE-POOLS : SLIS.
DATA : I_FIELDCAT TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA : I_HEADER TYPE slis_t_listheader.
DATA : I_EVENTS TYPE slis_t_event WITH HEADER LINE.
TABLES: EKKO.
SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN.
DATA: I_EKKO LIKE EKKO OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF I_CHECK OCCURS 0,
CHECK TYPE C,
END OF I_CHECK.

SELECT * FROM EKKO INTO TABLE I_EKKO WHERE EBELN IN S_EBELN.

I_FIELDCAT-COL_POS = 1.
I_FIELDCAT-FIELDNAME = ‘CHECK’.
I_FIELDCAT-checkbox = ‘X’.
APPEND I_FIELDCAT.

CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE’
EXPORTING
I_PROGRAM_NAME               = ‘Z_ALV_EVENTS’
*   I_INTERNAL_TABNAME           =
I_STRUCTURE_NAME             = ‘EKKO’
*   I_CLIENT_NEVER_DISPLAY       = ‘X’
*   I_INCLNAME                   =
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
CHANGING
CT_FIELDCAT                  = I_FIELDCAT[]
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 2
*   OTHERS                       = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

BREAK-POINT.

CALL FUNCTION ‘REUSE_ALV_EVENTS_GET’
* EXPORTING
*   I_LIST_TYPE           = 0
IMPORTING
ET_EVENTS             = I_EVENTS[]
* EXCEPTIONS
*   LIST_TYPE_WRONG       = 1
*   OTHERS                = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

LOOP AT I_EVENTS.

IF I_EVENTS-NAME = ‘TOP_OF_PAGE’.
I_EVENTS-FORM = ‘TOP_OF_PAGE’.
ENDIF.

MODIFY I_EVENTS.
ENDLOOP.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
*   I_INTERFACE_CHECK                 = ‘ ‘
*   I_BYPASSING_BUFFER                = ‘ ‘
*   I_BUFFER_ACTIVE                   = ‘ ‘
I_CALLBACK_PROGRAM                = ‘Z_ALV_EVENTS’
*   I_CALLBACK_PF_STATUS_SET          = ‘ ‘
*   I_CALLBACK_USER_COMMAND           = ‘USER_COMMAND’
*   I_CALLBACK_TOP_OF_PAGE            = ‘ ‘
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ‘ ‘
*   I_CALLBACK_HTML_END_OF_LIST       = ‘ ‘
*   I_STRUCTURE_NAME                  = ‘EKKO’
*   I_BACKGROUND_ID                   = ‘ ‘
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         =
IT_FIELDCAT                       = I_FIELDCAT[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = ‘X’
*   I_SAVE                            = ‘ ‘
*   IS_VARIANT                        =
IT_EVENTS                         = I_EVENTS[]
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
TABLES
T_OUTTAB                          = I_EKKO
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

FORM TOP_OF_PAGE.
CALL FUNCTION ‘REUSE_ALV_COMMENTARY_WRITE’
EXPORTING
IT_LIST_COMMENTARY       = I_HEADER
I_LOGO                   = ‘ENJOYSAP_LOGO’
*   I_END_OF_LIST_GRID       =.
.
ENDFORM.

FORM USER_COMMAND USING UCOMM TYPE SY-UCOMM
SELTAB TYPE SLIS_SELFIELD.

BREAK-POINT.

ENDFORM.

BAPI REPORT FOR UPLOADING MATERIALS

joelsandeep — Sun, 16 Nov 2008 05:25:45 +0000

*&———————————————————————*
*& Report Z_BAPI_UPLOAD                                               *
*&                                                                     *
*&———————————————————————*
*&                                                                     *
*&                                                                     *
*&———————————————————————*

REPORT z_bapi_upload NO STANDARD PAGE HEADING LINE-SIZE 100 LINE-COUNT 200 .

**************************************************************************
*FILE DECLARATION *
**************************************************************************
PARAMETERS : p_fname LIKE rlgrap-filename.

DATA : v_fname TYPE string.

DATA : i_str TYPE string.

**************************************************************************
*INTERNAL TABLE DECLARATION *
**************************************************************************
TYPES: BEGIN OF i_material,
material(18) TYPE c,
ind_sector(1) TYPE c,
matl_type(4) TYPE c,
basic_view(1) TYPE c,
base_uom(3) TYPE c,
base_uomx(1) TYPE c,
langu(2) TYPE c,
matl_desc(5) TYPE c,
END OF i_material.

DATA : wa_material TYPE i_material.
DATA : it_material TYPE TABLE OF i_material.

**************************************************************************
*SRUCTURES AND TABLES DECLARATION *
**************************************************************************
DATA : i_headdata LIKE bapimathead,
i_clientdata LIKE bapi_mara,
i_clientdatax LIKE bapi_marax.

**************************************************************************
*RETURN TABLE DECLARATION *
**************************************************************************
DATA : wa_return TYPE bapiret2 ,
it_return TYPE TABLE OF bapiret2.

**************************************************************************
*MAT-DESCRIPTION TABLE DECLARATION *
**************************************************************************
DATA : wa_materialdescription TYPE bapi_makt,
it_materialdescription TYPE TABLE OF bapi_makt .

**************************************************************************
*AT SELECTION-SCREEN EVENT *
**************************************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

CALL FUNCTION ‘F4_FILENAME’
*EXPORTING
*   PROGRAM_NAME        = SYST-CPROG
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ‘ ‘
IMPORTING
file_name           = p_fname.

**************************************************************************
*START-OF-SELECTION *
**************************************************************************
START-OF-SELECTION.

**************************************************************************
*UPLOAD FLAT FILE *
**************************************************************************
MOVE p_fname TO v_fname.

CALL FUNCTION ‘GUI_UPLOAD’
EXPORTING
filename                      = v_fname
*   FILETYPE                      = ‘ASC’
has_field_separator           = ‘X’
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = ‘X’
*   DAT_MODE                      = ‘ ‘
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
TABLES
data_tab                      = it_material
EXCEPTIONS
file_open_error               = 1
file_read_error               = 2
no_batch                      = 3
gui_refuse_filetransfer       = 4
invalid_type                  = 5
no_authority                  = 6
unknown_error                 = 7
bad_data_format               = 8
header_not_allowed            = 9
separator_not_allowed         = 10
header_too_long               = 11
unknown_dp_error              = 12
access_denied                 = 13
dp_out_of_memory              = 14
disk_full                     = 15
dp_timeout                    = 16
OTHERS                        = 17
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

**************************************************************************
*MOVE DATA FROM BODY TO WA AND MOVE TO CORRESPONDING TABLES *
**************************************************************************
LOOP AT it_material INTO wa_material.

MOVE-CORRESPONDING wa_material TO i_headdata.
*READ TABLE IT_MATERIAL INTO I_HEADDATA WITH TABLE KEY MATERIAL = IT_MATERIAL.

MOVE-CORRESPONDING wa_material TO i_clientdata.

i_clientdatax-base_uom = wa_material-base_uom.

MOVE-CORRESPONDING wa_material TO wa_materialdescription.
APPEND wa_materialdescription TO it_materialdescription.

**************************************************************************
*FM BAPI_MATERIAL_SAVEDATA                                               *
**************************************************************************
CALL FUNCTION ‘BAPI_MATERIAL_SAVEDATA’
EXPORTING
headdata                   = i_headdata
clientdata                 = i_clientdata
clientdatax                = i_clientdatax
*   PLANTDATA                  =
*   PLANTDATAX                 =
*   FORECASTPARAMETERS         =
*   FORECASTPARAMETERSX        =
*   PLANNINGDATA               =
*   PLANNINGDATAX              =
*   STORAGELOCATIONDATA        =
*   STORAGELOCATIONDATAX       =
*   VALUATIONDATA              =
*   VALUATIONDATAX             =
*   WAREHOUSENUMBERDATA        =
*   WAREHOUSENUMBERDATAX       =
*   SALESDATA                  =
*   SALESDATAX                 =
*   STORAGETYPEDATA            =
*   STORAGETYPEDATAX           =
*   FLAG_ONLINE                = ‘ ‘
IMPORTING
return                     = wa_return
TABLES
materialdescription        = it_materialdescription
*   UNITSOFMEASURE             =
*   UNITSOFMEASUREX            =
*   INTERNATIONALARTNOS        =
*   MATERIALLONGTEXT           =
*   TAXCLASSIFICATIONS         =
*   RETURNMESSAGES             =
*   PRTDATA                    =
*   PRTDATAX                   =
*   EXTENSIONIN                =
*   EXTENSIONINX               =
.
APPEND wa_return TO it_return.
ENDLOOP.

**************************************************************************
*DISPLAYING MESSAGE                                                      *
**************************************************************************
LOOP AT it_return INTO wa_return.
CALL FUNCTION ‘FORMAT_MESSAGE’
EXPORTING
id              = wa_return-id
*   LANG            = ‘-D’
no              = wa_return-number
v1              = wa_return-message_v1
v2              = wa_return-message_v2
v3              = wa_return-message_v3
v4              = wa_return-message_v4
IMPORTING
msg             = i_str
EXCEPTIONS
not_found       = 1
OTHERS          = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

WRITE :/ i_str.
ENDLOOP.