Division Function in Scripts

[dhrubacharan_behera]

Hi,

We are trying to use GR Slip version 3 script by copying the standard form WESCHEINVERS3 .Here we want to achieve getting the rate of each item .We want to get the rate by dividing the value in the field DMBTR(Value) by the field MENGE (Quantity)of same MSEG table .This should fetch the unit price for each item in the document.

How to go about it .

Dhruba

[dhrubacharan_behera]

The problem is solved in another way

[Former Member]

Hi

Write a PERFORM subroutine in the script and USING the DMBTR and MENGE fields and CHANGING the RATE field

see the sample code for this and do accordingly

How to call a subroutine form SAPscripts

The Form :

/:PERFORM CDE_CENT IN PROGRAM ZKRPMM_PERFORM_Z1MEDRUCK

/:USING &EKKO-EBELN&

/:CHANGING &CDECENT&

/:ENDPERFORM

The report :

REPORT zkrpmm_perform_z1medruck .

DATA : BEGIN OF it_input_table OCCURS 10.

INCLUDE STRUCTURE itcsy.

DATA : END OF it_input_table.

• déclaration de la table output_table contenant les

variables exportées

DATA : BEGIN OF it_output_table OCCURS 0.

INCLUDE STRUCTURE itcsy.

DATA : END OF it_output_table.

DATA : w_ebeln LIKE ekko-ebeln,

• w_vbeln LIKE vbak-vbeln,

w_zcdffa LIKE vbak-zcdffa.

*----

---

*

• FORM CDE_CENT

*

*----

---

*

FORM cde_cent TABLES input output.

it_input_table[] = input[].

it_output_table[] = output[].

READ TABLE it_input_table INDEX 1.

MOVE it_input_table-value TO w_ebeln.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = w_ebeln

IMPORTING

output = w_ebeln.

SELECT SINGLE zcdffa FROM ekko

INTO w_zcdffa

WHERE ebeln = w_ebeln.

it_output_table-name = 'CDECENT'.

MOVE w_zcdffa TO it_output_table-value.

MODIFY it_output_table INDEX 1.

output[] = it_output_table[].

ENDFORM.

*************************************************************************

REPORT ZMPO1 .

form get_freight tables in_par structure itcsy out_par structure itcsy.

tables: ekko,konv,t685t.

data: begin of itab occurs 0,

ebeln like ekko-ebeln,

knumv like ekko-knumv,

end of itab.

data: begin of itab1 occurs 0,

knumv like konv-knumv,

kposn like konv-kposn,

kschl like konv-kschl,

kbetr like konv-kbetr,

waers like konv-waers,

kwert like konv-kwert,

end of itab1.

data: begin of iout occurs 0,

kschl like konv-kschl,

vtext like t685t-vtext,

kbetr like konv-kbetr,

kwert like konv-kwert,

end of iout.

data v_po like ekko-ebeln.

read table in_par with key 'EKKO-EBELN'.

if sy-subrc = 0.

v_po = in_par-value.

select

ebeln

knumv

from ekko

into table itab

where ebeln = v_po.

if sy-subrc = 0.

loop at itab.

select

knumv

kposn

kschl

kbetr

waers

kwert

into table itab1

from konv

where knumv = itab-knumv and

kappl = 'M'.

endloop.

loop at itab1.

if itab1-kposn <> 0.

select single * from t685t

where kschl = itab1-kschl

and kappl = 'M'

and spras = 'EN'.

iout-vtext = t685t-vtext.

iout-kschl = itab1-kschl.

iout-kbetr = itab1-kbetr.

iout-kwert = itab1-kwert.

append iout.

clear iout.

endif.

endloop.

sort itab1 by kposn.

loop at iout.

sort iout by kschl.

if ( iout-kschl eq 'GSDC' OR

iout-kschl eq 'GSFR' OR

iout-kschl eq 'GSIR' ).

at end of kschl.

read table iout index sy-tabix.

sum.

• write:/ iout-kschl,iout-vtext,iout-kwert.

out_par-name = 'A1'.

out_par-value = iout-vtext.

append out_par.

out_par-name = 'A2'.

out_par-value = iout-kwert.

append out_par.

endat.

endif.

endloop.

endif.

endif.

endform.

• IN THE FORM I AM WRITING THIS CODE.

/:DEFINE &A1& = ' '

/:DEFINE &A2& = ' '

/:PERFORM GET_FREIGHT IN PROGRAM ZMFORM_PO1

/:USING &EKKO-EBELN&

/:CHANGING &A1&

/:CHANGING &A2&

/:ENDPERFORM

• &A1&

• &A2&

This Code is to be written in the PO form under ADDRESS window.

-

-

---

/:DEFINE &A1& = ' '

/:DEFINE &A2& = ' '

/:DEFINE &A3& = ' '

/:DEFINE &A4& = ' '

/:DEFINE &A5& = ' '

/:DEFINE &A6& = ' '

/:PERFORM GET_VENDOR IN PROGRAM ZMFORM_PO

/:USING &EKKO-EBELN&

/:CHANGING &A1&

/:CHANGING &A2&

/:CHANGING &A3&

/:CHANGING &A4&

/:CHANGING &A5&

/:CHANGING &A6&

/:ENDPERFORM

• &A1&

• &A2&

• &A3&

• &A4&

• &A5&

• &A6&

Reward points for useful Answers

Regards

Anji

