Printing SAPSCRIPT french form

Hi
I have sapscript in all languages..
do i need to logon to sap(logon language 'FR') to print the form in french?
Could anyone please tell?
because if i print logon language as EN the FR text is not printing instead everything is in english.
if the logon language is 'FR', it works fine.
Please let m eknow.
Thanks,

Hi Renuka,
It totally dependens upon how your sapscript language is called.
In sales documents it depends upon land of customer.
In FI documents its company code language.
There are diffrent possiblities.
Depending upon the application you have to check which language is called.
If call of script is on system language then it will take as logon language.
Hope its clear.
Thanks
Dhiraj.

Similar Messages

How to print sapscript coding?

Hi friends,
How to print sapscript like form details, attributes and text elements? This is for documentation purposes.
rozie

Hi rozie,
Go through this url it is given step by step process.
APScripts
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
Debugging Document.
http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc
http://help.sap.com/saphelp_47x200/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm
http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc
http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm
http://help.sap.com/saphelp_nw04/helpdata/en/84/1f624f4505144199e3d570cf7a9225/frameset.htm
http://help.sap.com/saphelp_bw30b/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm
http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm
Rewards some points if it is helpful.
Rgds,
P.Nag

Duplication when printing sapscript form

i have created a sapscript that is supposed to be printing a statement but when printing it prints the first record twice what could be the problem , the text elements are being generated from an internal table.

using the start and close form is not helping it still is printing the first record twice let me put the code and maybe you can see wat im doing wrongly
CALL FUNCTION 'OPEN_FORM'
EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
 DEVICE = 'PRINTER'
DIALOG = 'X'
 FORM = 'ZSECURITIES_REP'
 LANGUAGE = SY-LANGU
OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
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
CODEPAGE = 11
OTHERS = 12
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'START_FORM'
 EXPORTING
 ARCHIVE_INDEX =
 FORM = 'ZSECURITIES_REP '
 LANGUAGE = 'EN '
 STARTPAGE = ' '
 PROGRAM = ' '
 MAIL_APPL_OBJECT =
IMPORTING
 LANGUAGE =
 EXCEPTIONS
 FORM = 1
 FORMAT = 2
 UNENDED = 3
 UNOPENED = 4
 UNUSED = 5
 SPOOL_ERROR = 6
 CODEPAGE = 7
 OTHERS = 8
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
clear itab_print.
refresh itab_print.
LOOP AT itab INTO itab_print.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
ELEMENT = 'PRINT_ITEMS'
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
CODEPAGE = 9
OTHERS = 10
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDLOOP.
CALL FUNCTION 'END_FORM'
IMPORTING
 RESULT =
EXCEPTIONS
 UNOPENED = 1
 BAD_PAGEFORMAT_FOR_PRINT = 2
 SPOOL_ERROR = 3
 CODEPAGE = 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.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT =
RDI_RESULT =
TABLES
OTFDATA =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SEND_ERROR = 3
SPOOL_ERROR = 4
CODEPAGE = 5
OTHERS = 6
IF SY-SUBRC <> 0.
ENDIF.

Problem in Printing of mutiple form on single click

Hi all
I m wrking on AFS and i had created a page for printing multiple invoice print on single click.
A range of invoice is given as input and get out in the form of print preivew or print wat v choose .
I mean a print pop is open for multiple invoice in a single click.
Problem in printing of multiple form is speed .its going to be slow when click for printing .OR
v can say that creation of multiple page in printing gets more time .Is ther any way to solve this .
Plz suggest me some solution for that .
Regards,
Ravi

Hi
Check if Note 353518 - Selection of outputs takes much time and Note 910976 - Selection of output from billing (VF31) are relevants.
Other suggestion. Do a trace with ST05 and check if you have any bottleneck in the coding that you can have in your Smartform or in your SAPscript, so check in tcode V/40 what form you are using . Also see Note 185530 - Performance: Customer developments in SD.
I hope this helps you
Regards
Eduardo

Sapscript - layout form

Hi,
Can you explain about the sapscript layout, with example?
Thanks in advance.

Hi,
Create the SapScript Layout using Tcode:SE71,then create a page called 'PAGE1', create a Paragraph called 'AS' and use the below code in the Text Element of the Main Window. Then the values will be displayed in the SapScript when you try to execute its Print Program supplied in the other post.
Example Code:
/E MAIN
AS &NAME&
Apart from this, TNAPR is the table which contains the details of the print program and form.
Hope this helps.
Please reward if useful.
Thanks,
Srinivasa

