Adobe Forms Using: Nested Table, Text Module & providing the functionality of Page Total & Grand Total

Adobe Forms Using:  Nested internal table, Text Module & providing the functionality of Page Total & Grand Total

The purpose of this blog, to make things easier for newbie who wants to develop Adobe Forms.
Here we display the use of nested tables, how to display images, displaying multi-lingual text, calculate page total & Grand Total.

Follow the procedure given below

• Start transaction SE11
• Create two Structures and two Table Types.

Here we have created custom structure zflight in which we have created another structure zflight1 to demonstrate nested table functionality.
This structure will be an import parameter of interface.

Structure 1:
Create Structure ZFLIGHT1 consisting of fields as shown in the below diagram.

Table Type 1:
Create a Table Type ZFLIGHT1_TABLE whose Line type will be ZFLIGHT1 i.e. the Structure defined above.

Structure 2:
Create Structure ZFLIGHT consisting of fields as shown in the below diagram, along with the Table Type ZFLIGHT1_TABLE as shown above.

Table Type 2:
Create a Table Type ZFLIGHT_TABLE whose Line type will be ZFLIGHT i.e. the Structure defined above.

• Start transaction SFP.
• Create an Interface.
Follow the Instructions given through the Screen Shots.

Give appropriate description
Create an import parameter with Type ZFLIGHT_TABLE.

In the same manner create two more import parameter W_LANG & W_GRAND with type ‘CHAR10’ & ‘CMS_DTE_ORIGINAL_AMT’ respectively. It will be used for language selection & Grand total calculation.

Save & activate the Interface.
• Start transaction SFP.
• Create a Form.
Enter the form name.

Enter the appropriate description & Interface name.

 

In T-code SFP go to the Context

Drag the IS_ZFLIGHT into the context.

Deactivate the fields of the table, which will not be used in the layout, it adds to the performance.

Language conversion using text module:
Step 1:  Create the two folders for German and English language.

Step 2: Go to T-Code SMARTFORMS, select the Text module radio button & create a text module for English Language as shown below.

Same way we create Text module for German Language

Step 3: Create Text.

Step 4:  Set the property of text & Assign the Text Name and Text Language.

Step 5:  Drag the Text form Data View to Master Page (so as to display the Heading in every page).
Or in the body page where ever you want to display .Overlap both (German & English) text & do the binding.

Step 6: Now Drag W_LANG from Import list into each folder. Set the Condition on German folder as
W_LANG = ‘GERMAN’.

Do the Same thing on English Folder with condition W_LANG = ‘ENGLISH’.
Switch to the Layout Tab.
•    Rename the untitled content area & subform to ContentArea1 & Data respectively.
•    Drag the Zflight1 Data from Data View into the Layout.
•    Delete the untitled table header.
•    Set the property of Object in the Row Tab in which, Type: Body Row.
•    Put Accessibility as Body Row.

•    Drag the CARRID, CARRNAME and ZFLIGHT1 fields into Body Page from Data View.
•    Wrap the CARRID, CARRNAME & ZFLIGHT1 table in Subform and name it as Body.
•    Again wrap Body with a Subform and name it as Table.
•    Group the Data section of Zflight1 (It will be needed when we will calculate the Page Total).

Set the properties of Subform Data as given below:
Set the properties of Subform Table as given below:

 

In the accessibility tab assign Subform Role as a Table.

Set the property of Subform Body as given below:

 

In the accessibility tab assign Subform Role as a Body.
For all the fields CARRID, CARRNAME, CONNID, FLDATE, PLANETYPE, PRICE, CURRENCY, give Appearance as none, Type as User Entered – Optional & do the appropriate Binding as shown below for CARRID, do the Binding for remaining fields in the same way.
Do the same thing for all the fields.

•    Create a subform in Master page and rename it as ‘MainHeading’.
•    Drag both the text (which is created above) in ‘Mainheading’ and create one   more    subform inside a subform named as a Header.
•    Drag Image from library and give the path for image present in presentation server.

Do the binding of all the subform & Text. Make both the subform as positioned.
Repeat the Step 2 to Step 5 for heading (Carrid, Carrier Name, Connid, Flight Date, Plane Type, Price, and Currency) put corresponding values for German also.

Content Area which will represent the BodyPage area.

Create a Subform in master page named as Footer. Inside the footer create one more subform and drag text field (which is used to display the page total) & text for ‘subtotal’ as shown below.

Create this by repeating step 2 to step 5.
For Calculating Page total we’ve used JavaScript.
var fields = xfa.layout.pageContent(xfa.layout.page(this)-1, “field”, 0);
var total = 0;
for (var i=0; i <= fields.length-1; i++) {
if (fields.item(i).name == “PRICE”) {
total = total + fields.item(i).rawValue;
}}
this.rawValue = total;

