code

[Former Member]

purchase order i have to line items 10,20 for that line items the tax code is for 10-v1 and 20line item-v2.

when i excute the report its should display the pop up and also need the 10 and 20 different tax codes.

thanks

[Former Member]

use popup_to_confirm and here u can give the value and save it accordingly...

[Former Member]

hi,

pls write a select query on EKPO table to retrieve the tax code field (MWSKZ)

[Former Member]

thanks for the help. i need the full code how to write the code.

if you help in this thanks a lot

[Former Member]

Below code can help you to extract tax details for a PO, use the same for displaying via POPUP FM's:

PARAMETERS: P_EBELN LIKE BAPIEKKO-PO_NUMBER OBLIGATORY.
DATA: L_LAND1 LIKE T001-LAND1,
      L_KALSM LIKE T005-KALSM.
DATA: L_KBETR LIKE BSET-KBETR.
 
DATA: POHEAD LIKE BAPIEKKOL,
      POITEM LIKE BAPIEKPO OCCURS 0 WITH HEADER LINE,
      IT_KONV LIKE KONV OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF IT_TAX_RATE OCCURS 0,
        KSCHL LIKE KONV-KSCHL,
        MWSK1 LIKE KONV-MWSK1,
        KBETR LIKE KONV-KBETR,
      END OF IT_TAX_RATE.
 
CALL FUNCTION 'BAPI_PO_GETDETAIL'
  EXPORTING
    PURCHASEORDER                    = P_EBELN
 IMPORTING
   PO_HEADER                        = POHEAD
 TABLES
   PO_ITEMS                         = POITEM.
 
CALL FUNCTION 'MRM_DBTAB_KONV_READ'
  EXPORTING
    I_KNUMVE       = POHEAD-DOC_COND
    I_KNUMVL       = POHEAD-DOC_COND
  TABLES
    T_KONV         = IT_KONV.
 
SORT IT_KONV BY KNUMV KPOSN STUNR.
DELETE ADJACENT DUPLICATES FROM IT_KONV.
 
SELECT SINGLE LAND1 INTO L_LAND1 FROM T001
       WHERE BUKRS EQ POHEAD-CO_CODE.
SELECT SINGLE KALSM INTO L_KALSM FROM T005 WHERE LAND1 = L_LAND1.
LOOP AT IT_KONV WHERE NOT MWSK1 IS INITIAL.
     CALL FUNCTION 'FI_TAX_GET_CONDITION'
      EXPORTING
        I_BUKRS                   = POHEAD-CO_CODE
        I_LAND1                   = L_LAND1
        I_KALSM                   = L_KALSM
        I_MWSKZ                   = IT_KONV-MWSK1
        I_TXJCD                   = ' '
        I_KSCHL                   = IT_KONV-KSCHL
        I_KTOSL                   = ' '
        I_TDATE                   = SY-DATUM
      IMPORTING
        E_KBETR                   = L_KBETR
      EXCEPTIONS
        INPUT_PARAM_INVALID       = 1
        BUKRS_INVALID             = 2
        COUNTRY_INVALID           = 3
        TXJCD_INVALID             = 4
        CONDITION_NOT_FOUND       = 5
        OTHERS                    = 6.
 
  IT_TAX_RATE-KSCHL = IT_KONV-KSCHL.
  IT_TAX_RATE-MWSK1 = IT_KONV-MWSK1.
  IT_TAX_RATE-KBETR = L_KBETR / 10.
  APPEND IT_TAX_RATE.
ENDLOOP.
SORT IT_TAX_RATE BY KSCHL MWSK1.
DELETE ADJACENT DUPLICATES FROM IT_TAX_RATE.

Kind Regards

Eswar