topic Re: Problem with creating BDC session in Application Development and Automation Discussions

Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 21:58:00 GMT

Hi,

I have post incomming payments process(F-28) and can you please help me fix this problem.

The upload file has data from 2 customers A and B with same check num. The program is seperating the the records by customer and creating two transactions, but one session to process both. The problem is if there is any problem with one customer data(A), it processes other customer(B) and I have to manually delete that customer(A) data records from input file and process customer(B) later again.

Can you please help me to create 2 sessions for 2 customers so that I can process both seperately.

IHead has 2 records one for each customer with amt total.

ILines has all records from input file(A & B). Loop with cust num.

Thanks,

Veni.


FORM post_payments.

  DATA: m_amt(16) TYPE c,
        m_zuonr LIKE bseg-zuonr,
        m_newbs LIKE rf05a-newbs.

  IF gd_open <> gc_true.

    m_grpid = 'OPEN_ITEMS'.

    PERFORM open_bdc_session.

  ENDIF.

  LOOP AT ihead INTO wa_head.

    PERFORM create_header_input.

    m_count = 0.

    LOOP AT iline INTO wa_line WHERE chkno = wa_head-chkno
                               AND   kunnr = wa_head-kunnr
                               AND   rstgr = ' '.

      PERFORM create_items_input.

    ENDLOOP.

    LOOP AT iline INTO wa_line WHERE chkno = wa_head-chkno
                               AND   kunnr = wa_head-kunnr
                               AND   rstgr <> ' '.

      CLEAR: m_amt, m_zuonr, m_newbs.


      IF wa_line-wrbtr < 0.

        m_newbs = '04'.
        m_amt = wa_line-wrbtr * -1.

      ELSE.

        m_newbs = '15'.
        WRITE wa_line-wrbtr TO m_amt.

      ENDIF.

      CONCATENATE wa_line-rstgr wa_line-vbeln INTO m_zuonr
              SEPARATED BY '-'.

      PERFORM bdc_field  USING 'BDC_OKCODE' '=PA'.
      PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=KMD'.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0700'.

      PERFORM bdc_field  USING 'RF05A-NEWBS' m_newbs.
      PERFORM bdc_field  USING 'RF05A-NEWKO' wa_line-kunnr.
      PERFORM bdc_field  USING 'BDC_OKCODE' '/00'.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.

      PERFORM bdc_field  USING 'BSEG-WRBTR' m_amt.
      PERFORM bdc_field  USING 'BSEG-ZUONR' m_zuonr.
      PERFORM bdc_field  USING 'BSEG-SGTXT' '/'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=ZK'.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0331'.
      PERFORM bdc_field  USING 'BSEG-RSTGR' wa_line-rstgr.

    ENDLOOP.

    PERFORM bdc_field  USING 'BDC_OKCODE' '=PA'.
    PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.

    PERFORM bdc_field  USING 'BDC_OKCODE' '=BU'.

    PERFORM bdc_transaction USING gc_tcode.

  ENDLOOP.

  IF gd_open = gc_true.

    PERFORM close_bdc_session.

  ENDIF.

ENDFORM.                    " check_posting

Re: Problem with creating BDC session

naimesh_patel — Thu, 01 Nov 2007 22:12:33 GMT

  
  LOOP AT ihead INTO wa_head.
 
at new kunnr.

 IF gd_open <> gc_true.
 
    m_grpid = 'OPEN_ITEMS'.
 
    PERFORM open_bdc_session.
 
  ENDIF.