Printing sapscript label using zebra printer

Hi,
Can anybody please help me regarding "printing sapscript label using zebra printer"?
i hav set the following print default settings in the transaction mb90:
output device :
NO01
device type: YZZX_ZEB
but when i try to print ,i am getting error message stating that "the respective sapscript form is not active ".
i hav also attached my print program for ur easy reference.
====================================================================*
FORM open_form_slv.
*' Description:
*' Add information for the SAP spooler
*' Change the name of the standard customized form for Zebra print
*' Last Change Vers Programmer Reason
*1
DATA: BEGIN OF print_infos.
 INCLUDE STRUCTURE itcpo.
DATA: END OF print_infos.
DATA: form_name(16) TYPE c, char1(1) TYPE c, ind_beg TYPE i.
PERFORM itcpo_fuellen.
MOVE-CORRESPONDING itcpo TO print_infos.
WRITE sy-datum USING EDIT MASK '__.__.____'
 TO print_infos-tdcovtitle+1.
WRITE sy-uzeit USING EDIT MASK '__:__:__'
 TO print_infos-tdcovtitle+12.
CONCATENATE itcpo-tddest sy-uname ' PO'(001) ekpo-ebeln ' Doc.No'(002)
 mseg-mblnr print_infos-tdcovtitle
 INTO print_infos-tdcovtitle SEPARATED BY space.
form name from the table YZZM_GR_LABEL
IF NOT g_fonam IS INITIAL.
 tnapr-fonam = g_fonam.
ENDIF.
if the used printer is a Zebra label printer, then the customized
layout set name ???_???_XXX will be changed to ???_???_ZP
SELECT SINGLE * FROM tsp03d WHERE padest = nast-ldest.
IF tsp03d-patype = 'YZZX_ZEB'.
 ind_beg := 15.
 WHILE ind_beg > -1.
 char1 := tnapr-fonam+ind_beg. " substr(tnapr-fonam,ind_beg,1)
 IF char1 = '_'.
 form_name := tnapr-fonam(ind_beg).
 CONCATENATE form_name '_ZP' INTO tnapr-fonam.
 EXIT.
 ENDIF.
 ind_beg := ind_beg - 1.
 ENDWHILE.
ENDIF.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 device = 'PRINTER'
 language = language
 OPTIONS = print_infos
 form = tnapr-fonam
 dialog = ' '.
x_open := x.
IF mseg-weanz = 0. mseg-weanz = 1. ENDIF.
IF syst-tcode <> 'MB90' AND NOT g_flag_popup IS INITIAL.
check for requirement of printing label and ask for gr-quantities (popup)
 SELECT SINGLE * FROM yzzm_gr_quantity WHERE ebeln = mseg-ebeln.
 CLEAR yzzm_gr_quantity-no_popup.
ELSE.
and ask not for gr-quantities
 IF syst-tcode = 'MB90'.
 yzzm_gr_quantity-erfmg := mseg-menge.
 ELSE.
 yzzm_gr_quantity-erfmg := mseg-menge / mseg-weanz.
 ENDIF.
 yzzm_gr_quantity-no_popup := x.
ENDIF.
determination inspection lot number
CLEAR qals-prueflos.
SELECT SINGLE * FROM qals WHERE mblnr = mseg-mblnr
 AND zeile = mseg-zeile
 AND mjahr = mseg-mjahr.
determination vendor batch
CLEAR mch1-licha.
SELECT SINGLE * FROM mch1 INTO mch1 WHERE matnr = mseg-matnr
 AND charg = mseg-charg.
ENDFORM. "open_form_label
=================================================================== *
FORM we01_print_slv.
*' Description:
*' print out of hazardous symbol
*' controls the Zebra printer
*' Last Change Vers Programmer Reason
*****26.09.2007 Starts
DATA: l_objky TYPE nast-objky,"Object key
 l_vstat TYPE nast-vstat. "Processing status of message
*****26.09.2007 Starts
TABLES: mgef, t300.
FIELD-SYMBOLS: .
DATA: aux_index LIKE sy-index.
DATA: count_haz_sym, position TYPE n, zw TYPE p DECIMALS 1.
DATA: aux_value(5) TYPE c.
DATA: txt(10) TYPE c, pos(5) TYPE c.
t001w-werks = r_werks.
t001w-name1 = r_name1.
PERFORM read_address.
*2
SELECT SINGLE * FROM ekpo WHERE ebeln = mseg-ebeln
 AND ebelp = mseg-ebelp.
