topic Re: Print Programs in Application Development and Automation Discussions

Print Programs

Former Member — Sat, 07 Jan 2006 04:35:23 GMT

Hi everyone!!

I've just created a PR Form using sapscript and i wish to test it. From what i can gather, i need to create a print program first before i can proceed.

I've been looking at several standard sapscript forms like MEDRUCK, and i would like to know if any of you knew the print program for it. Perhaps it could give me an idea on what to do next.

Are print programs like your regular ABAP programs?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 04:51:38 GMT

I've managed to find out the print program for MEDRUCK...was browsing through the earlier forum thread when i can accross this way:

From SAPscript form -> Go to Check -> Text -> Press "Enter"

Still, from SE38, when i looked at the print program SAPLMEDRUCK...all i see are INCLUDE statements...it's not really helping me much in giving me an idea on what to write in the print program for my form...

Any hints on how i should continue?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 04:58:32 GMT

Hi Bernard,

1. Yes

Print programs are just like normal abap programs

2. For using sapscript, u need 2 things.

a) Sapscript layout built from SE71

b) program (called as driver program)

built from se38.

3. 3 - 4 FMs are VERY IMPORTANT.

They control the output/print of sapsciript.

They are for sapscript purpose only.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

FORM = 'ZAM_TEMPSS1'

EXCEPTIONS

CANCELED = 1

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'DETAIL'

FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

ELEMENT = 1

CALL FUNCTION 'CLOSE_FORM'

EXCEPTIONS

UNOPENED = 1

5. please see the documentation F1 help

on these FM and u will understand

how to use them.

USING THEM IS VERY SIMPLE.

Regards,

Amit M.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 05:02:08 GMT

Hi again,

1. Sample program.

2. ZAM_TEMPSS1 = sapscript layout (se71)

u can replace your name also in the code

3. MYELEMENT = some element name in layout

u can write the name of your own element in the code

REPORT abc.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

form = 'ZAM_TEMPSS1'

EXCEPTIONS

canceled = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MYELEMENT'

WINDOW = 'MAIN'

EXCEPTIONS

ELEMENT = 1

CALL FUNCTION 'CLOSE_FORM'

EXCEPTIONS

unopened = 1.

regards,

amit m.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 05:17:23 GMT

Thanks for the quick reply...could you please elaborate more on the ELEMENTs part?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 05:42:05 GMT

Hi again,

1. Elements are nothing but INDEPENDENT BLOCKS

which may be printed thru program

using WRITE_FORM fm.

2. In se71 sapscript layout,

we write :

/E MYELEMENT

/ hi, this is line

/ hi, this is another line

/E ABC

/ hi, this is line

/ hi, this is another line

3. /E

This defines the begingging of new ELEMENt (ie. Block)

it contains 2 lines (as u can see above)

The element name is MYELEMENT.

4. In above there are 2 elements namely

MYELEMENT

ABC

5. Now these element (block) can be printed / written

in the layout using FM

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MYELEMENT'

WINDOW = 'MAIN'

EXCEPTIONS

ELEMENT = 1

6. U can use this FM in a loop to

print the element (with 2 lines)

more than once

(This technique is used to print say Purchase

Order Line items)

Also see the help of sapscript layout.

I hope it helps.

regards,

amit m.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 05:45:24 GMT

For the print program, i was asked by the consultant to provide a SELECTION-SCREEN so that the user can key in the PR Number (EBAN-BANFN). In doing so, the appropriate PR No. and its details will be retrieved and displayed as part of the form. The following fields are to be retrieved and displayed:


EBAN-BADAT
EBAN-TXZ01
EBAN-MENGE
EBAN-MEINS
EBAN-WERKS
EBAN-KNTTP
EBAN-AFNAM

I have done the SELECTION-SCREEN as follows:


*&---------------------------------------------------------------------*
*&    SELECTION-SCREEN                                                 *
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-001.
PARAMETERS: I_BANFN LIKE EBAN-BANFN,       "PR No.
SELECTION-SCREEN END OF BLOCK 1.

So how do i make sure that the earlier mentioned fields are retrieved based on the PR No. that the user has keyed in and would later appear in the form? Would a SELECT statement be required to accomplish this?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 05:53:16 GMT

Hi,

1. First populate the 7 fields

using SELECT statment.

(This is a must)

2. In your sapscript layout,

to print the value of the fields,

write like this :

&EBAN-BADAT& &EBAN-TXZ01&

(& means value of this variable)

