Example

// This function receive refdoc and array of goods movement details 
// and return data of material doc, material year and return message
function callissuesap($refdoc, $gmm_detail){
 
    $return = array();
 
    // Create saprfc-instance
    $sap = create_connection();                      
 
    // Import Parameters
    $today = date("Ymd");
 
    $header = array();
    $header["PSTNG_DATE"] = $today;
    $header["DOC_DATE"]   = $today;
    $header["REF_DOC_NO"] = $refdoc;
    $header["HEADER_TXT"] = "";
 
    $code = array();
    $code["GM_CODE"] = "03";
 
    $item = array();
    $lineitem = array();
    foreach ($gmm_detail as $gmm_line) {
        $lineitem["ORDERID"]      = $gmm_line["orderId"];
        $lineitem["MATERIAL"]     = $gmm_line["material"];
        $lineitem["PLANT"]        = $gmm_line["plant"];
        $lineitem["STGE_LOC"]     = $gmm_line["loc"];
        $lineitem["BATCH"]        = $gmm_line["batch"];
        $lineitem["MOVE_TYPE"]    = "261";
        $lineitem["ENTRY_QNT"]    = $gmm_line["qty"];
        $lineitem["ENTRY_UOM"]    = $gmm_line["une"];
        $item[] = $lineitem;
    }
 
    // Call-Function
    $result=$sap->callFunction("BAPI_GOODSMVT_CREATE",
                                array(
                                    array("IMPORT","GOODSMVT_HEADER",$header),
                                    array("IMPORT","GOODSMVT_CODE",$code),
                                    array("EXPORT","MATERIALDOCUMENT",""),
                                    array("EXPORT","MATDOCUMENTYEAR",""),
                                    array("TABLE","GOODSMVT_ITEM",$item),
                                    array("TABLE","RETURN",array())
                                ));
 
   // Call successfull?
   if ($sap->getStatus() == SAPRFC_OK) {
        $sap->callFunction("BAPI_TRANSACTION_COMMIT",array());
        $return["MAT_DOC"] = $result["MATERIALDOCUMENT"];
        $return["MAT_DOC_YEAR"] = $result["MATDOCUMENTYEAR"];
        $return["RETURN"] = $result["RETURN"];
    }
    else {
        $mess = array();
        $messline = array();
        $messline["TYPE"] = "E";
        $messline["MESSAGE"] = $sap->getStatusTextLong();
        $mess[] = $messline;
 
//        $sap->printStatus();
        $sap->callFunction("BAPI_TRANSACTION_ROLLBACK",array());
        $return["MAT_DOC"] = "";
        $return["MAT_DOC_YEAR"] = "";
        $return["RETURN"] = $mess;
    }                     
    $sap->logoff();
 
    return $return;
}
 
function create_connection() {
    return $sap = new saprfc(array(
    "logindata"=>array(  
    "ASHOST"=>"xxx.xxx.xxx.xxx"        // application server 
    ,"SYSNR"=>"xx"         // system number
    ,"CLIENT"=>"xxx"           // client     
    ,"USER"=>"xxxxxxxxx"       // user
    ,"PASSWD"=>"xxxxxxxxx"     // password
    )
    ,"show_errors"=>false     // let class printout errors
    ,"debug"=>false)) ;     // detailed debugging information     
}
 

Information about GM_CODE

GM_Code 01: Goods receipt for purchase order
GM_Code 02: Goods receipt for production order
GM_Code 03: Goods issue
GM_Code 04: Transfer posting
GM_Code 05: Other goods receipts
GM_Code 06: Reversal of goods movements

You can read the further informations in tcode <BAPI> -> Materials Management -> Inventory Management -> GoodsMovement -> CreateFromData -> Tab Documentation.

Step for create queries is a necessary process for create ABAP/4 query.

• Go to transaction SQ01
  
  
  
• Input query name that want to create and click .
  
  
  
• Select infoSet that you want to create ABAP/4 query.
  
  
  
• Input description of query and configure List format, Table format, Special attributes, Print list and Output format.
  
  
  
• Go to next step by select .
  
• Select field group that defined in selected infoSet.
  
  
  
• Go to next step for select fields in selected field group.
  
  
  
• Go to next step for select fields to selection screen.
  
  
  
• You can define this query layout type as
  
  
  
  • Basic List
    
  • Statistics
    
  • Ranked List
  
  
• After you already define query layout, please save by select .
  
• You can test run by select .

Technorati Tags: ABAP, SAP

When you create ABAP/4 query in SAP, create the functional area or InfoSets is a necessary process. The infoSets specify view of data. You can create the InfoSets as following:

• Go to transaction SQ02
  
  
  
• Input InfoSet name that want to create and click . 
  
  
  
• Input information of infoSet about description, Authorization group for start query report, data source, options etc.
  
  
  
• You have 4 methods for specify data sources:
  
  
  
  • Table join using basis table
    
  • Direct read of table
    
  • Logical database
    
  • Data retrieval by program  
  
  
• After already input information, please select  to save infoSet data to SAP.
  
• Don’t forget to generate your function area by select .

Technorati Tags: ABAP, SAP

When you create ABAP/4 query in SAP, assigning the user group is a necessary process. The user group specify who are authorized to use the ABAP/4 query. You can create the user group as following:

• Go to transaction SQ03
  
  
  
• Input user group name that want to create and click . System will popup screen for input user group description.
  
  In the example, i want to create user group name ’USRGRP1’.
  
  
  
  
• When completely input user group description, please select  to save to SAP.
   
  
  
  
  
• Assign users and InfoSets by select  on initial screen.
  
  
  
  
  
• Input User Name.
  
  
  
• Assign InfoSets by select .
  
  Note: You can assign infoSet to user group in transaction SQ02 too.
  
  
• Save User Group data again.
  

Technorati Tags: ABAP, SAP

The ABAP/4 query is one method in ’SAP R/3 Report Development Tools’. You can create the simply report by this way. In this way, we have 4 mains steps to create it as following:

1. Create User Groups <SQ03>
   
2. Create InfoSets <SQ02>
   
3. Assign user group to infoSet.(You can swap create infoSets as first and create user groups as second.)
   
4. Create the query base on the selected infoSet <SQ01>

Technorati Tags: ABAP, SAP

The alternative command looks like IF statement in ABAP/4.

IF (condition) {
*** True ***
  ...
} ELSE {
*** False ***
  ...
}.

You can insert alternative command as follows:

• Select window that you want to insert alternative command and right click. System will list object that you can create.
  
  In the example, I have window name ’%WINDOW1’ and I want to insert alternative command in this window.
  
  
• On popup menu, you will select Create -> Flow Logic -> Alternative
  
  
  
  System will default value of Alternative name and description but you can change them.
  
  
• In General Attributes tab, you can define condition to determine the alternative ways.
  
  System will default operator for concatenate these conditions by ’AND’ by you can add operator ’OR’ by select .
  
  
• Under alternative command, system define 2 ways when verify condition that defined in General Attributes.
  




• If system verify the alternative command is true, system will operate command in True node.
  
  In the example, we will show %TEXT1 if alternative command is true.
  
  
• If system verify the alternative command is false, system will operate command in False node.
  
  In the example, we will show %TEXT2 if alternative command is false.
  


• The output when alternative command is true:
  
  
  
  
  
• The output when alternative command is false:
  
  
  

Technorati Tags: ABAP, SAP

Example

TYPE-POOLS: SLIS.
 
DATA: it_spfli TYPE TABLE OF spfli WITH HEADER LINE,
      it_cat TYPE SLIS_T_FIELDCAT_ALV,
      wa_cat TYPE slis_fieldcat_alv.
 
START-OF-SELECTION.
  SELECT * FROM spfli
           INTO TABLE it_spfli.
 
  PERFORM create_field_catalog.
 
  CALL FUNCTION ’REUSE_ALV_LIST_DISPLAY’
    EXPORTING
*     I_INTERFACE_CHECK              = ’ ’
*     I_BYPASSING_BUFFER             =
*     I_BUFFER_ACTIVE                = ’ ’
*     I_CALLBACK_PROGRAM             = ’ ’
*     I_CALLBACK_PF_STATUS_SET       = ’ ’
*     I_CALLBACK_USER_COMMAND        = ’ ’
*     I_STRUCTURE_NAME               =
*     IS_LAYOUT                      =
      IT_FIELDCAT                    = it_cat[]
