topic SAP Scripts in Application Development and Automation Discussions

SAP Scripts

Former Member — Wed, 16 Jan 2008 08:27:20 GMT

Hello Friends,

Please help me with some code related to SAP scripts

and any good documents added to it.

Regards

Ashish.

Re: SAP Scripts

Former Member — Wed, 16 Jan 2008 08:32:34 GMT

SAPScripts

http://esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf

http://esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf

http://esnips.com/doc/64d4eccb-e09b-48e1-9be9-e2818d73f074/faqss.pdf

http://esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf

http://esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf

http://esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-subtotals.htm

SAP SCRIPT FIELDS

http://help.sap.com/saphelp_erp2005vp/helpdata/en/d1/8033ea454211d189710000e8322d00/content.htm

scripts easy material

http://www.allsaplinks.com/sap_script_made_easy.html

Re: SAP Scripts

Former Member — Wed, 16 Jan 2008 08:37:13 GMT

Check these links.

http://www.sap-basis-abap.com/sapabap01.htm

http://www.sap-img.com/sapscripts.htm

Also check this thread..U can find all the details

Regards,

Maha

Re: SAP Scripts

Former Member — Wed, 16 Jan 2008 08:40:51 GMT

Hi Ashish,

this code will guide u.

REPORT zzz_jaytest .

Types Declaration

TYPES : BEGIN OF ty_pa0001,

pernr TYPE pa0001-pernr,

bukrs TYPE pa0001-bukrs,

werks TYPE pa0001-werks,

END OF ty_pa0001.

Internal Table Declaration

DATA : i_pa0001 TYPE STANDARD TABLE OF ty_pa0001, "For pa0001 Details

i_otf TYPE STANDARD TABLE OF itcoo, "For OTF data

i_content_txt TYPE soli_tab, "Content

i_content_bin TYPE solix_tab, "Content

i_objhead TYPE soli_tab,

Work Area Declaration

w_pa0001 TYPE ty_pa0001, "For pa0001 Details

w_res TYPE itcpp, "SAPscript output

"parameters

w_otf TYPE itcoo, "For OTF

w_pdf TYPE solisti1, "For PDF

w_transfer_bin TYPE sx_boolean, "Content

w_options TYPE itcpo, "SAPscript output

"interface

Variable Declaration

v_len_in TYPE so_obj_len,

v_size TYPE i.

Constants Declaration

CONSTANTS : c_x TYPE c VALUE 'X', "X

c_locl(4) TYPE c VALUE 'LOCL', "Local Printer

c_otf TYPE sx_format VALUE 'OTF', "OTF

c_pdf TYPE sx_format VALUE 'PDF', "PDF

c_printer TYPE sx_devtype VALUE 'PRINTER', "PRINTER

c_bin TYPE char10 VALUE 'BIN', "BIN

c_name TYPE string VALUE 'C:\ZZZ_JAYTEST.PDF',"Downloading

"File Name

c_form(11) TYPE c VALUE 'ZZZ_JAYTEST'. "Form Name

START-OF-SELECTION.

Selecting the records from pa0001

SELECT pernr bukrs werks FROM pa0001

INTO TABLE i_pa0001 UP TO 10 ROWS.

Setting the options

w_options-tdcopies = 1 ."Number of copies

w_options-tdnoprev = c_x."No print preview

w_options-tdgetotf = c_x."Return of OTF table

w_options-tddest = c_locl."Spool: Output device

Opening the form

CALL FUNCTION 'OPEN_FORM'

EXPORTING

form = c_form

device = c_printer

language = sy-langu

OPTIONS = w_options

IMPORTING

RESULT = w_res.

LOOP AT i_pa0001 INTO w_pa0001.

Writting into the form

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'MAIN'

window = 'MAIN'.

ENDLOOP.

Closing the form

CALL FUNCTION 'CLOSE_FORM'

IMPORTING

RESULT = w_res

TABLES

otfdata = i_otf

EXCEPTIONS

unopened = 1

bad_pageformat_for_print = 2

send_error = 3

spool_error = 4

codepage = 5

OTHERS = 6.

IF sy-subrc <> 0.

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

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

ENDIF.

Converting OTF data to single line

LOOP AT i_otf INTO w_otf.

CONCATENATE w_otf-tdprintcom w_otf-tdprintpar

INTO w_pdf.

APPEND w_pdf TO i_content_txt.

ENDLOOP.

Converting to PDF Format

CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'

EXPORTING

format_src = c_otf

format_dst = c_pdf

devtype = c_printer

CHANGING

transfer_bin = w_transfer_bin

content_txt = i_content_txt

content_bin = i_content_bin

objhead = i_objhead

len = v_len_in

EXCEPTIONS

err_conv_failed = 1

OTHERS = 2.

v_size = v_len_in.

Downloading the PDF File

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

bin_filesize = v_size

filename = c_name

filetype = c_bin

TABLES

data_tab = i_content_bin.

If you r using this function module check it once....

call function 'CONVERT_OTF'

EXPORTING

format = 'PDF'

max_linewidth = 132

IMPORTING

bin_filesize = v_len_in

TABLES

otf = i_otf

lines = i_tline

EXCEPTIONS

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 3

others = 4.

Fehlerhandling

if sy-subrc <> 0.

endif.

or u can use the standard program RSTXPDFT4 to download the script into PDF format onto a particular location

follow this link for sample program.

http://searchsap.techtarget.com/tip/0,289483,sid21_gci1121833,00.html

kindly reward if found helpful.

cheers,

Hema.

Re: SAP Scripts

Former Member — Wed, 16 Jan 2008 08:41:14 GMT

Check the print program..This will be very helpfull to you. Every thing is in the print prog..Make sure you create a prog of type subrout.pool.

Print of an order confirmation by SAPscript

REPORT zprint_prog_cont_form LINE-COUNT 100 MESSAGE-ID vn.

TABLES: komk, "Communicationarea for conditions

komp, "Communicationarea for conditions

komvd, "Communicationarea for conditions

vbco3, "Communicationarea for view

vbdka, "Headerview

vbdpa, "Itemview

vbdpau, "Subitemnumbers

conf_out, "Configuration data

sadr, "Addresses

tvag, "Reason for rejection

vedka, "Servicecontract head data

vedpa, "Servicecontract position data

vedkn, "Servicecontract head notice data

vedpn, "Servicecontract pos. notice data

riserls, "Serialnumbers

komser, "Serialnumbers for print

tvbur, "Sales office

tvko, "Sales organisation

adrs, "Communicationarea for Address

fpltdr, "billing schedules

wtad_addis_in_so_print, "additional

wtad_buying_print_extra_text, "texts belonging to additional

komv, "Addition by Sharat

t685t. "Addition by Sharat

INCLUDE rvadtabl.

INCLUDE rvdirekt.

INCLUDE vedadata.

*ENHANCEMENT-POINT RVADOR01_01 SPOTS ES_RVADOR01 STATIC.

data for access to central address maintenance

INCLUDE sdzavdat.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

TYPE-POOLS: addi.

DATA price_print_mode(1) TYPE c. "Print-mode

DATA: retcode LIKE sy-subrc. "Returncode

DATA: repeat(1) TYPE c.

DATA: xscreen(1) TYPE c. "Output on printer or screen

DATA: BEGIN OF steu, "Controldata for output

vdkex(1) TYPE c,

vdpex(1) TYPE c,

kbkex(1) TYPE c,

kbpex(1) TYPE c,

END OF steu.

DATA: BEGIN OF tvbdpa OCCURS 0. "Internal table for items

INCLUDE STRUCTURE vbdpa.

DATA: END OF tvbdpa.

*DATA: BEGIN OF tvbdpa OCCURS 0. "Internal table for items

*DATA: pltxt TYPE c LENGTH 40.

INCLUDE STRUCTURE vbdpa.

*DATA: END OF tvbdpa.

DATA: BEGIN OF tkomv OCCURS 50.

INCLUDE STRUCTURE komv.

DATA: END OF tkomv.

DATA: BEGIN OF tkomvd OCCURS 50.

INCLUDE STRUCTURE komvd.

DATA: END OF tkomvd.

DATA: BEGIN OF tvbdpau OCCURS 5.

INCLUDE STRUCTURE vbdpau.

DATA: END OF tvbdpau.

DATA: BEGIN OF tkomcon OCCURS 50.

INCLUDE STRUCTURE conf_out.

DATA: END OF tkomcon.

DATA: BEGIN OF tkomservh OCCURS 1.

INCLUDE STRUCTURE vedka.

DATA: END OF tkomservh.

DATA: BEGIN OF tkomservp OCCURS 5.

INCLUDE STRUCTURE vedpa.

DATA: END OF tkomservp.

DATA: BEGIN OF tkomservhn OCCURS 5.

INCLUDE STRUCTURE vedkn.

DATA: END OF tkomservhn.

DATA: BEGIN OF tkomservpn OCCURS 5.

INCLUDE STRUCTURE vedpn.

DATA: END OF tkomservpn.

DATA: BEGIN OF tkomser OCCURS 5.

INCLUDE STRUCTURE riserls.

DATA: END OF tkomser.

DATA: BEGIN OF tkomser_print OCCURS 5.

INCLUDE STRUCTURE komser.

DATA: END OF tkomser_print.

