Problem in SAP SCRIPT output.

In the PO Print Program the VAT condition JVCN is not getting displayed in PO Print.But the value is getting picked up from the program.The problem is coming in the PO
output,this problem is coming when an first item is delated and new item is created.The total amount is coming exactly including the JVCN value...only that particular conditon is not being displayed.
Please Help..
Thanx & Regards,
Krishna

Hi,
We are not authorised to SM13 (or) SM13T.
So we can't really know in which program error is coming.
But when we put a break point in our Print Program it is not going into P.Program.So problem might not be in Print Program.
So please give us a solution where by we can rectify that problem.
Thanks & Regards,
Rayeezuddin.

Similar Messages

Problem with SAP Script FAX output

Hi Friends,
I have problem with SAP Script Fax output.
After I issued output using the messge type, the print preview format shows me correct alignments and the right data. But when I go to List display using the menu bar functions from the print preview screen, the list is showing me the right data, but all the alignments at the main window went wrong.
How do I rectify this problem? I need correct alignments in both form display and list display.

Hi Sasidhar,
Have you tried with different fax machine.
Regards,
Atish

Quantity field conversion problem in SAP script

Hi experts,
I have problem with sap script quantity field conversion.
In purchase order the actual value of field( MDPM-ERFMG) is 3,500.
But in Print preview it is showing only 3.5
Any one Please help me in this problem
thanks in advance
murali

Hello,
check this:
Number of Decimal Places
A program symbol of one of the data types DEC, QUAN, and FLTP can contain decimal place data. Use the option below to override the Dictionary definition for the number of decimal places for the formatting of this symbol value.
Syntax
&symbol(.N)&
The EKPO-MENGE field contains the value 1234.56. The Dictionary definition specifies 3 decimal places and an output length of 17.
&EKPO-MENGE& -> 1,234.560
&EKPO-MENGE(.1) -> 1,234.6
&EKPO-MENGE&(.4) -> 1,234.5600
&EKPO-MENGE&(.0) -> 1,235
REgards,
Vasanth

Printing problem for SAP Script

Dear Friends,
I am facing strange problem for SAP Script. In the billing document output the sold to party and ship to party address are displaying. When user print the billing document on laser printer it print the Country for Sold to and Ship to. But when it print the same billing document on normal printer (other than laser) the Sold to country not printing.
The print preview of billing document in SAP correctly display country for Sold-to and Ship-to.
I have recently make changes in the SAP Script form (Address window) to display country for Ship-to which was never displayed before. I have added FROMCOUNTRY option after COUNTRY in address window. COUNTRY will be Ship-to and FROMCOUNTRY will be VBDKR-SLAND.
Can any one help me to solve this problem.
Regards
Nilesh Shete

Used custom address print option instead of using ADDRESS

To convert Sap Script output to PDF format and send it via email.

Hi Friends,
Could any one please tell me, how to convert the Sap Script output to PDF format and send it via email. If any one have the code, kindly mail me to [email protected]
Thanks & Regards,
John

Plese check this sample code from other thread.
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.
The extension is put the it_mailpack-obj_name parameter of 'SO_NEW_DOCUMENT_ATT_SEND_API1'.

Dispalying SAP script output in landscape format

Hello All,
Could anyone please tell me the step by step process to display a SAP Script output in landscape format?
Also is it possible to display a column name in 2 lines if it does not fit into 1 line.
Regards
Indrajit.

Hi,
Here is the way to print the SAPSCRIPT in landscape ..
Goto SE71, then give you layout name then press change, then press the Header button(CAP ICON), then you will get the Header infomation, then select the Basic Settings pushbutton, then there we have an option to Print the Layout in Portrait format or Landscapr format, then select the LANDSCAPR format Radio button then activate it
Regards
Sudheer

Sending SAP Script output as a PDF attachment through mail

Dear Guru,
I am using SAP 4.0B version, DATABASE Oracle 8i, OS is sun solaris 7.5.
I want to send SAP script output as a
PDF attachement through mail.Please suggest a solution.
Regards,
Rajesh

Hi Rajesh,
In your print program, while calling OPEN_FORM, pass options-TDGETOTF = 'X'. This is used for returning print output in OTF format.
Then in CLOSE_FORM, get the table OTFDATA returned from the function module. for example
DATA: OTF_DATA LIKE ITCOO OCCURS 0 WITH HEADER LINE.
    CALL FUNCTION 'CLOSE_FORM'
      IMPORTING
        RESULT = RESULT
      TABLES
        OTFDATA = OTF_DATA.
now you can convert this OTF data to PDF using function module CONVERT_OTF
Then send this data as attachment to a mail using function module SO_NEW_DOCUMENT_ATT_SEND_API1
Regards,
Komal.

SAP Script output extra page is coming

Dear friends
In my sap script output i m getting one extra page with empty main window. Even i have not used NEW-PAGE Command,
No Empty lines and window size also correct. Can anyone solute for this issue.
Regards
Balamurugan N

Hi,
check those details:
1) In your SAPSCRIPT contains one page or two pages?
2) In the sapscript check did u assign any nextpage as different page?
Regards,
Dhina..

Displaying Page number in all pages of sap script output

Hi All,
I have a issues in displaying page number in all pages of sap script output.
I have created a seperate window just above main window to display page number.
I have given &PAGE& in the layout editor.
Now in the sap script output i am getting page number as 1 in all the pages page number is not changing for pages-2,3, etc..
Can anybody tell me the reason for the same!
In some other objects same syntax is working fine. For this object it is not working!
Is there any setting changes!
Thanks i
Thanks,
Deep.

Hi,
Just check the Page Counter of the Next or Second Page which you defined.
First page
Mode                     START
Numbering Type           ARABIC
Second Page
Mode                     INC
Numbering Type           ARABIC
Regards
Bala Krishna
Edited by: Bala Krishna on Oct 17, 2008 11:23 AM

Regarding SAP Script Output validation in Layout set