CLEAR mara-stoff.
SELECT SINGLE stoff INTO mara-stoff FROM mara WHERE matnr = mseg-matnr.
IF NOT mara-stoff IS INITIAL.
 CLEAR t300.
 SELECT SINGLE * FROM t300 WHERE lgnum = mseg-lgnum.
 IF NOT sy-subrc IS INITIAL.
for plants without warehouses try to use the country code
 CASE mseg-werks.
 WHEN 'BUP'.
 t300-regkz := 'US '.
 ENDCASE.
 ENDIF.
 CLEAR mgef.
 SELECT SINGLE * FROM mgef WHERE stoff = mara-stoff
 AND regkz = t300-regkz.
ENDIF.
in case of more then one label, use for each a new output window
(not only for the first)
IF g_count > 1.
 CALL FUNCTION 'CONTROL_FORM'
 EXPORTING
 command = 'NEW-WINDOW'.
ENDIF.
Ausgabe Gefahrstoffsysmbole Neustadt, V.Hilgert 14.07.98
*For output type YNL7, the hazardous warning symbol has to be printed at the bottom of the label.So label is called before that.
IF tnapr-kschl = 'YNL7'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'LABEL'.
ENDIF.
count_haz_sym = 0. position = 0.
WHILE count_haz_sym = 'XN'.
For output type YNL7, the width of the standard text is small.
 IF tnapr-kschl = 'YNL7'.
 zw = position * '0.2' + '0.1'. pos = zw.
 ELSE.
 zw = position * '1.3' + '0.1'. pos = zw.
 ENDIF.
 IF tsp03d-patype = 'YZZX_ZEB'. " device type for ZEBRA label priter
 aux_value := count_haz_sym.
 ELSE.
 aux_value := pos. " HP/Kyocera or other laser printer
 ENDIF.
 CALL FUNCTION 'TEXT_SYMBOL_SETVALUE'
 EXPORTING
 name = '&XPOS&'
 value = aux_value
 EXCEPTIONS
 OTHERS = 1.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element =
 window = 'MAIN'
 EXCEPTIONS
 element = 1
 function = 2
 type = 3
 unopened = 4
 unstarted = 5
 window = 6
 OTHERS = 7.
 IF sy-subrc = 0.
*Varying the position for YNL7
 IF tnapr-kschl = 'YNL7'.
 position = position + 2.
 ELSE.
 position = position + 1.
 ENDIF.
 ENDIF.
 ENDIF.
ENDWHILE.
IF NOT mseg-vfdat IS INITIAL.
 am07m-mhtxt = text-105.
ENDIF.
IF NOT am07m-mhdat IS INITIAL.
 am07m-mhztx = text-106.
ENDIF.
IF ekko-bsart = 'UB'.
 am07m-litxt = text-101.
 am07m-libzg = ekko-reswk.
ELSE.
 am07m-litxt = text-100.
 am07m-libzg = ekko-lifnr.
ENDIF.
belpos-mblnr = mkpf-mblnr.
belpos-zeile = mseg-zeile.
CONDENSE belpos NO-GAPS.
am07m-belpos = belpos.
IF t156-shkzg = h.
 am07m-hdlne = text-020.
ELSE.
 am07m-hdlne = text-010.
ENDIF.
Ausgabe der Etiketten mit den ind. Mengen
IF NOT g_flag_popup IS INITIAL.
 SELECT SINGLE * FROM yzzm_gr_quantity WHERE ebeln = mseg-ebeln
 AND weanz = g_count.
ELSE.
* print the number of labels is handeled by the Zebra printer
IF tsp03d-patype = 'YZZX_ZEB'. " device type for Zebra label prts
g_lbls_tot := mseg-weanz - g_count + 1.
g_break_print := x.
ENDIF.
ENDIF.
mseg-erfmg := yzzm_gr_quantity-erfmg.*
********26.09.2007 Starts
CONCATENATE mseg-mblnr mseg-mjahr mseg-zeile INTO l_objky.
SELECT SINGLE vstat INTO l_vstat FROM nast WHERE kappl = 'ME' AND
objky = l_objky AND
kschl = 'YNL7'.
********26.09.2007 Ends
CALL FUNCTION 'TEXT_SYMBOL_SETVALUE'
EXPORTING
name = '&nummer&'
value = g_count.
IF tnapr-kschl <> 'YNL7'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LABEL'.
else.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'BAR_CODE'
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
CODEPAGE = 9
OTHERS = 10.
IF sy-subrc <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM. "GR_label_print
*& Form lesen
 text
 -->OBJKY text
