SAPSCRIPT MAIN BOTTOM PERFORMANCE

Hi,
we have a massive performance problem with sapscript.
In SAPSCRIPT we use WRITE_FORM with BOTTOM in MAIN WINDOW. When using APPEND, sapscript debugger shows that for every text element all text elements which have been triggered for BOTTOM/APPEND before are triggered again. That means the first is triggered again when the second is triggered and so on. When .
The math genius may calculate what that means for more than 100 text elements triggered: more than 10.000 times the text element gets triggered.
I tried function 'SET' but then only the last element triggered is in the printed output.
The reason for the many text elements is our special technique to print different character sizes in left and right area of bottom: We use a paragraph format with 1 point Line Spacing, i.e. create 7 lines empty and then one with 8pt character format text, then 9 line space, then 1 line with a tab to the right side and a 10 point character formattted text. - The customer wants payment conditions on the left in 6 point, SUM information in 11 point on the right - everything at the bottom of the last (which may be the first) page of the invoice.
I thought the idea of the 1 point line spacing technique was good but now (unicode system!) it takes up to 5 seconds to create one invoice.
Any ideas are welcome.
Regards,
Clemens Li

we circumvented the problem using function WRITE_FORM_LINES.

Similar Messages

Problem in sapscript Main Window Box command - Urgent

Dear friends,
Problem while showing boxes in multiple pages in sapscript. Box command is defined begining of the main window. But while printing showing in first page only not in other pages.
Regards,
Praveen Lobo

This could be your problem why box command is not getting displayed in all pages, you might be using the box command in the element that is only called once and that to in the first page... so try to check your form and place you box command under element that is getting called in each and every page, it will solve your poblem.
Note: for testing you can place your box command under element "/E" where you are displaying your line items... even though it is called multiple number of times it gets overlapped.
close the thread once your question is answered.
Regards,
SaiRam

Urgent : SAPScript: Main Window

HI Gurus,
Can two Main windows be created in a single sapscript with the same text inputs.?
If yes, how can we do so?
Useful response will be surely rewarded.
Thansk in advance

Hi Himayan
you can do tht.....
as you have on main window.......
u want to have one more main wondow in ur page..if i m rit...then
u can do so..
goto 'page window' >Edit>Create Element-->then select then main window....it ll be sub main window as '01'...and u have to write text in main '00'...only
it will come in main '01' automatically...
u can place this window any where in the page...may have different dimensions....
It will work man i did it...
Thnx
Rohit

Sapscript MAIN window and character separation

Hi all
We have encountered two issues, when we create Form painter.
How we want to create the form is below.
Display 6 fileds below at the top of the paper and at the bottom of the paper with correct character separation.
&REGUP-BELNR& &REGUP-XBLNR& &REGUP-BLDAT& &REGUD-WRBTR& &W_WSKTO(16T)& &REGUD-WSKTO&
<Ideal Form>
 Check
*ACC doc#54321 Invoice#12345 Date2009/01/01 Amount in invoice1000 Discount30 Sum970*
*ACC doc#54322 "blank" Date2009/01/02 Amount in invoice1000 Discount00 Sum1000*
*ACC doc#54323 Invoice#12347 Date2009/01/03 Amount in invoice1000 Discount00 Sum1000*
########CHECK DETAIL INFORMATION at the middle part##########
 Total Check Amount
 MICR FONT
*ACC doc#54321 Invoice#12345 Date2009/01/01 Amount in invoice1000 Discount30 Sum970*
*ACC doc#54322 "blank" Date2009/01/02 Amount in invoice1000 Discount00 Sum1000*
*ACC doc#54323 Invoice#12347 Date2009/01/03 Amount in invoice1000 Discount00 Sum1000*
<Issue>
1. We cannot display two main windows.
What we want to realize is
print 6 fields 2 times in the same form like labels. but right
ex)Display 6 fileds below at the top of the paper and at the bottom of the paper
&REGUP-BELNR& &REGUP-XBLNR& &REGUP-BLDAT& &REGUD-WRBTR& &W_WSKTO(16T)& &REGUD-WSKTO&
<Issue 1>
In below, the bottom part (MAIN01) is blank and nothing comes up
 Check
MAIN00----
*ACC doc#54321 Invoice#12345 Date2009/01/01 Amount in invoice1000 Discount30 Sum970*
*ACC doc#54322 Date2009/01/02 Amount in invoice1000 Discount00 Sum1000*
*ACC doc#54323 Invoice#12347 Date2009/01/03 Amount in invoice1000 Discount00 Sum1000*
########CHECK DETAIL INFORMATION at the middle part##########
 Total Check Amount
 MICR FONT
MAIN01----
2.When one field is blank, the character separation become different in each row.
ex) In below, doc#54322 has no Invoice# then character space for Invoice# is not blanked but the
space between ACC doc# and Date got really tight
<Issue 2>
MAIN00----
*ACC doc#54321 Invoice#12345 Date2009/01/01 Amount in invoice1000 Discount30 Sum970*
*ACC doc#54322 Date2009/01/02 Amount in invoice1000 Discount00 Sum1000*
*ACC doc#54323 Invoice#12347 Date2009/01/03 Amount in invoice1000 Discount00 Sum1000*
########CHECK DETAIL INFORMATION at the middle part##########
 Total Check Amount
 MICR FONT
MAIN01----
If you know the solution, please let me know
Best regard Masanobu Kubota
Edited by: Koji Yamada on Jan 8, 2009 5:59 AM
Edited by: Koji Yamada on Jan 8, 2009 6:00 AM
Edited by: Koji Yamada on Jan 8, 2009 6:02 AM