DATA: BEGIN OF tfpltdr OCCURS 5.

INCLUDE STRUCTURE fpltdr.

DATA: END OF tfpltdr.

DATA: taddi_print TYPE addi_so_print_itab WITH HEADER LINE.

*Begin of data diclaration by Sharat for Changes.

DATA: BEGIN OF tvbdpa_temp OCCURS 0. "Internal table for items

INCLUDE STRUCTURE vbdpa.

DATA: END OF tvbdpa_temp.

DATA: v_test TYPE c LENGTH 10.

TYPES: BEGIN OF ty_cont_sumry,

pltxt TYPE c LENGTH 40,

posnr TYPE posnr,

pltxt1 TYPE c LENGTH 15,

pltxt2 TYPE c LENGTH 15,

pltxt3 TYPE c LENGTH 10,

name TYPE ad_name1,

name1 TYPE c LENGTH 15,

name2 TYPE c LENGTH 15,

name3 TYPE c LENGTH 10,

city TYPE ad_city1,

city1 TYPE c LENGTH 15,

city2 TYPE c LENGTH 15,

city3 TYPE c LENGTH 10,

state TYPE regio,

item TYPE i,

mothly_tot TYPE netwr,

ext_tot TYPE netwr,

cont_subtax TYPE netwr,

cont_tottax TYPE netwr,

END OF ty_cont_sumry.

DATA: st_cont_sumry TYPE ty_cont_sumry,

st_cont_sumry1 TYPE ty_cont_sumry.

DATA: g_cont_subtot TYPE mwsbp.

DATA: g_cont_exttot TYPE mwsbp.

DATA: g_cont_subtax TYPE mwsbp."mwsbp.

DATA: g_cont_tottax TYPE kzwis."mwsbp.

DATA: g_cont_subadj TYPE netwr."mwsbp.

DATA: g_cont_adjtot TYPE netwr."mwsbp.

DATA: g_cont_adj TYPE netwr."mwsbp.

DATA: g_cont_adjexttot TYPE netwr."mwsbp.

DATA: g_cont_grantmontot TYPE mwsbp."mwsbp.

DATA: g_cont_grantexttot TYPE kzwis."mwsbp.

DATA: gt_cont_sumry TYPE STANDARD TABLE OF ty_cont_sumry,

gt_cont_sumry1 TYPE STANDARD TABLE OF ty_cont_sumry.

DATA: g_pltxt TYPE c LENGTH 40.

*end of data diclaration by Sharat for Changes.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

DATA: pr_kappl(01) TYPE c VALUE 'V'. "Application for pricing

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

FORM entry USING return_code TYPE i

us_screen TYPE c.

CLEAR retcode.

xscreen = us_screen.

PERFORM processing.

IF retcode NE 0.

return_code = 1.

ELSE.

return_code = 0.

ENDIF.

ENDFORM. "ENTRY

FORM PROCESSING *

........ *

FORM processing.

PERFORM get_data.

CHECK retcode = 0.

PERFORM form_open USING xscreen vbdka-land1.

CHECK retcode = 0.

PERFORM form_title_print.

CHECK retcode = 0.

PERFORM validity_print.

CHECK retcode = 0.

PERFORM header_data_print.

CHECK retcode = 0.

PERFORM header_serv_print.

CHECK retcode = 0.

PERFORM header_notice_print.

CHECK retcode = 0.

PERFORM header_inter_print.

CHECK retcode = 0.

PERFORM header_text_print.

CHECK retcode = 0.

PERFORM item_print.

CHECK retcode = 0.

PERFORM end_print.

CHECK retcode = 0.

PERFORM form_close.

CHECK retcode = 0.

ENDFORM. "PROCESSING

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

S U B R O U T I N E S *

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

FORM ALTERNATIVE_ITEM *

A text is printed, if the item is an alternative item. *

FORM alternative_item.

CHECK vbdpa-grpos CN '0'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ALTERNATIVE_ITEM'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ALTERNATIVE_ITEM

FORM CHECK_REPEAT *

A text is printed, if it is a repeat print for the document. *

FORM check_repeat.

CLEAR repeat.

SELECT * INTO *nast FROM nast WHERE kappl = nast-kappl

AND objky = nast-objky

AND kschl = nast-kschl

AND spras = nast-spras

AND parnr = nast-parnr

AND parvw = nast-parvw

AND nacha BETWEEN '1' AND '4'.

CHECK *nast-vstat = '1'.

repeat = 'X'.

EXIT.

ENDSELECT.

ENDFORM. "CHECK_REPEAT

FORM DELIVERY_DATE *

If the delivery date in the item is different to the header *

date and there are no scheduled quantities, the delivery date *

is printed in the item block. *

FORM delivery_date.

IF vbdka-lfdat = space AND

vbdpa-lfdat NE space AND

vbdpa-etenr_da = space.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_DELIVERY_DATE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "DELIVERY_DATE

FORM DIFFERENT_CONSIGNEE *

If the consignee in the item is different to the header con- *

signee, it is printed by this routine. *

FORM different_consignee.

CHECK vbdka-name1_we NE vbdpa-name1_we

OR vbdka-name2_we NE vbdpa-name2_we

OR vbdka-name3_we NE vbdpa-name3_we

OR vbdka-name4_we NE vbdpa-name4_we

OR vbdka-stras_we NE vbdpa-stras_we

OR vbdka-pfach_we NE vbdpa-pfach_we

OR vbdka-pstlz_we NE vbdpa-pstlz_we

OR vbdka-pstl2_we NE vbdpa-pstl2_we

OR vbdka-ort01_we NE vbdpa-ort01_we

OR vbdka-pfort_we NE vbdpa-pfort_we

OR vbdka-land1_we NE vbdpa-land1_we.

CHECK vbdpa-name1_we NE space

OR vbdpa-name2_we NE space

OR vbdpa-name3_we NE space

OR vbdpa-name4_we NE space

OR vbdpa-stras_we NE space

OR vbdpa-pfach_we NE space

OR vbdpa-pstlz_we NE space

OR vbdpa-pstl2_we NE space

OR vbdpa-ort01_we NE space

OR vbdpa-pfort_we NE space

OR vbdpa-land1_we NE space.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_CONSIGNEE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "DIFFERENT_CONSIGNEE

FORM DIFFERENT_REFERENCE_NO *

If the reference number in the item is different to the header*

reference number, it is printed by this routine. *

FORM different_reference_no.

CHECK vbdpa-vbeln_vang NE vbdka-vbeln_vang

OR vbdpa-vbtyp_vang NE vbdka-vbtyp_vang.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_REFERENCE_NO'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "DIFFERENT_REFERENCE_NO

FORM DIFFERENT_TERMS *

If the terms in the item are different to the header terms, *

they are printed by this routine. *

FORM different_terms.

DATA: us_vposn LIKE vedpa-vposn.

DATA: us_text(1) TYPE c. "Flag for Noticetext was printed

IF vbdpa-zterm NE vbdka-zterm AND

vbdpa-zterm NE space.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_PAYMENT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

IF vbdpa-inco1 NE space.

IF vbdpa-inco1 NE vbdka-inco1 OR

vbdpa-inco2 NE vbdka-inco2.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_DELIVERY'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

Print different validity-data for the position

READ TABLE tkomservp WITH KEY vbdpa-posnr.

IF sy-subrc EQ 0.

vedpa = tkomservp.

IF vedpa-vbegdat NE space AND

vedpa-venddat NE space AND

NOT vedpa-vbegdat IS INITIAL AND

NOT vedpa-venddat IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_SERV1'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSEIF vedpa-vbegdat NE space AND

NOT vedpa-vbegdat IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_SERV2'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_SERV3'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

Notice-rules for the positions.

MOVE vbdpa-posnr TO us_vposn.

CLEAR us_text.

LOOP AT tkomservpn WHERE vposn = us_vposn.

vedpn = tkomservpn.

IF us_text IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_NOTTXT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

us_text = charx.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TERMS_OF_NOTICE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDLOOP.

IF NOT us_text IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'EMPTY_LINE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "DIFFERENT_TERMS

FORM END_PRINT *

FORM end_print.

PERFORM get_header_prices.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

PERFORM header_price_print.

IF NOT price_print_mode EQ chara AND

xscreen IS INITIAL.

Pricing data init

CALL FUNCTION 'RV_PRICE_PRINT_GET_BUFFER'

EXPORTING

i_init = charx

TABLES

t_tkomv = tkomv

t_tkomvd = tkomvd.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'END_VALUES'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'SUPPLEMENT_TEXT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CLEAR g_cont_subtot.

ENDFORM. "END_PRINT

FORM FORM_CLOSE *

End of printing the form *

FORM form_close.

DATA da_clear_vbeln(1) TYPE c.

bei Druckansicht im Anlegen gibt es noch keine Belegnummer - für die

Anzeige temporäre Belegnummer übergeben und danach zurücknehmen, damit

Folgeverarbeitung noch funktioniert

IF vbdka-vbeln IS INITIAL.

da_clear_vbeln = charx.

vbdka-vbeln = '$000000001'.

ENDIF.

CALL FUNCTION 'CLOSE_FORM'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

retcode = 1.

ENDIF.

SET COUNTRY space.

IF da_clear_vbeln EQ charx.

CLEAR vbdka-vbeln.

