cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Scripts subtotals

Former Member

on ‎03-15-2007 9:23 AM

0 Kudos

Hi frnds,

i ahav an issue in getting the subtotals in SAP scripts.

i need it to be printed as suppose thr are 6 items in first page then i need the subtotal of only 6 then in second page suppose thr are 3 items then i need subtotal for only 3 items in second page.

But its printing always total.

plzz guide me regarding this frnd.

regards,

sanjay

Show replies
Show replies
Answer

Accepted Solutions (0)

Answers (4)

Answers (4)

Former Member
‎03-16-2007 6:30 AM
0 Kudos

SFORMYH648_4_3

HFORMYH648_4_3

OLANE

HEADFORM YH648_4_3 SAP DEF Eemployee details YH648_4_3 00033SAPDEV17 640 20070207060427SAPDEV17 640 2007021016363913200023 E0 800

LINE/:FORM CPI 10; LPI 6; TAB-STOP 1 CM; START-PAGE FIRST; PARAGRAPH P1; RDI;

LINE/:FORM RDIDEV;

LINE/:PARAGRAPH P1 LINE-SPACE 1 LN;

LINE/:PARAGRAPH P2 ALIGN CENTER; LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 18;

LINE/:PARAGRAPH P3 LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 12;

LINE/:PARAGRAPH P4 ALIGN RIGHT; LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 14;

LINE/:PARAGRAPH P5 LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 12; BOLD ON;

LINE/:PARAGRAPH P6 ALIGN RIGHT; LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 18;

LINE/:PARAGRAPH P7 LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 12;

LINE/:PARAGRAPH P7 NUMBER-INDENT 0.50 CM; OUTLINE P7 1; ARABIC;

LINE/:PARAGRAPH P7 NUMBER CHAINED '' '';

LINE/:PARAGRAPH P8 LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 12; LEFT-INDENT 13 CM;

LINE/:PARAGRAPH P7 TAB 1 0.50 CM LEFT; TAB 2 2.10 CM LEFT; TAB 3 7.10 CM LEFT;

LINE/:PARAGRAPH P7 TAB 4 12.10 CM LEFT; TAB 5 16.10 CM LEFT;

LINE/:STRING C1 MARK OFF;

LINE/:WINDOW LAST TYPE VAR;

LINE/:WINDOW MAIN

LINE/:WINDOW VAR TYPE VAR;

LINE/:WINDOW WINDOW3 TYPE VAR;

LINE/:PAGE FIRST NEXT FIRST;

LINE/:PAGE FIRST MAIN 0 5 MM 43 MM 200 MM 127 MM;

LINE/:PAGE FIRST WINDOW LAST 6 MM 219 MM 202 MM 3 CM;

LINE/:PAGE FIRST WINDOW WINDOW3 5 MM 183 MM 200 MM 32 MM;

END

HEADFORM YH648_4_3 SAP TXT Eemployee details YH648_4_3 00033SAPDEV17 640 20070207060427SAPDEV17 640 2007021016363913200107 E0 800

LINE/:FORM TEXT 'employee details';

LINE/:PARAGRAPH P1 TEXT 'DEFAULT FORMAT';

LINE/:PARAGRAPH P2 TEXT 'HEADER';

LINE/:PARAGRAPH P3 TEXT 'GENERAL';

LINE/:PARAGRAPH P4 TEXT 'page total';

LINE/:PARAGRAPH P5 TEXT 'carry';

LINE/:PARAGRAPH P6 TEXT 'grand total';

LINE/:PARAGRAPH P7 TEXT 'GENERAL';

LINE/:PARAGRAPH P8 TEXT 'GENERAL';

LINE/:STRING C1 TEXT 'ewrewrwre';

LINE/:WINDOW LAST TEXT 'FHTTRT';

LINE/:WINDOW MAIN TEXT 'Main Window';

LINE/:WINDOW VAR TEXT 'variable';

LINE/:WINDOW WINDOW3 TEXT 'Page total';

LINE/:PAGE FIRST TEXT 'THIS IS THE FIRST PAGE';

LINE/WVAR

LINE/:IF &PAGE& NE 1 AND &PAGE& NE 2

LINEP3Carry forward Amounts:&CARRY&

LINE/:ENDIF

LINE/:IF &PAGE& EQ 2

LINEP3Carry forward Amounts:&W_SUM1&

LINE/:ENDIF

LINE/WWINDOW3

LINE/:IF &NEXTPAGE& NE 0

LINEP4

LINEP4

LINEP4Page Total:&CARRY(.0)&

LINE/:ENDIF.

LINEP4

LINE/:

