Problem in the BDC program

Question

Hi Experts,
I am trying to post data by using transaction FB01. Probelm is , its not posting the data. its not even throughing any error.
i wrote the program exactly the same of the exiting program in our system which is working. But in my new program BDC is not working. Can any one please help me in this why its not posting.  if you needed any further information please inform me. It is very urgent for me
Thanks
Ravi

Answer 1

Hi Naveen,
Nice to see your message. I am using the custom bdc report program. In which I am recording all the records from the internal table bdc_data and moving into the function module BDC_INSERT WITH TRANSACTION FB01 AS INPUT and bdc_data as a table input.
after executing function module sy-subrc is giving 0 with out any exception.
I am  writing the code below,
if you need any more information please let me know.
I am loading the bdc_data table with my internal table data t_data here.
LOOP AT t_data.
    ADD 1 TO w_recnt.
    IF w_recnt = 1.
      PERFORM generate_email USING '' '' '3A'.
      PERFORM generate_email USING text-m84 '' '3B'.
      PERFORM generate_email USING sy-uline+0(21) '' '3C'.
      PERFORM  dynpro USING:
               'X' 'SAPMF05A' '100',
               ' ' 'BKPF-BLDAT' w_bldat,      " Doc date
               ' ' 'BKPF-BLART' p_blart,      " Doc type
               ' ' 'BKPF-BUKRS' p_bukrs,      " Company Code
               ' ' 'BKPF-BUDAT' w_bldat,      " Posting Date
               ' ' 'BKPF-WAERS' p_waers,      " Currency
               ' ' 'BKPF-BKTXT' p_bktxt.      " Header Text
  Posting Key Debit = 50 - Credit = 40
      IF t_data-dmbtr <> 0.
        ADD t_data-dmbtr TO w_dmbtr.
        IF t_data-dmbtr > 0.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '50'.
        ELSE.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '40'.
        ENDIF.
      ELSE.
        ADD t_data-wrbtr TO w_dmbtr.
        IF t_data-wrbtr > 0.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '50'.
        ELSE.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '40'.
        ENDIF.
      ENDIF.
  G/L Account to post to
      PERFORM  dynpro USING: ' ' 'RF05A-NEWKO' t_data-saknr.
      PERFORM  dynpro USING: ' ' 'BDC_OKCODE'  '/00'.
*---- Assign current values for following loop
      r_data = t_data.
    ELSE.
      CLEAR w_pamnt.
      IF r_data-dmbtr <> 0.
        WRITE r_data-dmbtr TO w_pamnt NO-SIGN NO-GROUPING.
      ELSE.
        WRITE r_data-wrbtr TO w_pamnt NO-SIGN NO-GROUPING.
      ENDIF.
      PERFORM  dynpro USING: 'X' 'SAPMF05A' '300',
                             ' ' 'BSEG-WRBTR' w_pamnt.
  Contra Posting Key Debit = 40 - Credit =50
      IF t_data-dmbtr <> 0.
        ADD t_data-dmbtr TO w_dmbtr.
        IF t_data-dmbtr > 0.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '50'.
        ELSE.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '40'.
        ENDIF.
      ELSE.
        ADD t_data-wrbtr TO w_dmbtr.
        IF t_data-wrbtr > 0.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '50'.
        ELSE.
          PERFORM  dynpro USING: ' ' 'RF05A-NEWBS' '40'.
        ENDIF.
      ENDIF.
      PERFORM  dynpro USING: ' ' 'RF05A-NEWKO' t_data-saknr.
      PERFORM  dynpro USING: ' ' 'BDC_OKCODE'  '/00'.
  Cost Object Posting
      CASE r_data-objtp.
        WHEN 'CST'.
          PERFORM  dynpro USING: 'X' 'SAPLKACB'   '0002',
                                 ' ' 'COBL-KOSTL' r_data-kostl.
        WHEN 'FND'.
          PERFORM  dynpro USING: 'X' 'SAPLKACB'   '0002',
                                 ' ' 'COBL-GEBER' r_data-kostl.
        WHEN 'WBS'.
          PERFORM  dynpro USING: 'X' 'SAPLKACB'   '0002',
                                 ' ' 'COBL-PS_POSID' r_data-projk.
      ENDCASE.
      PERFORM  dynpro USING: ' ' 'BDC_OKCODE'  '=ENTE'.
      CLEAR r_data.
      r_data = t_data.
    ENDIF.
  ENDLOOP.
Thanks
Ravi