ENDIF.

ENDFORM. "FORM_CLOSE

FORM FORM_OPEN *

Start of printing the form *

--> US_SCREEN Output on screen *

' ' = printer *

'X' = screen *

--> US_COUNTRY County for telecommunication and SET COUNTRY *

FORM form_open USING us_screen TYPE c

us_country TYPE c.

Send confirmation to user who send the document.

IF nast-nacha EQ '2'.

nast-usnam = vbdka-ernam.

get fax country key

IF nast-teltx IS INITIAL AND nast-manue NE 'X'.

PERFORM get_fax_land USING nast-tland.

ENDIF.

INCLUDE rvadopfo.

ENDFORM. "FORM_OPEN

FORM FORM_TITLE_PRINT *

Printing of the form title depending of the field VBTYP *

FORM form_title_print.

CASE vbdka-vbtyp.

WHEN 'A'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_A'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

*ENHANCEMENT-SECTION FORM_TITLE_PRINT_01 SPOTS ES_RVADOR01.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

*END-ENHANCEMENT-SECTION.

WHEN 'B'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_B'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'C'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_C'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'E'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_E'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'F'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_F'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'G'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_F'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'H'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_H'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'K'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_K'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'L'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_L'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN OTHERS.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TITLE_OTHERS'

window = 'TITLE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDCASE.

IF repeat NE space.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'REPEAT'

window = 'REPEAT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "FORM_TITLE_PRINT

FORM GET_DATA *

General provision of data for the form *

FORM get_data.

DATA: us_veda_vbeln LIKE veda-vbeln.

DATA: us_veda_posnr_low LIKE veda-vposn.

DATA: da_mess LIKE vbfs OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'RV_PRICE_PRINT_GET_MODE'

IMPORTING

e_print_mode = price_print_mode.

IF price_print_mode EQ chara.

CALL FUNCTION 'RV_PRICE_PRINT_REFRESH'

TABLES

tkomv = tkomv.

ENDIF.

CLEAR komk.

CLEAR komp.

vbco3-mandt = sy-mandt.

vbco3-spras = nast-spras.

vbco3-vbeln = nast-objky.

vbco3-kunde = nast-parnr.

vbco3-parvw = nast-parvw.

CALL FUNCTION 'RV_DOCUMENT_PRINT_VIEW'

EXPORTING

comwa = vbco3

IMPORTING

kopf = vbdka

TABLES

pos = tvbdpa

mess = da_mess

EXCEPTIONS

fehler_bei_datenbeschaffung = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

retcode = 1.

EXIT.

ELSE.

LOOP AT da_mess.

sy-msgid = da_mess-msgid.

sy-msgno = da_mess-msgno.

sy-msgty = da_mess-msgty.

sy-msgv1 = da_mess-msgv1.

sy-msgv2 = da_mess-msgv2.

sy-msgv3 = da_mess-msgv3.

sy-msgv4 = da_mess-msgv4.

PERFORM protocol_update.

ENDLOOP.

ENDIF.

fill address key --> necessary for emails

addr_key-addrnumber = vbdka-adrnr.

addr_key-persnumber = vbdka-adrnp.

addr_key-addr_type = vbdka-address_type.

Fetch servicecontract-data and notice-data for head and position.

us_veda_vbeln = vbdka-vbeln.

us_veda_posnr_low = posnr_low.

CALL FUNCTION 'SD_VEDA_GET_PRINT_DATA'

EXPORTING

i_document_number = us_veda_vbeln

i_language = sy-langu

i_posnr_low = us_veda_posnr_low

TABLES

print_data_pos = tkomservp

print_data_head = tkomservh

print_notice_pos = tkomservpn

print_notice_head = tkomservhn.

PERFORM get_controll_data.

PERFORM sender.

PERFORM check_repeat.

PERFORM tvbdpau_create.

ENDFORM. "GET_DATA

FORM GET_ITEM_BILLING_SCHEDULES *

In this routine the billing schedules are fetched from the *

database. *

FORM get_item_billing_schedules.

REFRESH tfpltdr.

CHECK NOT vbdpa-fplnr IS INITIAL.

CALL FUNCTION 'BILLING_SCHED_PRINTVIEW_READ'

EXPORTING

i_fplnr = vbdpa-fplnr

i_language = nast-spras

i_vbeln = vbdka-vbeln

TABLES

zfpltdr = tfpltdr.

ENDFORM. "GET_ITEM_BILLING_SCHEDULES

&----

*& Form ITEM_BILLING_SCHEDULES_PRINT

&----

This routine prints the billing shedules of a salesdocument *

position. *

FORM item_billing_schedules_print.

DATA: first_line(1) TYPE c.

first_line = charx.

LOOP AT tfpltdr.

fpltdr = tfpltdr.

Output of the following printlines

IF NOT fpltdr-perio IS INITIAL.

periodische Fakturen

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_BILLING_SCHEDULE_PERIODIC'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

bei periodischen nur eine Zeile

EXIT.

ELSEIF fpltdr-fareg CA '14'.

prozentuale Teilfakturierung

IF NOT first_line IS INITIAL.

CLEAR first_line.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_BILLING_SCHEDULE_PERCENT_HEADER'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_BILLING_SCHEDULE_PERCENT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSEIF fpltdr-fareg CA '235'.

wertmäßige Teilfakturierung

IF NOT first_line IS INITIAL.

CLEAR first_line.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_BILLING_SCHEDULE_VALUE_HEADER'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_BILLING_SCHEDULE_VALUE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSEIF fpltdr-fareg CA '3'.

Schlußrechnung

ENDIF.

ENDLOOP.

ENDFORM. "ITEM_BILLING_SCHEDULES_PRINT

*eject

&----

*& FORM GET_ITEM_ADDIS

&----

Additionals data are fetched from database

FORM get_item_addis.

CLEAR: taddi_print.

CALL FUNCTION 'WTAD_ADDIS_IN_SO_PRINT'

EXPORTING

fi_vbeln = vbdka-vbeln

fi_posnr = vbdpa-posnr

FI_LANGUAGE = SY-LANGU

TABLES

fet_addis_in_so_print = taddi_print

EXCEPTIONS

addis_not_active = 1

no_addis_for_so_item = 2

OTHERS = 3.

ENDFORM. " GET_ITEM_ADDIS

FORM GET_ITEM_CHARACTERISTICS *

In this routine the configuration data item is fetched from *

the database. *

FORM get_item_characteristics.

DATA da_t_cabn LIKE cabn OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF da_key,

mandt LIKE cabn-mandt,

atinn LIKE cabn-atinn,

END OF da_key.

REFRESH tkomcon.

CHECK NOT vbdpa-cuobj IS INITIAL AND

vbdpa-attyp NE var_typ.

CALL FUNCTION 'VC_I_GET_CONFIGURATION'

EXPORTING

instance = vbdpa-cuobj

language = nast-spras

print_sales = charx

TABLES

configuration = tkomcon

EXCEPTIONS

OTHERS = 4.

RANGES : da_in_cabn FOR da_t_cabn-atinn.

Beschreibung der Merkmale wegen Objektmerkmalen auf sdcom-vkond holen

CLEAR da_in_cabn. REFRESH da_in_cabn.

LOOP AT tkomcon.

da_in_cabn-option = 'EQ'.

da_in_cabn-sign = 'I'.

da_in_cabn-low = tkomcon-atinn.

APPEND da_in_cabn.

ENDLOOP.

CLEAR da_t_cabn. REFRESH da_t_cabn.

CALL FUNCTION 'CLSE_SELECT_CABN'

EXPORTING

KEY_DATE = SY-DATUM

BYPASSING_BUFFER = ' '

WITH_PREPARED_PATTERN = ' '

I_AENNR = ' '

IMPORTING

AMBIGUOUS_OBJ_CHARACTERISTIC =

TABLES

in_cabn = da_in_cabn

t_cabn = da_t_cabn

EXCEPTIONS

no_entry_found = 1

OTHERS = 2.

Preisfindungsmerkmale / Merkmale auf VCSD_UPDATE herausnehmen

SORT da_t_cabn.

LOOP AT tkomcon.

da_key-mandt = sy-mandt.

da_key-atinn = tkomcon-atinn.

READ TABLE da_t_cabn WITH KEY da_key BINARY SEARCH.

IF sy-subrc 0 OR

( ( da_t_cabn-attab = 'SDCOM' AND

da_t_cabn-atfel = 'VKOND' ) OR

( da_t_cabn-attab = 'VCSD_UPDATE' ) ) .

DELETE tkomcon.

ENDIF.

ENDLOOP.

ENDFORM. "GET_ITEM_CHARACTERISTICS

FORM GET_ITEM_PRICES *

In this routine the price data for the item is fetched from *

the database. *

FORM get_item_prices.

CLEAR: komp,

tkomv.

IF komk-knumv NE vbdka-knumv OR

komk-knumv IS INITIAL.

CLEAR komk.

komk-mandt = sy-mandt.

komk-kalsm = vbdka-kalsm.

komk-kappl = pr_kappl.

komk-waerk = vbdka-waerk.

komk-knumv = vbdka-knumv.

komk-knuma = vbdka-knuma.

komk-vbtyp = vbdka-vbtyp.

komk-land1 = vbdka-land1.

komk-vkorg = vbdka-vkorg.