(In fact any variable in the driver program

can be printed in sapscript like this :

&VariableName&

3. Then using the 3 FMS,

print your sapscript.

regards,

amit m.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:06:05 GMT

Would the followig SELECT statement suffice?


SELECT BADAT TXZ01 MENGE MEINS WERKS KNTTP AFNAM
  FROM EBAN
  WHERE BANFN = I_BANFN.

I would also like to know how am i going to test to see whether i am getting the form layout as i wanted it to be?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:16:59 GMT

Hi again,

1. EBAN consists of many line item records

for one purchase requisiion number BANFN

2. So write your code as below :

3. Moreover, in sapscript layout,

define a new element with name 'LINEITEM'

4. Inside this element write your fields as :

&ITAB-EBAN& &ITAB-TXZ01&

(write the full field name along with table name)

REPORT abc.

PARAMETERS : i_banfn LIKE eban-banfn.

DATA : BEGIN OF itab OCCURS 0,

eban LIKE eban-badat,

txz01 LIKE eban-txz01,

menge LIKE eban-menge,

meins LIKE eban-meins,

werks LIKE eban-werks,

knttp LIKE eban-knttp,

afnam LIKE eban-afnam,

END OF itab.

SELECT badat txz01 menge meins werks knttp afnam

INTO CORRESPONDING FIELDS OF TABLE itab

FROM eban

WHERE banfn = i_banfn.

LOOP AT itab.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'LINEITEM'

FUNCTION = 'SET'
TYPE = 'BODY'

window = 'MAIN'

ENDLOOP.

regards,

amit m.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:45:17 GMT

So does it mean i would have to put the element (/E) <b>LINEITEM</b> in the sapscript layout on the line above the variable? For example:


/E ITEM_LINE
*  Purchase Request No. (SAP) : <U>&EBAN-BANFN&</>  Date         : <U>&EBAN-BADAT&</>
*  Item Description           : <U>&EBAN-TXZ01&</>
*  Quantity to Order          : <U>&EBAN-MENGE(.2)&</><U> &EBAN-MEINS&</>

Should it loop something like this?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:48:41 GMT

I meant "look"...not "loop"...ah, since i started doing ABAP i tend to write ABAP statements and in capital letters when writing a normal letter or message, if not, it won't look right

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:50:09 GMT

Hi again,

1. Exactly.

The layout u mentioned is perfectly corrrect.

*----

PS :

What is your Internal Table name :

If EBAN then it is correct.

If ITAB then

&ITAB-BANFN& . . .ETC.

*----

2. Should it loop something like this?

Do not Loop (REPEAT) the same in Layout.

3. It has to be written only ONCE.

4. Instead, we have to loop in the driver program.

LOOP AT ITAB.

CALL FUNCTION WRITE_FORM

ENDLOOP.

5. What will happen,

the program will loop at itab , say 5 times.

6. Hence, in the first loop, when call function is there,

it will write the ELEMENT,

WITH THE CURRENT VALUES OF ITAB.

7. In second passs,

it will AGAIN write the ELEMENT,

WITH THE CURRENT VALUES OF ITAB. (ie. 2nd record)

8. . .

. .

and so on.

9. Hence, in your layout, the element

ITEM_LINE WILL BE WRITTEN 5 TIMES,

WITH 5 DIFFEREENT VALUES.

regards,

amit m.

Message was edited by: Amit Mittal

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:51:25 GMT

Hi Bernard,

It looks good.

you did it correctly.

Regards

vijay

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:54:51 GMT

So what comes next? How do i test whether everything in my layout is in order?

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:56:27 GMT

hi,

1. U should write your driver program (se38 program)

using the 3 FMs mentioned in the previous post.

2. Run the program.

3. The layout will appear on screen in print-preview mode.

regards,

amit m.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 06:58:32 GMT

Hi Bernard,

Implement your driver Program in SE38, using

standard functions open_form, write_form, close_form.

check the output, every thing fine or not.

Regards

vijay

Re: Print Programs

Former Member — Sat, 07 Jan 2006 07:08:24 GMT

Erm...for some reason, only 2 of my 3 windows are displayed: 'LOGO' and 'HEADER'

But my 'MAIN' window is not being displayed...perhaps you guys could double check my print program...did i leave out anything?


*&---------------------------------------------------------------------*
*& Report  ZLPUPR006                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZLPUPR006 NO STANDARD PAGE HEADING.

TABLES: EBAN.

*&---------------------------------------------------------------------*
*&    DATA DECLARATION                                                 *
*&---------------------------------------------------------------------*
DATA : BEGIN OF ITAB OCCURS 0,
       BANFN LIKE EBAN-BANFN,      "Purchase requisition number
       BADAT LIKE EBAN-BADAT,      "Requisition (request) date
       TXZ01 LIKE EBAN-TXZ01,      "Short text
       MENGE LIKE EBAN-MENGE,      "Purchase requisition quantity
       MEINS LIKE EBAN-MEINS,      "Purchase requisition unit of measure
       WERKS LIKE EBAN-WERKS,      "Plant
       KNTTP LIKE EBAN-KNTTP,      "Account assignment category
       AFNAM LIKE EBAN-AFNAM,      "Name of requisitioner/requester
       END OF ITAB.

*&---------------------------------------------------------------------*
*&    SELECTION-SCREEN                                                 *
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-001.
PARAMETERS: I_BANFN LIKE EBAN-BANFN.       "PR No.
SELECTION-SCREEN END OF BLOCK 1.

SELECT BANFN BADAT TXZ01 MENGE MEINS WERKS KNTTP AFNAM
  INTO CORRESPONDING FIELDS OF TABLE ITAB
  FROM EBAN
  WHERE BANFN = I_BANFN.

LOOP AT ITAB.
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      FORM                        = 'ZLPUPR005'
    EXCEPTIONS
      CANCELED                    = 1.

  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      ELEMENT                     = 'LINE_ITEM'
      WINDOW                      = 'MAIN'
    EXCEPTIONS
      ELEMENT                     = 1.

  CALL FUNCTION 'CLOSE_FORM'
      UNOPENED                    = 1.

ENDLOOP.

Re: Print Programs

Former Member — Sat, 07 Jan 2006 07:13:47 GMT

<b>open_form.

loop ai itab.

write_form.

endloop.

close_form.</b>

take out the open and close form inside the loop.

vijay

Re: Print Programs

Former Member — Sat, 07 Jan 2006 07:16:18 GMT

it should be like this...

  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      form     = 'ZLPUPR005'
    EXCEPTIONS
      canceled = 1.

LOOP AT itab.


  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      element = 'LINE_ITEM'
      window  = 'MAIN'
    EXCEPTIONS
      element = 1.

ENDLOOP.

  CALL FUNCTION 'CLOSE_FORM'
    unopened = 1.