*     IT_EXCLUDING                   =
*     IT_SPECIAL_GROUPS              =
*     IT_SORT                        =
*     IT_FILTER                      =
*     IS_SEL_HIDE                    =
*     I_DEFAULT                      = ’X’
*     I_SAVE                         = ’ ’
*     IS_VARIANT                     =
*     IT_EVENTS                      =
*     IT_EVENT_EXIT                  =
*     IS_PRINT                       =
*     IS_REPREP_ID                   =
*     I_SCREEN_START_COLUMN          = 0
*     I_SCREEN_START_LINE            = 0
*     I_SCREEN_END_COLUMN            = 0
*     I_SCREEN_END_LINE              = 0
*     IR_SALV_LIST_ADAPTER           =
*     IT_EXCEPT_QINFO                =
*     I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER        =
*     ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = it_spfli
*   EXCEPTIONS
*     PROGRAM_ERROR                  = 1
*     OTHERS                         = 2
            .
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  create_field_catalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_field_catalog .
  IF it_cat[] is initial.
    clear wa_cat.
    wa_cat-col_pos   = 1.
    wa_cat-fieldname = ’CARRID’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 3.
    wa_cat-seltext_l   = ’Airline Code’.
    wa_cat-seltext_m   = ’Airline Code’.
    wa_cat-seltext_s   = ’Airline Code’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 2.
    wa_cat-fieldname = ’CONNID’.
    wa_cat-datatype  = ’NUMC’.
    wa_cat-inttype   = ’N’.
    wa_cat-intlen    = 4.
    wa_cat-seltext_l   = ’Flight Conn. No’.
    wa_cat-seltext_m   = ’Flight Conn. No’.
    wa_cat-seltext_s   = ’Flight Conn. No’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 3.
    wa_cat-fieldname = ’CITYFROM’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 20.
    wa_cat-seltext_l   = ’Dep. city’.
    wa_cat-seltext_m   = ’Dep. city’.
    wa_cat-seltext_s   = ’Dep. city’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 4.
    wa_cat-fieldname = ’AIRPFROM’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 3.
    wa_cat-seltext_l   = ’Dep. airport’.
    wa_cat-seltext_m   = ’Dep. airport’.
    wa_cat-seltext_s   = ’Dep. airport’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 5.
    wa_cat-fieldname = ’CITYTO’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 20.
    wa_cat-seltext_l   = ’Arrival city’.
    wa_cat-seltext_m   = ’Arrival city’.
    wa_cat-seltext_s   = ’Arrival city’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 6.
    wa_cat-fieldname = ’AIRPTO’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 3.
    wa_cat-seltext_l   = ’Dest. airport’.
    wa_cat-seltext_m   = ’Dest. airport’.
    wa_cat-seltext_s   = ’Dest. airport’.
    append wa_cat to it_cat.
 
  ENDIF.
ENDFORM.                    " create_field_catalog 

The output is:

Technorati Tags: ABAP, SAP

See Example

DATA: gv_char1(20) TYPE c,
      gv_char2(20) TYPE c,
      dec1(10) TYPE p DECIMALS 2 VALUE ’122345.89’.
 
START-OF-SELECTION.
* Date *
  WRITE:/ ’Date variable’.
  WRITE sy-datum to gv_char1.
  WRITE:/ ’WRITE TO ’, gv_char1.
 
  MOVE sy-datum to gv_char2.
  WRITE:/ ’MOVE TO ’, gv_char2.
 
  SKIP 1.
 
* Decimal *
  WRITE:/ ’Decimal variable’.
  WRITE dec1 to gv_char1.
  WRITE:/ ’WRITE TO ’, gv_char1.
 
  MOVE dec1 to gv_char2.
  WRITE:/ ’MOVE TO ’, gv_char2.

The output is:

MOVE ... TO collect result of value like structure in SAP but WRITE ... TO collect result of value as output display.

As above:
TYPE          Structure in SAP       Output Display
D               YYYYMMDD              DD.MM.YYYY
P               999999.99             999.999,99

Create ZPROGRAM and create normal screen no. 100 under this program. And in screen 100, please create custom control name ’CUSTOM1’.

Example

*** ZPROGRAM CODING ***

DATA: save_ok LIKE sy-ucomm,
      ok_code LIKE sy-ucomm,
      it_spfli TYPE TABLE OF spfli WITH HEADER LINE.
 
DATA: G_CUSTOM_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      GRID1  TYPE REF TO CL_GUI_ALV_GRID,
      it_cat TYPE LVC_T_FCAT,
      wa_cat TYPE LVC_S_FCAT.
 
START-OF-SELECTION.
  SELECT * FROM spfli
           INTO TABLE it_spfli.
  CALL SCREEN 100.
 
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS ’100’.
  SET TITLEBAR ’100’.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  save_ok = ok_code.
  clear ok_code.
  CASE save_ok.
    WHEN ’BACK’.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  INITIAL_GRID  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE INITIAL_GRID OUTPUT.
  PERFORM create_field_catalog.
  PERFORM create_grid_control.