Hi All,
I have a issue in SAP Script Output.
I have a Standard Print Program. and layout set.
I can do validations only in Layout set.
The actual issue is i have a internal table field in print program that i am displaying in layout set. Now i want it to be subtracted with number 20, since i can not edit code in Print Program. i want to subtract that internal table field with 20 in layout set itself.
Can anybody tell me how can i solve this issue.
Note: I need to do calculation only in layout set.
Can anybody give me the solution.
Thanks in advance.
Thanks & Regards,
Rayeez.

Hi,
Thanks for that reply.
so with SUMMING command i can do calculation.
I am already having i_tab1-sum coming from print program and i have declared one symbol using
DEFINE &v_val& = 20 in layout set.
Then i want to subtract &v_val& with &i_tab1-sum&.
using the follow syntax tell me wether syntax is correct or not.
SUMMING &i_tab1-sum&-&v_val& INTO &i_tab1-sum&.
will it work.
once again thanks for that reply.
Thanks & Regards,
Rayeez.

Download Sap script output in XL.

hi all,
can anybody plz tell me that is there any possibility to download SAP script output in editable XL format? actually i got a new requirement in my company so plz can anybody help me for this?
regards saurabh.

Hi, Below code used for convert output into PDF format. May be you can convert into XL.
In close form, collect output data into OTF format.
 call function 'CLOSE_FORM'
 TABLES
 otfdata = it_otfdata
 EXCEPTIONS
 unopened = 1
 bad_pageformat_for_print = 2
 send_error = 3
 others = 4.
 if sy-subrc <> 0.
 PERFORM protocol_update.
 retcode = 1.
 endif.
call function 'CONVERT_OTF'
 EXPORTING
 format = c_pdf
 IMPORTING
 bin_filesize = h_size
 TABLES
 otf = it_otfdata
 lines = it_pdf
 EXCEPTIONS
 err_max_linewidth = 1
 err_format = 2
 err_conv_not_possible = 3
 others = 4.
if sy-subrc <> 0.
 MOVE sy-subrc TO h_retcode.
endif.
perform table_shift.
form table_shift.
describe table it_pdf lines hltlines.
DESCRIBE FIELD IT_PDF LENGTH FLE1 in character mode.
DESCRIBE FIELD X_OBJCONT LENGTH FLE2 in character mode.
clear x_objcont.
refresh x_objcont.
clear off1.
clear hfeld.
loop at it_pdf.
 htabix = sy-tabix.
 move it_pdf to hfeld+off1.
 if htabix = hltlines.
 fle1 = strlen( it_pdf ).
 endif.
 off1 = off1 + fle1.
 if off1 ge fle2.
 clear x_objcont.
 x_objcont = hfeld(fle2).
 append x_objcont.
 shift hfeld by fle2 places.
 off1 = off1 - fle2.
 endif.
 if htabix = hltlines.
 if off1 gt 0.
 clear x_objcont.
 x_objcont = hfeld(off1).
 append x_objcont.
 endif.
 endif.
endloop.
endform. " TABLE_SHIFT

Problem regarding SAP SCRIPT

can anyone send me a sample program for downloading sapscript into pdf ?
in details

Hello,
please try out the Code in Topic: Regarding Converting Report Outputs & SAP Script Outputs to PDF Format.
Regards
Gregor

Problem in Sap Script while printing

HI,
This report calling when I print billing document .this report getting data and call some sap script form but it prints 20 pages in place of only one page. Please
Guide me to finding the exact problem.the code is below..
REPORT zsd_excinv LINE-SIZE 110 LINE-COUNT 100 MESSAGE-ID vn.
TABLES: vbco3, "Keyfelder Vertriebsbeleg: Dokumentendruck
 tvko, "Verkaufsorganisation
 sadr, "Adressen
 komk, "Communicationarea for conditions
 komp, "Communicationarea for conditions
 komvd, "Communicationarea for conditions
 vbdkr, "Druck Rechnung: Kopfdaten
 vbdpr, "Druck Rechnung: Positionsdaten
 conf_out, "Configuration data
 vbpla, "Druck Packliste : allgemeine Daten
 vbplk, "Druck Packliste : Versandelementkopfdaten
 vbplp, "Druck Packliste : Versandelementinhaltsdaten
 vbpls. "Druck Packliste : Summendaten Verpackung
TABLES : j_1iexchdr, j_1iexcdtl, vbrk,eikp,j_1imocust,likp,
 j_1iregset, itcpp,kna1, t001w.
*PARAMETER : p_grp LIKE j_1iexchdr-exgrp.
*SELECT-OPTIONS : so_num FOR j_1iexchdr-exnum.
*PARAMETERS : p_num LIKE j_1iexchdr-exnum.
DATA : wa_j_1iexchdr TYPE j_1iexchdr,
 it_j_1iexchdr TYPE TABLE OF j_1iexchdr.
DATA : wa_j_1iexcdtl TYPE j_1iexcdtl,
 it_j_1iexcdtl TYPE TABLE OF j_1iexcdtl.
DATA : wa_vbrk TYPE vbrk,
 wa_vbrp TYPE vbrp,
 wa_lips TYPE lips,
 wa_j_1iregset TYPE j_1iregset,
 wa_j_1iwrkcus TYPE j_1iwrkcus,
 wa_j_cust TYPE j_1imocust,
 it_vbrp TYPE TABLE OF vbrp.
DATA : BEGIN OF wa_header,
 exnum TYPE j_1iexchdr-exnum ,
 exdat TYPE j_1iexchdr-exdat ,
 exccd TYPE j_1iregset-j_1iexccd,
 excrg TYPE j_1iregset-j_1iexcrg,
 excd1 TYPE j_1iregset-j_1iexcdi,
 bstnk_vf TYPE vbrk-bstnk_vf,
 zterm TYPE vbrk-zterm,
 iever TYPE eikp-iever,
 btgew TYPE likp-btgew,
 chapid TYPE j_1iexcdtl-chapid,
 traid TYPE likp-traid,
 rdoc TYPE j_1iexchdr-rdoc,
 maktx TYPE j_1iexcdtl-maktx,
 meins TYPE likp-gewei,
 END OF wa_header.
