Re: printing problem in sap script

Former Member — Fri, 06 Mar 2009 07:10:21 GMT

my coding is

&----

*& Report ZSCPT_HR_OPT_DRIVER

&----

REPORT ZSCPT_HR_OPT_DRIVER.

TABLES : pa0001,pa0000,pa0002,pa0006,pa0008,pa9001,hrp1000

,hrp1001,t500p,t522t,t247.

data : date(10) type c .

DATA : VAR1 TYPE SY-PAGNO.

TYPES: BEGIN OF wa_pa0000,

pernr TYPE pa0000-pernr,

endda TYPE pa0000-endda,

begda TYPE pa0000-begda,

massn TYPE pa0000-massn,

END OF wa_pa0000.

TYPES : BEGIN OF wa_pa0001,

pernr TYPE pa0001-pernr,

endda TYPE pa0001-endda,

begda TYPE pa0001-begda,

bukrs TYPE pa0001-bukrs,

werks TYPE pa0001-werks,

persg TYPE pa0001-persg,

persk TYPE pa0001-persk,

btrtl TYPE pa0001-btrtl,

orgeh TYPE pa0001-orgeh,

plans TYPE pa0001-plans,

stell TYPE pa0001-stell,

ename TYPE pa0001-ename,

END OF wa_pa0001.

types : begin of wa_pa0002,

pernr type pa0002-pernr,

subty type pa0002-subty,

objps type pa0002-objps,

sprps type pa0002-sprps,

nachn type pa0002-nachn,

vorna type pa0002-vorna,

anred type pa0002-anred,

midnm type pa0002-midnm,

end of wa_pa0002.

TYPES : BEGIN OF wa_pa0006,

pernr TYPE pa0006-pernr,

subty TYPE pa0006-subty,

name2 TYPE pa0006-name2,

stras TYPE pa0006-stras,

ort01 TYPE pa0006-ort01,

ort02 TYPE pa0006-ort02,

pstlz TYPE pa0006-pstlz,

locat TYPE pa0006-locat,

adr03 TYPE pa0006-adr03,

adr04 TYPE pa0006-adr04,

state TYPE pa0006-state,

END OF wa_pa0006.

TYPES : BEGIN OF wa_pa0008,

pernr TYPE pa0008-pernr,

lga01 TYPE pa0008-lga01,

bet01 TYPE pa0008-bet01,

lga02 TYPE pa0008-lga02,

bet02 TYPE pa0008-bet02,

lga03 TYPE pa0008-lga03,

bet03 TYPE pa0008-bet03,

lga04 TYPE pa0008-lga04,

bet04 TYPE pa0008-bet04,

lga05 TYPE pa0008-lga05,

bet05 TYPE pa0008-bet05,

lga06 TYPE pa0008-lga06,

bet06 TYPE pa0008-bet06,

lga07 TYPE pa0008-lga07,

bet07 TYPE pa0008-bet07,

lga15 TYPE pa0008-lga15,

bet15 TYPE pa0008-bet15,

lga22 TYPE pa0008-lga22,

bet22 TYPE pa0008-bet22,

END OF wa_pa0008.

TYPES : BEGIN OF wa_pa9001,

pernr TYPE pa9001-pernr,

location TYPE pa9001-location,

division TYPE pa9001-division,

department TYPE pa9001-department,

END OF wa_pa9001.

TYPES : BEGIN OF wa_hrp1000,

plvar TYPE hrp1000-plvar,

otype TYPE hrp1000-otype,

objid TYPE hrp1000-objid,

begda TYPE hrp1000-begda,

endda TYPE hrp1000-endda,

short TYPE hrp1000-short,

stext TYPE hrp1000-stext,

END OF wa_hrp1000.

TYPES : BEGIN OF wa_hrp1001,

otype TYPE hrp1001-otype,

objid TYPE hrp1001-objid,

plvar TYPE hrp1001-plvar,

begda TYPE hrp1001-begda,

endda TYPE hrp1001-endda,

END OF wa_hrp1001.

DATA : atext type t522t-atext,

name1 type t500p-name1.

DATA : pernr TYPE rp50g-pernr.

types : amt_word1(255) type c.

DATA : wa_pa0000 TYPE wa_pa0000,

wa_pa0001 TYPE wa_pa0001,

wa_pa0002 TYPE wa_pa0002,

wa_pa0006 TYPE wa_pa0006,

wa_pa0008 TYPE wa_pa0008,

wa_pa9001 TYPE wa_pa9001,

wa_hrp1000 TYPE wa_hrp1000,

wa_hrp1001 TYPE wa_hrp1001.