First click on the text field on which you want the page total, after that put above code in the space provided & change its property as shown in the figure. After putting the code click on the green button with plus sign. It will place the code on page total location.

GrandTotal: Drag content area from library into Page1 & rename as a ContentArea2.

Create a subform into body page and rename as GrandTotal. Drag W_GRAND from data view into GrandTotal & do the appropriate binding. Create Text module for Grand Total by repeating the step 2 to step 5.

Place the GrandTotal Subform on the ContentArea2 as shown below.

Terms & Condition: Create a new Master page. When we create a Master page, content area is also created automatically. Create a subform in body page rename as Terms&Condition.Place this subform into Page2 contentArea3 & drag a text field into subform and resize the field (after removing caption & make appearance as None ) to the size of content area .

Create two text module German_terms & English_terms which have the terms & condition in the German & English respectively using the step 2 to step 5.For the heading of terms & condition again repeat the step 2 to step 5.

REPORT  zdemo_adobe.************************************************************************ Program Name: Driver Program for Adobe Form     Creation: 09/25/2008**                                                                     ** SAP Name    : ZDEMO_ADOBE                       Application: ABAP   **                                                                     ** Author      : Sandeep Patel                     Type: 1             **_____________________________________________________________________** Description : This program accepts a Languauge and Carrier Id and   **               fetches the required data, calculates the Grand-Total,**               calls the Form and Displays the required data.        **_____________________________________________________________________** Inputs:                                                             **   Tables:                                                           **     SCARR    – Airline                                              **     SFLIGHT  – Flight                                               **   Select options:                                                   **     Carrier Id                                                      **   Parameters:                                                       **     Language                                                        ** Outputs: A Form Output containing Flight Details.                   **_____________________________________________________________________** External Routines                                                   **   Function Modules:                                                 **     VRM_SET_VALUES          : Fills the Values in the List Box and  **                               displays the List Box.                **     FP_FUNCTION_MODULE_NAME : Returns the Function Module Name      **                               by accepting the Adobe Form Name.     **     FP_JOB_OPEN             : Opens the Job for Calling the Form.   **     Calling Generated FM    : Calls the Form along with the Export  **                               Parameters.                           **     FP_JOB_CLOSE            : Closes the Job.                       **   Transactions    : No                                              **   Programs        : No                                              **_____________________________________________________________________** Return Codes: No                                                    **_____________________________________________________________________** Ammendments:                                                        **    Programmer        Date     Req. #            Action              ** ================  ==========  ======  ==============================**                                                                     ************************************************************************TYPE-POOLS : vrm.* Table Declarations……………………………………………TABLES:  scarr,  sflight.* Declaring Parameters………………………………………….PARAMETERS:  p_lang(10) AS LISTBOX VISIBLE LENGTH 10.* Select-Option………………………………………………..SELECT-OPTIONS:  s_carrid FOR scarr-carrid.DATA:* Declaring Work Variables………………………………………  w_grand     TYPE cms_dte_original_amt VALUE 0,  w_param     TYPE vrm_id,  w_lang      TYPE char10,* Declaring Work Areas………………………………………….  wa_scarr    TYPE scarr,  wa_zflight1 TYPE zflight1,  wa_zflight  TYPE zflight,  wa_value    TYPE LINE OF vrm_values,* Declaring Internal Tables……………………………………..  it_scarr    LIKE STANDARD TABLE OF wa_scarr,  it_zflight1 LIKE STANDARD TABLE OF wa_zflight1,  it_zflight  LIKE STANDARD TABLE OF wa_zflight,  it_value    LIKE STANDARD TABLE OF wa_value.*&———————————————————————**        A T   S E L E C T I O N – S C R E E N   O U T P U T           **&———————————————————————*AT SELECTION-SCREEN OUTPUT.  PERFORM create_list_box.*&———————————————————————**        A T   S E L E C T I O N – S C R E E N                         **&———————————————————————*AT SELECTION-SCREEN.  PERFORM validate_data.*&———————————————————————**        S T A R T – O F – S E L E C T I O N                           **&———————————————————————*START-OF-SELECTION.  PERFORM fetch_data.*&———————————————————————**        E N D – O F – S E L E C T I O N                               **&———————————————————————*END-OF-SELECTION.  PERFORM call_form.*&———————————————————————**&      Form  create_list_box                                          **&———————————————————————**   This Subroutine is used to Create a List-Box on the Selection-     **   Screen and pass values to the List-Box.                            **———————————————————————-**   There are no Interface Parameters to be passed.                    **———————————————————————-*FORM create_list_box.  w_param = ‘P_LANG’.  wa_value-key = ‘1’.  wa_value-text = ‘ENGLISH’.  APPEND wa_value TO it_value.  wa_value-key = ‘2’.  wa_value-text = ‘GERMAN’.  APPEND wa_value TO it_value.  CALL FUNCTION ‘VRM_SET_VALUES’    EXPORTING      id     = w_param      values = it_value.ENDFORM.                               ” create_list_box*&———————————————————————**&      Form  validate_data                                            **&———————————————————————**  This Subroutine is used to Validate as well as fetch the data       **  according to the Select-Option.                                     **———————————————————————-**  There are no Interface Parameters to be passed.                     **———————————————————————-*FORM validate_data.* Fetching Flight Details from SCARR Table.  SELECT *    INTO TABLE it_scarr    FROM scarr   WHERE carrid IN s_carrid.  IF sy-subrc NE 0.    MESSAGE ‘Carrier ID does not Exist.’ TYPE ‘E’.  ENDIF.                               ” IF SY-SUBRC NE 0.ENDFORM.                               ” validate_data*&———————————————————————**&      Form  fetch_data                                               **&———————————————————————**   This Subrouitne is used to Fetch the Data from SFLIGHT and put it  **   in the Internal Table and Calculate the Grand Total.               **———————————————————————-**   There are no Interface Parameters to be passed.                    **———————————————————————-*FORM fetch_data.* Fetching Data from Sflight Table for corresponding Entries in SCARR.  SELECT carrid         connid         fldate         price         currency         planetype         seatsmax         seatsocc         paymentsum    INTO TABLE it_zflight1    FROM sflight     FOR ALL ENTRIES IN it_scarr   WHERE carrid EQ it_scarr-carrid.*   looping at scarr internal table.  LOOP AT it_scarr INTO wa_scarr.    wa_zflight-carrid   = wa_scarr-carrid.    wa_zflight-carrname = wa_scarr-carrname.*   Looping at Sflight Internal Table.    LOOP AT it_zflight1 INTO wa_zflight1                       WHERE carrid EQ wa_scarr-carrid.*   Appending Sflight Records into the Sflight part of FLIGHT Table.      IF wa_zflight1-currency NE ‘USD’.        CALL FUNCTION ‘CMS_API_CURR_CONV’          EXPORTING            i_original_curr = wa_zflight1-currency            i_original_amt  = wa_zflight1-price            i_result_curr   = ‘USD’          IMPORTING            e_conv_amt      = wa_zflight1-price.* Adding the non USD currency.        w_grand = w_grand + wa_zflight1-price.        wa_zflight1-currency = ‘USD’.      ELSE.* Adding the  USD currency.        w_grand = w_grand + wa_zflight1-price.      ENDIF.      APPEND wa_zflight1 TO wa_zflight-zflight1.    ENDLOOP.*   Appending SCARR Records into the SCARR part of FLIGHT Table.    IF wa_zflight-zflight1 IS NOT INITIAL.      APPEND wa_zflight TO it_zflight.      CLEAR:        wa_zflight.    ENDIF.  ENDLOOP.ENDFORM.                               ” fetch_data*&———————————————————————**&      Form  call_form                                                **&———————————————————————**   This Subroutine is used to Open, Call and Close the Form.          **———————————————————————-**   There are no Interface Parameters to be passed.                    **———————————————————————-*FORM call_form.* Declaring Local Variable………………………………………  DATA:    lw_param TYPE sfpoutputparams,    lw_fname TYPE funcname.  CALL FUNCTION ‘FP_JOB_OPEN’    CHANGING      ie_outputparams = lw_param    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.  CALL FUNCTION ‘FP_FUNCTION_MODULE_NAME’    EXPORTING      i_name     = ‘ZDEMO_ADOBE1’    IMPORTING      e_funcname = lw_fname.  READ TABLE it_value INTO wa_value INDEX p_lang.  w_lang = wa_value-text.  CALL FUNCTION lw_fname    EXPORTING*   /1BCDWB/DOCPARAMS        =      is_zflight               = it_zflight      w_lang                   = w_lang      w_grand                  = w_grand* IMPORTING*   /1BCDWB/FORMOUTPUT       =   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.  ELSE.    REFRESH it_zflight .  ENDIF.  CALL FUNCTION ‘FP_JOB_CLOSE’*   IMPORTING*     E_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.                    ” call_form

Output:   First Page of Report

Last Page of Report

Terms & condition