Help reqd for finding TAXES & CONDITIONS FOR GIVEN PO IN SAP-SCRIPT

Question

HI ALL,
         Currently iam working on SAP-SCRIPT developing PO in that i displayed fields like EMATN TYPE EKPO-EMATN,( material no. )
             TXZ01 TYPE EKPO-TXZ01, ( long text )
             MEINS TYPE EKPO-MEINS, ( units )
               MENGE TYPE EKPO-MENGE (quantity)
now i want to display taxes & conditions for given ematn no.( material no . ) so from which tables i should get the data  how to display. plz help me.
thanks in advance.
Regards,
mahesh dudam

Answer 1

Hi !!
  for this please study teh following extract :
All pricing values are maintained in the KONV table for the respective pricing condition . Extract these values from KONV table by passing EKKO-KNUMV values for the Purchase order number from the EKKO purchase order header table .
************************************************************************88
FORM GET_PRICING_DATA  USING    P_KNUMV.
  SELECT * INTO TABLE I_KONV
            FROM KONV
            WHERE KNUMV = WA_EKKO-KNUMV.
  IF SY-SUBRC = 0.
    SORT I_KONV.
  ENDIF.
ENDFORM.                    " GET_PRICING_DATA
*&      Form  get_tax_details
extract Tax item details.
     -->P_EBELp  for purchase order item.
FORM GET_TAX_DETAILS  USING    P_EBELP.
  DATA : L_OCTROI LIKE KONV-KWERT,
        L_BASE LIKE KONV-KWERT,
        L_OTHERS LIKE KONV-KWERT,
        L_DISCOUNT LIKE KONV-KWERT,
        L_PFORWARD LIKE KONV-KWERT,
        L_INSU LIKE KONV-KWERT,
        L_NUM LIKE I_KONV-KUMZA VALUE 1,
        L_DENO LIKE I_KONV-KUMNE VALUE 1,
        L_KPEIN LIKE KONV-KPEIN VALUE 1,
        L_FRT LIKE KONV-KWERT,
        L_CHAR(15).
*-- getting numerator and denominator for base value.
  READ TABLE I_KONV  WITH KEY KSCHL = 'PBXX'.
  IF SY-SUBRC = 0.
    L_NUM = I_KONV-KUMZA.
    L_DENO = I_KONV-KUMNE.
    L_KPEIN = I_KONV-KPEIN.
  ELSE.
    READ TABLE I_KONV  WITH KEY KSCHL = 'PB00'.
    IF SY-SUBRC = 0.
      L_NUM = I_KONV-KUMZA.
      L_DENO = I_KONV-KUMNE.
      L_KPEIN = I_KONV-KPEIN.
    ELSE.
      READ TABLE I_KONV  WITH KEY KSCHL = 'P001'.
      IF SY-SUBRC = 0.
        L_NUM = I_KONV-KUMZA.
        L_DENO = I_KONV-KUMNE.
        L_KPEIN = I_KONV-KPEIN.
      ELSE.
        READ TABLE I_KONV  WITH KEY KSCHL = 'P000'.
        IF SY-SUBRC = 0.
          L_NUM = I_KONV-KUMZA.
          L_DENO = I_KONV-KUMNE.
          L_KPEIN = I_KONV-KPEIN.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
  CLEAR : V_OCTROI,V_OTHERS, V_DISCOUNT,V_PFORWARD,V_INSU,V_FTR.
  LOOP AT I_KONV WHERE KPOSN = P_EBELP.
*-- Considering the numerator denominator and UOPricing
    IF   I_KONV-KPEIN = 0  .
      I_KONV-KUMZA = 1.     " Numerator
      I_KONV-KUMNE  = 1.    " Denominator
      I_KONV-KPEIN  = 1.    " Unit of pricing
    ENDIF.
   IF NOT I_KONV-KWERT  IS INITIAL .
     IF  I_KONV-KRECH = 'C'  AND  I_KONV-KSCHL <> 'PB00'
       AND I_KONV-KSCHL <> 'PBXX'.
       I_KONV-KWERT  = ( I_KONV-KWERT * I_KONV-KUMZA  )
                       * L_KPEIN / ( I_KONV-KUMNE * I_KONV-KPEIN ).
     ELSEif I_KONV-KRECH = 'C'  AND  I_KONV-KSCHL = 'PB00'
       AND I_KONV-KSCHL = 'PBXX'.
       I_KONV-KWERT  = ( I_KONV-KWERT * L_NUM * L_KPEIN ).
                      / ( L_DENO ).
    elseif I_KONV-KRECH = 'A'  AND  I_KONV-KSCHL = 'PB00'
       AND I_KONV-KSCHL = 'PBXX'.
       I_KONV-KWERT  = ( I_KONV-KWERT * L_NUM * L_KPEIN )
                        / ( l_deno ).
     ENDIF.
   ENDIF.
    CASE I_KONV-KSCHL.
*-- For base price
      WHEN 'PB00'.
        L_BASE = L_BASE + I_KONV-KWERT.
      WHEN 'PBXX'.
        L_BASE = L_BASE + I_KONV-KWERT.
      WHEN 'P000'.
        L_BASE = L_BASE + I_KONV-KWERT.
      WHEN 'P001'.
        L_BASE = L_BASE + I_KONV-KWERT.
*-- For octroi
      WHEN 'JOCM'.
        L_OCTROI = L_OCTROI + I_KONV-KWERT  .
*-- For discount calculation
      WHEN 'ZDT%'.
        L_DISCOUNT = L_DISCOUNT + I_KONV-KWERT .
      WHEN 'ZDN%'.
        L_DISCOUNT = L_DISCOUNT + I_KONV-KWERT.
      WHEN 'ZDTV'.
        L_DISCOUNT = L_DISCOUNT + I_KONV-KWERT .
      WHEN 'ZDNV'.
        L_DISCOUNT = L_DISCOUNT + I_KONV-KWERT.
*--- For packing forwarding .
      WHEN 'ZPNV'.
        L_PFORWARD = L_PFORWARD + I_KONV-KWERT.
      WHEN 'ZPN%'.
        L_PFORWARD = L_PFORWARD + I_KONV-KWERT.
*--- For frieght .
      WHEN 'ZFTV'.
        L_FRT  =  L_FRT + I_KONV-KWERT.
      WHEN 'ZFT%'.
        L_FRT  =  L_FRT + I_KONV-KWERT.
      WHEN 'ZFNQ'.
        L_FRT  =  L_FRT + I_KONV-KWERT.
**-----for others
     WHEN 'ZOTV'.
       L_OTHERS  =  L_OTHERS + I_KONV-KWERT.
     WHEN 'ZOT%'.
       L_OTHERS  =  L_OTHERS + I_KONV-KWERT.
     WHEN 'ZOTP'.
       L_OTHERS  =  L_OTHERS + I_KONV-KWERT.
     WHEN 'ZONV'.
       L_OTHERS  =  L_OTHERS + I_KONV-KWERT.
     WHEN 'ZON%'.
       L_OTHERS  =  L_OTHERS + I_KONV-KWERT.
     WHEN 'ZONP'.
       L_OTHERS  =  L_OTHERS + I_KONV-KWERT.
*--- for insurance
      WHEN 'ZINV'.
        L_INSU  =  L_INSU + I_KONV-KWERT.
      WHEN 'ZIN%'.
        L_INSU  =  L_INSU + I_KONV-KWERT.
      WHEN OTHERS.
        CONTINUE.
    ENDCASE.
    CLEAR I_KONV.
  ENDLOOP.