*DATA : BEGIN OF wa_header,
 exnum TYPE j_1iexchdr-exnum ,
 exdat TYPE j_1iexchdr-exdat ,
 exccd TYPE j_1iregset-j_1iexccd,
 excrg TYPE j_1iregset-j_1iexcrg,
 excd1 TYPE j_1iregset-j_1iexcdi,
 bstnk_vf TYPE vbrk-bstnk_vf,
 zterm TYPE vbrk-zterm,
 iever TYPE eikp-iever,
 btgew TYPE likp-btgew,
 ntgew TYPE likp-ntgew,
 chapid TYPE j_1iexcdtl-chapid,
 traid TYPE likp-traid,
 rdoc TYPE j_1iexchdr-rdoc,
 maktx TYPE j_1iexcdtl-maktx,
 meins TYPE likp-gewei,
 END OF wa_header.
*DATA : BEGIN OF wa_detail,
 zeile TYPE j_1iexcdtl-zeile,
 matnr TYPE j_1iexcdtl-matnr,
 maktx TYPE j_1iexcdtl-maktx,
 menge TYPE j_1iexcdtl-menge,
 rate TYPE konv-kbetr,
 amount TYPE konv-kwert,
 fob TYPE konv-kwert,
 meins TYPE j_1iexcdtl-meins,
*END OF wa_detail.
*DATA : BEGIN OF wa_duties,
 zpr0 TYPE konv-kbetr,
 jadc TYPE konv-kbetr,
 st1 TYPE konv-kwert,
 jexp TYPE konv-kbetr,
 jecs TYPE konv-kbetr,
 st2 TYPE konv-kwert,
 jetc TYPE konv-kbetr,
 st3 TYPE konv-kwert,
 jsad TYPE konv-kbetr,
 st4 TYPE konv-kwert,
 st5 TYPE konv-kwert,
 vat TYPE konv-kbetr,
 st6 TYPE konv-kwert,
 zint TYPE konv-kbetr,
 jead TYPE konv-kbetr,
 zect TYPE konv-kbetr,
 zsad TYPE konv-kbetr,
 vat_per TYPE konv-kbetr,
 vat_val TYPE konv-kwert,
 total TYPE konv-kwert,
 remtime TYPE j_1iexchdr-remtime,
 exdat TYPE j_1iexchdr-exdat,
*END OF wa_duties.
*DATA : wa_t618t TYPE t618t.
*DATA : in_words TYPE spell,
 word TYPE spell-word,
 decword TYPE spell-decword,
 gv_plant_adrnr TYPE t001w-adrnr,
 lv_iever TYPE eikp-iever,
 lv_btgew TYPE likp-btgew,
 lv_ntgew TYPE likp-ntgew,
 lv_traid TYPE likp-traid,
 lv_regid TYPE j_1iregset-j_1iregid,
 gv_cust_adrnr TYPE kna1-adrnr,
 gv_ecsduty TYPE konv-kbetr,
 gv_tot_cen_amt TYPE konv-kwert,
 gv_zterm TYPE tvzbt-vtext,
 gv_tot_amt TYPE konv-kwert,
 lv_ins TYPE konv-kbetr,
 lv_fre TYPE konv-kbetr.
*CONSTANTS : c_ecs TYPE j_1iexcdtl-ecsrate VALUE '0.368'.
*SELECT-OPTIONS : so_num FOR j_1iexchdr-exnum.
DATA : BEGIN OF wa_detail,
 zeile TYPE j_1iexcdtl-zeile,
 matnr TYPE j_1iexcdtl-matnr,
 maktx TYPE j_1iexcdtl-maktx,
 menge TYPE j_1iexcdtl-menge,
 rate TYPE konv-kbetr,
 amount TYPE konv-kwert,
 fob TYPE konv-kwert,
 meins TYPE j_1iexcdtl-meins,
END OF wa_detail.
DATA : BEGIN OF wa_duties,
 zpr0 TYPE konv-kwert,
 jadc TYPE konv-kwert,
 st1 TYPE konv-kwert,
 jexp TYPE konv-kwert,
 jecs TYPE konv-kwert,
 st2 TYPE konv-kwert,
 jetc TYPE konv-kwert,
 st3 TYPE konv-kwert,
 jsad TYPE konv-kwert,
 st4 TYPE konv-kwert,
 st5 TYPE konv-kwert,
 vat TYPE konv-kwert,
 st6 TYPE konv-kwert,
 zint TYPE konv-kwert,
 jead TYPE konv-kwert,
 jeap TYPE konv-kwert,
 jeap_per TYPE konv-kbetr,
 zect TYPE konv-kwert,
 zect_per TYPE konv-kbetr,
 zecs TYPE konv-kwert,
 zsad TYPE konv-kwert,
 vat_per TYPE konv-kwert,
 vat_val TYPE konv-kwert,
 zlst_per TYPE konv-kwert,
 zlst_val TYPE konv-kwert,
 zcst_per TYPE konv-kwert,
 zcst_val TYPE konv-kwert,
 zeap TYPE konv-kwert,
 zeap_per TYPE konv-kbetr,
 total TYPE konv-kwert,
 remtime TYPE j_1iexchdr-remtime,
 exdat TYPE j_1iexchdr-exdat,
END OF wa_duties.
DATA : wa_t618t TYPE t618t.
DATA : temp TYPE konv-kwert VALUE 0,
 cen_amt TYPE konv-kbetr VALUE 0.
DATA : in_words TYPE spell,
 word TYPE spell-word,
 decword TYPE spell-decword,
 gv_plant_adrnr TYPE t001w-adrnr,
 lv_iever TYPE eikp-iever,
 lv_btgew TYPE likp-btgew,
 lv_traid TYPE likp-traid,
 lv_regid TYPE j_1iregset-j_1iregid,
 gv_cust_adrnr TYPE kna1-adrnr,
 gv_ecsduty TYPE konv-kbetr,
 gv_tot_cen_amt TYPE konv-kwert,
 gv_zterm TYPE tvzbt-vtext,
 gv_tot_amt TYPE konv-kwert,
 gv_amount TYPE konv-kwert,
 lv_ins TYPE konv-kbetr,
 lv_fre TYPE konv-kbetr.