FORM lesen USING objky.
nast_key = objky.
CLEAR retco.
SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
 AND mjahr = nast_key-mjahr.
SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
 AND zeile = nast_key-zeile
 AND mjahr = mkpf-mjahr.
IF sy-subrc NE 0.
 retco = sy-subrc.
 EXIT.
ENDIF.
PERFORM tab156_lesen.
xskkz = t156-rstyp.
PERFORM tab001w_lesen.
IF NOT mseg-evers IS INITIAL. "Versandvorschriften lesen.
 PERFORM t027_lesen.
ENDIF.
PERFORM bestellung_lesen.
IF NOT ekpo-knttp IS INITIAL AND NOT
 ekpo-weunb IS INITIAL.
 PERFORM kontierung_lesen. "für multikontierte Bestellungen
ENDIF.
IF NOT mseg-ematn IS INITIAL.
 PERFORM lesen_htn.
ELSE. "111277/PH
 CLEAR am07m-mfrpn. "111277/PH
ENDIF.
IF mseg-matnr IS INITIAL.
 mseg-menge = mseg-bpmng.
 mseg-meins = mseg-bprme.
 PERFORM bestelltext_lesen.
 CLEAR mabdr.
ELSE.
 PERFORM material_lesen.
ENDIF.
PERFORM tab024_lesen.
PERFORM t064b_lesen.
PERFORM ladr_lesen.
ENDFORM. "lesen
Lesen für WE-Schein Fert.Auftrag -
FORM lesen_wf USING objky.
nast_key = objky.
CLEAR retco.
SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
 AND mjahr = nast_key-mjahr.
SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
 AND zeile = nast_key-zeile
 AND mjahr = mkpf-mjahr.
IF sy-subrc NE 0.
 retco = sy-subrc.
 EXIT.
ENDIF.
PERFORM tab156_lesen.
xskkz = t156-rstyp.
PERFORM tab001w_lesen.
PERFORM auftrag_lesen.
IF NOT mseg-matnr IS INITIAL.
 PERFORM material_lesen.
ELSE.
 mseg-menge = mseg-erfmg.
 mseg-meins = mseg-erfme.
ENDIF.
PERFORM tab024d_lesen.
PERFORM t064b_lesen.
PERFORM ladr_lesen.
ENDFORM. "lesen_wf
Lesen für Warenausgang -
FORM lesen_wa USING objky.
nast_key = objky.
CLEAR retco.
SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
 AND mjahr = nast_key-mjahr.
SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
 AND zeile = nast_key-zeile
 AND mjahr = mkpf-mjahr.
IF sy-subrc NE 0.
 retco = sy-subrc.
 EXIT.
ENDIF.
PERFORM tab156_lesen.
xskkz = t156-rstyp.
PERFORM tab001w_lesen.
IF NOT mseg-matnr IS INITIAL.
 PERFORM material_lesen.
ENDIF.
PERFORM ladr_lesen.
ENDFORM. "lesen_wa
Druck Vorbereiten -
FORM open_form.
PERFORM itcpo_fuellen.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 device = 'PRINTER'
 language = language
 OPTIONS = itcpo
 dialog = ' '.
PERFORM lesen_t159p.
x_open = x.
ENDFORM. "open_form
Druck Vorbereiten Sammelscheine -
FORM open_form_sammel.
PERFORM lesen_t159p.
PERFORM itcpo_fuellen.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 device = 'PRINTER'
 language = language
 OPTIONS = itcpo
 form = tnapr-fonam
 dialog = ' '.
x_open = x.
ENDFORM. "open_form_sammel
Druck schließen -
FORM close_form.
CHECK NOT x_open IS INITIAL.
CALL FUNCTION 'CLOSE_FORM'.
CLEAR x_open.
ENDFORM. "close_form
Hilfsfelder versorgen für Sammelscheindruck -
FORM helpdata1.
 *mkpf = mkpf.
 *mseg-lgort = mseg-lgort.
 *ladr = ladr.
save_mkpf = *mkpf-usnam.
save_mblnr = *mkpf-mblnr.
save_budat = *mkpf-budat.
save_cpudt = *mkpf-cpudt.
save_ematn = *mseg-ematn.
save_lgort = *mseg-lgort.
save_ladr = *ladr.
 *t001w = t001w.
save_werks = *t001w-werks.
save_name1 = *t001w-name1.
 *ekko = ekko.
 *am07m = am07m.
