Thursday, May 24, 2012

SAMPLE SMARTFORMS

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.

No comments:

Post a Comment