komk-vtweg = vbdka-vtweg.

komk-spart = vbdka-spart.

komk-bukrs = vbdka-bukrs_vf.

komk-hwaer = vbdka-waers.

komk-prsdt = vbdka-erdat.

komk-kurst = vbdka-kurst.

komk-kurrf = vbdka-kurrf.

komk-kurrf_dat = vbdka-kurrf_dat.

ENDIF.

komp-kposn = vbdpa-posnr.

komp-kursk = vbdpa-kursk.

komp-kursk_dat = vbdpa-kursk_dat.

IF vbdka-vbtyp CA 'HKNOT6'.

IF vbdpa-shkzg CA ' A'.

komp-shkzg = 'X'.

ENDIF.

ELSE.

IF vbdpa-shkzg CA 'BX'.

komp-shkzg = 'X'.

ENDIF.

IF price_print_mode EQ chara.

CALL FUNCTION 'RV_PRICE_PRINT_ITEM'

EXPORTING

comm_head_i = komk

comm_item_i = komp

language = nast-spras

IMPORTING

comm_head_e = komk

comm_item_e = komp

TABLES

tkomv = tkomv

tkomvd = tkomvd.

ELSE.

CALL FUNCTION 'RV_PRICE_PRINT_ITEM_BUFFER'

EXPORTING

comm_head_i = komk

comm_item_i = komp

language = nast-spras

IMPORTING

comm_head_e = komk

comm_item_e = komp

TABLES

tkomv = tkomv

tkomvd = tkomvd.

ENDIF.

ENDFORM. "GET_ITEM_PRICES

FORM GET_HEADER_PRICES *

In this routine the price data for the header is fetched from *

the database. *

FORM get_header_prices.

LOOP AT tvbdpa.

CALL FUNCTION 'SD_TAX_CODE_MAINTAIN'

EXPORTING

key_knumv = vbdka-knumv

key_kposn = tvbdpa-posnr

i_application = ' '

i_pricing_procedure = vbdka-kalsm

TABLES

xkomv = tkomv.

ENDLOOP.

IF price_print_mode EQ chara.

CALL FUNCTION 'RV_PRICE_PRINT_HEAD'

EXPORTING

comm_head_i = komk

language = nast-spras

IMPORTING

comm_head_e = komk

TABLES

tkomv = tkomv

tkomvd = tkomvd.

ELSE.

CALL FUNCTION 'RV_PRICE_PRINT_HEAD_BUFFER'

EXPORTING

comm_head_i = komk

language = nast-spras

IMPORTING

comm_head_e = komk

TABLES

tkomv = tkomv

tkomvd = tkomvd.

ENDIF.

ENDFORM. "GET_HEADER_PRICES

&----

*& Form HEADER_DATA_PRINT

&----

Printing of header data like terms, weights .... *

FORM header_data_print.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_DATA'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " HEADER_DATA_PRINT

FORM HEADER_PRICE_PRINT *

Printout of the header prices *

FORM header_price_print.

LOOP AT tkomvd.

AT FIRST.

IF komk-supos NE 0.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_SUM'.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'UNDER_LINE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDAT.

komvd = tkomvd.

IF komvd-koaid = 'D'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'TAX_LINE'.

ELSE.

IF NOT komvd-kntyp EQ 'f'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'SUM_LINE'.

ENDIF.

ENDLOOP.

DESCRIBE TABLE tkomvd LINES sy-tfill.

IF sy-tfill = 0.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'UNDER_LINE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "HEADER_PRICE_PRINT

FORM HEADER_TEXT_PRINT *

Printout of the headertexts *

FORM header_text_print.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TEXT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "HEADER_TEXT_PRINT

FORM ITEM_BILLING_CORRECTION_HEADER *

In the case of a billing correction, the header of the item *

debit memo / credit memo position, is printed by this routine *

FORM item_billing_correction_header USING us_ganf TYPE c

us_lanf TYPE c.

CHECK vbdka-vbklt EQ vbklt_rech_korr.

IF vbdka-vbtyp = vbtyp_ganf.

Gutschriftsanforderung

IF vbdpa-shkzg = charx.

IF us_ganf IS INITIAL.

MOVE charx TO us_ganf.

MOVE space TO us_lanf.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'CORRECTION_TEXT_K'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

IF us_lanf IS INITIAL.

MOVE charx TO us_lanf.

MOVE space TO us_ganf.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'CORRECTION_TEXT_L'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

IF vbdka-vbtyp = vbtyp_lanf.

Lastschriftssanforderung

IF vbdpa-shkzg = space.

IF us_lanf IS INITIAL.

MOVE charx TO us_lanf.

MOVE space TO us_ganf.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'CORRECTION_TEXT_L'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

IF us_ganf IS INITIAL.

MOVE charx TO us_ganf.

MOVE space TO us_lanf.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'CORRECTION_TEXT_K'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_BILLING_CORRECTION_HEADER

&----

*& Form ITEM_ADDIS_PRINT

&----

Printout of item additionals

FORM item_addis_print.

LOOP AT taddi_print.

MOVE-CORRESPONDING taddi_print TO wtad_addis_in_so_print.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_ADDI_SO_INFO'

EXCEPTIONS

OTHERS = 1.

LOOP AT taddi_print-addi_so_extra_text_info

INTO wtad_buying_print_extra_text.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_ADDI_EXTRA_TEXT'

EXCEPTIONS

OTHERS = 1.

ENDLOOP.

ENDFORM. " ITEM_ADDIS_PRINT

FORM ITEM_CHARACERISTICS_PRINT *

Printout of the item characteristics -> configuration *

FORM item_characteristics_print.

LOOP AT tkomcon.

conf_out = tkomcon.

IF sy-tabix = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_CONFIGURATION_HEADER'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_CONFIGURATION'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDLOOP.

ENDFORM. "ITEM_CHARACTERISTICS_PRINT

FORM ITEM_DELIVERY_CONFIRMATION *

If the delivery date is not confirmed, a text is printed *

FORM item_delivery_confirmation.

CHECK vbdka-vbtyp NE vbtyp_ganf AND vbdka-vbtyp NE vbtyp_lanf.

CHECK vbdpa-lfdat = space.

CHECK vbdpa-kwmeng NE 0.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_DELIVERY_CONFIRMATION'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_DELIVERY_CONFIRMATION

FORM ITEM_AGREED_DELIVERY_TIME *

If an agreed delivery time and the corresponding text is *

available on item level, the text is printed *

FORM item_agreed_delivery_time.

CHECK vbdka-vbtyp EQ 'B' OR vbdka-vbtyp EQ 'G'.

CHECK vbdpa-delco NE space AND vbdpa-delco_bez NE space.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_AGREED_DELIVERY_TIME'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_AGREED_DELIVERY_TIME

FORM ITEM_PRICE_PRINT *

Printout of the item prices *

FORM item_price_print.

LOOP AT tkomvd.

komvd = tkomvd.

IF sy-tabix = 1 AND

( komvd-koaid = charb OR

komvd-kschl = space ).

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_PRICE_QUANTITY'.

ELSE.

IF komvd-kntyp NE 'f'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_PRICE_TEXT'.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_REBATE_IN_KIND'.

ENDIF.

ENDLOOP.

ENDFORM. "ITEM_PRICE_PRINT

FORM ITEM_PRINT *

Printout of the items *

FORM item_print.

DATA: da_subrc LIKE sy-subrc,

da_dragr LIKE tvag-dragr.

DATA: da_ganf(1) TYPE c, "Print flag for billing correction

da_lanf(1) TYPE c. "Print flag for billing correction

DATA: l_obknr TYPE objknr.

DATA: l_equnr TYPE equnr.

DATA: stru_bapi_itob_eq_only TYPE bapi_itob_eq_only.

DATA: stru_bapi_itob TYPE bapi_itob.

DATA: stru_addr TYPE addr1_sel.

DATA: stru_adr TYPE sadr.

DATA: l_pltxt TYPE c LENGTH 40,

l_pltxt_temp TYPE c LENGTH 40.

DATA: str1 TYPE c LENGTH 14.

CALL FUNCTION 'WRITE_FORM' "First header

EXPORTING element = 'ITEM_HEADER_DATA'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

