Skip to Content

Division Function in Scripts

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

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

2 Answers

  • avatar image
    Former Member
    Aug 20, 2007 at 05:13 PM

    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

    Add comment
    10|10000 characters needed characters exceeded

  • Sep 04, 2007 at 07:21 AM

    The problem is solved in another way

    Add comment
    10|10000 characters needed characters exceeded