CONSTANTS : c_ecs TYPE j_1iexcdtl-ecsrate VALUE '0.368',
 rdocyr TYPE j_1iexchdr-docyr VALUE 2006.
DATA : wa_t685t TYPE t685t.
DATA : gv_zint TYPE t685t-vtext,
 gv_vat TYPE t685t-vtext,
 gv_zect TYPE t685t-vtext,
 gv_jetc TYPE t685t-vtext,
 gv_jeap TYPE t685t-vtext,
 gv_jecs TYPE t685t-vtext,
 gv_zlst TYPE t685t-vtext,
 gv_zcst TYPE t685t-vtext,
 gv_zeap TYPE t685t-vtext,
 gv_jadc TYPE t685t-vtext.
INCLUDE rvadtabl.
DATA: BEGIN OF lvbplk OCCURS 0.
 INCLUDE STRUCTURE vbplk. "Packlistenkopf
DATA: END OF lvbplk.
DATA: BEGIN OF lvbplp OCCURS 0.
 INCLUDE STRUCTURE vbplp. "Packlistenposition
DATA: END OF lvbplp.
DATA: BEGIN OF lvbpls OCCURS 0.
 INCLUDE STRUCTURE vbpls. "Packlistenstruktur
DATA: END OF lvbpls.
DATA: BEGIN OF tvbdpr OCCURS 0. "Rechnungspositionen
 INCLUDE STRUCTURE vbdpr.
DATA: END OF tvbdpr.
DATA: BEGIN OF tvbplp OCCURS 10. "Packlistenposition
 INCLUDE STRUCTURE vbplp.
DATA: END OF tvbplp.
DATA: BEGIN OF tkomv OCCURS 50.
 INCLUDE STRUCTURE komv. "Kommunikation
DATA: END OF tkomv.
DATA: BEGIN OF tkomvd OCCURS 50.
 INCLUDE STRUCTURE komvd. "Kommunikation
DATA: END OF tkomvd.
DATA: BEGIN OF *tkomvd OCCURS 50.
 INCLUDE STRUCTURE komvd.
DATA: END OF *tkomvd.
DATA: BEGIN OF hkomvd OCCURS 50.
 INCLUDE STRUCTURE komvd.
DATA: END OF hkomvd.
DATA: BEGIN OF tkomcon OCCURS 50.
 INCLUDE STRUCTURE conf_out.
DATA: END OF tkomcon.
DATA: retcode LIKE sy-subrc. "Returncode
DATA: repeat(1) TYPE c.
DATA: xscreen(1) TYPE c. "Output on printer or screen
DATA: pr_kappl(01) TYPE c VALUE 'V'. "Application für Preisfindung
DATA: print_mwskz. "Mehrwertsteuer-Kz drucken
data for access to central address maintenance
INCLUDE sdzavdat.
 FORM ENTRY *
 Einstieg für Nachrichtensteuerung *
--> RETURN_CODE *
--> US_SCREEN *
FORM entry USING return_code us_screen.
CLEAR retcode.
xscreen = us_screen.
Formular öffnen, aufbereiten und schließen
PERFORM formular_invoice USING us_screen.
CASE retcode.
 WHEN 0.
 return_code = 0.
 WHEN 3.
 return_code = 3.
 WHEN OTHERS.
 return_code = 1.
ENDCASE.
ENDFORM. "ENTRY
 FORM FORMULAR_INVOICE *
 Formular abarbeiten *
FORM formular_invoice USING proc_screen.
Werte aufbauen
PERFORM get_data.
Beleg unvollständig
IF vbdkr-uvall NE space OR
 vbdkr-uvals NE space OR
 vbdkr-uvprs NE space.
 IF proc_screen = space.
 retcode = 3.
 IF vbdkr-uvall NE space OR vbdkr-uvals NE space.
 syst-msgno = '201'.
 syst-msgid = 'VN'.
 syst-msgty = 'I'.
 PERFORM protocol_update.
 ENDIF.
 IF vbdkr-uvprs NE space.
 syst-msgno = '200'.
 syst-msgid = 'VN'.
 syst-msgty = 'I'.
 PERFORM protocol_update.
 ENDIF.
 ELSE.
 IF vbdkr-uvall NE space OR vbdkr-uvals NE space.
 MESSAGE i201.
 ENDIF.
 IF vbdkr-uvprs NE space.
 MESSAGE i200.
 ENDIF.
 ENDIF.
ENDIF.
CHECK retcode = 0.
SAP-SCRIPT STEUERUNG festlegen
PERFORM form_open USING proc_screen vbdkr-land1.
CHECK retcode = 0.
Formular aufbereiten
PERFORM sd_invoice_suppl.
CHECK retcode = 0.
Formular schließen
PERFORM form_close.
CHECK retcode = 0.
ENDFORM. "FORMULAR_INVOICE
 FORM GET_DATA *
 Daten besorgen *
FORM get_data.
PERFORM vbdkr_data. "Rechnungskopf und -liste
PERFORM vbpla_data. "Packliste
ENDFORM. "GET_DATA
 FORM FORM_OPEN *
 Formular öffnen *
--> US_SCREEN Output on screen *
 ' ' = printer *
 'X' = screen *