save_lifnr = *ekko-lifnr.
save_ebeln = *ekko-ebeln.
save_ekgrp = *ekko-ekgrp.
save_linam = *am07m-name1.
save_lina2 = *am07m-name2.
 *t024 = t024.
save_eknam = *t024-eknam.
save_ektel = *t024-ektel.
 *mkpf-usnam = old_mkpf.
 *mkpf-mblnr = old_mblnr.
 *mkpf-cpudt = old_cpudt.
 *mkpf-budat = old_budat.
 *mseg-ematn = old_ematn.
 *mseg-lgort = old_lgort.
 *ladr = old_ladr.
 *t001w-werks = old_werks.
 *t001w-name1 = old_name1.
 *t024-eknam = old_eknam.
 *t024-ektel = old_ektel.
 *ekko-lifnr = old_lifnr.
 *ekko-ebeln = old_ebeln.
 *ekko-ekgrp = old_ekgrp.
 *am07m-name1 = old_linam.
 *am07m-name2 = old_lina2.
save_lfa1 = lfa1.
IF NOT old_lfa1 IS INITIAL.
 lfa1 = old_lfa1.
ENDIF.
ENDFORM. "helpdata1
--- Versorgung der Hilfsfelder vor CLOSE_FORM bei Sammelscheindruck --
FORM helpdata2.
old_lfa1 = save_lfa1.
lfa1 = save_lfa1.
old_mkpf = save_mkpf.
old_lgort = save_lgort.
old_ladr = save_ladr.
old_budat = save_budat.
old_cpudt = save_cpudt.
old_werks = save_werks.
old_name1 = save_name1.
old_mblnr = save_mblnr.
old_lifnr = save_lifnr.
old_linam = save_linam.
old_lina2 = save_lina2.
old_ebeln = save_ebeln.
old_ekgrp = save_ekgrp.
old_eknam = save_eknam.
old_ektel = save_ektel.
old_ematn = save_ematn.
 *mkpf-usnam = save_mkpf.
 *mkpf-mblnr = save_mblnr.
 *mkpf-budat = save_budat.
 *mkpf-cpudt = save_cpudt.
 *mseg-ematn = save_ematn.
 *mseg-lgort = save_lgort.
 *ladr = save_ladr.
 *t001w-werks = save_werks.
 *t001w-name1 = save_name1.
 *t024-eknam = save_eknam.
 *t024-ektel = save_ektel.
 *ekko-lifnr = save_lifnr.
 *ekko-ebeln = save_ebeln.
 *ekko-ekgrp = save_ekgrp.
 *am07m-name1 = save_linam.
 *am07m-name2 = save_lina2.
ENDFORM. "helpdata2
Form Lesen Warenausgang Lohnbearbeiter -
FORM lesen_wlb USING objky.
nast_key = objky.
CLEAR retco.
SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
 AND mjahr = nast_key-mjahr.
SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
 AND zeile = nast_key-zeile
 AND mjahr = mkpf-mjahr.
IF sy-subrc NE 0.
 retco = sy-subrc.
 EXIT.
ENDIF.
PERFORM tab156_lesen.
xskkz = t156-rstyp.
PERFORM tab001w_lesen.
IF NOT mseg-matnr IS INITIAL.
 PERFORM material_lesen.
ENDIF.
ON CHANGE OF mseg-lifnr.
 PERFORM read_address.
ENDON.
ENDFORM. "lesen_wlb
*eject
Fuellen der ITCPO -
FORM itcpo_fuellen.
IF xscreen NE space.
*- Testausgabe auf Bildschirm -
 itcpo-tdpreview = 'X'.
 itcpo-tdnoprint = 'X'.
ELSE.
 CLEAR: itcpo-tdpreview,
 itcpo-tdnoprint.
ENDIF.
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.
itcpo-tdnewid = x.
ENDFORM. "itcpo_fuellen
*eject.
------------ FORM lesen der Lagerortadr. ---------------------------*
FORM ladr_lesen.
DATA: BEGIN OF addr_sel.
 INCLUDE STRUCTURE addr1_sel.
DATA: END OF addr_sel.
CLEAR ladr.
SELECT SINGLE * FROM twlad WHERE werks = mseg-werks
 AND lgort = mseg-lgort
 AND lfdnr = '001'.
IF NOT twlad-adrnr IS INITIAL AND sy-subrc IS INITIAL.
 MOVE twlad-adrnr TO addr_sel-addrnumber.
