report  zsmartformstest.

data: fm_name type rs38l_fnam ,

      p_form  type tdsfname   value 'ZSMARTFORMS'.

data : begin of t_vbpa occurs 0,

          vbeln type vbpa-vbeln,

           kunnr type vbpa-kunnr ,

           adrnr type vbpa-adrnr,


       end of t_vbpa.


data : begin of t_kna1 occurs 0,

          name1 type kna1-name1,

          name2 type kna1-name2 ,

          adrnr type kna1-adrnr,


       end of t_kna1.

data : begin of t_kna2 occurs 0,

          vbeln type vbpa-vbeln,

          name1 type kna1-name1,

          name2 type kna1-name2 ,



       end of t_kna2.

data: t_kna3 like t_kna2 occurs 0 with header line.data: t_kna4 like t_kna2 occurs 0 with header line.

data: vb like vbpa-vbeln.data: n1 like kna1-name1.data: n2 like kna1-name2.

parameters : vbeln like vbpa-vbeln.




start-of-selection .


  perform data_selection.

  perform data_display.


form data_selection.

select

  vbeln

   name1

  name2

  from kna1 as k inner join vbpa as v on k~adrnr = v~adrnr

  into corresponding fields of table t_kna2

  where vbeln = vbeln.

  endform.




form data_display.

call function 'SSF_FUNCTION_MODULE_NAME'

    exporting

      formname           = p_form

    importing

      fm_name            = fm_name

    exceptions

      no_form            = 1

      no_function_module = 2

      others             = 3.

  if sy-subrc <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  endif.


  call function fm_name

    exporting

         vbeln   = vbeln


    tables

      t_kna2        =  t_kna2

exceptions

  error_message ss.


 endform.


Serkan AKKAVAK

Computer Engineer BSc

SAP Department Deputy Manager

Contact : serkurumsal@yandex.com