Display text vertically (Rotate text) in Adobe Form

...Previous

Two columns with header, but without footer.  

Change header name and align properly.

Bind the Fields of table with Data View fields.

Do the same for Amount Field. Wrap Table in sub form.

Drag material field from data view to design view page, remove caption, resize the object and wrap in sub form.

Rotate the Material Field and align properly. For 90° rotation click the button in

 layout tab.  

Save and activate the form.  

Here is the sample output:

 

Driver Program Code

*&---------------------------------------------------------------------*
*& Report  ZMATERIAL_SALES
*&---------------------------------------------------------------------*
REPORT  zmaterial_sales.
TABLES: vbap.
DATA:
  g_funcname          
TYPE  funcname,
  wa_outputparams     
TYPE  sfpoutputparams,
  wa_docparams        
TYPE  sfpdocparams,
  wa_formoutput       
TYPE  fpformoutput,
  wa_result           
TYPE  sfpjoboutput.

PARAMETERS:
   p_matnr 
TYPE matnr.

DATA:
  wa_vbap 
TYPE vbap,
  gt_vbap 
TYPE STANDARD TABLE OF vbap.

SELECT *
  
FROM vbap
  
INTO TABLE gt_vbap
  
UP TO ROWS
 
WHERE matnr  = p_matnr.
PERFORM get_fname.
*&---------------------------------------------------------------------*
*&      Form  get_fname
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_fname .
  DATA: e_adstrace 
TYPE string.
  
CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    
EXPORTING
      i_name     = 
'ZROTATE_FORM'
    
IMPORTING
      e_funcname = g_funcname.
  wa_outputparams-device = 
'PRINTER'.
  wa_outputparams-preview = 
'X'.
  wa_outputparams-getpdf   = space.
  
CALL FUNCTION 'FP_JOB_OPEN'
    
CHANGING
      ie_outputparams = wa_outputparams
    
EXCEPTIONS
      cancel          = 
1
      usage_error     = 
2
      system_error    = 
3
      internal_error  = 
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.

  wa_docparams-langu    = 
'X'.
  wa_docparams-country  = 
'US'.
  wa_docparams-fillable = 
'X'.

  
CALL FUNCTION g_funcname
   
EXPORTING
     vbap                     =  gt_vbap
   
EXCEPTIONS
     usage_error              = 
1
     system_error             = 
2
     internal_error           = 
3
     
OTHERS                   4.
  
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 'FP_GET_LAST_ADS_TRACE'
    
IMPORTING
      e_adstrace = e_adstrace.

  
CALL FUNCTION 'FP_JOB_CLOSE'
    
IMPORTING
      e_result       = wa_result
    
EXCEPTIONS
      usage_error    = 
1
      system_error   = 
2
      internal_error = 
3
      
OTHERS         4.
  
IF sy-subrc <> 0.
    
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    
" GET_FNAME

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image