endat.

    PERFORM create_header_input.
 
    m_count = 0.
 
    LOOP AT iline INTO wa_line WHERE chkno = wa_head-chkno
                               AND   kunnr = wa_head-kunnr
                               AND   rstgr = ' '.
 
      PERFORM create_items_input.
 
    ENDLOOP.
 
    LOOP AT iline INTO wa_line WHERE chkno = wa_head-chkno
                               AND   kunnr = wa_head-kunnr
                               AND   rstgr <> ' '.
 
      CLEAR: m_amt, m_zuonr, m_newbs.
 
 
      IF wa_line-wrbtr < 0.
 
        m_newbs = '04'.
        m_amt = wa_line-wrbtr * -1.
 
      ELSE.
 
        m_newbs = '15'.
        WRITE wa_line-wrbtr TO m_amt.
 
      ENDIF.
 
      CONCATENATE wa_line-rstgr wa_line-vbeln INTO m_zuonr
              SEPARATED BY '-'.
 
      PERFORM bdc_field  USING 'BDC_OKCODE' '=PA'.
      PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=KMD'.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0700'.
 
      PERFORM bdc_field  USING 'RF05A-NEWBS' m_newbs.
      PERFORM bdc_field  USING 'RF05A-NEWKO' wa_line-kunnr.
      PERFORM bdc_field  USING 'BDC_OKCODE' '/00'.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.
 
      PERFORM bdc_field  USING 'BSEG-WRBTR' m_amt.
      PERFORM bdc_field  USING 'BSEG-ZUONR' m_zuonr.
      PERFORM bdc_field  USING 'BSEG-SGTXT' '/'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=ZK'.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0331'.
      PERFORM bdc_field  USING 'BSEG-RSTGR' wa_line-rstgr.
 
    ENDLOOP.
 
    PERFORM bdc_field  USING 'BDC_OKCODE' '=PA'.
    PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.
 
    PERFORM bdc_field  USING 'BDC_OKCODE' '=BU'.
 
    PERFORM bdc_transaction USING gc_tcode.
 
  ENDLOOP.
 
  IF gd_open = gc_true.
 
    PERFORM close_bdc_session.
 
  ENDIF.
endloop.
 
ENDFORM.                    " check_posting

Regards,

Naimesh Patel

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 22:41:32 GMT

Hi Naimesh,

I got the following error.

BDC_INSERT, session not opened.

Please help me to fix this.

Thanks,

Veni.

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 22:51:57 GMT

Hi Naimesh,

I debugged it and it is not going in to IF stmt to open BDC session. Please help me to fix this.

at new kunnr.

IF gd_open <> gc_true.

m_grpid = 'OPEN_ITEMS'.

PERFORM open_bdc_session.

ENDIF.

Thanks,

Veni.

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 22:56:09 GMT

Hi Veni,

Looking at your variables names I think

IF gd_open <> gc_true.

should be

Regards,

Atish

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 23:06:57 GMT

Hi Atish,

Now it is not going in to the 'IF gd_open = gc_true' for the first time also.

gd_open(01) TYPE c, "Indicator for BDC session

gc_true(1) TYPE c VALUE 'X'. "Generic value for true.

Thanks,

veni.

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 23:17:07 GMT

Hi Veni,

Can you paste your whole code,

Just want to see what is the logic behind gd_open & gc_true

Regards,

Atish

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 23:46:23 GMT

Hi Atish,

Thank you very much. I did the following changes and worked out.

gc_true(1) TYPE c VALUE 'X', "Indicator for value true/false.

from

CONSTANTS: gc_true(1) TYPE c VALUE 'X'.

LOOP AT ihead INTO wa_head.

AT NEW kunnr.

IF gd_open <> gc_true.

m_grpid = 'OPEN_ITEMS'.

PERFORM open_bdc_session.

ENDIF.

ENDAT.

and befor end form,

IF gd_open = gc_true.

PERFORM close_bdc_session.

gd_open = ' '.

ENDIF.

Thanks,

Veni.

Re: Problem with creating BDC session

Former Member — Thu, 01 Nov 2007 23:47:52 GMT

gc_true(1) TYPE c VALUE 'X', "Indicator for value true/false.

from

CONSTANTS: gc_true(1) TYPE c VALUE 'X'.

LOOP AT ihead INTO wa_head.

AT NEW kunnr.

IF gd_open <> gc_true.

m_grpid = 'OPEN_ITEMS'.

PERFORM open_bdc_session.

ENDIF.

ENDAT.

and befor end form,

IF gd_open = gc_true.

PERFORM close_bdc_session.

gd_open = ' '.

ENDIF.