Creation of Inspection record by using BAPI

Question

How to create the Inspection Plan (QP01) by using the Bapi's
tell me the step by step procedure.
and one more thing is
here data is coming from the legacy systems how to convert this data into sap by using the Bapi's and how to upodate the datta to the Data Base tablesplease provide the information with step by step procedure
reward points will be given to best answer

Answer 1

SELECTION-SCREEN :BEGIN OF BLOCK BL1 WITH FRAME TITLE  TEXT-001.
PARAMETERS : P_FNAME TYPE RLGRAP-FILENAME,
             P_FNAME1 TYPE RLGRAP-FILENAME,
              P_FNAME2 TYPE RLGRAP-FILENAME,
               P_FNAME3 TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK BL1.
*global data
DATA: V_CHR_OPENGRP TYPE C,
      R_MATNR LIKE MARA-MATNR,
      R_WERKS LIKE MARC-WERKS,
      V_STR_FNAME   TYPE STRING,
     V_STR_FNAME1   TYPE STRING,
      V_STR_FNAME2   TYPE STRING,
      V_STR_FNAME3   TYPE STRING.
DATA : BEGIN OF BDC_ITAB OCCURS 0.
        INCLUDE STRUCTURE BDCDATA.
DATA : END OF BDC_ITAB.
DATA: BEGIN OF MESSTAB OCCURS 0.
        INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END   OF MESSTAB.
DATA: BEGIN OF COUNT,
        INREC(9) TYPE N,               " input I_MATERIAL count
        CREATE(9) TYPE N,              " create count
        ERROR(9) TYPE N,               " error count
        BDC(9) TYPE N,                 " count of BDC creates
      END OF COUNT.
DATA : T_TASK LIKE BAPI1191_TSK_C OCCURS 0 WITH HEADER LINE,
       T_MATERIALTASKALLOCATION LIKE BAPI1191_MTK_C OCCURS 0 WITH HEADER LINE,
       T_OPERATION LIKE BAPI1191_OPR_C OCCURS 0 WITH HEADER LINE,
       T_INSPCHARACTERISTIC LIKE BAPI1191_CHA_C OCCURS 0 WITH HEADER LINE,
       T_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA : T_GROUP LIKE BAPI1191_TSK_C-TASK_LIST_GROUP,
       T_GROUPCOUNTER LIKE BAPI1191_TSK_C-GROUP_COUNTER.
data : BEGIN OF I_TASK OCCURS 0,
       TASK_LIST_GROUP LIKE T_TASK-TASK_LIST_GROUP,
       GROUP_COUNTER LIKE T_TASK-GROUP_COUNTER,
       VALID_FROM(10),
       VALID_TO_DATE(10),
       TASK_LIST_USAGE LIKE T_TASK-TASK_LIST_USAGE,
       PLANT  LIKE T_TASK-PLANT,
       TASK_LIST_STATUS LIKE T_TASK-TASK_LIST_STATUS,
       LOT_SIZE_FROM LIKE T_TASK-LOT_SIZE_FROM,
       LOT_SIZE_TO LIKE T_TASK-LOT_SIZE_TO,
       TASK_MEASURE_UNIT LIKE T_TASK-TASK_MEASURE_UNIT,
       DESCRIPTION LIKE T_TASK-DESCRIPTION,
       DYN_MODIF_LEVEL LIKE T_TASK-DYN_MODIF_LEVEL,
       DYN_MODIF_RULE LIKE T_TASK-DYN_MODIF_RULE,
       SAMPLE_DRAWING_PROCEDURE LIKE T_TASK-SAMPLE_DRAWING_PROCEDURE,
       IDENT_KEY LIKE T_TASK-IDENT_KEY,
       END OF I_TASK.
DATA : BEGIN OF I_MATERIALTASKALLOCATION OCCURS 0,
       TASK_LIST_GROUP LIKE T_MATERIALTASKALLOCATION-TASK_LIST_GROUP,
       GROUP_COUNTER LIKE T_MATERIALTASKALLOCATION-GROUP_COUNTER,
       VALID_FROM(10),
       VALID_TO_DATE(10),
       MATERIAL LIKE T_MATERIALTASKALLOCATION-MATERIAL,
       PLANT LIKE T_MATERIALTASKALLOCATION-PLANT,
       END OF I_MATERIALTASKALLOCATION.
