Purchase Order : printing table in the SAPScript.

Question

Hi all,
        I want to print taxes in the PO . I have created SAPScript from the standard Script MEDRUCK & also attached it to the Appln - EF, in the T-Code : NACT.
        To pass the taxes i have written a code and that program i have called from the script. But, it is only the last entry in the internal table (it_out). I want to print all the taxes for the respective PO. And, the only last one tax entry in the it_out ,  it is showing in the print preview for 'Domestic PO', and, for 'Import PO', it is not showing any entry.
        Plz, try to solve this problem.... if anybody could give me the proper solution of this problem, i will definitely reward the points to him.
        I am giving the code that i have used in the report & in Script.
Code in the SAP Script...
/E  ITEM_CONDITIONS
/:   PROTECT
/:   DEFINE &TYPE& = ' '
/:   DEFINE &TEXT& = ' '
/:   DEFINE &PER& = ' '
/:   PERFORM GET_TAX IN PROGRAM ZMM_PO
/:   USING &EKKO-EBELN&
/:   CHANGING &TYPE&
/:   CHANGING &TEXT&
/:   CHANGING &PER&
/:   ENDPERFORM
IN  ,,&TEXT&,,&PER&
/:   ENDPROTECT
Respective code in the Report
*&      Form  GET_TAX
      text
     -->IN_PAR     text
     -->OUT_PAR    text
FORM GET_TAX TABLES IN_PAR STRUCTURE ITCSY
                    OUT_PAR STRUCTURE ITCSY.
  TABLES : EKKO,         "Purchasing Document Header
                  KONV,         "Conditions (Transaction Data)
                 T685T.        "Conditions: Types: Texts
  DATA : BEGIN OF ITAB OCCURS 10.
  DATA :   EBELN LIKE EKKO-EBELN.
  DATA :   KNUMV LIKE EKKO-KNUMV.
  DATA : END OF ITAB.
  DATA : BEGIN OF ITAB1 OCCURS 10.
  DATA :   EBELN LIKE EKKO-EBELN.
  DATA :   KNUMV LIKE KONV-KNUMV.
  DATA :   KPOSN LIKE KONV-KPOSN.
  DATA :   KSCHL LIKE KONV-KSCHL.
  DATA :   VTEXT LIKE T685T-VTEXT.
  DATA :   KBETR LIKE KONV-kbetr.
  DATA :   WAERS LIKE KONV-waers.
  DATA :   KWERT LIKE KONV-kwert.
  DATA : END OF ITAB1.
  DATA : BEGIN OF IT_OUT OCCURS 10.
  DATA :   KSCHL LIKE KONV-KSCHL.
  DATA :   VTEXT LIKE T685T-VTEXT.
  DATA :   KBETR LIKE KONV-KBETR.
  DATA :   KWERT LIKE KONV-KWERT.
  DATA : END OF IT_OUT.
  DATA : PONO LIKE EKKO-EBELN.
  DATA : NO LIKE KONV-KPOSN.
  READ TABLE IN_PAR WITH KEY 'EKKO-EBELN'.
  IF SY-SUBRC = 0.
    PONO = IN_PAR-VALUE.
    SELECT EBELN KNUMV
            FROM EKKO
            INTO TABLE ITAB
           WHERE EBELN = PONO.
   READ TABLE IN_PAR WITH KEY 'KONV-KPOSN'.
    IF SY-SUBRC = 0.
     NO = IN_PAR-VALUE.
      LOOP AT ITAB.
        MOVE ITAB-KNUMV TO ITAB1-KNUMV.
        SELECT KNUMV KPOSN KSCHL KBETR WAERS KWERT
              FROM KONV
              INTO CORRESPONDING FIELDS OF ITAB1
            WHERE KNUMV = ITAB-KNUMV
            AND KAPPL = 'M'.
          ITAB1-KBETR = ( ITAB1-KBETR / 10 ) .
          APPEND ITAB1.
        ENDSELECT.
      ENDLOOP.
      SORT ITAB1 BY KPOSN kschl.
      LOOP AT ITAB1.
        IF ITAB1-KPOSN <> ''.
          SELECT *
                    FROM T685T
                   WHERE KSCHL = ITAB1-KSCHL
                   AND KAPPL = 'M'
                   AND SPRAS = 'EN'.
            IT_OUT-VTEXT = T685T-VTEXT.
            IT_OUT-KSCHL = ITAB1-KSCHL.
            IT_OUT-KBETR = ITAB1-KBETR.
            IT_OUT-KWERT = ITAB1-KWERT.
            APPEND IT_OUT.
          ENDSELECT.
        ENDIF.
      ENDLOOP.
      SORT IT_OUT BY KSCHL.
      DELETE ADJACENT DUPLICATES FROM it_out COMPARING KSCHL.
      LOOP AT IT_OUT.
        IF
              ( IT_OUT-KSCHL = 'JADC'
             OR IT_OUT-KSCHL = 'JCDB'
             OR IT_OUT-KSCHL = 'JCV1'
             OR IT_OUT-KSCHL = 'JECV'
             OR IT_OUT-KSCHL = 'J1CV'
             OR IT_OUT-KSCHL = 'JSDB'
             OR IT_OUT-KSCHL = 'JEXC'
             OR IT_OUT-KSCHL = 'JEXS'
             OR IT_OUT-KSCHL = 'FRC1').
          AT NEW KSCHL.
            CLEAR out_par.
            CLEAR out_par[].
           LOOP AT OUT_PAR.
              READ TABLE IT_OUT INDEX SY-TABIX.
              SUM.
              WRITE:/ IT_OUT-KSCHL,IT_OUT-VTEXT,IT_OUT-KBETR.
              OUT_PAR-NAME = 'TYPE'.
              OUT_PAR-VALUE = IT_OUT-KSCHL.
              APPEND OUT_PAR.
              OUT_PAR-NAME = 'TEXT'.
              OUT_PAR-VALUE = IT_OUT-VTEXT.
              APPEND OUT_PAR.
              OUT_PAR-NAME = 'PER'.
           OUT_PAR-VALUE = IT_OUT-KBETR.
              APPEND OUT_PAR.
           ENDLOOP.
          ENDAT.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDIF.
ENDFORM.                    "GET_TAX
Plz, help me by giving the solution...
Thanks,
Ajit

Answer 1

Hi,
System will not display the Purchase order item details in the first screen. First enter the data on the Item overview like Material or short text then only it will display the Item details.
I think you are checking with out entering the data on Item overview .
Check by entering the material/short text.
rgds
Chidanand