Total Amount value not displaying while executing print progrm for PO form.

Question

Hi All,
           I created the PO form, for this i written a print program.After executing this print program everything s displaying & populating, but only the Total Amount  not displaying r not populating.
          But, if i run the PO n tcode ME23N the Total Amount is displaying, after assigning the form n NACE.
So help me to get the Total Amount to be displayed n main window, while executing the print program.
Like this i declared n smartform,                    Total net value excl. tax           &is_ekko-waers& &is_pekko-netwr&......
The print program as follows,
report zpo.
tables: ekko,pekko,ekpo,ekpa,eket,ekkn,ekek,komk,nast.
data: fm_name type rs38l_fnam.
data: is_ekko type standard table of ekko with header line.
data: is_pekko type pekko occurs 0 with header line.
data: it_ekpa like standard table of ekpa,
      it_ekpo like standard table of ekpo,
      it_pekpo like standard table of pekpo,
      it_eket like standard table of eket,
      it_tkomv like standard table of komv,
      it_ekkn like standard table of ekkn,
      it_ekek like standard table of ekek,
      it_komk like standard table of komk.
selection-screen: begin of block b1 with frame title text-001.
  parameters: pr_ebeln like ekpo-ebeln obligatory.
selection-screen: end of block b1.
select * from ekpo into table it_ekpo where ebeln = pr_ebeln.
select * from ekko into is_ekko where ebeln = pr_ebeln.
endselect.

Answer 1

code as follows,
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    FORMNAME                 = 'ZPURCHASE'
*   VARIANT                  = ' '
*   DIRECT_CALL              = ' '
IMPORTING
    FM_NAME                  = fm_name
CALL FUNCTION fm_name  "'/1BCDWB/SF00000060'
  EXPORTING
*   ARCHIVE_INDEX              =
*   ARCHIVE_INDEX_TAB          =
*   ARCHIVE_PARAMETERS         =
*   CONTROL_PARAMETERS         =
*   MAIL_APPL_OBJ              =
*   MAIL_RECIPIENT             =
*   MAIL_SENDER                =
*   OUTPUT_OPTIONS             =
*   USER_SETTINGS              = 'X'
    IS_EKKO                    = is_ekko
    IS_PEKKO                   = is_pekko
*   IS_NAST                    =
*   IV_FROM_MEM                =
*   IV_DRUVO                   =
* IMPORTING
*   DOCUMENT_OUTPUT_INFO       =
*   JOB_OUTPUT_INFO            =
*   JOB_OUTPUT_OPTIONS         =
  TABLES
       it_ekpo                   = it_ekpo
       it_pekpo                  = it_pekpo
       it_ekkn                   = it_ekkn
       it_ekpa                   = it_ekpa
       it_ekek                   = it_ekek
       it_komk                   = it_komk
       it_eket                   = it_eket
       it_tkomv                  = it_tkomv.
* EXCEPTIONS
*   FORMATTING_ERROR           = 1
*   INTERNAL_ERROR             = 2
*   SEND_ERROR                 = 3
*   USER_CANCELED              = 4
*   OTHERS                     = 5
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.