ENDIF.
CALL FUNCTION 'ADDR_GET'
 EXPORTING
 address_selection = addr_sel
 IMPORTING
 sadr = ladr
 EXCEPTIONS
 OTHERS = 1.
ENDFORM. "ladr_lesen
**& Form REPRINT
 text
*FORM reprint.
TABLES : nase.
DATA : x TYPE string.
IF nase-vermo = 2.
 x = 'REPRINT'.
ENDIF.
*ENDFORM. "REPRINT
Kindly do the needful.
Thanks in advance
Regards
Swarna

Hi Swarna,
CALL FUNCTION 'OPEN_FORM'
EXPORTING
device = 'PRINTER'
language = language
OPTIONS = print_infos
form = tnapr-fonam
dialog = ' '.
x_open := x.
I thing its not a good way to pass the Form name to the Parameter.
Try like,
data : temp_form like tnapr-fonam.
form = temp_form
Thanks.

SAPscript Prgram/Form Example

Hi
I'm new to sapscript. so please bear with me.
When using SAPscript one has a program that gets all the data, then a form is created on top of it. I would like to know the following on the program.
1) The ABAP program will retrieve the data, is there any certain place it must place the data for you to be able to make the SAPscript form be able to access the data.
2) Does anyone have a simple example with all the steps. When I say example I would like to see a small program that asks for 1 paramater (document numer,ect), retrieves data based on that parameter. Then step by step how to create that form based on the data from the simple program. Nothing fancy, just show one line, one column (one field) of data on the print. I just hope to get an example where I see just one field printed out that came from the ABAP programs data retrieved from the database.
I will happily reward points for helpfull answers. Full points instantly if I can do number 2 on my side based on feedback from posts.
Thank you in advance

This is the sample program used to print a script.
REPORT Z1SCRIPT_TO_PDF .
All these are data declarations to select data and pass it to the script.
***************************DECLARATIONS*******************************
DATA: BEGIN OF ITAB OCCURS 0,
CARRID TYPE SFLIGHT-CARRID,
CONNID TYPE SFLIGHT-CONNID,
PRICE TYPE SFLIGHT-PRICE,
END OF ITAB.
DATA: struct TYPE ITCPO.
DATA: PDFTAB TYPE TABLE OF TLINE WITH HEADER LINE,
DATAB TYPE TABLE OF ITCOO WITH HEADER LINE,
DATA: BINFILESIZE TYPE I,
FILE_NAME TYPE STRING,
FILE_PATH TYPE STRING,
FULL_PATH TYPE STRING.
© 2006 SAP AG 4
***************************END OF DECLARATIONS*******************************
To specify Printer name
struct-tddest = 'LP01'.
To specify no Print Preview
struct-tdnoprev = 'X'.
To access the SAP Script output in OTF format
struct-tdgetotf = 'X'.
**************************SAPSCRIPT GENERATION*******************************
This Function Module is used to open a form for Printing. With out this function module you can't print anything in the form.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = space
FORM = 'ZSCRIPT'
LANGUAGE = SY-LANGU
OPTIONS = struct
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =
EXCEPTIONS
CANCELED = 1
DEVICE = 2
FORM = 3
© 2006 SAP AG 5
OPTIONS = 4
UNCLOSED = 5
MAIL_OPTIONS = 6
ARCHIVE_ERROR = 7
INVALID_FAX_NUMBER = 8
MORE_PARAMS_NEEDED_IN_BATCH = 9
SPOOL_ERROR = 10
CODEPAGE = 11
OTHERS = 12
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'START_FORM'
EXPORTING
ARCHIVE_INDEX =
FORM = 'ZSCRIPT'
LANGUAGE = ' '
STARTPAGE = ' '
PROGRAM = ' '
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8
© 2006 SAP AG 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.
This function module is used to display for particular window and particular text element. In this FM you have to specify the name of the window and element. You have to call this FM as many times as the number of windows you have.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ELEM1'
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
CODEPAGE = 9
OTHERS = 10
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 CARRID CONNID PRICE FROM SFLIGHT INTO TABLE ITAB.
LOOP AT ITAB.
CALL FUNCTION 'WRITE_FORM'
© 2006 SAP AG 7
EXPORTING
ELEMENT = 'ELEM2'
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
CODEPAGE = 9
OTHERS = 10
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDLOOP.
This is to close the form after printing. With out this function module you can't print any thing. It is mandatory to close the form at end of printing.
CALL FUNCTION 'END_FORM'
IMPORTING
RESULT =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SPOOL_ERROR = 3
CODEPAGE = 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.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT =
RDI_RESULT =
TABLES
OTFDATA = DATAB[]
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.
**************************END OF SAPSCRIPT GENERATION*******************************
Reward points if helpfull.
with regards,
Srinivasu.....