DATA : TEXT TYPE CHAR8,

V_WORDS TYPE SPELL-WORD,

V_CONAMT TYPE I,

AMOUNT TYPE P,

STEXT TYPE HRP1000-STEXT,

ZJDATE TYPE Pb9011-ZJDATE,

ZCAMT TYPE PB9011-ZCAMT,

ZSAMT TYPE PB9011-ZSAMT,

C1 TYPE CHAR2,

C2 TYPE CHAR2,

C3 TYPE CHAR4,

C5 TYPE T247-LTX,

P_MONTH TYPE CHAR2,

P_YEAR TYPE CHAR4,

SOBID TYPE HRP1001-SOBID.

*data : amount(13) type c.

data : begin of it_final occurs 0,

ename like pa0001-ename,

frtxt like zappt_names-zformtext,

stext like hrp1000-stext,

end of it_final.

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.

DATA : NES TYPE C.

***************************END OF DECLARATIONS**************************

To specify Printer name

*struct-tddest = 'LP01'.

To specify no Print Preview

struct-tdnoprev = ''.

To access the SAP Script output in OTF format

*struct-tdgetotf = 'X'.

***************Selection Screen**********************

selection-screen begin of block a with frame.

parameters:

p_name like zsignname-name, "matchcode object zform1 ,"obligatory,

p_desig like zsignname-desig," matchcode object zform.

obligatory.

p_name1(30) TYPE c lower case ." like zsignname-name." defaul ' ' lower case.

selection-screen end of block a.

START-OF-SELECTION.

GET PARAMETER ID 'PER' FIELD PERNR.

call function 'CACS_DATE_GET_YEAR_MONTH'

exporting

i_date = sy-datum

importing

e_month = p_month

e_year = p_year.

p_year = sy-datum+2(2).

SELECT SINGLE * from pa0000 INTO

CORRESPONDING FIELDS OF wa_pa0000

WHERE pernr = pernr.

SELECT SINGLE * from pa0001 INTO

CORRESPONDING FIELDS OF wa_pa0001

WHERE pernr = pernr.

SELECT SINGLE * from pa0002 INTO

CORRESPONDING FIELDS OF wa_pa0002

WHERE pernr = pernr.

SELECT SINGLE * from pa0006 INTO

CORRESPONDING FIELDS OF wa_pa0006

WHERE pernr = pernr.

SELECT SINGLE * from pa0008 INTO

CORRESPONDING FIELDS OF wa_pa0008

WHERE pernr = pernr.

SELECT SINGLE * from pa9001 INTO

CORRESPONDING FIELDS OF wa_pa9001

WHERE pernr = pernr.

SELECT SINGLE * from hrp1000 INTO

CORRESPONDING FIELDS OF wa_hrp1000

WHERE objid = wa_pa0001-orgeh.

SELECT SINGLE * from hrp1001 INTO

CORRESPONDING FIELDS OF wa_hrp1001

WHERE objid = wa_hrp1000-objid.

select single atext from t522t client specified

into atext

where mandt = sy-mandt

and sprsl = sy-langu

and anred = wa_pa0002-anred.

date = wa_pa0001-begda.

c3 = date+0(04).

c1 = date+6(02).

c2 = date+4(02).

select single ltx from t247 into c5

where spras eq sy-langu

and mnr = c2 .

condense c1.

*DATA: amount1(10) TYPE p DECIMALS 2.

*amount = wa_pa0008-bet01.

*amount1 = amount.

CALL FUNCTION 'ZCFM_SPELL_AMOUNT_INR'

EXPORTING

amount = wa_pa0008-bet01

IMPORTING

text = v_words.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =

DEVICE = 'PRINTER'

DIALOG = 'X'

FORM = 'ZSCPT_HR_APPT'

LANGUAGE = SY-LANGU

OPTIONS = struct

MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
IMPORTING
LANGUAGE = sy-langu
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 = 'ZSCPT_HR_T1_T6'

LANGUAGE = SY-LANGU.

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.

*if sy-pagno ne 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'REF'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW1'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER1'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW2'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER2'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW3'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER2'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW4'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER3'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW5'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER3'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW6'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

IF SY-SUBRC = 0.

ENDIF.

CALL FUNCTION 'END_FORM'.

CALL FUNCTION 'CLOSE_FORM'

TABLES

OTFDATA = datab[].

topic Re: printing problem in sap script in Application Development and Automation Discussions

printing problem in sap script

Re: printing problem in sap script

Re: printing problem in sap script

Re: printing problem in sap script

Re: printing problem in sap script

Re: printing problem in sap script

Re: printing problem in sap script

Re: printing problem in sap script