--> US_COUNTRY County for telecommunication and SET COUNTRY *
FORM form_open USING us_screen us_country.
DATA: xdevice(8) TYPE c.
SET LANGUAGE nast-spras.
CLEAR itcpo.
MOVE-CORRESPONDING nast TO itcpo.
itcpo-tdcover = nast-tdocover.
itcpo-tddest = nast-ldest.
itcpo-tddataset = nast-dsnam.
itcpo-tdsuffix1 = nast-dsuf1.
itcpo-tdsuffix2 = nast-dsuf2.
itcpo-tdimmed = nast-dimme.
itcpo-tddelete = nast-delet.
itcpo-tdcopies = nast-anzal.
itcpo-tdprogram = sy-repid.
itcpo-tdteleland = us_country.
itcpo-tdsenddate = nast-vsdat.
itcpo-tdsendtime = nast-vsura.
IF us_screen NE space.
 itcpo-tdpreview = 'X'.
 itcpo-tdnoprint = 'X'.
ENDIF.
IF sy-tcode EQ 'J1IP'.
 itcpo-tdpreview = 'X'.
ENDIF.
CASE nast-nacha.
 WHEN '1'.
 xdevice = 'PRINTER'.
 WHEN '2'.
 xdevice = 'TELEFAX'.
 itcpo-tdtelenum = nast-telfx.
 IF nast-tland IS INITIAL.
 itcpo-tdteleland = us_country.
 ELSE.
 itcpo-tdteleland = nast-tland.
 ENDIF.
 WHEN '3'.
 xdevice = 'TELETEX'.
 itcpo-tdtelenum = nast-teltx.
 IF nast-tland IS INITIAL.
 itcpo-tdteleland = us_country.
 ELSE.
 itcpo-tdteleland = nast-tland.
 ENDIF.
 WHEN '4'.
 xdevice = 'TELEX'.
 itcpo-tdtelenum = nast-telx1.
 IF nast-tland IS INITIAL.
 itcpo-tdteleland = us_country.
 ELSE.
 itcpo-tdteleland = nast-tland.
 ENDIF.
 WHEN OTHERS.
 xdevice = 'PRINTER'.
ENDCASE.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 form = tnapr-fonam
 language = nast-spras
 OPTIONS = itcpo
 archive_index = toa_dara
 archive_params = arc_params
 device = xdevice
 dialog = ' '
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 PERFORM protocol_update.
ENDIF.
SET COUNTRY us_country.
ENDFORM. "FORM_OPEN
 FORM FORM_CLOSE *
 Formular schließen *
FORM form_close.
CALL FUNCTION 'CLOSE_FORM' "...Ende Formulardruck
 EXCEPTIONS OTHERS = 1.
IF sy-subrc NE 0.
 retcode = 1.
 PERFORM protocol_update.
ENDIF.
SET COUNTRY space.
SET LANGUAGE space.
ENDFORM. "FORM_CLOSE
 FORM SD_INVOICE_SUPPL *
 Rechnung aufbereiten *
FORM sd_invoice_suppl.
CLEAR : wa_j_1iexchdr, wa_j_1iexcdtl, wa_lips, wa_duties,
 gv_tot_amt.
get data from excise header
SELECT * FROM j_1iexchdr INTO TABLE it_j_1iexchdr
WHERE exgrp = '31'
AND rdoc = nast-objky
AND trntyp = 'DLFC'
AND lifnr = space
AND docyr = rdocyr.
AND exdat IN so_dat.
SORT it_j_1iexchdr BY exdat exnum.
READ TABLE it_j_1iexchdr INTO wa_j_1iexchdr INDEX 1.
SELECT * FROM j_1iexcdtl INTO TABLE it_j_1iexcdtl
FOR ALL ENTRIES IN it_j_1iexchdr
WHERE exnum = it_j_1iexchdr-exnum
AND trntyp = 'DLFC'
AND docno = it_j_1iexchdr-docno.
SORT it_j_1iexcdtl BY exdat exnum.
LOOP AT it_j_1iexchdr INTO wa_j_1iexchdr.
*open form
PERFORM open_form USING 'ZSD_EXCINV' 1
 'printer' 'X'.
MOVE : wa_j_1iexchdr-exnum TO wa_header-exnum,
 wa_j_1iexchdr-exdat TO wa_header-exdat,
 wa_j_1iexchdr-rdoc TO wa_header-rdoc.
get plant details
SELECT SINGLE * FROM j_1iwrkcus INTO wa_j_1iwrkcus
WHERE j_1iwerks = wa_j_1iexchdr-werks.
SELECT SINGLE * FROM j_1iregset INTO wa_j_1iregset
WHERE j_1iregid = wa_j_1iwrkcus-j_1iregid.
SELECT adrnr INTO gv_plant_adrnr FROM t001w
WHERE werks = wa_j_1iexchdr-werks.
ENDSELECT.
MOVE : wa_j_1iregset-j_1iexccd TO wa_header-exccd,
 wa_j_1iregset-j_1iexcrg TO wa_header-excrg,
 wa_j_1iregset-j_1iexcdi TO wa_header-excd1.
get order no. from vbrk
SELECT * INTO wa_vbrk FROM vbrk
WHERE vbeln = wa_j_1iexchdr-rdoc.
ENDSELECT .
MOVE : wa_vbrk-bstnk_vf TO wa_header-bstnk_vf,
 wa_vbrk-zterm TO wa_header-zterm.
SELECT vtext FROM tvzbt INTO gv_zterm
 WHERE zterm = wa_vbrk-zterm
 AND spras = 'EN'.
ENDSELECT.
get nature of removal
SELECT iever INTO lv_iever FROM eikp
WHERE refnr = wa_vbrk-vbeln.
ENDSELECT.
SELECT SINGLE * FROM t618t INTO wa_t618t
WHERE expvz = lv_iever
AND spras = 'E'.
 MOVE : lv_iever TO wa_header-iever.
*get consignment weight.
SELECT SINGLE * FROM vbrp INTO wa_vbrp
WHERE vbeln = wa_vbrk-vbeln.
READ TABLE it_j_1iexcdtl INDEX 1 INTO wa_j_1iexcdtl.
SELECT btgew traid gewei INTO (lv_btgew, lv_traid, wa_header-meins) FROM likp
WHERE vbeln = wa_j_1iexcdtl-rdoc1.
ENDSELECT.
MOVE : lv_btgew TO wa_header-btgew,
 lv_traid TO wa_header-traid.
 lv_weight to wa_header-meins.