Migrate invoice printing to adobe forms

Hi all,
I want to evaluate ADOBE forms in order to decide whether it is useful to migrate SD printing from SAPScript to ADOBE forms.
To do that I would like to print a sample form (invoice) with this technology. Is there a sample form and a sample interface that could be used for invoice printing?
How do I have to customize the output type to make it work with ADOBE forms?
Thank you for any hints.
Regards
Norman

Hi,
migration from script to adobe is a big problem.
dont go for that.
many problems will come after migration, the time to take rectification is more than the development directly.
Thank U
Jay----

Diffrence b/w sapscript & smart forms?

hi
wat is the diffrence b/w sapscript & smart forms?
deepak

Hi Deepak,
Difference with SMARTFORMS vs. SapScript(SE71)
The Following are the differences :-
a) Multiple page formats are possible in smartforms which is not the case in SAPScripts
b) It is possible to have a smartform without a main window .
c) Labels cannot be created in smartforms.
d) Routines can be written in smartforms tool.
e) Smartforms generates a function module when activated.
f) Unlike sapscripts (RSTXSCRP), you cannot upload/download Smartform to your local harddisk.
It was said that it was provided in CRM 3.0 version, but not available in R/3. You can download smartforms into Local PC in a XML format. In the same way you can upload this XML format into Smartform. From the smartform editor itself you can call download option, if you are working in CRM 3.0 environment.
In R3 also, you can download into XML format. However, it's not sure about uploading. Refer to the program 'SF_XSF_DEMO'.
In 4.7 Enterprise, other have seen this utlity which is completey missing in 4.6c. There is functionality to downlaod a complete form or only a particular node. (Utilities -> Download form). It will create a XML file and save it in the hard disk.
For others, if you want to download/upload the Smartforms source, you will need the help from the Basis people. What you can do is to create a Transport and then FTP down to your local harddisk. When you need the Smartform source in another system, you have FTP up the Smartforms file back to the SAP server. Finally, the Basis team, will tp it into your system.
g) The protect and endprotect command in sapscript doesn't work with smartforms. For example on a invoice: First data of position no 80. is printed on page one, other data of position no 80 is printed on page 2. And there's nothing you can do about it. Actually, there is something you can do about it. By using a folder node and checking the 'protect' checkbox, everything in that folder will be page protected.
check out this link:
http://www.sap-img.com/smartforms/sap-smart-forms.htm
Reward points if helpful.
Thanks,

Print 2 different forms to 2 different printers 1 ABAP program

Is it possible to print 2 different forms to 2 different printers from one program?
Example: a Shipping invoice and a Shipping Label (mailing sticky label)
Could they be a combination for form types? SAP Script and SMARTFORMS, SAP Script and PDF, SMARTFORMS and PDF
I have a need to print a Shipping Invoice and Label from a single program. I need to beable to print multiple copies of the label at the same time for multiple shipping packages. i.e. 1 of 4, 2 of 4 etc.
The users want to select print a single invoice and the neccessary labels from a single transaction request.
Ken

Hi,
Could you please see the program RLVSDR40.
Thanks,
Abhijit

How do I print a interactive form out? It allows printing and filling.

Hi, I'm trying to print out an interactive form that I filled out and then saved on my hard drive. The author allows printing and filling out of the PDF when it was created. I'm running Windows 7 64-bit and have Adobe Reader XI (11.0.06) installed along with the current drivers for my compatible printer. Within the same PDF the first sheet "instruction sheed" is an all text flat form, which prints just fine. The problem lies when I try to print other sections of the PDF, When I try to print it all I get is the header and a footer that the author created, but all the spaces where questions/ text and my fill in answers don't show up on the print preview image or when the printed sheet comes out of my printer.
I have tried to print as an image without success. I don't think its an author issuse because it was released out of a California Department for several houndred/thousands of others. Please if you have any ideas or questions i look forward to any advice.

Sorry I forgot to add that the PDF is devided by a "Chapter" style cover face that devided multiple sets of forms in to categories. At the bottome of these categories is a "Print whole document" which can only be clicked once the whole thing has been filled out. Do to some information over lap some dates don't follow the (time line order) it requirest to fill in the data so two of the categories show up as incomplete. Take a look at the document yourself, maybe I NEED to rewrite the information and see if that works.
*Edit* Looks like I CAN print a blank form at the begining when it asked me if i want a blank form, will try to rearange dates so it will show as all COMPLET.
PDF file can be found at the California government website:
http://www.chp.ca.gov/recruiting/pdf/Chp446.pdf
http://www.chp.ca.gov/recruiting/pdf/Chp446.pdf