Hi,
As per my understanding of the question,
As u need two different pages, i.e. one with a single window n other with 2 windows:
In script create 2 pages:
1.Page1 have main window and sub window
2.Page2 have only main window.
Now in driver program,
call function open-form.
 when scenario 1
 call function start-form for page1
 call function write-form etc.....
 call function end-form
 when scenario 2
 call function start-form for page2
 call function write-form etc.....
 call function end-form
call function close-form.
Hope its clear.
Plz revert back if u get any doubts.

Windows 7 64 bit or 32 bit? (Main idea: Performance & Stability)

Hello guys
Currently I have installed Windows 7 32 bit. I'm thinking of changing to the 64 bit version as in 32 bit, Windows only use 2.72GB RAM although I have 4GB RAM on my MacBook Pro 13(you have 4GB RAM, but your computer only use 2.72GB. What a waste)
I use Windows for games, sometimes for office works (when it comes working with my friends which mostly of them using Windows)
Currently, I have no problem using the 32 bit.No lags.Fast boot
I'm wondering, if I use the 64 bit, booting is faster?Less lags?
(one of my friend use Vista Home Premium 64 bit said that boot using the 64 bit is quite longer than the 32 bit, but the performance is much better then 32 bit)
I have read some articles regarding gaming on Windows 7 64 bit. Problems, crashing and sometimes BSOD!
Quite scary on hearing that...
So, anybody can give me a piece of advice?

Well, my computer does show the installed RAM as 4GB. But, when I open Computer Properties, it shows:
RAM installed: 4.00GB (2.72GB Usable)
When I check with another tools(TuneUp), it also shows that the RAM that used by Windows 7 is 2.72GB

SAPscript MAIN Window ITEM TEXT Printing in NEXT PAGE

Hi,
I need to print the Item Text (Item Description or Column Description) if the Item Values (Lines) goes to the NEXT page in the Form. I have TEXT ELEMENTS defined for ITEM TEXT and ITEM VALUES in the MAIN Window. There is no issue with Printing the Item Text and Item Values in the FIRST Page. But in the NEXT page only when the Item values are printed (Item lines in excess of FIRST page), ITEM TEXT needs to be printed before printing the ITEM VALUES. If the FROM goes to NEXT page but not the Item values, then ITEM TEXT need not be printed in the NEXT page. The number of lines in the MAIN Window is different for both pages (FIRST & NEXT). I am not sure how to get this done. So, please provide me with a suitable solution to get this done. Appreciate your help in advance.
Thanks,
Kannan

Hi Kartik Tarla,
Thanks for your reply. Printing item lines between PROTECT / ENDPROTECT, will lead to Print all the line item together in one page. That is not I wanted. It the line items flows to NEXT page, I need to print the Item Header/Item Text. Otherwise, NEXT page should not have the Item Header.
Thanks.
Kannan

SAPSCRIPT Main Window Issue

I need to print the contents of the main window twice in the same page at different places.I searched the forum but I did not get any relevant thread with a solution.
Can anyone help.
Thanks
Nancy

I've put two main windows on the same page.
Since it is a main window we cannot rename it, so the name of both the main windows is "main".
When i call it using the function module "write_form' from the driver program only the first instance of the main window is called, if there is an overflow ( that is the data doesn't fit into the first main window ) it goes to the second instance of the main window and prints the rest of the data in the second instance of the main window.
But this is not my requirement.
I want the same data to be replicated in both the main windows.
Not the first half of the data in the first main window and the second half in the second instance of the main window.
I think I've made my requirement more clearer.
Thanks
Nancy

Sapscript Main Window

Hi All,
I am using the standard print program & layout set of order confirmation for quotation.
In the main window, i am defining a table using box commands & this is defined in the type-top of main window. the header text does get printed at the top of the window, but the table is printed starting from the top of page. I have modified the write form in print program to accomodate the printing at top of main window. Any suggestions how do i print the table/box in the main window.
Thanks
Amu

Hi,
Instead of using type TOP, define separate ELEMENT for printing header and table to be displayed. Then there will not be any problem of printing.
Regards,
Sailaja.
Dont forget to reward points, if answer helps you.

Sapscript - Main window Frame

Hi all,
I am designing a form.I have three main windows in this form. I have the following code in the text editor for thre windows. /: box frame 10 tw
when I check the layout of the form I can see the box only in the main window 00 but not in main window 01 and main window 02. Can anyone please help me with this.
Reagrds,
Varun

Hi Varun,
Please note that no need to create a window for each column.you can define Your X-coredinate to define Verical line or means to create a box:
Sample Code :
BOX YPOS '1.25' LN WIDTH '120' CH HEIGHT 4 LN FRAME 10 TW
BOX XPOS '18.00' CH YPOS '1.25' LN WIDTH 0 CH HEIGHT '4.00' LN FRAME 10 TW
BOX XPOS '31.00' CH YPOS '1.25' LN WIDTH 0 CH HEIGHT '4.00' LN FRAME 10 TW
BOX XPOS '47.00' CH YPOS '1.25' LN WIDTH 0 CH HEIGHT '4.00' LN FRAME 10 TW
BOX XPOS '68.00' CH YPOS '1.25' LN WIDTH 0 CH HEIGHT '4.00' LN FRAME 10 TW
Lanka
Message was edited by: Lanka Murthy

SapScript 'MAIN' Window without 'Text Element'

Why is it, if we run 'MAIN' Window without defining 'Text Element'(/E), it displays the contents twice.. The same doesn't happens with other 'Variable' windows..

Hi Main window is different from Var window.
Var window will call only once .
But main window it will call many times, it will go to Driver program and come back to populate the data.
for Clear info debug and see.
regards
vijay