*get chapter id
READ TABLE it_j_1iexcdtl INTO wa_j_1iexcdtl WITH KEY exnum = wa_j_1iexchdr-exnum .
IF sy-subrc = 0.
 MOVE : wa_j_1iexcdtl-chapid TO wa_header-chapid,
 wa_j_1iexcdtl-maktx TO wa_header-maktx.
ENDIF.
*get customer details.
SELECT adrnr FROM kna1 INTO gv_cust_adrnr
WHERE kunnr = wa_j_1iexchdr-kunag.
ENDSELECT.
SELECT SINGLE * FROM j_1imocust INTO wa_j_cust
WHERE kunnr = wa_j_1iexchdr-kunag.
*write invoice header details
PERFORM write_form USING '' 'APPEND' 'BODY' 'LOCCODE' .
*get data from excise details.
LOOP AT it_j_1iexcdtl INTO wa_j_1iexcdtl.
 MOVE : wa_j_1iexcdtl-zeile TO wa_detail-zeile,
 wa_j_1iexcdtl-matnr TO wa_detail-matnr,
 wa_j_1iexcdtl-maktx TO wa_detail-maktx,
 wa_j_1iexcdtl-menge TO wa_detail-menge,
 wa_j_1iexcdtl-meins TO wa_detail-meins.
 SELECT SINGLE * FROM vbrp INTO wa_vbrp
 WHERE vbeln = wa_vbrk-vbeln
 AND matnr = wa_j_1iexcdtl-matnr.
 SELECT kbetr kwert FROM konv
 INTO (wa_detail-rate, wa_detail-amount)
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZPR0'.
 ENDSELECT.
 SELECT kwert FROM konv
 INTO lv_ins
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZINS'.
 ENDSELECT.
 SELECT kwert FROM konv
 INTO lv_fre
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZFRE'.
 ENDSELECT.
 wa_detail-fob = wa_detail-amount + lv_ins + lv_fre.
 gv_tot_amt = gv_tot_amt + wa_detail-amount.
 gv_amount = gv_amount + wa_detail-amount.
write item details
 PERFORM write_form USING 'LINE_ITEMS' 'SET' 'BODY' 'MAIN' .
ENDLOOP.
**get insurance .
SELECT kwert INTO lv_ins FROM konv
WHERE knumv = wa_vbrk-knumv
AND kschl = 'ZINS'.
ENDSELECT.
**get freight .
SELECT kwert INTO lv_fre FROM konv
WHERE knumv = wa_vbrk-knumv
AND kschl = 'ZFRE'.
ENDSELECT.
**get net value .
 MOVE wa_vbrk-netwr TO wa_costs-grandtot.
**calculate netvalue(fobvalue)
 wa_costs-fobval = wa_costs-grandtot + wa_costs-insurance + wa_costs-freight.
gv_tot_amt = gv_tot_amt + lv_ins + lv_fre.
*get values for different condition types.
SELECT kbetr INTO wa_duties-zpr0 FROM konv
WHERE knumv = wa_vbrk-knumv
AND kposn = wa_vbrp-posnr
AND kschl = 'ZPR0'.
ENDSELECT.
SELECT kwert INTO wa_duties-jadc FROM konv
WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
AND kschl = 'JADC'.
 temp = temp + wa_duties-jadc.
 CLEAR : wa_duties-jadc.
ENDSELECT.
MOVE : temp TO wa_duties-jadc.
CLEAR : temp.
 wa_duties-st1 = wa_duties-zpr0 + wa_duties-jadc.
SELECT kwert INTO wa_duties-jexp FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'JEXP'.
 temp = temp + wa_duties-jexp.
 CLEAR : wa_duties-jexp.
ENDSELECT.
MOVE : temp TO wa_duties-jexp.
CLEAR : temp.
SELECT kwert INTO wa_duties-jecs FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'JECS'.
 temp = temp + wa_duties-jecs.
 CLEAR : wa_duties-jecs.
ENDSELECT.
MOVE : temp TO wa_duties-jecs.
CLEAR : temp.
wa_duties-st3 = gv_tot_amt + wa_j_1iexchdr-exbed + wa_j_1iexchdr-ecs.
SELECT kwert INTO wa_duties-jetc FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'JETC'.
 temp = temp + wa_duties-jetc.
 CLEAR : wa_duties-jetc.
ENDSELECT.
MOVE : temp TO wa_duties-jetc.
CLEAR : temp.
 wa_duties-st3 = wa_duties-zpr0 + wa_duties-st2 + wa_duties-jetc.
SELECT kwert INTO wa_duties-jsad FROM konv
WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
AND kschl = 'JSAD'.
 temp = temp + wa_duties-jsad.
 CLEAR : wa_duties-jsad.
ENDSELECT.
MOVE : temp TO wa_duties-jsad.
CLEAR : temp.
SELECT kbetr kwert INTO (wa_duties-jeap_per, wa_duties-jeap) FROM konv
WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
AND kschl = 'JEAP'.
 temp = temp + wa_duties-jeap.
 CLEAR : wa_duties-jeap.
ENDSELECT.
MOVE : temp TO wa_duties-jeap.
CLEAR : temp.
wa_duties-jeap_per = wa_duties-jeap_per / 10.
SELECT kbetr kwert INTO (wa_duties-zeap_per, wa_duties-zeap) FROM konv
WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
AND kschl = 'ZEAP'.
 temp = temp + wa_duties-zeap.
 CLEAR : wa_duties-zeap.
ENDSELECT.
MOVE : temp TO wa_duties-zeap.
CLEAR : temp.
wa_duties-zeap_per = wa_duties-zeap_per / 10.
 (st2jetcjsad)
 wa_duties-st4 = wa_duties-st2 + wa_duties-jetc + wa_duties-jsad.
 (zpr0+st4)
 wa_duties-st5 = wa_duties-zpr0 + wa_duties-st4 .
 SELECT kbetr INTO wa_duties-vat FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'VAT'.
 ENDSELECT.