[dhrubacharan_behera]

Hi,

Thanks for your response .Taking clue from your post We have wrote the code as reproduced below ,but not achieve desired result ,Will you please go thro the coding and find where the fault lies or suggest some solution out of this.

FORM get_unitrate TABLES in_tab1 STRUCTURE itcsy

out_tab1 STRUCTURE itcsy.

*

DATA: wa_dmbtr LIKE mseg-dmbtr,

• wa_dmbtr_unit like mseg-dmbtr, "added later"

wa_menge like mseg-menge. "added later"

*

DATA: wa_dmbtr_unit LIKE mseg-dmbtr,

wa_matnr like mseg-matnr,

• wa_mblnr like mseg-mblnr,

wa_mblnr type string,

wa_dmbtr_unit_char type string,

i_tabix like sy-tabix.

data: begin of i_tab1 occurs 0,

matnr like mseg-matnr,

matnr1 type string,

mblnr like mseg-mblnr,

dmbtr like mseg-DMBTR,

dmbtr1 like mseg-dmbtr,

dmbtr2 type string,

werks like mseg-werks,

menge like mseg-menge, "added later"

end of i_tab1.

data :ini_mblnr like mseg-mblnr.

read table in_tab1 with key 'MSEG-MBLNR'.

if sy-subrc = 0.

ini_mblnr = in_tab1-value.

endif.

clear wa_dmbtr_unit_char.

select * from mseg into corresponding fields of table i_tab1 where mblnr = ini_mblnr.

loop at i_tab1.

wa_dmbtr = i_tab1-dmbtr / i_tab1-menge.

i_tab1-dmbtr1 = wa_dmbtr.

i_tab1-dmbtr2 = wa_dmbtr.

modify i_tab1.

endloop.

loop at i_tab1.

wa_dmbtr_unit_char = i_tab1-dmbtr2.

READ TABLE OUT_TAB1.

OUT_TAB1-VALUE = wa_dmbtr_unit_char.

append OUT_TAB1.

endloop.

loop at out_tab1 .

write:/ out_tab1-value.

endloop.

THE ABOVE WRITE STATEMENT RETURNS THE FOLLOWING:

UNIT_DMBTR

UNIT_DMBTR

262.68

UNIT_DMBTR

91.13

UNIT_DMBTR

UNIT_DMBTR

262.68

UNIT_DMBTR

91.13

THERE ARE ONLY TWO MATERIAL IN THE DOCUMENT. 262.68 AND 91.13 ARE PRODUCED TWICE.

/*

/* Release 2.1: elements (/E) set outside PROTECT statements

/* Item in GR Slip, Version 3 - WM Material

/*

/E WE3LVSMAT

/: PROTECT

T1 &MSEG-ZEILE&,,&MSEG-MATNR&,,&EKPO-TXZ01&

/: IF NOT &MSEG-EMATN& IS INITIAL.

T1 ,,&AM07M-MFRPN&

/: ENDIF.

T5 &MSEG-LGNUM& /&MSEG-LGTYP&/&MSEG-LGPLA&,,&MSEG-TBNUM&,,&MSEG-TBPRI& ,,

= &MSEG-MENGE&,,&MSEG-MEINS&

T5 &T157E-GRTXT&

/: ENDPROTECT

/* Item in GR Slip, Version 3 - Consumable Material

/E WE3VERBRMAT

/: PROTECT

T1 &MSEG-ZEILE&,,&MSEG-MATNR&,,&EKPO-TXZ01&

/: IF NOT &MSEG-EMATN& IS INITIAL.

T1 ,,&AM07M-MFRPN&

/: ENDIF.

T4 &AM07M-RSTYP&,,&AM07M-KONTIERUNG&,,&MSEG-WEMPF&,,&MSEG-ERFMG&,,

= &MSEG-ERFME&

T4 &T157E-GRTXT&

/: ENDPROTECT

/* ---- Item in GR Slip, Version 3 - Stock Material -

---

/E WE3LGMAT

T1 &MSEG-ZEILE&,,&MSEG-MATNR&,,&EKPO-TXZ01&

/: IF NOT &MSEG-EMATN& IS INITIAL.

T1 ,,&AM07M-MFRPN&

/: ENDIF.

/*

/: DEFINE &UNIT_DMBTR& = '0'

/: PERFORM GET_UNITRATE IN PROGRAM ZWESCHEINVERS3MP_CALCULATIONS

/: USING &MSEG-MBLNR&

/: USING &MSEG-MATNR&

/: CHANGING &UNIT_DMBTR&

/: ENDPERFORM

/: DEFINE &WA_DMBTR_CHARSUM& = '0'

/: PERFORM GET_TOTVAL IN PROGRAM ZWESCHEINVERS3MP_CALCULATIONS

/: USING &MSEG-MBLNR&

/: CHANGING &WA_DMBTR_CHARSUM&

/: ENDPERFORM

T2 &MSEG-LGORT&,,&MSEG-MENGE&,,&MSEG-MEINS&,,&MSEG-DMBTR&

T2 &T157E-GRTXT&,,&UNIT_DMBTR&

/: ENDPROTECT

M &UNIT_DMBTR&

/: BOTTOM

M TOTAL VALUE,,,,&WA_DMBTR_CHARSUM&

/: ENDBOTTOM

Regards,

DCBehera

[dhrubacharan_behera]

The problem is solved by writing another programme.

Dhruba