DATA : BEGIN OF I_OPERATION OCCURS 0,
       TASK_LIST_GROUP LIKE T_OPERATION-TASK_LIST_GROUP,
       GROUP_COUNTER LIKE T_OPERATION-GROUP_COUNTER,
       VALID_FROM(10),
       VALID_TO_DATE(10),
       OPERATION_ID LIKE T_OPERATION-OPERATION_ID,
       ACTIVITY LIKE T_OPERATION-ACTIVITY,
       CONTROL_KEY LIKE T_OPERATION-CONTROL_KEY,
       WORK_CNTR LIKE T_OPERATION-WORK_CNTR,
       PLANT LIKE T_OPERATION-PLANT,
       STANDARD_TEXT_KEY LIKE T_OPERATION-STANDARD_TEXT_KEY,
       DESCRIPTION LIKE T_OPERATION-DESCRIPTION,
       OPERATION_MEASURE_UNIT LIKE T_OPERATION-OPERATION_MEASURE_UNIT,
       DENOMINATOR LIKE T_OPERATION-DENOMINATOR,
       NOMINATOR LIKE T_OPERATION-NOMINATOR,
       BASE_QUANTITY LIKE T_OPERATION-BASE_QUANTITY,
       RECORDING_VIEW LIKE T_OPERATION-RECORDING_VIEW,
       INSP_POINT_COMPLT_FLOW_VARIANT LIKE T_OPERATION-INSP_POINT_COMPLT_FLOW_VARIANT,
       END OF I_OPERATION.
  DATA : BEGIN OF  I_INSPCHARACTERISTIC OCCURS 0,
        TASK_LIST_GROUP LIKE T_INSPCHARACTERISTIC-TASK_LIST_GROUP,
        GROUP_COUNTER LIKE T_INSPCHARACTERISTIC-GROUP_COUNTER,
        VALID_FROM LIKE T_INSPCHARACTERISTIC-VALID_FROM,
        VALID_TO_DATE LIKE T_INSPCHARACTERISTIC-VALID_TO_DATE,
        OPERATION_ID LIKE T_INSPCHARACTERISTIC-OPERATION_ID,
                OPERATION_ID LIKE T_INSPCHARACTERISTIC-OPERATION_ID,
         ACTIVITY LIKE T_INSPCHARACTERISTIC-ACTIVITY,
         INSPCHAR LIKE T_INSPCHARACTERISTIC-INSPCHAR,
         MSTR_CHAR LIKE T_INSPCHARACTERISTIC-MSTR_CHAR,
         PMSTR_CHAR LIKE T_INSPCHARACTERISTIC-PMSTR_CHAR,
         CHA_MASTER_IMPORT_MODUS LIKE T_INSPCHARACTERISTIC-CHA_MASTER_IMPORT_MODUS,
         SMPL_PROCEDURE  LIKE T_INSPCHARACTERISTIC-SMPL_PROCEDURE,
         SMPL_UNIT LIKE T_INSPCHARACTERISTIC-SMPL_UNIT,
         SMPL_QUANT LIKE T_INSPCHARACTERISTIC-SMPL_QUANT,
         DYN_MODIF_RULE LIKE T_INSPCHARACTERISTIC-DYN_MODIF_RULE,
         END OF I_INSPCHARACTERISTIC.