SELECT kbetr kwert INTO (wa_duties-vat_per, wa_duties-vat_val) FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZVAT'.
 temp = temp + wa_duties-vat_val.
 CLEAR : wa_duties-vat_val.
ENDSELECT.
MOVE : temp TO wa_duties-vat_val.
CLEAR : temp.
wa_duties-vat_per = wa_duties-vat_per / 10.
SELECT kbetr kwert INTO (wa_duties-zcst_per, wa_duties-zcst_val) FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZCST'.
 temp = temp + wa_duties-zcst_val.
 CLEAR : wa_duties-zcst_val.
ENDSELECT.
MOVE : temp TO wa_duties-zcst_val.
CLEAR : temp.
wa_duties-zcst_per = wa_duties-zcst_per / 10.
SELECT kbetr kwert INTO (wa_duties-zlst_per, wa_duties-zlst_val) FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZLST'.
 temp = temp + wa_duties-zlst_val.
 CLEAR : wa_duties-zlst_val.
ENDSELECT.
MOVE : temp TO wa_duties-zlst_val.
CLEAR : temp.
wa_duties-zlst_per = wa_duties-zlst_per / 10.
 (st5+vat)
 wa_duties-st6 = wa_duties-vat_val + wa_duties-st5 .
SELECT kwert INTO wa_duties-zint FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZINT'.
 temp = temp + wa_duties-zint.
 CLEAR : wa_duties-zint.
ENDSELECT.
MOVE : temp TO wa_duties-zint.
CLEAR : temp.
SELECT kwert INTO wa_duties-jead FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'JEAD'.
 temp = temp + wa_duties-jead.
 CLEAR : wa_duties-jead.
ENDSELECT.
MOVE : temp TO wa_duties-jead.
CLEAR : temp.
SELECT kbetr kwert INTO (wa_duties-zect_per, wa_duties-zect) FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZECT'.
 temp = temp + wa_duties-zect.
 CLEAR : wa_duties-zect.
ENDSELECT.
MOVE : temp TO wa_duties-zect.
CLEAR : temp.
wa_duties-zect_per = wa_duties-zect_per / 10.
SELECT kwert INTO wa_duties-zsad FROM konv
 WHERE knumv = wa_vbrk-knumv
 AND kposn = wa_vbrp-posnr
 AND kschl = 'ZSAD'.
 temp = temp + wa_duties-zsad.
 CLEAR : wa_duties-zsad.
ENDSELECT.
MOVE : temp TO wa_duties-zsad.
CLEAR : temp.
IF wa_vbrk-kalsm = 'ZINSCR'.
 wa_duties-total = gv_tot_amt
 + wa_duties-jexp
 + wa_duties-jecs
 + wa_duties-zlst_val
 + wa_duties-zint
 + wa_duties-jead
 + wa_duties-vat_val
 + wa_duties-zcst_val.
 + wa_duties-jecs
 + wa_duties-zeap
 + wa_duties-zecs
 + wa_duties-zsad
 + wa_duties-jadc.
ELSEIF wa_vbrk-kalsm = 'ZINFAC'.
 wa_duties-total = gv_tot_amt
 + wa_duties-jexp
 + wa_duties-jecs
 + wa_duties-zlst_val
 + wa_duties-zint
 + wa_duties-jeap
 + wa_duties-vat_val
 + wa_duties-zcst_val
 + wa_duties-jecs
 + wa_duties-zeap
 + wa_duties-zect.
 + wa_duties-zsad
 + wa_duties-jadc.
ENDIF.
Get Condition descriptions.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'ZVAT' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_vat.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'ZVAT' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_vat.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'ZLST' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_zlst.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'ZCST' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_zcst.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'ZECT' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_zect.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'ZEAP' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_zeap.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'JETC' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_jetc.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'JEAP' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_jeap.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'JECS' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_jecs.
CLEAR wa_t685t.
SELECT SINGLE * FROM t685t INTO wa_t685t
WHERE kschl = 'JADC' AND spras = 'EN'.
MOVE wa_t685t-vtext TO gv_jadc.
CLEAR wa_t685t.
 gv_ecsduty = wa_j_1iexchdr-exbed * ( c_ecs / 100 ).
cen_amt = wa_duties-jexp + wa_duties-jeap.
gv_tot_cen_amt = cen_amt + wa_duties-jecs.
MOVE wa_j_1iexchdr-remtime TO wa_duties-remtime.
MOVE wa_j_1iexchdr-exdat TO wa_duties-exdat.
Convert amount to words.
CALL FUNCTION 'SPELL_AMOUNT'
 EXPORTING
 amount = wa_duties-total
 currency = 'INR '
 filler = space
 language = sy-langu
 IMPORTING
 in_words = in_words
 EXCEPTIONS
 not_found = 1
 too_large = 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.
MOVE : in_words-word TO word,
 in_words-decword TO decword.
write duty details
IF wa_vbrk-kalsm = 'ZINSCR'.
 PERFORM write_form USING 'ZINSCR' 'APPEND' 'BODY' 'GRANDTOT' .
ELSEIF wa_vbrk-kalsm = 'ZINFAC'.
 PERFORM write_form USING 'ZINFAC' 'APPEND' 'BODY' 'GRANDTOT' .
ENDIF.
*close form
 PERFORM close_form.
ENDLOOP.
ENDFORM. "SD_INVOICE_SUPPL
 FORM FORM_TITLE_PRINT *
 Formulartitel entsprenchend des Feldes VBTYP drucken *
