sub total

[Former Member]

hi!

can any one tell me how to find subtotal and total of the field dmeng at change of mtart of the following program.

i am writting the code. pl.rewrite the code and send it to me

IF NOT ITAB[] IS INITIAL.

SORT ITAB BY MTART KUNNR.

LOOP AT ITAB.

ON CHANGE OF ITAB-MTART.

SELECT SINGLE * FROM T134T CLIENT SPECIFIED

WHERE MANDT = SY-MANDT

AND SPRAS = SY-LANGU

AND MTART = ITAB-MTART.

WRITE:/'|',T134T-MTBEZ, 192 '|'.

WRITE:/ SY-ULINE(192) .

FORMAT RESET.

FORMAT COLOR 1 INTENSIFIED ON.

WRITE:/'|',(20) 'Party ',

'|',(25) 'Finished Product',

'|',(12) 'Batch Size',

'|',(10) 'Batch No',

'|',(12) 'Qty Mfgd',

'|',(12) 'Yield',

'|',(12) 'Tot Qty',

'|',(16) 'Avg.Weight',

'|',(16) 'Total Qty',

'|',(10) 'Equipment',

'|',(15) 'R.O.Water/ ',192 '|'.

WRITE:/ '|',(20) 'Name',

'|',(25) ' ',

'|',(12) '[ Kg / Lit]',

'|',(10) ' ',

'|',(12) '[ Kg / Lit]',

'|',(12) '(AsIs)',

'|',(12) 'Mfgd',

'|',(16) ' ',

'|',(16) 'in terms of EA' ,

'|',(10) 'Tap No',

'|',(15) 'Purified Water',192 '|'.

FORMAT RESET.

ENDON.

TEMP = TEMP + ITAB-DMENG. "TUSHAR

TEMP1 = TEMP1 + ITAB-TMENG.

FORMAT COLOR 2 INTENSIFIED ON.

ITAB-YIELD = ( ITAB-TMENG / ITAB-GAMNG ) * 100.

ON CHANGE OF ITAB-MAKTX.

FLAG = 1.

ENDON.

IF FLAG = '0'.

ITAB-TMENG = ITAB-TMENG + TEMP_MGF.

TEMP_MGF = ITAB-TMENG.

WRITE:/ '|',(20) ITAB-NAME1,

'|',(25) ITAB-MAKTX,

'|',(12) ITAB-GAMNG,

'|',(10) ITAB-CHARG,

'|',(12) ITAB-DMENG,

'|',(12) ITAB-YIELD,

'|',(12) ITAB-TMENG,

'|',(16) ITAB-RESULT,

'|',(16) ITAB-FINAL,

'|',(10) ITAB-ARBPL,

'|',(15) ITAB-ISM05,192 '|'.

FORMAT RESET.

at first.

WRITE : /77 TEMP. "TUSHAR

endat.

*At last.

*sum.

*write:/77 temp.

*endat.

ENDLOOP.

WRITE:/ SY-ULINE(192).

ENDIF.

[Former Member]

loop at itab.

at end of mtart.

sum.

*--now itab-dmeng field has sub total for dmeng

write 😕 itab-dmeng.

endon.

at last.

sum.

*--now itab-dmeng field has total for dmeng

write 😕 itab-dmeng.

endat.

endloop.

Regards

vasu

[Former Member]

hi vasu,

still i am not getting this. pl... could u help by giving some other logic.

[Former Member]

IF NOT ITAB[] IS INITIAL.

SORT ITAB BY MTART KUNNR.

LOOP AT ITAB.

ON CHANGE OF ITAB-MTART.

SELECT SINGLE * FROM T134T CLIENT SPECIFIED

WHERE MANDT = SY-MANDT

AND SPRAS = SY-LANGU

AND MTART = ITAB-MTART.

WRITE:/'|',T134T-MTBEZ, 192 '|'.

WRITE:/ SY-ULINE(192) .

FORMAT RESET.

FORMAT COLOR 1 INTENSIFIED ON.

WRITE:/'|',(20) 'Party ',

'|',(25) 'Finished Product',

'|',(12) 'Batch Size',

'|',(10) 'Batch No',

'|',(12) 'Qty Mfgd',

'|',(12) 'Yield',

'|',(12) 'Tot Qty',

'|',(16) 'Avg.Weight',

'|',(16) 'Total Qty',

'|',(10) 'Equipment',

'|',(15) 'R.O.Water/ ',192 '|'.

WRITE:/ '|',(20) 'Name',

'|',(25) ' ',

'|',(12) '[ Kg / Lit]',

'|',(10) ' ',

'|',(12) '[ Kg / Lit]',

'|',(12) '(AsIs)',

'|',(12) 'Mfgd',

'|',(16) ' ',

'|',(16) 'in terms of EA' ,

'|',(10) 'Tap No',

'|',(15) 'Purified Water',192 '|'.

FORMAT RESET.

ENDON.

TEMP = TEMP + ITAB-DMENG. "TUSHAR

TEMP1 = TEMP1 + ITAB-TMENG.

FORMAT COLOR 2 INTENSIFIED ON.

ITAB-YIELD = ( ITAB-TMENG / ITAB-GAMNG ) * 100.

<b>AT END OF ITAB-MAKTX.

SUM.

• SUM CALCULATE THE SUBTOTAL OF ALL THENUMERIC FILEDS AND *POPULATES THE WORK AREA..

WRITE DMENG.

END AT.</b>

WRITE:/ '|',(20) ITAB-NAME1,

'|',(25) ITAB-MAKTX,

'|',(12) ITAB-GAMNG,

'|',(10) ITAB-CHARG,

'|',(12) ITAB-DMENG,

'|',(12) ITAB-YIELD,

'|',(12) ITAB-TMENG,

'|',(16) ITAB-RESULT,

'|',(16) ITAB-FINAL,

'|',(10) ITAB-ARBPL,

'|',(15) ITAB-ISM05,192 '|'.

FORMAT RESET.

at first.

WRITE : /77 TEMP. "TUSHAR

endat.

*At last.

*sum.

*write:/77 temp.

*endat.

ENDLOOP.

WRITE:/ SY-ULINE(192).

ENDIF.

[Former Member]

hi

good

LOOP AT ITAB.

TEMP = TEMP + ITAB-DMENG. "TUSHAR

TEMP1 = TEMP1 + ITAB-TMENG.

ENDLOOP.

pls check your loop statement in the debug mode and put this loop statement appropriately ,it will work.

thanks

mrutyun^

[Former Member]

hi mrutyunjaya,

r u from orissa. give me ur contact details if u can