LINE/*PERFORM CARRY IN PROGRAM 'YH648_2_3'

LINE/*USING &W_SUM1&

LINE/*CHANGING &CARRY&

LINE/*CHANGING &TOTAL&

LINE/*ENDPERFORM

LINEP1<C1>&ULINE(70)&</>

LINEP3PAGE &PAGE&

LINE/WLAST

LINE/:IF &NEXTPAGE& EQ 0

LINEP1Instructions:

LINEP1

LINEP11.,,Keep this details confidential

LINEP12.,,In case of any discrepancies please approach accounts department

LINEP13.,,Long live Sap Script

LINEP4

LINEP4

LINE/:ENDIF.

LINEP4

LINE/WMAIN

LINE/:SUMMING &FS_1-SALARY& INTO &W_SUM1&

LINE/EFIR

LINE/:SUMMING &FS_1-SALARY& INTO &CARRY&.

LINE/:TOP

LINEP2Employee Details

LINEP2

LINEP2

LINEP2

LINEP3YASH Technologies (P) Ltd

LINE Date:

LINE= &SYST-DATUM&

LINEP3Fifth floor, Ananth Info Park

LINE Page

LINE X of Y

LINEP3Madhapur

LINEP3Hyderabad 500033

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3 Sno,, Programmer,, Date of Birth,,

LINE Date of Joining,, Salary

LINEP3

LINEP3

LINEP3

LINE/:IF &PAGE& NE 1

LINEP8Carry forward Amounts:&W_SUM1&

LINE/:ENDIF.

LINE/:ENDTOP.

LINE/EFIRSTF

LINE/:BOX XPOS '0' CM YPOS 7 CM WIDTH 19 CM HEIGHT '7' CM FRAME 20 TW

LINE/:BOX XPOS 2 CM YPOS 7 CM WIDTH 0 CM HEIGHT '7' CM FRAME 20 TW

LINE/:BOX XPOS 7 CM YPOS 7 CM WIDTH 0 CM HEIGHT '7' CM FRAME 20 TW

LINE/:BOX XPOS 11 CM YPOS 7 CM WIDTH 0 CM HEIGHT '7' CM FRAME 20 TW

LINE/:BOX XPOS 14 CM YPOS 7 CM WIDTH 0CM HEIGHT '7' CM FRAME 20 TW

LINE/:BOX XPOS 16 CM YPOS 7 CM WIDTH 0 CM HEIGHT '7' CM FRAME 20 TW

LINE/:BOX XPOS 0 CM YPOS '6' CM WIDTH 19 CM HEIGHT '1' CM INTENSITY 20

LINEP3

LINEP7,,,,&FS_1-PNAME&,,&FS_1-DOB&,,&FS_1-DOJ&,,&FS_1-SALARY(.0)&

LINE/:ENDBODY

LINE/ELAST

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3

LINEP4GRAND Total:&W_SUM1&

LINE/:BOTTOM

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3

LINEP3

LINEP4

END

ACTVSAP

E

hi sir,

this is the complete form

if you understand the sum function working pattern.

otherwise it i am explaining that also.

reward all helpfull answers.

Show replies
Show replies
Former Member
‎03-15-2007 3:31 PM
0 Kudos

i haven't much involved in you r issue...

but there another thread with the same problem

once refer this may be it helps you in solveing u r problem

Show replies
Show replies
Former Member
‎03-15-2007 9:58 AM
0 Kudos

hi if u will require the how sum function works in sap scripts please reply me. i will explain.,

this is program

DATA :W_LINES TYPE I,

P TYPE I,

CARRY TYPE I,

W_TOTAL TYPE I,

W_SUM1 TYPE I,

W_T1 TYPE I,

W_K TYPE I,

W_GT1 TYPE I,

W_TEMP TYPE I .

DATA: BEGIN OF FS_1,

PNAME TYPE YASH_PROGRAMMER-PNAME,

DOB TYPE YASH_PROGRAMMER-DOB,

DOJ TYPE YASH_PROGRAMMER-DOJ,

SALARY TYPE YASH_PROGRAMMER-SALARY,

END OF FS_1.

DATA T_1 LIKE STANDARD TABLE OF FS_1.

SELECT *

FROM YASH_PROGRAMMER

INTO CORRESPONDING FIELDS OF TABLE T_1.

DESCRIBE TABLE T_1 LINES W_LINES.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

  • APPLICATION = 'TX'

  • ARCHIVE_INDEX =

  • ARCHIVE_PARAMS =

  • DEVICE = 'PRINTER'

  • DIALOG = 'X'

FORM = 'YH648_4_3'

  • 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 T_1 INTO FS_1.

W_TEMP = W_TEMP + 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FIR'

  • FUNCTION = 'SET'

TYPE = 'TOP'

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.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FIRSTF'

  • 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.

IF W_LINES EQ W_TEMP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAST'

  • FUNCTION = 'SET'

  • TYPE = 'BOTTOM'

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.

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.

*FORM CARRY TABLES IN_TAB STRUCTURE ITCSY

*OUT_TAB STRUCTURE ITCSY.

  • READ TABLE

*

*ENDFORM.

if u need i will send form also

Message was edited by:

sunil kumar

Message was edited by:

sunil kumar

Show replies
Show replies
Former Member
‎03-15-2007 10:06 AM
0 Kudos

Hi sunil tnaks,

if u can send me the form then it will be more helpful.

my mail id is sanjayjaju33@gmail.com

thanking u.

regards,

sanjay

former_member673464
Active Contributor
‎03-15-2007 9:36 AM
0 Kudos

hi sanjay,

You can display subtotals using any other window than main window to solve your problem.

regards,

veeresh.

Show replies
Show replies
Ask a Question