*at selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      PROGRAM_NAME  = 'ZPRG_BDC_INSPECTIONPLAN'
      DYNPRO_NUMBER = '1000'
      FIELD_NAME    = 'P_FNAME'
    CHANGING
      FILE_NAME     = P_FNAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME1.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      PROGRAM_NAME  = 'ZPRG_BDC_INSPECTIONPLAN'
      DYNPRO_NUMBER = '1000'
      FIELD_NAME    = 'P_FNAME1'
    CHANGING
      FILE_NAME     = P_FNAME1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME2.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      PROGRAM_NAME  = 'ZPRG_BDC_INSPECTIONPLAN'
      DYNPRO_NUMBER = '1000'
      FIELD_NAME    = 'P_FNAME2'
    CHANGING
      FILE_NAME     = P_FNAME2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME3.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      PROGRAM_NAME  = 'ZPRG_BDC_INSPECTIONPLAN'
      DYNPRO_NUMBER = '1000'
      FIELD_NAME    = 'P_FNAME3'
    CHANGING
      FILE_NAME     = P_FNAME3.
*start of selection
START-OF-SELECTION.
  PERFORM CHECK_FILE.
  PERFORM READ_FILE.
  PERFORM UPLOAD.
*&      Form  CHECK_FILE
      text
-->  p1        text
<--  p2        text
FORM CHECK_FILE .
  IF P_FNAME1 IS INITIAL.
    MESSAGE I016(RP) WITH 'Please enter a file name'.
    LEAVE LIST-PROCESSING.
  ELSE.
    MOVE P_FNAME1 TO  V_STR_FNAME1.
  ENDIF.
  IF P_FNAME2 IS INITIAL.
    MESSAGE I016(RP) WITH 'Please enter a file name'.
    LEAVE LIST-PROCESSING.
  ELSE.
    MOVE P_FNAME2 TO  V_STR_FNAME2.
  ENDIF.
  IF P_FNAME3 IS INITIAL.
    MESSAGE I016(RP) WITH 'Please enter a file name'.
    LEAVE LIST-PROCESSING.
  ELSE.
    MOVE P_FNAME3 TO  V_STR_FNAME3.
  ENDIF.
ENDFORM.                    " CHECK_FILE
*&      Form  READ_FILE
      text
-->  p1        text
<--  p2        text
FORM READ_FILE .
IF P_FNAME IS INITIAL.
    MESSAGE I016(RP) WITH 'Please enter a file name'.
    LEAVE LIST-PROCESSING.
  ELSE.
    MOVE P_FNAME TO  V_STR_FNAME.
  ENDIF.
*uplading fiel
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILETYPE            = 'ASC'
      FILENAME            = V_STR_FNAME
      HAS_FIELD_SEPARATOR = 'X'
    TABLES
      DATA_TAB            = I_TASK.
*uplading fiel
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILETYPE            = 'ASC'
      FILENAME            = V_STR_FNAME1
      HAS_FIELD_SEPARATOR = 'X'
    TABLES
      DATA_TAB            = I_MATERIALTASKALLOCATION.
*uplading fiel
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILETYPE            = 'ASC'
      FILENAME            = V_STR_FNAME2
      HAS_FIELD_SEPARATOR = 'X'
    TABLES
      DATA_TAB            = I_OPERATION
      EXCEPTIONS
      FILE_OPEN_ERROR         = 1
      FILE_READ_ERROR         = 2
      NO_BATCH                = 3
      GUI_REFUSE_FILETRANSFER = 4
      INVALID_TYPE            = 5
      NO_AUTHORITY            = 6
      UNKNOWN_ERROR           = 7
      BAD_DATA_FORMAT         = 8
      HEADER_NOT_ALLOWED      = 9
      SEPARATOR_NOT_ALLOWED   = 10
      HEADER_TOO_LONG         = 11
      UNKNOWN_DP_ERROR        = 12
      ACCESS_DENIED           = 13
      DP_OUT_OF_MEMORY        = 14
      DISK_FULL               = 15
      DP_TIMEOUT              = 16
      OTHERS                  = 17.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*uplading fiel
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILETYPE            = 'ASC'
      FILENAME            = V_STR_FNAME3
      HAS_FIELD_SEPARATOR = 'X'
    TABLES
      DATA_TAB            = I_INSPCHARACTERISTIC.
ENDFORM.                    " READ_FILE
*&      Form  UPLOAD
      text