What can I do if the main bottom button on my iPhone doesn't work?

I left my iPhone outside in the rain and now my bottom middle button is not working what can I do or how much will it cost to be prepared?

REPAIRED***

Sapscript bottom text in Main, just for the last page, but printing only in the last page

I need to print a text but only for the last page in the main window.
I have tried with IF.
IF &PAGE& = &SAPSCRIPT-FORMPAGES&
BOTTOM
....TEXT
ENDBOTTOM
ENDIF
But it prints in all pages in every main window.
Can someone point me what I am doing wrong or how can I do this?
Regards,
Carlos

Hello Carlos,
the problem with this condition is the following.
The Sapscript composer cannot know during the processing of e.g. the first page,
how many pages will follow. So &SAPSCRIPT-FORMPAGES& still contains the same
value like& PAGE& and is filled with the correct values only at the very end of the processing.
(when the total number of pages is known).
So I suggest you to use the BOTTOM command in the print program,
when the processing of all item of the MAIN window is ended.
There is an other variable &NEXTPAGE&. &NEXTPAGE& will always be 0
when it reaches to last page to print. The problem with this variable that
it can not be used in a condition in MAIN window too, only in a separate page window.
Regards,
Hedvig

SAPScript ampersand (&) substitution in PERFORM

Hi all,
My SAPScript has a PERFORM
PERFORM ROUTINE1 IN PROGRAM ZPROG
USING &VAR1&
CHANGING &VAR2&
ENDPERFORM
In the ABAP debugger I see the value of VAR2 as A&B&C, but when I go back to the form, the SAPScript debugger is showing the value as AC. My guess is that &B& is considered to be a symbol with a null value. How can I format VAR2 so it would come back as A&B&C?
Thanks and Regards.

Hi,
If a text like this was entered via the graphical Sapscript editor, it would have masked the text as A<(>&<)>B<(>&<)>C. If it was originally entered with the non-graphical Sapscript editor(line editor) and the masking characters were not used, then it would interpret the &B& as a symbol.
So VAR2 should contain A<(>&<)>B<(>&<)>C. i.e. the & characters need to be masked if they are to be interpreted as real ampersand characters rather thant he beginning of a symbol.
Regards,
Aidan

Totals in Main Window

Hi All,
I want to display the totals of cases,eaches and weight in the last page of the main window.
I am using Bottom and Endbottom to display the totals.
I am using the following code in the main window.
IF &page& eq &sapscript-formpages&
Bottom
Endbottom.
ENDIF
But the total is printing on each page of the main window.
It displays the total for that page and adds that amount to the next items on the next page and display the totals.
I want the whole sum of all the items to be displayed in last page main window.
I also tried using &nextpage& eq 0
Please solve my answer.
Thanks