How to create a Printer List in Forms 4.5

How can I create a Printer list on Forms 4.5 to show all
available printers?
Thanks.
null

I fear there is no direct solution.
May be this is a work-around:
1. Apply the older built-in: Display_item. You can't disable the item with display_item, but you can change the visual attribute and show the user that this item should not be checked.
2. To be shure that the user doesn't ignore this "disable", you need a trigger, which resets the item to the proper value after an illegal change.

Table Printing in a Form

Hi All..
Can you plz explain me clearly..
How can i use WRITE_FOR ..
shell i write it in form or Print Program..
Clearly.. i want to print 5 columns like vbap-arktx, vbap-zmeng,vbap-zmeng,vbap-netpr, vbap-kzwi1..
with headings Service details,personnel,HR,Rate,Amount
AT last i want to print Total of all amounts..
Can u plz tell me the logic clearly. with code..
Thanks & Regards
Raj

Hi prasad,
 we have to write 'Write_form' FM in driver program itself. I am writing small example code below. if it is helpful plz give me points.
report zsumascriptsv1_p .
data v1 type i value '888-'.
tables mara.
data it_vbap like mara occurs 0 with header line.
selection-screen begin of block b1.
select-options: s_matnr for mara-matnr.
selection-screen end of block b1.
*-- Start of Selection
start-of-selection.
select *
into table it_vbap
from mara
where matnr in s_matnr.
if sy-subrc = 0.
endif.
call function 'OPEN_FORM'
exporting
* APPLICATION = 'TX'
* ARCHIVE_INDEX =
* ARCHIVE_PARAMS =
* DEVICE = 'PRINTER'
* DIALOG = 'X'
 form = 'script_form_name'
* LANGUAGE = SY-LANGU
* OPTIONS =
* MAIL_SENDER =
* MAIL_RECIPIENT =
* MAIL_APPL_OBJECT =
* RAW_DATA_INTERFACE = '*'
* SPONUMIV =
* 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
* CODEPAGE = 11
* OTHERS = 12
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
loop at it_vbap.
call function 'WRITE_FORM'
exporting
element = 'HEADER'
 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
 codepage = 9
 others = 10
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endloop.
call function 'CLOSE_FORM'
* IMPORTING
* RESULT =
* RDI_RESULT =
* TABLES
* OTFDATA =
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.
 if it is helpful plz reward points.
Thanks,
suma.

How to print a smart form in two diff languages runtime

Hi friends,
we have a requirement to print a smart form in two langauges one in english
and other in Spanish those selection has to given by check box condition.
pls send some stuff .
Thanks & Regards
Jagadeeshwar.B

hi! Jagadesh
1. Create two different Smartforms
2. In Form Atributes Option -->General Attributes -->Language Tab -- there is a Optiona to select a Particular Language.( To select Language) there select the EN for 1st optin and ES for Spanish, Normally it will be in To all Language.
3. Create a report with Radiobutton (bz Check Box have an attributes to check both the Options)
 when option1 = 'EN'.
 call form1 with EN language
when option2 = 'ES'.
 call forms 2 with ES Language.
Reward me if its useful.
Regards,
Nagulan

Printer selection in Forms 10g

Hello,
I am looking for a suggestion, to realize a printer selection in Forms 10g.
For a migration I have to replace the command
win_api_dialog.select_printer with something similar.
Some threads suggest to implement a java class.
Under
How i select printer in Forms9i
exist an example.
The implementation there is based on the JDK 1.4.
I need an implementation based on JDK 1.3.
Inside of the JDK 1.3 exist only a simple printer dialog.
(compare http://bugs.sun.com/bugdatabase/view_bug.do?bug_id=4645377 )
Probably exist the option to use the C-API of WebUtil. The C-API could be used to start a printer dialog of a dll. I like to avoid this option, but if you an example for that option, I appreciate to see an example for that.
In all other respects, I hope on your suggestions.

I invest some more time on that topic, but did not found a solution to display a printer selection on the client.
The only thing that i found in forum was that you can read the standard printer out the registry. But I would need all local installed printers.
I hope on your help.

Printing SAPSCRIPT french form

Similar Messages

Maybe you are looking for