-->  p1        text
<--  p2        text
FORM UPLOAD .
LOOP AT I_TASK.
       T_TASK-TASK_LIST_GROUP = I_TASK-TASK_LIST_GROUP.
       T_TASK-GROUP_COUNTER = I_TASK-GROUP_COUNTER.
       CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
         EXPORTING
           DATE_EXTERNAL                  = i_task-valid_from
        IMPORTING
          DATE_INTERNAL                  = t_task-valid_from.
       CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
         EXPORTING
           DATE_EXTERNAL                  = i_task-valid_to_date
        IMPORTING
          DATE_INTERNAL                  = t_task-valid_to_date.
       T_TASK-TASK_LIST_USAGE = I_TASK-TASK_LIST_USAGE.
       T_TASK-PLANT  = I_TASK-PLANT.
       T_TASK-TASK_LIST_STATUS = I_TASK-TASK_LIST_STATUS.
       T_TASK-LOT_SIZE_FROM = I_TASK-LOT_SIZE_FROM.
       T_TASK-LOT_SIZE_TO = I_TASK-LOT_SIZE_TO.
       T_TASK-TASK_MEASURE_UNIT = I_TASK-TASK_MEASURE_UNIT.
       T_TASK-DESCRIPTION = I_TASK-DESCRIPTION.
       T_TASK-DYN_MODIF_LEVEL = I_TASK-DYN_MODIF_LEVEL.
       T_TASK-DYN_MODIF_RULE = I_TASK-DYN_MODIF_RULE.
       T_TASK-SAMPLE_DRAWING_PROCEDURE = I_TASK-SAMPLE_DRAWING_PROCEDURE.
       T_TASK-IDENT_KEY = I_TASK-IDENT_KEY.
       APPEND T_TASK.
LOOP AT I_MATERIALTASKALLOCATION WHERE TASK_LIST_GROUP = T_TASK-TASK_LIST_GROUP
                                  AND GROUP_COUNTER = T_TASK-GROUP_COUNTER
                                  AND VALID_FROM = I_TASK-VALID_FROM
                                  AND VALID_TO_DATE = I_TASK-VALID_TO_DATE.
T_MATERIALTASKALLOCATION-TASK_LIST_GROUP = I_MATERIALTASKALLOCATION-TASK_LIST_GROUP.
    T_MATERIALTASKALLOCATION-GROUP_COUNTER = I_MATERIALTASKALLOCATION-GROUP_COUNTER.
    CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
         EXPORTING
           DATE_EXTERNAL                  = i_materialtaskallocation-valid_from
        IMPORTING
          DATE_INTERNAL                  = t_materialtaskallocation-valid_from.
       T_MATERIALTASKALLOCATION-MATERIAL = I_MATERIALTASKALLOCATION-MATERIAL.
       T_MATERIALTASKALLOCATION-PLANT = I_MATERIALTASKALLOCATION-PLANT.
       APPEND T_MATERIALTASKALLOCATION.
ENDLOOP.
LOOP AT I_OPERATION WHERE TASK_LIST_GROUP = T_MATERIALTASKALLOCATION-TASK_LIST_GROUP
                      AND GROUP_COUNTER = T_MATERIALTASKALLOCATION-GROUP_COUNTER
                      AND VALID_FROM = I_MATERIALTASKALLOCATION-VALID_FROM
                      AND VALID_TO_DATE = I_MATERIALTASKALLOCATION-VALID_TO_DATE.
                       T_OPERATION-TASK_LIST_GROUP = I_OPERATION-TASK_LIST_GROUP.
       T_OPERATION-GROUP_COUNTER = I_OPERATION-GROUP_COUNTER.
       CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
         EXPORTING
           DATE_EXTERNAL                  = i_operation-valid_from
        IMPORTING
          DATE_INTERNAL                  = t_operation-valid_from.
       T_OPERATION-OPERATION_ID = I_OPERATION-OPERATION_ID.
       T_OPERATION-ACTIVITY = I_OPERATION-ACTIVITY.
       T_OPERATION-CONTROL_KEY = I_OPERATION-CONTROL_KEY.
       T_OPERATION-WORK_CNTR = I_OPERATION-WORK_CNTR.
       T_OPERATION-PLANT = I_OPERATION-PLANT.
       T_OPERATION-STANDARD_TEXT_KEY = I_OPERATION-STANDARD_TEXT_KEY.
       T_OPERATION-DESCRIPTION = I_OPERATION-DESCRIPTION.
       T_OPERATION-OPERATION_MEASURE_UNIT = I_OPERATION-OPERATION_MEASURE_UNIT.
       T_OPERATION-DENOMINATOR = I_OPERATION-DENOMINATOR.
       T_OPERATION-NOMINATOR = I_OPERATION-NOMINATOR.
       T_OPERATION-BASE_QUANTITY = I_OPERATION-BASE_QUANTITY.
       T_OPERATION-RECORDING_VIEW = I_OPERATION-RECORDING_VIEW.
       T_OPERATION-INSP_POINT_COMPLT_FLOW_VARIANT = I_OPERATION-INSP_POINT_COMPLT_FLOW_VARIANT.
       APPEND T_OPERATION.