ENDMODULE.                 " INITIAL_GRID  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  create_field_catalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_field_catalog .
  IF it_cat[] is initial.
    clear wa_cat.
    wa_cat-col_pos   = 1.
    wa_cat-fieldname = ’CARRID’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 3.
    wa_cat-reptext   = ’Airline Code’.
    wa_cat-coltext   = ’Airline Code’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 2.
    wa_cat-fieldname = ’CONNID’.
    wa_cat-datatype  = ’NUMC’.
    wa_cat-inttype   = ’N’.
    wa_cat-intlen    = 4.
    wa_cat-reptext   = ’Flight Conn. No’.
    wa_cat-coltext   = ’Flight Conn. No’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 3.
    wa_cat-fieldname = ’CITYFROM’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 20.
    wa_cat-reptext   = ’Dep. city’.
    wa_cat-coltext   = ’Dep. city’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 4.
    wa_cat-fieldname = ’AIRPFROM’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 3.
    wa_cat-reptext   = ’Dep. airport’.
    wa_cat-coltext   = ’Dep. airport’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 5.
    wa_cat-fieldname = ’CITYTO’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 20.
    wa_cat-reptext   = ’Arrival city’.
    wa_cat-coltext   = ’Arrival city’.
    append wa_cat to it_cat.
 
    clear wa_cat.
    wa_cat-col_pos   = 6.
    wa_cat-fieldname = ’AIRPTO’.
    wa_cat-datatype  = ’CHAR’.
    wa_cat-inttype   = ’C’.
    wa_cat-intlen    = 3.
    wa_cat-reptext   = ’Dest. airport’.
    wa_cat-coltext   = ’Dest. airport’.
    append wa_cat to it_cat.
  ENDIF.
ENDFORM.                    " create_field_catalog
*&---------------------------------------------------------------------*
*&      Form  create_grid_control
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_grid_control .
  IF G_CUSTOM_CONTAINER1 is initial .
    CREATE OBJECT G_CUSTOM_CONTAINER1
           EXPORTING CONTAINER_NAME = ’CUSTOM1’.
    CREATE OBJECT GRID1
           EXPORTING I_PARENT = G_CUSTOM_CONTAINER1.
 
    CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
*      EXPORTING
*        I_BUFFER_ACTIVE               =
*        I_BYPASSING_BUFFER            =
*        I_CONSISTENCY_CHECK           =
*        I_STRUCTURE_NAME              =
*        IS_VARIANT                    =
*        I_SAVE                        =
*        I_DEFAULT                     = ’X’
*        IS_LAYOUT                     =
*        IS_PRINT                      =
*        IT_SPECIAL_GROUPS             =
*        IT_TOOLBAR_EXCLUDING          =
*        IT_HYPERLINK                  =
*        IT_ALV_GRAPHICS               =
*        IT_EXCEPT_QINFO               =
*        IR_SALV_ADAPTER               =
      CHANGING
        IT_OUTTAB                     = it_spfli[]
        IT_FIELDCATALOG               = it_cat[]
*        IT_SORT                       =
*        IT_FILTER                     =
      EXCEPTIONS
        INVALID_PARAMETER_COMBINATION = 1
        PROGRAM_ERROR                 = 2
        TOO_MANY_LINES                = 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.
  ENDIF.
ENDFORM.                    " create_grid_control 

*** FLOW LOGIC ON SCREEN 100 ***
PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.
  MODULE INITIAL_GRID.
*
PROCESS AFTER INPUT.
  MODULE USER_COMMAND_0100.

The output is:

Technorati Tags: ABAP, SAP 

After we insert text element in SAP smartforms, the inserted text element can contain variable. We will introduce step by step to insert variable in text element.

Step by Step

• Double click text element that you want to insert variable in left tree navigator.
  
  In the example, i selected text element name ’TEXT1’.
  


• We can insert variable to editor by  select  and input variable in popup screen.
  
  
  
  In the example, i have variable name ’FNAME’ and i want to insert it to editor. The inserted variable name should have start and end character by ’&’. 
  


• After you completely input information, you can select  for insert the selected variable to editor. System will back to editor and show inserted variable to it.
  
  Be careful, Don’t input variable name directly in editor because system will assume that the variable name is a default text.
  


• Or you can input variable by select   in General Attributes tab. System will show editor as SAPscript editor.
  
  
  
  


• You able input variable as SAPscript syntax and back to smartforms navigator.
  
  
  
  


• Or you can drag and drop field by open field list navigator (Select ).
  
  


• Select field that you want to add to editor and drag and drop to editor.
  
  
  
  


• You can delete this variable by select variable and press . System will delete the selected variable from the editor.


• You can modify this variable by select variable and press . System will popup screen for modify the selected variable.
  
  


• The output is:
  

Technorati Tags: ABAP, SAP