FORM form_title_print.
CASE vbdkr-vbtyp.
 WHEN 'M'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'TITLE_M'
 window = 'HEADER'
 EXCEPTIONS
 element = 1
 window = 2.
 IF sy-subrc NE 0.
 PERFORM protocol_update.
 ENDIF.
 WHEN 'N'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'TITLE_N'
 window = 'TITLE'
 EXCEPTIONS
 element = 1
 window = 2.
 IF sy-subrc NE 0.
 PERFORM protocol_update.
 ENDIF.
 WHEN 'O'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'TITLE_O'
 window = 'TITLE'
 EXCEPTIONS
 element = 1
 window = 2.
 IF sy-subrc NE 0.
 PERFORM protocol_update.
 ENDIF.
 WHEN 'P'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'TITLE_P'
 window = 'TITLE'
 EXCEPTIONS
 element = 1
 window = 2.
 IF sy-subrc NE 0.
 PERFORM protocol_update.
 ENDIF.
 WHEN 'S'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'TITLE_S'
 window = 'TITLE'
 EXCEPTIONS
 element = 1
 window = 2.
 IF sy-subrc NE 0.
 PERFORM protocol_update.
 ENDIF.
 WHEN 'U'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'TITLE_U'
 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_M'
 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.
ENDIF.
ENDFORM. "FORM_TITLE_PRINT
 FORM REFERENCE_NUMBER *
 Referenznummer ausgeben *
FORM reference_number.
CHECK vbdkr-vbtyp CA 'MUN'.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 window = 'INVOICE'
 EXCEPTIONS
 window = 2.
IF sy-subrc NE 0.
 PERFORM protocol_update.
ENDIF.
ENDFORM. "REFERENCE_NUMBER
 FORM HEADER_TEXT_PRINT *
 Kopftexte ausgeben *
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_PRINT *
 Rechnungsposition ausgeben *
FORM item_print.
Kopieren LVBPLP für direkt Zugriff
LOOP AT lvbplp.
 MOVE-CORRESPONDING lvbplp TO tvbplp.
 APPEND tvbplp.
ENDLOOP.
LOOP AT tvbdpr.
 vbdpr = tvbdpr.
 IF tvbdpr-charg IS INITIAL.
 PERFORM get_item_prices.
 PERFORM get_item_characteristics.
 CALL FUNCTION 'CONTROL_FORM'
 EXPORTING
 command = 'PROTECT'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'ITEM_LINE'.
 PERFORM item_price_print.
 PERFORM item_characteristics_print.
 CALL FUNCTION 'CONTROL_FORM'
 EXPORTING
 command = 'ENDPROTECT'.
 PERFORM different_consignee.
 PERFORM different_order_no.
 PERFORM different_delivery_no.
 PERFORM different_extern_no.
 PERFORM different_purchase_order_no.
 PERFORM item_packing_print.
 ELSE.
 IF NOT tvbdpr-fkimg IS INITIAL.
 PERFORM get_item_prices.
 PERFORM item_price_print.
 ENDIF.
 ENDIF.
ENDLOOP.
ENDFORM. "ITEM_PRINT
 FORM ITEM_PACKING_PRINT *
 Verpackung zu einer Position ausgeben *
FORM item_packing_print.
DATA: count LIKE sy-index.
DATA: BEGIN OF hvbplp OCCURS 0,
 stufe TYPE i.
 INCLUDE STRUCTURE vbplp.
DATA: END OF hvbplp.
DATA: vs_element LIKE vbplp-venum.
CLEAR hvbplp.
REFRESH hvbplp.
Aufbau Versandelementstruktur für Ausgabe
LOOP AT tvbplp WHERE vbeln = vbdkr-vbeln AND posnr = tvbdpr-posnr.
 hvbplp-stufe = 1.
 MOVE-CORRESPONDING tvbplp TO hvbplp.
 APPEND hvbplp.
 vs_element = tvbplp-venum.
 IF vs_element EQ ' '. EXIT. ENDIF. "unverpackt
 CLEAR lvbplk.
 WHILE lvbplk-kzobe NE 'X'. "nicht oberstes VS-Ele
 suchen übergeordnetes Versandelement
 LOOP AT lvbplp WHERE unvel = vs_element.
 hvbplp-stufe = hvbplp-stufe + 1.
 MOVE-CORRESPONDING lvbplp TO hvbplp.
 APPEND hvbplp.
 EXIT.
 ENDLOOP.
 vs_element = lvbplp-venum.
 lesen übergeordnetes Versandelement
 READ TABLE lvbplk WITH KEY vs_element.
 IF sy-subrc NE 0.
 EXIT.
 ENDIF.
 ENDWHILE.
ENDLOOP.
SORT hvbplp BY stufe venum.
CLEAR vbplp.
LOOP AT hvbplp.
 lesen Versandelement
 CLEAR vbplk.
 CLEAR vbpls.
 IF hvbplp-venum EQ ' '.

Hi,
SAPScript addresses are formated by postal standards...irrespective of the data populated....
In line
/: ADDRESS PARAGRAPH LZ
change to
/: ADDRESS DELIVERY PARAGRAPH LZ
that should bring the street into the address
Regards
Stu

Problem with sap script table in main window

hi all,
i have created a sap script for which output is in 7 pages.
except first page all the remaining pages are giving the correct output.
the problem with the first page is iam not not getting vertical lines in the table which is in the main window of page 1.
iam getting the vertical lines correctly in the mainwindow table of all the remaining pages.

Hi,
It's simple,
Pre- U should had declared a second page for the same window with header, main & footer.
now
First when u r looping the internal table provide no of rows eg Row 1 TO 10. in the Loop ( Data Tab)
or
when defing TEXT Go to PC Editor and mention all the fields Under PROTECT - ENDPROTECT.
This would solve the issue.
Thanks
Ravi

SAP Script output not displayed

Hello,
Print preview of purchase document does not show the output. Only "test print only" is displayed on all pages.
I can see the data passed to SAP Script in debug. The print is created using output control, ( Save or create of PO ).
What could be the possible reason for the same?
Even if i try to use the option of "printing test" direct from script no text elements/language are displayed.. "test print only" is displayed.
kindly help.

Hi,
I am not sure what your current support pack is. This sounds like the problem described in the SAP Note:
1243485 - Unprinted variables and lines of a SAPscript form
Can you apply the code correction of Note #1243485?
Regards,
Aidan

Problem in SAP SCRIPT output.

Similar Messages

Maybe you are looking for