LOOP AT  I_INSPCHARACTERISTIC WHERE
                                      OPERATION_ID = T_OPERATION-OPERATION_ID
                                       AND ACTIVITY = T_OPERATION-ACTIVITY.
         t_inspcharacteristic-task_list_group = i_inspcharacteristic-task_list_group.
         t_inspcharacteristic-group_counter =  i_inspcharacteristic-group_counter .
         T_INSPCHARACTERISTIC-OPERATION_ID = I_INSPCHARACTERISTIC-OPERATION_ID.
         T_INSPCHARACTERISTIC-ACTIVITY = I_INSPCHARACTERISTIC-ACTIVITY.
         T_INSPCHARACTERISTIC-INSPCHAR = I_INSPCHARACTERISTIC-INSPCHAR.
         T_INSPCHARACTERISTIC-MSTR_CHAR = I_INSPCHARACTERISTIC-MSTR_CHAR.
         T_INSPCHARACTERISTIC-PMSTR_CHAR = I_INSPCHARACTERISTIC-PMSTR_CHAR.
         T_INSPCHARACTERISTIC-CHA_MASTER_IMPORT_MODUS = I_INSPCHARACTERISTIC-CHA_MASTER_IMPORT_MODUS.
         T_INSPCHARACTERISTIC-SMPL_PROCEDURE  = I_INSPCHARACTERISTIC-SMPL_PROCEDURE.
         T_INSPCHARACTERISTIC-SMPL_UNIT = I_INSPCHARACTERISTIC-SMPL_UNIT.
         T_INSPCHARACTERISTIC-SMPL_QUANT = I_INSPCHARACTERISTIC-SMPL_QUANT.
         T_INSPCHARACTERISTIC-DYN_MODIF_RULE = I_INSPCHARACTERISTIC-DYN_MODIF_RULE.
         APPEND T_INSPCHARACTERISTIC.
ENDLOOP.
ENDLOOP.
ENDLOOP.
  CALL FUNCTION 'BAPI_INSPECTIONPLAN_CREATE'
     EXPORTING
        TESTRUN                      = ' '
        PROFILE                      =
      IMPORTING
        GROUP                        = T_GROUP
        GROUPCOUNTER                 = T_GROUPCOUNTER
          TABLES
            TASK                         = T_TASK
          MATERIALTASKALLOCATION       = T_MATERIALTASKALLOCATION
           OPERATION                    = T_OPERATION
        REFERENCEOPERATION           =
        PRODUCTIONRESOURCE           =
           INSPCHARACTERISTIC           = T_INSPCHARACTERISTIC
        TEXTALLOCATION               =
        TEXT                         =
           RETURN                       = T_RETURN.
        INSP_CHAR_VALUES             =
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    WAIT          =
  IMPORTING
    RETURN        =
  IF SY-SUBRC = 0.
  WRITE :/ T_GROUP,
           T_GROUPCOUNTER.
    LOOP AT T_RETURN.
      WRITE :/ T_RETURN-TYPE,
               T_RETURN-MESSAGE,
               T_RETURN-FIELD.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " UPLOAD