Displaying Taxes As per taxes in PO item

Question

Hi,
  I have a requirement, when user se the PO in ME23N  when at item level, when we click on taxes  we can see the tax window  which shows the basic amount  and al the tax details ,  I want to print that on the SAPSCRIPT from in the same sequence,
so is there any FM fo for this with taht I can see the taxes as in PO.
regards,
  zafar

Answer 1

Hi,
I faced the Same Problem for 'BASB' value - ME23N --> Invoice --> Taxes Button
Giving you the Source code of a Z- Func. Module .
Hope It'll help to get Req.
*       GLOBAL DECLARATION
  TABLES: ekko, ekpo, taxcom, t001.
  DATA: v_kalsm TYPE t005-kalsm,
        wa_komv LIKE komv,
        t_netwr TYPE bwert,
        bukrs LIKE ekko-bukrs.
  SELECT SINGLE * FROM ekko
                  WHERE ebeln EQ v_ebeln.
  SELECT SINGLE * FROM ekpo
                 WHERE ebeln EQ v_ebeln
                   AND ebelp EQ v_ebelp.
  CHECK ekko-bukrs NE space.
  IF ekpo-bukrs EQ space.
    ekpo-bukrs = ekko-bukrs.
  ENDIF.
  MOVE ekko-bukrs TO bukrs.
  SELECT SINGLE * FROM t001 WHERE bukrs EQ ekpo-bukrs.
  CHECK sy-subrc EQ 0.
  CHECK ekpo-mwskz NE space.
  CLEAR taxcom.
  taxcom-bukrs = ekpo-bukrs.
  taxcom-budat = v_date.
  taxcom-waers = ekko-waers.
  taxcom-kposn = ekpo-ebelp.
  IF v_mwskz IS INITIAL.
    taxcom-mwskz = ekpo-mwskz.
  ELSE.
    taxcom-mwskz = v_mwskz.
  ENDIF.
  taxcom-txjcd = ekpo-txjcd.
  taxcom-shkzg = 'H'.
  taxcom-xmwst = 'X'.
  IF NOT v_netpr IS INITIAL.
    IF v_menge IS INITIAL.
      taxcom-wrbtr = v_netpr * ekpo-menge.
    ELSE.
      taxcom-wrbtr = v_netpr * v_menge.
    ENDIF.
  ELSE.
    IF v_menge IS INITIAL.
      taxcom-wrbtr = ekpo-netwr.
    ELSE.
      taxcom-wrbtr = ekpo-netwr *
                     ( v_menge / ekpo-menge ).
    ENDIF.
  ENDIF.
  taxcom-lifnr = ekko-lifnr.
  taxcom-land1 = t001-land1.
  taxcom-ekorg = ekko-ekorg.
  taxcom-hwaer = t001-waers.
  taxcom-llief = ekko-llief.
  taxcom-bldat = ekko-bedat.
  taxcom-matnr = ekpo-ematn.
  taxcom-werks = ekpo-werks.
  taxcom-bwtar = ekpo-bwtar.
  taxcom-matkl = ekpo-matkl.
  taxcom-meins = ekpo-meins.
  taxcom-mglme = v_menge.
  taxcom-mtart = ekpo-mtart.
  CALL FUNCTION 'REFRESH_TAX_TABLES'
*   EXPORTING
*     LIVERY        =
    EXCEPTIONS
      OTHERS        = 1
  CHECK sy-subrc EQ 0.
  CALL FUNCTION 'FIND_TAX_SPREADSHEET'
    EXPORTING
      buchungskreis       = t001-bukrs
   IMPORTING
*   NETTO_NETTO         =
      schema              = v_kalsm
*   STEUER_NETTO        =
   EXCEPTIONS
     not_found           = 1
     OTHERS              = 2
*IF sy-subrc <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
**         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
  CHECK sy-subrc EQ 0.
  CLEAR it_komv.
  REFRESH it_komv.
  CALL FUNCTION 'CALCULATE_TAX_ITEM'
       EXPORTING
*         ANZAHLUNG           = ' '
*         DIALOG              = ' '
*         DISPLAY_ONLY        = ' '
*         INKLUSIVE           = ' '
*         I_ANWTYP            = ' '
*         I_DMBTR             = '0'
*         I_MWSTS             = '0'
            i_taxcom            = taxcom
*         PRUEFEN             = ' '
*         RESET               = ' '
*     importing
*          e_navfw             =
*          e_taxcom            =
*          e_xstvr             =
*          nav_anteil          =
       TABLES
            t_xkomv             = it_komv
       EXCEPTIONS
            mwskz_not_defined   = 1
            mwskz_not_found     = 2
            mwskz_not_valid     = 3
            steuerbetrag_falsch = 4
            OTHERS              = 5.
  CHECK sy-subrc EQ 0.
  REFRESH it_tax.
  CLEAR: v_netwr, v_netpr, it_tax.
  LOOP AT it_komv INTO wa_komv WHERE kstat = ' '.
    CLEAR t_netwr.
    IF wa_komv-kwert NE 0.
      t_netwr      = wa_komv-kwert.
      it_tax-kschl = wa_komv-kschl.
      it_tax-kbetr = wa_komv-kbetr.
      it_tax-kwert = t_netwr.
      APPEND it_tax.
    ENDIF.
    v_netwr = v_netwr + t_netwr.
    IF wa_komv-kschl EQ 'BASB'.
      v_netpr = t_netwr.
    ENDIF.
  ENDLOOP.
ENDFUNCTION.
CALL FUNCTION 'Z_<FM>'
    EXPORTING
      v_ebeln       = it_final-ebeln
      v_ebelp       = it_final-ebelp
*     V_MWSKZ       =
*     V_MENGE       =
      v_date        = sy-datum
    TABLES
      it_komv       = it_komv
      it_tax        = it_tax
    CHANGING
*     V_NETPR       =
      v_netwr       = w_netwr.
Edited by: Ashlesha R. Bhagat on Dec 16, 2010 12:17 PM