Thanks for your reply. Here is the code if the line editor.
SFORMZMTOCOLL02
HFORMZMTOCOLL02
OLANE
HEADFORM ZMTOCOLL02 SAP DEF EPrint transfer order list ZMTOCOLL02 00029AGANGULY 46C 20041220120018RCHALASA 640 2006103116381413200072 E0 100
LINE/:FORM CPI 10; LPI 6; TAB-STOP 1 CH; START-PAGE FIRST;
LINE/:FORM FORMAT LETTER LANDSCAPE; PARAGRAPH L; RDI; RDIDEV;
LINE/:PARAGRAPH B ALIGN BLOCK; LINE-SPACE 1 LN; FONT-SIZE 28;
LINE/:PARAGRAPH L LINE-SPACE 1 LN;
LINE/:PARAGRAPH L0 LINE-SPACE 0.80 LN;
LINE/:PARAGRAPH L1 LINE-SPACE 1 LN;
LINE/:PARAGRAPH L2 LINE-SPACE 1 LN;
LINE/:PARAGRAPH L3 LINE-SPACE 0.80 LN;
LINE/:PARAGRAPH L4 LINE-SPACE 1 LN;
LINE/:PARAGRAPH L5 LINE-SPACE 1 LN;
LINE/:PARAGRAPH L6 LINE-SPACE 1 LN;
LINE/:PARAGRAPH L8 LINE-SPACE 1 LN;
LINE/:PARAGRAPH L9 LINE-SPACE 1 LN;
LINE/:PARAGRAPH LC LINE-SPACE 0.80 LN;
LINE/:PARAGRAPH LH LINE-SPACE 1 LN;
LINE/:PARAGRAPH LT LINE-SPACE 0.80 LN;
LINE/:PARAGRAPH LV LINE-SPACE 1 LN;
LINE/:PARAGRAPH LX LINE-SPACE 0.80 LN;
LINE/:PARAGRAPH L TAB 1 36 CH LEFT;
LINE/:PARAGRAPH L0 TAB 1 1 CH LEFT; TAB 2 16 CH LEFT; TAB 3 46 CH CENTER;
LINE/:PARAGRAPH L0 TAB 4 57 CH CENTER; TAB 5 62 CH LEFT; TAB 6 65 CH LEFT;
LINE/:PARAGRAPH L0 TAB 7 72 CH LEFT; TAB 8 96 CH RIGHT; TAB 9 100 CH CENTER;
LINE/:PARAGRAPH L1 TAB 1 38 CH LEFT; TAB 2 75 CH LEFT; TAB 3 90 CH LEFT;
LINE/:PARAGRAPH L2 TAB 1 40 CH LEFT; TAB 2 90 CM LEFT;
LINE/:PARAGRAPH L3 TAB 1 1 CH LEFT; TAB 2 16 CH LEFT; TAB 3 46 CH CENTER;
LINE/:PARAGRAPH L3 TAB 4 57 CH CENTER; TAB 5 62 CH LEFT; TAB 6 65 CH LEFT;
LINE/:PARAGRAPH L3 TAB 7 77 CH CENTER; TAB 8 91 CH CENTER; TAB 9 100 CH CENTER;
LINE/:PARAGRAPH L4 TAB 1 5 CH LEFT;
LINE/:PARAGRAPH L5 TAB 1 40 CH LEFT; TAB 2 42 CH LEFT; TAB 3 46 CH LEFT;
LINE/:PARAGRAPH L5 TAB 4 57 CH LEFT;
LINE/:PARAGRAPH L6 TAB 1 5 CH LEFT; TAB 2 7 CH LEFT; TAB 3 40 CH LEFT;
LINE/:PARAGRAPH L6 TAB 4 42 CH LEFT; TAB 5 46 CH LEFT; TAB 6 57 CH LEFT;
LINE/:PARAGRAPH L6 TAB 7 75 CH LEFT;
LINE/:PARAGRAPH L8 TAB 1 20 CH LEFT; TAB 2 42 CH LEFT; TAB 3 55 CH LEFT;
LINE/:PARAGRAPH L9 TAB 1 20 CH LEFT;
LINE/:PARAGRAPH LC TAB 1 1 CH LEFT; TAB 2 15 CH LEFT; TAB 3 30 CH LEFT;
LINE/:PARAGRAPH LC TAB 4 56 CH LEFT; TAB 5 74 CH CENTER; TAB 6 83 CH CENTER;
LINE/:PARAGRAPH LC TAB 7 90 CH CENTER; TAB 8 97 CH CENTER; TAB 9 101 CH CENTER;
LINE/:PARAGRAPH LH TAB 1 18 CH LEFT; TAB 2 26 CH LEFT; TAB 3 31 CH LEFT;
LINE/:PARAGRAPH LT TAB 1 1 CH LEFT; TAB 2 15 CH LEFT; TAB 3 30 CH LEFT;
LINE/:PARAGRAPH LT TAB 4 56 CH LEFT; TAB 5 74 CH CENTER; TAB 6 83 CH CENTER;
LINE/:PARAGRAPH LT TAB 7 90 CH CENTER; TAB 8 97 CH CENTER; TAB 9 101 CH CENTER;
LINE/:PARAGRAPH LV TAB 1 3 CH LEFT; TAB 2 23 CH LEFT; TAB 3 34 CH LEFT;
LINE/:PARAGRAPH LV TAB 4 55 CH LEFT;
LINE/:PARAGRAPH LX TAB 1 1 CH LEFT; TAB 2 16 CH LEFT; TAB 3 46 CH CENTER;
LINE/:PARAGRAPH LX TAB 4 57 CH CENTER; TAB 5 62 CH LEFT; TAB 6 65 CH LEFT;
LINE/:PARAGRAPH LX TAB 7 72 CH LEFT; TAB 8 96 CH RIGHT; TAB 9 100 CH CENTER;
LINE/:STRING B BOLD ON;
LINE/:STRING BC FONT COURIER; FONT-SIZE 12; ULINE ON; MARK OFF; BARCODE BC_EANH;
LINE/:STRING BD FONT COURIER; FONT-SIZE 72; ULINE ON; MARK OFF; BARCODE ZBC_EANH;
LINE/:STRING H BOLD ON;
LINE/:STRING HD FONT COURIER; FONT-SIZE 14; BOLD ON;
LINE/:STRING U ULINE ON;
LINE/:WINDOW CUST_WIN TYPE VAR;
LINE/:WINDOW DETAIL_A TYPE CONST;
LINE/:WINDOW DETAIL_F TYPE CONST;
LINE/:WINDOW FUSS TYPE VAR;
LINE/:WINDOW KOPF TYPE VAR;
LINE/:WINDOW LAST_3 TYPE VAR;
LINE/:WINDOW MAIN
LINE/:WINDOW PICKLOC TYPE VAR;
LINE/:WINDOW SHP_INST TYPE VAR;
LINE/:PAGE FIRST NEXT FIRST;
LINE/:PAGE FIRST MAIN 0 1.97 CH 7.70 CM 27 CM 21.97 LN;
LINE/:PAGE FIRST WINDOW CUST_WIN 10 CM 3 CM 11 CM 2 CM;
LINE/:PAGE FIRST WINDOW DETAIL_A 1.97 CH 6 CM 27 CM 4 LN;
LINE/:PAGE FIRST WINDOW DETAIL_F 1.97 CH 6 CM 27 CM 26.69 LN;
LINE/:PAGE FIRST WINDOW FUSS 78.74 CH 40.87 LN 28.74 CH 8.27 LN;
LINE/:PAGE FIRST WINDOW KOPF 1.97 CH 0.94 LN 27 CM 12.76 LN;
LINE/:PAGE FIRST WINDOW LAST_3 24 MM 14 MM 29 MM 15 MM;
LINE/:PAGE FIRST WINDOW PICKLOC 19 CM 0.50 CM 7 CM 5 CM;
LINE/:PAGE FIRST WINDOW SHP_INST 1.97 CH 40.87 LN 76 CH 8.27 LN;
END
HEADFORM ZMTOCOLL02 SAP TXT EPrint transfer order list ZMTOCOLL02 00029AGANGULY 46C 20041220120018RCHALASA 640 2006103116381413200468 E0 100
LINE/:FORM TEXT 'Print transfer order list';
LINE/:PARAGRAPH B TEXT 'Paragr.blocked';
LINE/:PARAGRAPH L TEXT 'Paragr.flush left';
LINE/:PARAGRAPH L0 TEXT 'Flush left 1st item line';
LINE/:PARAGRAPH L1 TEXT 'Flush left header 1st line';
LINE/:PARAGRAPH L2 TEXT 'Flush left bar code';
LINE/:PARAGRAPH L3 TEXT 'Flush left 1st item line';
LINE/:PARAGRAPH L4 TEXT 'Flush left heading 2';
LINE/:PARAGRAPH L5 TEXT 'Flush left 2nd item line';
LINE/:PARAGRAPH L6 TEXT 'Flush left 3rd item line';
LINE/:PARAGRAPH L8 TEXT 'Paragr.footer line';
LINE/:PARAGRAPH L9 TEXT 'Paragr."Repeat Print"';
LINE/:PARAGRAPH LC TEXT 'Line Item heading';
LINE/:PARAGRAPH LH TEXT 'Header data HU elements';
LINE/:PARAGRAPH LT TEXT 'Line Item heading-2nd line';
LINE/:PARAGRAPH LV TEXT 'Data of packaging';
LINE/:PARAGRAPH LX TEXT 'Flush left 1st item line';
LINE/:STRING B TEXT 'Bold';
LINE/:STRING BC TEXT 'Bar code EAN-128';
LINE/:STRING BD TEXT 'Bar code EAN-128 22 mm';
LINE/:STRING H TEXT 'Character sequence highlighted';
LINE/:STRING HD TEXT 'Form Heading';
LINE/:STRING U TEXT 'Character sequence underlined';
LINE/:WINDOW CUST_WIN TEXT 'Customer Window';
LINE/:WINDOW DETAIL_A TEXT 'Detail headers';
LINE/:WINDOW DETAIL_F TEXT 'Detail Box Frame';
LINE/:WINDOW FUSS TEXT 'Footer text';
LINE/:WINDOW KOPF TEXT 'List header';
LINE/:WINDOW LAST_3 TEXT 'Last_3';
LINE/:WINDOW MAIN TEXT 'Main window';
LINE/:WINDOW PICKLOC TEXT 'Pick Location Barcode';
LINE/:WINDOW SHP_INST TEXT 'Shipping Instructions';
LINE/:PAGE FIRST TEXT 'First page';
LINE/WDETAIL_A
LINELC,,Storage,,Material No.</>,,Material Description,,Batch,,Target Qty,,
LINE= UOM,,T.O. #,,,,STYPE
LINELC,,Bin,,NDC,,,,SLED,,Cases,,,,
LINE/*
LINE/*
LINE/*,,Material No.</>,,Material Description,,Batch,,S.Item,,,,STYPE,,
LINE/*Storage,,Target Qty.,,UOM
LINE/*,,NDC,,,,SLED,,Stk.Cat.,,,,,,Bin,,Cases
LINE/WDETAIL_F
LINE/:BOX HEIGHT '1.7' LN
LINE/*The top line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '2.0' CH YORIGIN '13.5' LN
LINE/:SIZE WIDTH '104' CH HEIGHT '0' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '2.0' CH YORIGIN '17' LN
LINE/:SIZE WIDTH '104.0' CH HEIGHT '0' LN
LINE/:BOX FRAME 10 TW
LINE/*The bottom line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '2.0' CH YORIGIN '40' LN
LINE/:SIZE WIDTH '104' CH HEIGHT '0' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/*The 1st vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '2.0' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/*The 2nd vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '15.0' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/*The 3nd vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '30.0' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE*
LINE/*The 4th vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '57.0' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/*The 5th vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '69.0' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/*The 6th vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '82.0' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE/*
LINE/*The 7th vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '88.00' CH YORIGIN '13.50' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE*
LINE/*The 8th vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '100.00' CH YORIGIN '13.5' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE*
LINE/*The 9th vertical line
LINE/:POSITION PAGE
LINE/:POSITION XORIGIN '106.00' CH YORIGIN '13.5' LN
LINE/:SIZE WIDTH '0' CH HEIGHT '26.5' LN
LINE/:BOX FRAME 10 TW
LINE*
LINE/WCUST_WIN
LINE/:DEFINE &W_NLPLA& = &LTAP-NLPLA&
LINE/:DEFINE &W_NAME1& := ' '
LINE/:DEFINE &W_NAME2& := ' '
LINE/:DEFINE &W_STRAS& := ' '
LINE/:DEFINE &W_ORT01& := ' '
LINE/:DEFINE &W_REGIO& := ' '
LINE/:DEFINE &W_PSTLZ& := ' '
LINE/:DEFINE &W_KUNNR& := ' '
LINE/:PERFORM F_CUST_ADRC IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_NLPLA&
LINE/:CHANGING &W_NAME1&
LINE/:CHANGING &W_NAME2&
LINE/:CHANGING &W_STRAS&
LINE/:CHANGING &W_ORT01&
LINE/:CHANGING &W_REGIO&
LINE/:CHANGING &W_PSTLZ&
LINE/:CHANGING &W_KUNNR&
LINE/:ENDPERFORM
LINE* Customer No.: &W_KUNNR&
LINE* &W_NAME1&
LINE* &W_STRAS&
LINE* &W_ORT01&, &W_REGIO& &W_PSTLZ&
LINE/WPICKLOC
LINE/*>> Define Input and output variables used in different Performs calls
LINE/:DEFINE &W_LGNUM& := &LTAK-LGNUM&
LINE/:DEFINE &W_LGTOR& := &LTAK-LGTOR&
LINE/:DEFINE &W_VBELN& := &LTAK-VBELN&
LINE/:DEFINE &W_TANUM& := &LTAP-TANUM&
LINE/:DEFINE &W_OUT_LINE1_BC& := ' '
LINE/******************************************************************
LINE/*>> THIS PERFORM CALL IS USED TO GET THE BAR CODE FOR PICK PROCESS
LINE/*>> Input - Door for warehouse number
LINE/*>> Input - Sales and distribution document number
LINE/*<< Output - Line 1
LINE/******************************************************************
LINE/:PERFORM F_PICK_PROCESS_BC IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_LGNUM&
LINE/:USING &W_LGTOR&
LINE/:USING &W_VBELN&
LINE/:USING &W_TANUM&
LINE/:CHANGING &W_OUT_LINE1_BC&
LINE/:ENDPERFORM
LINE/*<< End of F_PICK_PROCESS_BC perform cal>>
LINEL2
LINEL2
LINEL2
LINEL2
LINEL2
LINEL2<BD>&W_OUT_LINE1_BC&</>
LINEL2
LINEL2
LINEL2
LINE/WSHP_INST
LINE/:DEFINE &W_NLPLA& = &LTAP-NLPLA&
LINE/:DEFINE &W_PRINT& := ' '
LINE/:DEFINE &W_VSBED& := ' '
LINE/:DEFINE &W_VTEXT& := ' '
LINE/:DEFINE &W_SDABW& := ' '
LINE/:DEFINE &W_BEZEI& := ' '
LINE/:DEFINE &W_LINE1& := ' '
LINE/:DEFINE &W_LINE2& := ' '
LINE/:DEFINE &W_LINE3& := ' '
LINE/:DEFINE &W_LINE4& := ' '
LINE/:DEFINE &W_LINE5& := ' '
LINE/:PERFORM F_SHIP_INSTRUCTIONS IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_NLPLA&
LINE/:CHANGING &W_PRINT&
LINE/:CHANGING &W_VSBED&
LINE/:CHANGING &W_VTEXT&
LINE/:CHANGING &W_SDABW&
LINE/:CHANGING &W_BEZEI&
LINE/:CHANGING &W_LINE1&
LINE/:CHANGING &W_LINE2&
LINE/:CHANGING &W_LINE3&
LINE/:CHANGING &W_LINE4&
LINE/:CHANGING &W_LINE5&
LINE/:ENDPERFORM
LINE/:IF &W_PRINT& NE ' '
LINE* Shipping Conditions : &W_VTEXT& &'('W_BEZEI')'&
LINE/:IF &W_LINE1& NE ' ' OR &W_LINE2& NE ' ' OR &W_LINE3& NE ' ' OR &W_LINE4& NE ' ' OR &W_LINE5& NE ' '
LINE* Shipping Instructions :
LINE* &W_LINE1&
LINE* &W_LINE2&
LINE* &W_LINE3&
LINE* &W_LINE4&
LINE* &W_LINE5&
LINE/:ENDIF
LINE/:ENDIF
LINE/WKOPF
LINE/EKOPF
LINE/:BITMAP 'Z_LOGO' OBJECT GRAPHICS ID BMAP TYPE BCOL DPI 100
LINE/*L
LINE/*L
LINE/*L
LINEL ,,<HD>TRANSFER ORDER COLLECTIVE</>
LINE/*>> Define Input and output variables used in different Performs calls
LINE/:DEFINE &W_LGNUM& := &LTAK-LGNUM&
LINE/:DEFINE &W_LGTOR& := &LTAK-LGTOR&
LINE/:DEFINE &W_VBELN& := &LTAK-VBELN&
LINE/:DEFINE &W_TANUM& := &LTAP-TANUM&
LINE/:DEFINE &W_OUT_LINE1_BC& := ' '
LINE/******************************************************************
LINE/*>> THIS PERFORM CALL IS USED TO GET THE BAR CODE FOR PICK PROCESS
LINE/*>> Input - Door for warehouse number
LINE/*>> Input - Sales and distribution document number
LINE/*<< Output - Line 1
LINE/******************************************************************
LINE/:PERFORM F_PICK_PROCESS_BC IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_LGNUM&
LINE/:USING &W_LGTOR&
LINE/:USING &W_VBELN&
LINE/:USING &W_TANUM&
LINE/:CHANGING &W_OUT_LINE1_BC&
LINE/:ENDPERFORM
LINE/*<< End of F_PICK_PROCESS_BC perform call>>
LINEL1Door: &W_OUT_LINE1_BC&,,
LINE/*IF &LTAK-LGTOR& NE ' '
LINE/*Door: &LTAK-LGTOR&
LINE/*ENDIF.
LINEL1Delivery Number: &LTAK-VBELN&
LINEL2
LINEL2
LINEL2
LINEL2<BC>&LTAK-VBELN&</>,,
LINE/:IF &LTAK-LGBZO& NE ' '
LINE= &LTAK-LGBZO&
LINE/:ENDIF
LINE/WLAST_3
LINE/:DEFINE &LAST_3& = ' '
LINE/:PERFORM LAST_3 IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &LTAK-VBELN&
LINE/:CHANGING &LAST_3&
LINE/:ENDPERFORM
LINEB &LAST_3&
LINE/WFUSS
LINE/EFUSS
LINEL1&RLDRU-WIEDR& WHS: &LTAK-LGNUM&
LINE/
LINE/
LINE/
LINE/
LINE/
LINE/
LINE/*>> Define Input and output variables used in to Performs call
LINE/:DEFINE &W_PAGE_FROM& = ' '.
LINE/:DEFINE &W_PAGE_TOTAL& = ' '.
LINE/:DEFINE &W_PAGE_FLAG& = 'N'.
LINE/:DEFINE &TOT_CASE& = ' '.
LINE/******************************************************************
LINE/*>> This perform call is used to Get Consolidated Page No.
LINE/*>> Input - Reference No., Delivery Document No.
LINE/*<< Output - Page No., Total Page No., Page Flag
LINE/******************************************************************
LINE/:PERFORM F_PAGE_NO IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &LTAK-REFNR&
LINE/:USING &LTAK-VBELN&
LINE/:CHANGING &W_PAGE_FROM&
LINE/:CHANGING &W_PAGE_TOTAL&
LINE/:CHANGING &W_PAGE_FLAG&
LINE/:ENDPERFORM
LINE/*<< End of F_PAGE_NO perform cal>>
LINE/*
LINE/*PERFORM F_TOTALS IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/*USING &W_MATNR&
LINE/*USING &W_NSOLM&
LINE/*CHANGING &TOT_CASE&
LINE/*ENDPERFORM
LINE/*IF &W_PAGE_FROM& EQ &W_PAGE_TOTAL&
LINE/*DELIVERY TOTALS</>
LINE/*CASES:&TOT_CASE&</>
LINE/*EA,,,,,,:</>
LINE/*WEIGHT:</>
LINE/*ELSE
LINE/*
LINE/*
LINE/*
LINE/*
LINE/*
LINE/*ENDIF
LINE/:IF &W_PAGE_FLAG& EQ 'Y'
LINEL1&LTAK-BDATU& Page &W_PAGE_FROM(C)& of &W_PAGE_TOTAL(C)&
LINE/:ELSE
LINEL1&LTAK-BDATU& Page &PAGE& of &SAPSCRIPT-FORMPAGES(C)&
LINE/:ENDIF.
LINE/WMAIN
LINE/*************************************************************************
LINE/** Caution: Elements KOPF_TA, KOPF_HU, KOPF_TITLE will be print only *
LINE/** on the first page of TO *
LINE/** KOPF_HU must be in Window MAIN because of variable number *
LINE/** of lines. *
LINE/** KOPF_TA and KOPF_TITLE have the same structure as *
LINE/** window KOPF. -> Changes must maintain twice *
LINE/*************************************************************************
LINE/EKOPF_TA
LINE/:IF &LTAP-VLBER& EQ '001'
LINE/:DEFINE &W_VLTYP& := &LTAP-VLTYP&
LINE/:ELSE
LINE/:DEFINE &W_VLTYP& := &LTAP-VLBER&
LINE/:ENDIF
LINE/EKOPF_HU
LINE/:IF &LTAP-VLBER& EQ '001'
LINE/:DEFINE &W_STYPE& := &LTAP-VLTYP&
LINE/:ELSE
LINE/:DEFINE &W_STYPE& := &LTAP-VLBER&
LINE/:ENDIF
LINE/EKOPF_TITLE
LINE/*
LINE/EMAIN
LINE/*>> Define Input and output variables used in different Performs calls
LINE/:DEFINE &W_MAKTX& := &LTAP-MAKTX&
LINE/:DEFINE &W_MATNR& := &LTAP-MATNR&
LINE/:DEFINE &W_OUT_LINE1& := ' '
LINE/:DEFINE &W_OUT_LINE2& := ' '
LINE/:DEFINE &W_CASEQTY& := ' '
LINE/:DEFINE &TOT_CASE& := ' '
LINE/:DEFINE &TOT_EA& := ' '
LINE/:DEFINE &TOT_EA& := ' '
LINE/:DEFINE &W_PAGE_FROM& := ' '
LINE/:DEFINE &W_PAGE_TOTAL& := ' '
LINE/:DEFINE &W_PAGE_FLAG& := 'N'
LINE/:DEFINE &W_NSOLM& := &LTAP-NSOLM(T)&
LINE/:DEFINE &W_TANUM& := &LTAP-TANUM&
LINE/:DEFINE &W_BRGEW& := &LTAP-BRGEW&
LINE/******************************************************************
LINE/*>> This perform call is used to Warp the Material description
LINE/*>> Input - Material description
LINE/*<< Output - Line 1 ,Line2
LINE/******************************************************************
LINE/:PERFORM F_WORDWRAP_MAKTX IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_MAKTX&
LINE/:CHANGING &W_OUT_LINE1&
LINE/:CHANGING &W_OUT_LINE2&
LINE/:ENDPERFORM
LINE/*
LINE/*<< End of F_WORDWRAP_MAKTX perform cal>>
LINE/**********************************************************************
LINE/*This perform call is used to fetch the International Article Number(NDC)
LINE/*From MARA table passing material number as an input parameter
LINE/*>> Input - Material number
LINE/*<< Output - International article number
LINE/**********************************************************************
LINE/:PERFORM F_GET_NDC IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_MATNR&
LINE/:CHANGING &W_EAN11&
LINE/:ENDPERFORM
LINE/*
LINE/*<< End of F_GET_NDC perform call >>
LINE/*********************************************************************
LINE/*This perform is used for Case Quantity Conversion
LINE/*From MARA table passing material number as an input parameter
LINE/*>>Input - Material number
LINE/*<<Output -Case Quantity
LINE/*********************************************************************
LINE/:PERFORM F_GET_CASE_QUANTITY IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_MATNR&
LINE/:USING &W_NSOLM&
LINE/:CHANGING &W_CASEQTY&
LINE/:ENDPERFORM
LINE/*<< End of F_GET_CASE_QUANTITY perform call >>
LINE/*********************************************************************
LINE/*>> Page break by Source Storage Type
LINE/*>> Driver program will return item data sorted by Source Storage Type
LINE/*
LINE/*IF &LTAP-VLBER& EQ '001'
LINE/*IF &PAGE& NE 1
LINE/*IF &W_VLTYP& NE &LTAP-VLTYP&
LINE/*DEFINE &W_VLTYP& := &LTAP-VLTYP&
LINE/*ENDIF
LINE/*ENDIF
LINE/*ELSE
LINE/*IF &PAGE& NE 1
LINE/*IF &W_VLTYP& NE &LTAP-VLBER&
LINE/*DEFINE &W_VLTYP& := &LTAP-VLBER&
LINE/*ENDIF
LINE/*ENDIF
LINE/*ENDIF
LINE/*
LINE/*<< End of code " Page break by Source Storage Type
LINE/*****************************************************************
LINE/*<< Print item details
LINE/******************************************************
LINELT,,&LTAP-VLPLA&,,&LTAP-MATNR&</>,,&W_OUT_LINE1&,,&LTAP-CHARG&,,
LINE= &LTAP-NSOLA(C)&</>,,&LTAP-ALTME&,, &LTAP-TANUM&,,,,
LINE/:IF &LTAP-VLBER& EQ '001'
LINE &LTAP-VLTYP&
LINE/:ELSE
LINE &LTAP-VLBER&
LINE/:ENDIF
LINE/*>>Next line
LINELC,,&LTAP-NLPLA&,,&W_EAN11&,,&W_OUT_LINE2&,,&LTAP-VFDAT&,,&W_CASEQTY&,,
LINE= CS,,,,,,
LINE/:IF &LTAP-NLBER& EQ '001'
LINE &LTAP-NLTYP&
LINE/:ELSE
LINE &LTAP-NLBER&
LINE/:ENDIF
LINE/*
LINE/:PERFORM F_PAGE_NO IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &LTAK-REFNR&
LINE/:USING &LTAK-VBELN&
LINE/:CHANGING &W_PAGE_FROM&
LINE/:CHANGING &W_PAGE_TOTAL&
LINE/:CHANGING &W_PAGE_FLAG&
LINE/:ENDPERFORM
LINE/*
LINE/*IF &W_PAGE_FROM& EQ &W_PAGE_TOTAL&
LINE/:PERFORM F_TOTALS IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_MATNR&
LINE/:USING &W_NSOLM&
LINE/:CHANGING &TOT_CASE&
LINE/:ENDPERFORM
LINE/*
LINE/:PERFORM F_TOTALS_EA IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_MATNR&
LINE/:USING &W_NSOLM&
LINE/:CHANGING &TOT_EA&
LINE/:ENDPERFORM
LINE/*
LINE/:PERFORM F_TOTALS_WEIGHT IN PROGRAM ZMSPERFORMS_TRANSFER_ORDER
LINE/:USING &W_TANUM&
LINE/:USING &W_BRGEW&
LINE/:CHANGING &TOT_WT&
LINE/:ENDPERFORM
LINE/*
LINE/:IF &PAGE& EQ &SAPSCRIPT-FORMPAGES&
LINE/:PROTECT
LINE* ,,,,DELIVERY TOTALS</>,,
LINE/ ,,,,CASES:&TOT_CASE&</>
LINE/ ,,,,EA:&TOT_EA&</>
LINE/ ,,,,WEIGHT:&TOT_WT&LBS</>
LINE/:ENDPROTECT
LINE/:ENDIF
LINE/*
LINE/*,,&LTAP-MATNR&</>,,&W_OUT_LINE1&,,&LTAP-CHARG&,,&LTAP-TAPOS&,,S,,
LINE/*&LTAP-VLTYP&,,&LTAP-VLPLA&,,&LTAP-NSOLA(C)&</>,,&LTAP-ALTME&
LINE/*,,&W_EAN11&,,&W_OUT_LINE2&,,&LTAP-VFDAT&,,&LTAP-BESTQ&,,D,,
LINE/*&LTAP-NLTYP&,,&LTAP-NLPLA&,,&W_CASEQTY&,,CS
LINE/
LINE/<<************* End of "Print item details********************>>
LINE/*
LINE/*>> Define variable to store Source Storage Type
LINE/:IF &LTAP-VLBER& EQ '001'
LINE/:DEFINE &W_VLTYP& := &LTAP-VLTYP&
LINE/:ELSE
LINE/:DEFINE &W_VLTYP& := &LTAP-VLBER&
LINE/:ENDIF
LINE/*End of definition
LINE/*
LINE/*
LINE/ESERIAL
LINE/*
LINE/EPACKAGING
LINE/*
END
ACTVSAP
E
The last Text Elements SERIAL and PACKAGING are not used.
I need the total of the CASES, Eaches and Weight to be displayed in the last page either in the main window or in the footer.
Thanks,

Problem in printing internal table data in Sapscript!

Hi All,
Am trying to print internal table data into main window of sapscript.
This is what I have written.
loop at it_final INTO wa_final.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 window = 'MAIN'
 ELEMENT = '670'
 TYPE = 'BODY'
 FUNCTION = 'APPEND'
 EXCEPTIONS
 window = 1
 element = 2.
 IF sy-subrc <> 0.
 ENDIF.
ENDLOOP.
IN Sapscript :
/E 670
IT &wa_final-vbeln&,,&wa_final-vbelv&,,&wa_final-payment&
= &wa_final-rundate&,,&wa_final-waers&,,&wa_final-creditcard&
= &wa_final-augru&,,&wa_final-dmbtr&
Pls let me know if am missing anything.
Thanks & Regards
Himayat

Check if your Programm is called at the Sapscript level.
Are you calling the programm from the Sapscript using the PERFORM command? or are these Programm and Sapscript set in customizing?
Using SE16 check the Message Type and see if Sapscript and the programm are connected at all.

SAPSCRIPT MAIN BOTTOM PERFORMANCE

Similar Messages

Maybe you are looking for