Abap bdc's

Question

Exact code to develop a BDC program for Incoming Invoices that updates the records depending on the source data file from the external systems.

Answer 1

Hi
plz check the following code.
If helpful, award the points.
Thanks & Regards
vinsee
REPORT  ZEQUIUPDATE                             .
TABLES : EQUI.
Internal Table declaration
DATA: BEGIN OF ITAB OCCURS 0,
            EQUNR LIKE ITOB-MATNR,
            BUKRS LIKE ITOB-BUKRS,
            DELETED_FLAG TYPE C,
     END OF ITAB.
DATA: T_BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
DATA: T_MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA: V_MODE TYPE C VALUE 'N',
      V_UPDATE TYPE C VALUE 'S'.
DATA: SYSTEM_STATUS LIKE  BAPI_ITOB_STATUS OCCURS 0 WITH HEADER LINE,
      USER_STATUS LIKE  BAPI_ITOB_STATUS OCCURS 0 WITH HEADER LINE,
      V_EQUIPMENT LIKE EQUI-EQUNR.
DATA: BEGIN OF IT_MESSGE OCCURS 0," with header line,
MSSGE(200),
END OF IT_MESSGE.
DATA: LV_MESSGE(200).
Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP.
PARAMETER  S_BUKRS LIKE ITOB-BUKRS OBLIGATORY.
SELECTION-SCREEN SKIP.
PARAMETER P_SCDSN LIKE RLGRAP-FILENAME OBLIGATORY LOWER CASE " Output
        DEFAULT 'C:\test.txt'  .
SELECTION-SCREEN END OF BLOCK B1.
F4 Help For Input File Name                                          *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SCDSN.
  IF SY-BATCH NE 'X' AND P_SCDSN(1) NE '/'.
    CALL FUNCTION 'F4_FILENAME'
      EXPORTING
        PROGRAM_NAME  = SYST-CPROG
        DYNPRO_NUMBER = SYST-DYNNR
        FIELD_NAME    = 'C:\'
      IMPORTING
        FILE_NAME     = P_SCDSN.
  ENDIF.
START OF SELECTION                                                  *
START-OF-SELECTION.
File upload
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME = P_SCDSN
      FILETYPE = 'DAT'
    TABLES
      DATA_TAB = ITAB.
Check for equipment with MARK FOR DELETION
  PERFORM VERIFY_DATA.
Delete MARK FOR DELETION equipments
  DELETE ITAB WHERE DELETED_FLAG = 'X'.
Process ITAB
  LOOP AT ITAB .
    ITAB-BUKRS = S_BUKRS.
    PERFORM BDC_DYNPRO      USING 'SAPMIEQ0' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'RM63E-EQUNR'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM BDC_FIELD       USING 'RM63E-EQUNR'
                                  ITAB-EQUNR.
    PERFORM BDC_DYNPRO      USING 'SAPMIEQ0' '0101'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=T\03'.
    PERFORM BDC_DYNPRO      USING 'SAPMIEQ0' '0101'.
    PERFORM BDC_FIELD       USING 'ITOB-BUKRS'
                                 ITAB-BUKRS.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=BU'.
    CALL TRANSACTION 'IE02'
          USING T_BDCDATA  MODE V_MODE  UPDATE V_UPDATE MESSAGES INTO
  T_MESSTAB.
If any error in uploading write error messages
    IF SY-SUBRC <> 0.
      PERFORM FORMAT_MESSAGE.
    ENDIF.
    CLEAR ITAB.
    CLEAR   : T_BDCDATA.
    REFRESH : T_BDCDATA.
DELETE T_MESSTAB WHERE MSGTYP <> 'E'.
  ENDLOOP.
  IF T_MESSTAB IS INITIAL .
    MESSAGE S398(00) WITH 'Record Uploaded Successfully'.
  ENDIF.
       Start new screen                                              *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR T_BDCDATA.
  T_BDCDATA-PROGRAM  = PROGRAM.
  T_BDCDATA-DYNPRO   = DYNPRO.
  T_BDCDATA-DYNBEGIN = 'X'.
  APPEND T_BDCDATA.
ENDFORM.                    "BDC_DYNPRO
       Insert field                                                  *
FORM BDC_FIELD USING FNAM FVAL.
  CLEAR T_BDCDATA.
  T_BDCDATA-FNAM = FNAM.
  T_BDCDATA-FVAL = FVAL.
  APPEND T_BDCDATA.
ENDFORM.                    "BDC_FIELD
*&      Form  format_message
      text
-->  p1        text
<--  p2        text
FORM FORMAT_MESSAGE .
  DATA: L_MSG(100).
  LOOP AT T_MESSTAB.
    IF T_MESSTAB-MSGTYP = 'E'.
      CALL FUNCTION 'FORMAT_MESSAGE'
        EXPORTING
          ID        = T_MESSTAB-MSGID
          LANG      = SY-LANGU
          NO        = T_MESSTAB-MSGNR
          V1        = T_MESSTAB-MSGV1
          V2        = T_MESSTAB-MSGV2
          V3        = T_MESSTAB-MSGV3
          V4        = T_MESSTAB-MSGV4
        IMPORTING
          MSG       = L_MSG
        EXCEPTIONS
          NOT_FOUND = 1
          OTHERS    = 2.
      WRITE:/  T_MESSTAB-MSGV1.
      WRITE: L_MSG.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " format_message
*&      Form  Verify_data
      text
-->  p1        text
<--  p2        text
FORM VERIFY_DATA .
  DATA: L_LENGTH LIKE SY-TABIX,
        L_DELX,
        L_TABIX TYPE SY-TABIX.
  LOOP AT ITAB.
    L_TABIX = SY-TABIX.
Determine whether the equipment is deleted or not
Fetch the deletion status of the equipment
    CLEAR V_EQUIPMENT.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = ITAB-EQUNR
      IMPORTING
        OUTPUT = V_EQUIPMENT.
    CALL FUNCTION 'BAPI_EQUI_GETSTATUS'
      EXPORTING
        EQUIPMENT           = V_EQUIPMENT
       LANGUAGE            = SY-LANGU
        LANGUAGE_ISO        =
      IMPORTING
        RETURN              =
      TABLES
        SYSTEM_STATUS       = SYSTEM_STATUS
        USER_STATUS         = USER_STATUS.
if equipment is deleted
    LOOP AT SYSTEM_STATUS WHERE STATUS = 'I0076' OR STATUS = 'I0320'.
      ITAB-DELETED_FLAG = 'X'.
      MODIFY ITAB.
      EXIT.
    ENDLOOP.
Check if the serial number ends with 'X'
    SELECT SINGLE SERNR FROM EQUI INTO EQUI-SERNR WHERE
    EQUNR = V_EQUIPMENT.
    CLEAR: L_LENGTH, L_DELX.
    IF EQUI-SERNR IS NOT INITIAL.
      CONDENSE EQUI-SERNR NO-GAPS.
      L_LENGTH = STRLEN( EQUI-SERNR ) - 1.
      L_DELX = EQUI-SERNR+L_LENGTH(1).
      IF L_DELX EQ 'X'.
        ITAB-DELETED_FLAG = 'X'.
        MODIFY ITAB.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " Verify_data