tvbdpa_temp] = tvbdpa[.

LOOP AT tvbdpa.

vbdpa = tvbdpa.

SELECT SINGLE obknr FROM ser02

INTO l_obknr

WHERE sdaufnr = nast-objky

AND posnr = vbdpa-posnr.

IF sy-subrc = 0.

SELECT SINGLE equnr FROM objk

INTO l_equnr

WHERE obknr = l_obknr.

IF sy-subrc = 0.

CALL FUNCTION 'BAPI_EQUI_GETDETAIL'

EXPORTING

equipment = l_equnr

IMPORTING

data_general_exp = stru_bapi_itob

data_specific_exp = stru_bapi_itob_eq_only.

stru_addr-addrnumber = stru_bapi_itob-read_adrnr.

CALL FUNCTION 'ADDR_GET'

EXPORTING

address_selection = stru_addr

IMPORTING

sadr = stru_adr

EXCEPTIONS

parameter_error = 1

address_not_exist = 2

version_not_exist = 3

internal_error = 4

OTHERS = 5.

IF sy-subrc 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

SELECT SINGLE pltxt FROM iflo

INTO l_pltxt

WHERE tplnr = stru_bapi_itob_eq_only-read_floc

AND spras = 'E'.

IF l_pltxt_temp l_pltxt.

IF sy-subrc = 0.

MOVE l_pltxt TO l_pltxt_temp.

SPLIT l_pltxt AT space INTO st_cont_sumry-pltxt1 st_cont_sumry-pltxt2 st_cont_sumry-pltxt3.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-pltxt1 WITH space.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-pltxt2 WITH space.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-pltxt3 WITH space.

MOVE l_pltxt TO st_cont_sumry-pltxt.

CLEAR: g_cont_subtax, g_cont_tottax.

ENDIF.

ELSE.

MOVE l_pltxt_temp TO st_cont_sumry-pltxt.

ENDIF.

DATA: st_cont_sumry-name_temp LIKE st_cont_sumry-name,

st_cont_sumry-city_temp LIKE st_cont_sumry-city,

st_cont_sumry-state_temp LIKE st_cont_sumry-state.

MOVE stru_adr-name1 TO st_cont_sumry-name.

MOVE stru_adr-name1 TO st_cont_sumry-name_temp.

SPLIT stru_adr-name1 AT space INTO st_cont_sumry-name1 st_cont_sumry-name2 st_cont_sumry-name3.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-name1 WITH space.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-name2 WITH space.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-name3 WITH space.

MOVE stru_adr-ort01 TO st_cont_sumry-city.

MOVE stru_adr-ort01 TO st_cont_sumry-city_temp.

SPLIT stru_adr-ort01 AT space INTO st_cont_sumry-city1 st_cont_sumry-city2 st_cont_sumry-city3.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-city1 WITH space.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-city2 WITH space.

REPLACE ALL OCCURRENCES OF ',' IN st_cont_sumry-city3 WITH space.

MOVE stru_adr-regio TO st_cont_sumry-state.

MOVE stru_adr-regio TO st_cont_sumry-state_temp.

ENDIF.

ELSE.

MOVE l_pltxt_temp TO st_cont_sumry-pltxt.

MOVE st_cont_sumry-name_temp TO st_cont_sumry-name.

MOVE st_cont_sumry-city_temp TO st_cont_sumry-city.

MOVE st_cont_sumry-state_temp TO st_cont_sumry-state.

ENDIF.

MOVE vbdpa-zmeng TO str1.

MOVE str1+0(9) TO st_cont_sumry-item.

MOVE vbdpa-netpr TO st_cont_sumry-mothly_tot.

st_cont_sumry-mothly_tot = st_cont_sumry-item * vbdpa-netpr.

MOVE vbdpa-netwr TO st_cont_sumry-ext_tot.

g_cont_subtot = g_cont_subtot + st_cont_sumry-mothly_tot."vbdpa-netpr.

g_cont_exttot = g_cont_exttot + vbdpa-netwr.

komk-mandt = sy-mandt.

komk-kalsm = vbdka-kalsm.

komk-kappl = pr_kappl.

komk-waerk = vbdka-waerk.

komk-knumv = vbdka-knumv.

komk-knuma = vbdka-knuma.

komk-vbtyp = vbdka-vbtyp.

komk-land1 = vbdka-land1.

komk-vkorg = vbdka-vkorg.

komk-vtweg = vbdka-vtweg.

komk-spart = vbdka-spart.

komk-bukrs = vbdka-bukrs_vf.

komk-hwaer = vbdka-waers.

komk-prsdt = vbdka-erdat.

komk-kurst = vbdka-kurst.

komk-kurrf = vbdka-kurrf.

komk-kurrf_dat = vbdka-kurrf_dat.

komp-kposn = vbdpa-posnr.

komp-kursk = vbdpa-kursk.

komp-kursk_dat = vbdpa-kursk_dat.

IF vbdka-vbtyp CA 'HKNOT6'.

IF vbdpa-shkzg CA ' A'.

komp-shkzg = 'X'.

ENDIF.

ELSE.

IF vbdpa-shkzg CA 'BX'.

komp-shkzg = 'X'.

ENDIF.

IF price_print_mode EQ chara.

CALL FUNCTION 'RV_PRICE_PRINT_ITEM'

EXPORTING

comm_head_i = komk

comm_item_i = komp

language = nast-spras

IMPORTING

comm_head_e = komk

comm_item_e = komp

TABLES

tkomv = tkomv

tkomvd = tkomvd.

ELSE.

CALL FUNCTION 'RV_PRICE_PRINT_ITEM_BUFFER'

EXPORTING

comm_head_i = komk

comm_item_i = komp

language = nast-spras

IMPORTING

comm_item_e = komp

TABLES

tkomv = tkomv.

ENDIF.

g_cont_subtax = g_cont_subtax + komp-mwsbp.

IF NOT komp-mwsbp IS INITIAL.

g_cont_tottax = g_cont_tottax + komp-kzwi1.

ENDIF.

MOVE: g_cont_subtax TO st_cont_sumry-cont_subtax,

g_cont_tottax TO st_cont_sumry-cont_tottax.

CLEAR: komk,komp, tkomv,tkomvd.

MOVE vbdpa-posnr TO st_cont_sumry-posnr.

APPEND st_cont_sumry TO gt_cont_sumry.

CLEAR: vbdpa,st_cont_sumry.

ENDLOOP.

CLEAR st_cont_sumry.

LOOP AT gt_cont_sumry INTO st_cont_sumry.

MOVE st_cont_sumry TO st_cont_sumry1.

AT END OF pltxt.

SUM.

MOVE st_cont_sumry-item TO st_cont_sumry1-item.

MOVE st_cont_sumry-mothly_tot TO st_cont_sumry1-mothly_tot.

MOVE st_cont_sumry-ext_tot TO st_cont_sumry1-ext_tot.

MOVE st_cont_sumry-cont_subtax TO st_cont_sumry1-cont_subtax.

MOVE st_cont_sumry-cont_tottax TO st_cont_sumry1-cont_tottax.

APPEND st_cont_sumry1 TO gt_cont_sumry1.

ENDAT.

ENDLOOP.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM' "First header

EXPORTING element = 'ITEM_HEADER_DATA'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CLEAR st_cont_sumry.

SORT gt_cont_sumry1 BY pltxt.

LOOP AT gt_cont_sumry1 INTO st_cont_sumry.

CALL FUNCTION 'WRITE_FORM' "First header

EXPORTING element = 'ITEM_HEADER_DATA'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM' "First header

EXPORTING element = 'ITEM_HEADER_DATA'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_HEADER_CUSTOM_DATA'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_HEADER_CUSTOM_DATA'.

AT LAST.

SUM.

MOVE st_cont_sumry-mothly_tot TO g_cont_subtot.

MOVE st_cont_sumry-cont_subtax TO g_cont_subtax.

g_cont_grantmontot = g_cont_subtot + g_cont_subtax.

MOVE st_cont_sumry-ext_tot TO g_cont_exttot.

MOVE st_cont_sumry-cont_tottax TO g_cont_tottax.

g_cont_grantexttot = g_cont_exttot + g_cont_tottax.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_HEADER_TOTAL_DATA'.

ENDAT.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_HEADER_TOTAL_DATA'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

PERFORM print_itemdata.

ENDLOOP.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'NEW-PAGE'.

PERFORM print_itemdata.

CALL FUNCTION 'WRITE_FORM' "Deactivate Header

EXPORTING element = 'ITEM_HEADER'

function = 'DELETE'

type = 'TOP'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

REFRESH: gt_cont_sumry1,gt_cont_sumry.

CLEAR: st_cont_sumry, g_cont_subtax, g_cont_tottax,

st_cont_sumry,st_cont_sumry1,

g_cont_exttot,g_cont_subtax,g_cont_tottax,

g_cont_subadj,g_cont_adjtot,g_cont_adj,

g_cont_adjexttot,g_cont_grantmontot,g_cont_grantexttot.

CALL FUNCTION 'WRITE_FORM' "First header

EXPORTING element = 'ITEM_HEADER'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CALL FUNCTION 'WRITE_FORM' "Activate header

EXPORTING element = 'ITEM_HEADER'

type = 'TOP'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

LOOP AT tvbdpa.

vbdpa = tvbdpa.

key_data-sdaufnr = vbdka-vbeln.

key_data-posnr = vbdpa-posnr.

SELECT SINGLE * FROM veda

WHERE vbeln = vbdka-vbeln

AND vposn = vbdpa-posnr.

IF sy-subrc 0.

SELECT SINGLE * FROM veda

WHERE vbeln = vbdka-vbeln.

ENDIF.

**ENHANCEMENT-POINT ITEM_PRINT_01 SPOTS ES_RVADOR01.

IF vbdpa-dragr EQ space. "Print rejected item?

IF vbdpa-posnr_neu NE space. "Item

PERFORM item_billing_correction_header USING da_ganf da_lanf.

PERFORM get_item_serials.

PERFORM get_item_characteristics.

PERFORM get_item_billing_schedules.

PERFORM get_item_prices.

PERFORM get_item_addis.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE'.

PERFORM item_rejected.

**-> Commented by sharat END

PERFORM item_price_print.

**-> End

**-> Change by Sharat BEGIN

PERFORM item_serials_print.

PERFORM item_price_print_costum.

**->END

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

PERFORM item_text_print.

**-> Commented by sharat END

PERFORM item_serials_print.

PERFORM item_price_print_costum.

**-> End

PERFORM item_characteristics_print.

PERFORM item_addis_print.

PERFORM item_reference_billing.

PERFORM alternative_item.

PERFORM delivery_date.

PERFORM item_delivery_confirmation.

PERFORM item_agreed_delivery_time.

PERFORM item_billing_schedules_print.

PERFORM different_reference_no.

PERFORM different_terms.

PERFORM different_consignee.

PERFORM schedule_header.

PERFORM main_item.

ELSE.

PERFORM schedule_print.

ENDIF.

**ENHANCEMENT-POINT ITEM_PRINT_03 SPOTS ES_RVADOR01 STATIC.

**ENHANCEMENT-POINT ITEM_PRINT_02 SPOTS ES_RVADOR01.

ENDIF.

ENDLOOP.

CALL FUNCTION 'WRITE_FORM' "Deactivate Header

EXPORTING element = 'ITEM_HEADER'

function = 'DELETE'

type = 'TOP'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_PRINT

FORM ITEM_REFERENCE_BILLING *

If the reference number of the billing is printed by this *

routine. In case (debit memo / credit memo) *

FORM item_reference_billing.

CHECK vbdka-vbklt EQ vbklt_rech_korr.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_REFERENCE_BILLING'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_REFERENCE_BILLING

FORM ITEM_REJECTED *

A text is printed, if the item is rejected *

FORM item_rejected.

CHECK NOT vbdpa-abgru IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_REJECTED'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_REJECTED

FORM MAIN_ITEM *

A text is printed, if the item is a main item *

FORM main_item.

LOOP AT tvbdpau INTO vbdpau

WHERE posnr EQ vbdpa-posnr.

IF vbdpau-uposb IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ONE_SUBITEM'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'SEVERAL_SUBITEMS'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDLOOP.

ENDFORM. "MAIN_ITEM

FORM ITEM_TEXT_PRINT *

Printout of the item texts *

FORM item_text_print.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_TEXT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "ITEM_TEXT_PRINT

FORM PROTOCOL_UPDATE *

The messages are collected for the processing protocol. *

FORM protocol_update.

CHECK xscreen = space.

CALL FUNCTION 'NAST_PROTOCOL_UPDATE'

EXPORTING

msg_arbgb = syst-msgid

msg_nr = syst-msgno

msg_ty = syst-msgty

msg_v1 = syst-msgv1

msg_v2 = syst-msgv2

msg_v3 = syst-msgv3

msg_v4 = syst-msgv4

EXCEPTIONS

OTHERS = 1.

ENDFORM. "PROTOCOL_UPDATE

FORM SCHEDULE_HEADER *

If there are schedules in the item, then here is printed the *

header for the schedules. *

FORM schedule_header.

CHECK vbdpa-etenr_da NE space.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_SCHEDULE_HEADER'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "SCHEDULE_HEADER

FORM SCHEDULE_PRINT *

This routine prints the schedules for an item. *

FORM schedule_print.

CHECK vbdpa-lfrel EQ 'X'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_SCHEDULE_PRINT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. "SCHEDULE_PRINT

FORM SENDER *

This routine determines the address of the sender (Table VKO) *

FORM sender.

SELECT SINGLE * FROM tvko WHERE vkorg = vbdka-vkorg.

IF sy-subrc NE 0.

syst-msgid = 'VN'.

syst-msgno = '203'.

syst-msgty = 'E'.

syst-msgv1 = 'TVKO'.

syst-msgv2 = syst-subrc.

PERFORM protocol_update.

EXIT.

ENDIF.

CLEAR gv_fb_addr_get_selection.

gv_fb_addr_get_selection-addrnumber = tvko-adrnr. "SADR40A

CALL FUNCTION 'ADDR_GET'

EXPORTING

address_selection = gv_fb_addr_get_selection

address_group = 'CA01'

IMPORTING

sadr = sadr

EXCEPTIONS

OTHERS = 01.

IF sy-subrc NE 0.

CLEAR sadr.

ENDIF. "SADR40A

vbdka-sland = sadr-land1.

IF sy-subrc NE 0.

syst-msgid = 'VN'.

syst-msgno = '203'.

syst-msgty = 'E'.

syst-msgv1 = 'SADR'.

syst-msgv2 = syst-subrc.

PERFORM protocol_update.

ENDIF.

SELECT SINGLE * FROM TVBUR WHERE VKBUR = VBDKA-VKBUR.

IF SY-SUBRC NE 0.

SYST-MSGID = 'VN'.

SYST-MSGNO = '203'.

SYST-MSGTY = 'E'.

SYST-MSGV1 = 'TVBUR'.

SYST-MSGV2 = SYST-SUBRC.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ENDFORM. "SENDER

FORM TVBDPAU_CREATE *

This routine is creating a table which includes the subitem- *

numbers *

FORM tvbdpau_create.

CLEAR tvbdpau.

REFRESH tvbdpau.

LOOP AT tvbdpa.

IF tvbdpa-uepos IS INITIAL OR

tvbdpa-uepos NE tvbdpau-posnr.

Append work area to internal table TVBDPAU

IF tvbdpau-uposv > 0.

APPEND tvbdpau.

CLEAR tvbdpau.

ENDIF.

Start filling new work area

tvbdpau-posnr = tvbdpa-posnr.

IF NOT tvbdpa-uepos IS INITIAL AND

tvbdpa-uepos NE tvbdpau-posnr.

tvbdpau-posnr = tvbdpa-uepos.

tvbdpau-uepvw = tvbdpa-uepvw.

tvbdpau-uposv = tvbdpa-posnr.

ENDIF.

ELSE.

IF tvbdpau-uposv IS INITIAL OR

tvbdpau-uposv > tvbdpa-posnr.

tvbdpau-uposv = tvbdpa-posnr.

ENDIF.

IF tvbdpau-uposb < tvbdpa-posnr AND

tvbdpau-uposv < tvbdpa-posnr.

tvbdpau-uposb = tvbdpa-posnr.

ENDIF.

tvbdpau-uepvw = tvbdpa-uepvw. "UPOS-Verwendung

ENDIF.

ENDLOOP.

IF tvbdpau-uposv > 0.

APPEND tvbdpau.

ENDIF.

SORT tvbdpau.

ENDFORM. "TVBDPAU_CREATE

FORM VALIDITY_PRINT *

This routine is printing the period of validity for offers *

and contracts *

FORM validity_print.

CHECK steu-vdkex EQ space.

CASE vbdka-vbtyp.

WHEN 'B'.

IF vbdka-angdt CN '0' OR

vbdka-bnddt CN '0'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'VALIDITY_OFFER'

window = 'VALIDITY'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'E'.

IF vbdka-guebg CN '0' OR

vbdka-gueen CN '0'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'VALIDITY_CONTRACT'

window = 'VALIDITY'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'F'.

IF vbdka-guebg CN '0' OR

vbdka-gueen CN '0'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'VALIDITY_CONTRACT'

window = 'VALIDITY'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

WHEN 'G'.

IF vbdka-guebg CN '0' OR

vbdka-gueen CN '0'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'VALIDITY_CONTRACT'

window = 'VALIDITY'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDCASE.

ENDFORM. "VALIDITY_PRINT

&----

*& Form HEADER_NOTICE_PRINT

&----

This routine prints the notice-rules of the contract-header. *

--> p1 text

<-- p2 text

FORM header_notice_print.

DATA: us_text(1) TYPE c. "Kz. falls Text für Kündigungsbed.

Kündigungsbedingungen auf Kopfebene.

CLEAR us_text.

LOOP AT tkomservhn.

vedkn = tkomservhn.

IF us_text IS INITIAL.

For the first time a headertext is printed.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TERMS_OF_NOTTXT'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

us_text = charx.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TERMS_OF_NOTICE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDLOOP.

If notice-rules exists a empty line is printed.

IF NOT us_text IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'EMPTY_LINE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " HEADER_NOTICE_PRINT

*eject

&----

*& Form GET_ITEM_SERIALS

&----

This routine give back the serialnumbers of salesdocument *

position. The numbers are processed as print-lines in the *

table KOMSER_PRINT. *

--> US_VBELN Salesdocument

--> US_POSNR Position of the salesdocument

FORM get_item_serials.

DATA: key_data LIKE rserob,

sernos LIKE rserob OCCURS 0 WITH HEADER LINE,

serxx LIKE rserxx OCCURS 0 WITH HEADER LINE.

key_data-taser = 'SER02'.

key_data-sdaufnr = vbdka-vbeln.

key_data-posnr = vbdpa-posnr.

IF key_data-sdaufnr IS INITIAL AND NOT

key_data-posnr IS INITIAL.

beim Anlegen ist Belegnummer leer - deshalb Dummy-Belegnummer

key_data-sdaufnr = char$.

ENDIF.

Read the Serialnumbers of a Position.

REFRESH: tkomser,

tkomser_print.

CALL FUNCTION 'GET_SERNOS_OF_DOCUMENT'

EXPORTING

key_data = key_data

TABLES

sernos = sernos

*->Begin of change by Sharat added new line one

serxx = serxx

*->end of change by Sharat

EXCEPTIONS

key_parameter_error = 1

no_supported_access = 2

no_data_found = 3

OTHERS = 4.

*-> Comented by Sharat BEGIN

IF sy-subrc NE 0 AND

sy-subrc NE 3.

PERFORM protocol_update.

ENDIF.

*-> Comented by Sharat END

*->Begin of change by Sharat

TYPES: BEGIN OF ty_seri,

sernr TYPE gernr,

END OF ty_seri.

DATA: lt_seri TYPE TABLE OF ty_seri,

wa_seri LIKE LINE OF lt_seri.

LOOP AT serxx.

SELECT sernr FROM objk

INTO TABLE lt_seri

WHERE obknr = serxx-obknr.

IF sy-subrc = 0.

tkomser-vbeln = sernos-sdaufnr.

tkomser-posnr = sernos-posnr.

LOOP AT lt_seri INTO wa_seri.

tkomser-sernr = wa_seri-sernr.

APPEND tkomser.

ENDLOOP.

ENDIF.

ENDLOOP.

*->END of changes by Sharat

*-> Comented by Sharat BEGIN

CHECK sy-subrc EQ 0.

Serialnummern übergeben

tkomser-vbeln = sernos-sdaufnr.

tkomser-posnr = sernos-posnr.

LOOP AT sernos.

tkomser-sernr = sernos-sernr.

APPEND tkomser.

ENDLOOP.

*-> Comented by Sharat END

Process the stringtable for Printing.

CALL FUNCTION 'PROCESS_SERIALS_FOR_PRINT'

EXPORTING

i_boundary_left = '(_'

i_boundary_right = '_)'

i_sep_char_strings = ',_'

i_sep_char_interval = '_-_'

i_use_interval = 'X'

i_boundary_method = 'C'

i_line_length = 50

i_no_zero = 'X'

i_alphabet = sy-abcde

i_digits = '0123456789'

i_special_chars = '-'

i_with_second_digit = ' '

TABLES

serials = tkomser

serials_print = tkomser_print

EXCEPTIONS

boundary_missing = 01

interval_separation_missing = 02

length_to_small = 03

internal_error = 04

wrong_method = 05

wrong_serial = 06

two_equal_serials = 07

serial_with_wrong_char = 08

serial_separation_missing = 09.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " GET_ITEM_SERIALS

*eject

&----

*& Form ITEM_SERIALS_PRINT

&----

This routine prints the serialnumbers of a salesdocument *

position. *

FORM item_serials_print.

DATA: first_line(1) TYPE c.

first_line = charx.

LOOP AT tkomser_print.

komser = tkomser_print.

IF NOT first_line IS INITIAL.

Output of the Headerline

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_SERIAL_HEADER'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CLEAR first_line.

ELSE.

Output of the following printlines

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_SERIAL'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDLOOP.

If serialnumbers exists a empty line is printed.

IF first_line IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'EMPTY_LINE'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " ITEM_SERIALS_PRINT

*eject

&----

*& Form HEADER_INTER_PRINT

&----

Prints the message that if other condition for the positions *

exists they are printed there. *

--> p1 text

<-- p2 text

FORM header_inter_print.

CHECK NOT steu-vdkex IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TERMS_OF_TXTEND'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " HEADER_INTER_PRINT

&----

*& Form GET_CONTROLL_DATA

&----

Checks if servicedata for the header exists. *

Checks if servicedata for the position exists. *

Checks if noticedata for the header exists. *

Checks if noticedata for the position exists. *

FORM get_controll_data.

DATA: lines TYPE i.

Exists servicedata for the header?

DESCRIBE TABLE tkomservh LINES lines.

IF lines GT 0.

steu-vdkex = 'X'.

ENDIF.

Exists servicedata for the position?

DESCRIBE TABLE tkomservp LINES lines.

IF lines GT 0.

steu-vdpex = 'X'.

ENDIF.

Exists noticedata for the header?

DESCRIBE TABLE tkomservhn LINES lines.

IF lines GT 0.

steu-kbkex = 'X'.

ENDIF.

Exists noticedata for the position?

DESCRIBE TABLE tkomservpn LINES lines.

IF lines GT 0.

steu-kbpex = 'X'.

ENDIF.

ENDFORM. " GET_CONTROLL_DATA

*eject

&----

*& Form HEADER_SERV_PRINT

&----

Output of the validity of a service-contract. *

FORM header_serv_print.

CHECK NOT steu-vdkex IS INITIAL.

READ TABLE tkomservh INDEX 1.

MOVE tkomservh TO vedka.

Output of the validity.

IF NOT vedka-venddat IS INITIAL OR

vedka-venddat EQ space.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TERMS_OF_SERV1'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSEIF vedka-vbegdat NE space AND

NOT vedka-vbegdat IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TERMS_OF_SERV2'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_TERMS_OF_SERV3'

EXCEPTIONS

element = 1

window = 2.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " HEADER_SERV_PRINT

&----

*& Form get_fax_land

&----

text

-->P_NAST_TLAND text

FORM get_fax_land USING p_nast_land LIKE nast-tland.

DATA l_land LIKE nast-tland .

CLEAR l_land.

IF NOT addr_key-addrnumber IS INITIAL.

CALL FUNCTION 'WFMC_FAXNUMBER_FOR_ADDRESS'

EXPORTING

adrnr = addr_key-addrnumber

IMPORTING

tland = l_land

EXCEPTIONS

addr_not_exist = 1

OTHERS = 2.

IF sy-subrc = 0 AND NOT l_land IS INITIAL.

p_nast_land = l_land.

ENDIF.

ENDFORM. " get_fax_land

*ENHANCEMENT-POINT RVADOFOI_01 SPOTS ES_RVADOR01 STATIC.

*ENHANCEMENT-POINT RVADOR01_03 SPOTS ES_RVADOR01 STATIC.

&----

*& Form item_price_print_costum

&----

text

--> p1 text

<-- p2 text

FORM item_price_print_costum .

LOOP AT tkomv WHERE kposn = vbdpa-posnr.

IF tkomv-kschl CP 'Z*'.

komv = tkomv.

CALL FUNCTION 'CONDITION_TEXTS_GET'

EXPORTING

pi_kappl = 'V'

pi_kschl = tkomv-kschl

PI_KOTABNR =

IMPORTING

pe_i_t685t = t685t

PE_I_TMC1T =

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_PRICE_QUANTITY'.

ENDIF.

ENDLOOP.

ENDFORM. " item_price_print_costum

&----

*& Form print_itemdata

&----

text

--> p1 text

<-- p2 text

FORM print_itemdata .

DATA: da_ganf(1) TYPE c, "Print flag for billing correction

da_lanf(1) TYPE c. "Print flag for billing correction

DATA: wa_cont_sumry_temp LIKE LINE OF gt_cont_sumry.

CALL FUNCTION 'WRITE_FORM' "First header

EXPORTING element = 'ITEM_HEADER'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

CALL FUNCTION 'WRITE_FORM' "Activate header

EXPORTING element = 'ITEM_HEADER'

type = 'TOP'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

SORT gt_cont_sumry BY pltxt.

LOOP AT gt_cont_sumry INTO wa_cont_sumry_temp." WHERE posnr <= st_cont_sumry-posnr.

AT NEW pltxt.

MOVE wa_cont_sumry_temp-pltxt TO g_pltxt.

ENDAT.

READ TABLE tvbdpa_temp WITH KEY posnr = wa_cont_sumry_temp-posnr.

IF sy-subrc = 0.

READ TABLE tvbdpa_temp WITH KEY posnr = wa_cont_sumry_temp-posnr.

IF sy-subrc = 0.

vbdpa = tvbdpa_temp.

DELETE tvbdpa_temp WHERE posnr = wa_cont_sumry_temp-posnr.

key_data-sdaufnr = vbdka-vbeln.

key_data-posnr = vbdpa-posnr.

SELECT SINGLE * FROM veda

WHERE vbeln = vbdka-vbeln

AND vposn = vbdpa-posnr.

IF sy-subrc <> 0.

SELECT SINGLE * FROM veda

WHERE vbeln = vbdka-vbeln.

ENDIF.

*ENHANCEMENT-POINT ITEM_PRINT_01 SPOTS ES_RVADOR01.

IF vbdpa-dragr EQ space. "Print rejected item?

IF vbdpa-posnr_neu NE space. "Item

PERFORM item_billing_correction_header USING da_ganf da_lanf.

PERFORM get_item_serials.

PERFORM get_item_characteristics.

PERFORM get_item_billing_schedules.

PERFORM get_item_prices.

PERFORM get_item_addis.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE'.

PERFORM item_rejected.

*-> Commented by sharat END

PERFORM item_price_print.

*-> End

*-> Change by Sharat BEGIN

PERFORM item_serials_print.

PERFORM item_price_print_costum.

*->END

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

PERFORM item_text_print.

*-> Commented by sharat END

PERFORM item_serials_print.

PERFORM item_price_print_costum.

*-> End

PERFORM item_characteristics_print.

PERFORM item_addis_print.

PERFORM item_reference_billing.

PERFORM alternative_item.

PERFORM delivery_date.

PERFORM item_delivery_confirmation.

PERFORM item_agreed_delivery_time.

PERFORM item_billing_schedules_print.

PERFORM different_reference_no.

PERFORM different_terms.

PERFORM different_consignee.

PERFORM schedule_header.

PERFORM main_item.

ELSE.

PERFORM schedule_print.

ENDIF.

*ENHANCEMENT-POINT ITEM_PRINT_03 SPOTS ES_RVADOR01 STATIC.

*ENHANCEMENT-POINT ITEM_PRINT_02 SPOTS ES_RVADOR01.

ENDIF.

DATA: l_line TYPE i,

l_tabix TYPE sy-tabix.

DESCRIBE TABLE gt_cont_sumry1 LINES l_line.

READ TABLE gt_cont_sumry1 INTO st_cont_sumry WITH KEY posnr = wa_cont_sumry_temp-posnr.

IF sy-subrc = 0.

MOVE sy-tabix TO l_tabix.

MOVE st_cont_sumry-mothly_tot TO g_cont_subtot.

MOVE st_cont_sumry-cont_subtax TO g_cont_subtax.

g_cont_grantmontot = g_cont_subtot + g_cont_subtax.

MOVE st_cont_sumry-ext_tot TO g_cont_exttot.

MOVE st_cont_sumry-cont_tottax TO g_cont_tottax.

g_cont_grantexttot = g_cont_exttot + g_cont_tottax.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE_HEADER_TOTAL_DATA'.

PERFORM end_print.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'END_VALUES'.

IF l_tabix l_line.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'NEW-PAGE'.

ENDIF.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

ENDIF.

CLEAR g_pltxt.

ENDLOOP.

LOOP AT tvbdpa.

vbdpa = tvbdpa.

key_data-sdaufnr = vbdka-vbeln.

key_data-posnr = vbdpa-posnr.

SELECT SINGLE * FROM veda

WHERE vbeln = vbdka-vbeln

AND vposn = vbdpa-posnr.

IF sy-subrc 0.

SELECT SINGLE * FROM veda

WHERE vbeln = vbdka-vbeln.

ENDIF.

**ENHANCEMENT-POINT ITEM_PRINT_01 SPOTS ES_RVADOR01.

IF vbdpa-dragr EQ space. "Print rejected item?

IF vbdpa-posnr_neu NE space. "Item

PERFORM item_billing_correction_header USING da_ganf da_lanf.

PERFORM get_item_serials.

PERFORM get_item_characteristics.

PERFORM get_item_billing_schedules.

PERFORM get_item_prices.

PERFORM get_item_addis.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ITEM_LINE'.

PERFORM item_rejected.

**-> Commented by sharat END

PERFORM item_price_print.

**-> End

**-> Change by Sharat BEGIN

PERFORM item_serials_print.

PERFORM item_price_print_costum.

**->END

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command = 'ENDPROTECT'.

PERFORM item_text_print.

**-> Commented by sharat END

PERFORM item_serials_print.

PERFORM item_price_print_costum.

**-> End

PERFORM item_characteristics_print.

PERFORM item_addis_print.

PERFORM item_reference_billing.

PERFORM alternative_item.

PERFORM delivery_date.

PERFORM item_delivery_confirmation.

PERFORM item_agreed_delivery_time.

PERFORM item_billing_schedules_print.

PERFORM different_reference_no.

PERFORM different_terms.

PERFORM different_consignee.

PERFORM schedule_header.

PERFORM main_item.

ELSE.

PERFORM schedule_print.

ENDIF.

**ENHANCEMENT-POINT ITEM_PRINT_03 SPOTS ES_RVADOR01 STATIC.

**ENHANCEMENT-POINT ITEM_PRINT_02 SPOTS ES_RVADOR01.

ENDIF.

ENDLOOP.

CALL FUNCTION 'WRITE_FORM' "Deactivate Header

EXPORTING element = 'ITEM_HEADER'

function = 'DELETE'

type = 'TOP'

EXCEPTIONS OTHERS = 1.

IF sy-subrc NE 0.

PERFORM protocol_update.

ENDIF.

ENDFORM. " print_itemdata

Re: SAP Scripts

Former Member — Wed, 16 Jan 2008 08:41:39 GMT

Hi Ashish,

also check out this,

Structure of a print program

OPEN_FORM function

CLOSE_FORM function

WRITE_FORM

START_FORM function

END_FORM function

CONTROL_FORM function

The print program is used to print forms. The program retieves the necesary data from datbase tables, defines the order of in which text elements are printed, chooses a form for printing and selects an output device and print options.

Function modules in a printprogram:

• When you print a form you must used the staments OPEN_FORM and CLOSE_FORM. To combine forms into a single spool request use START_FORM and END_FORM.

• To print textelements in a form use WRITE_FORM. The order in which the textelements are printed, is determined by the order of the WRITE_FORM statements. Note: for printing lines in the body, you can also use the WRITE_FORM_LINES function module.

• To transfer control command to a form use CONTROL_FORM.

Structure of a print program

Read data

Tables: xxx.

SELECT *

FROM xxx.

Open form printing - Must be called before working with any of the other form function modules.
Must be ended with function module CLOSE FORM

call function 'OPEN_FORM'.....

To begin several indentical forms containing different data within a single spool request, begin each form using START_FORM, and end it using END_FORM

call funtion 'START_FORM'.....

Write text elements to a window of the form

call function 'WRITE_FORM'.....

Ends spool request started with START_FORM

call funtion 'END_FORM'.....

Closes form printing

call function 'CLOSE_FORM'...

OPEN_FORM function

Syntax:

CALL FUNCTION 'OPEN_FORM'

EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'
FORM = ' '
LANGUAGE = SY-LANGU
OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =
EXCEPTIONS
CANCELED = 1
DEVICE = 2
FORM = 3
OPTIONS = 4
UNCLOSED = 5
MAIL_OPTIONS = 6
ARCHIVE_ERROR = 7
INVALID_FAX_NUMBER = 8
MORE_PARAMS_NEEDED_IN_BATCH = 9
SPOOL_ERROR = 10
OTHERS = 11

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Some important parameters:

FORM Name of the form

DEVICE • PRINTER : Print output using spool

• TELEFAX: Fax output

• SCREEN: Output to screen

OPTIONS Used to control attrubutes for printing or faxing (Number of copies, immediate output....

The input for the parameter is structure ITCPO.

CLOSE_FORM function

CALL FUNCTION 'CLOSE_FORM'

IMPORTING
RESULT =
RDI_RESULT =
TABLES
OTFDATA =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SEND_ERROR = 3
SPOOL_ERROR = 4
OTHERS = 5

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Paramerters:

RESULT Returns status information and print/fax parameters after the form has been printed. RESULT is of structure ITCPP.

WRITE_FORM function

CALL FUNCTION 'WRITE_FORM'

EXPORTING
ELEMENT = ' '
FUNCTION = 'SET'
TYPE = 'BODY'
WINDOW = 'MAIN'
IMPORTING
PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 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.

Some important parameters:

ELEMENT Specifies which textelement is printed

WINDOW Specifies which window is printed

TYPE Specifies the output area of the main window. This can be:

• TOP - Used for headers

• BODY

• BOTTOM - Used for footers

FUNCTION Specifies whether text is to be appended, replaced or added

Example of how to use the WRITE_FORM function module together with a script.

Form layout of the MAIN window

/E INTRODUCTION

Dear Customer

...........................

/E ITEM_HEADER

IH Carrier, Departure

/E ITEM_LINE

IL &SBOOK-CARRID&, &SPFLI-DEPTIME&

/E CLOSING_REMARK

The print program

Writing INTRODUCTION

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'INTRODUCTION'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

OTHERS = 8

Writing ITEM_HEADER

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM_HEADER'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

OTHERS = 8

Set ITEM_HEADER into TOP area of main window for subsequent pages

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM_HEADER'

FUNCTION = 'SET'

TYPE = 'TOP'

WINDOW = 'MAIN'

EXCEPTIONS

OTHERS = 8

Write ITEM_LINE

LOOP AT .....

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM_LINE'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

OTHERS = 8.

ENDLOOP.

Delete ITEM_HEADER from TOP area of main window

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM_HEADER'

FUNCTION = 'DELETE'

TYPE = 'TOP'

WINDOW = 'MAIN'

EXCEPTIONS

OTHERS = 8

Print CLOSING_REMARK

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'CLOSING_REMARK'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

OTHERS = 8

START_FORM function

CALL FUNCTION 'START_FORM'

EXPORTING
ARCHIVE_INDEX =
FORM = ' '
LANGUAGE = ' '
STARTPAGE = ' '
PROGRAM = ' '
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
OTHERS = 7

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

END_FORM function

CALL FUNCTION 'END_FORM'

IMPORTING
RESULT =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SPOOL_ERROR = 3
OTHERS = 4

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CONTROL_FORM function

The CONTROL_FORM function module alows you to create SapScript control statements from within an APAB program.

Syntax:

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

command =

EXCEPTIONS
UNOPENED = 1
UNSTARTED = 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.

Example:

Protecting the text element ITEM_LINE

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

COMMAND = 'PROTECT'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

TEXELEMENT = 'ITEM_LINE'.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

COMMAND = 'ENDPROTECT'.

cheers,

Hema.

Re: SAP Scripts

Former Member — Sun, 20 Jan 2008 14:51:18 GMT

Hi, can you tell how i can MEDRUCK DRIVER PROGRAM and how ican execute it?