Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

BDC with two table controls

Former Member

‎2006 Jun 21 5:04 PM

0 Likes
569

How to handle table controls in BDC?

I have to develope a BDC for VD01 t-code, Can you suggest me how to handle table controls for taxation, and partner functions?

If possible please send me the code for the following.

Thanks and regards.

vijay

How to handle table controls in BDC?

I have to develope a BDC for VD01 t-code, Can you suggest me how to handle table controls for taxation, and partner functions?

If possible please send me the code for the following.

Thanks and regards.

vijay

Reply
2 REPLIES 2
Read only

Former Member

‎2006 Jun 21 5:08 PM

0 Likes
496

Hi Vijay,

Please check this links.

http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm

http://www.sapfans.com/sapfans/repos/comelite.htm

http://arthur_ong.tripod.com/xab023.htm

Hope this will help.

Regards,

Ferry Lianto

Read only

LucianoBentiveg
Active Contributor

‎2006 Jun 21 5:11 PM

0 Likes
496

Look this one:


LOOP AT xknvv.

      PERFORM bdc_dynpro USING 'SAPMF02D' '0107'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'RF02D-REF_SPART'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '/00'.
      PERFORM bdc_field  USING 'RF02D-KUNNR' xknvv-kunnr.
      PERFORM bdc_field  USING 'RF02D-VKORG' p_vkorgd.
      PERFORM bdc_field  USING 'RF02D-VTWEG' xknvv-vtweg.
      PERFORM bdc_field  USING 'RF02D-SPART' xknvv-spart.
      PERFORM bdc_field  USING 'RF02D-KTOKD' kna1-ktokd.
      PERFORM bdc_field  USING 'RF02D-REF_KUNNR' xknvv-kunnr.
      PERFORM bdc_field  USING 'RF02D-REF_VKORG' xknvv-vkorg.
      PERFORM bdc_field  USING 'RF02D-REF_VTWEG' xknvv-vtweg.
      PERFORM bdc_field  USING 'RF02D-REF_SPART' xknvv-spart.

      PERFORM bdc_dynpro USING 'SAPMF02D' '0310'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'KNVV-KALKS'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '/00'.
      PERFORM bdc_field  USING 'KNVV-VKBUR' xknvv-vkbur.
      PERFORM bdc_field  USING 'KNVV-KDGRP' xknvv-kdgrp.
      PERFORM bdc_field  USING 'KNVV-WAERS' xknvv-waers.
      PERFORM bdc_field  USING 'KNVV-KALKS' xknvv-kalks.

      PERFORM bdc_dynpro USING 'SAPMF02D' '0315'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'KNVV-PODKZ'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=XPOD'.
      WRITE xknvv-lprio TO zlprio.
      PERFORM bdc_field  USING 'KNVV-LPRIO' zlprio.
      PERFORM bdc_field  USING 'KNVV-KZAZU' xknvv-kzazu.
      PERFORM bdc_field  USING 'KNVV-VSBED' xknvv-vsbed.
      PERFORM bdc_field  USING 'KNVV-VWERK' xknvv-vwerk.
      PERFORM bdc_field  USING 'KNVV-PODKZ' xknvv-podkz.
      WRITE xknvv-antlf TO zantlf.
      PERFORM bdc_field  USING 'KNVV-ANTLF' zantlf.

      PERFORM bdc_dynpro USING 'SAPMF02D' '0320'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'KNVV-ZTERM'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '/00'.
      WRITE xknvv-zterm TO zzterm.
      PERFORM bdc_field  USING 'KNVV-ZTERM' zzterm.

      PERFORM bdc_dynpro USING 'SAPMF02D' '0324'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=ENTR'.

      CLEAR zline.
      SELECT * FROM knvp
               WHERE kunnr EQ xknvv-kunnr AND
                     vkorg EQ p_vkorgo AND
                     vtweg EQ xknvv-vtweg AND
                     spart EQ xknvv-spart.

        CHECK knvp-kunnr = knvp-kunn2.

        ADD 1 TO zline.

      ENDSELECT.

      SELECT * FROM knvp
               WHERE kunnr EQ xknvv-kunnr AND
                     vkorg EQ p_vkorgo AND
                     vtweg EQ xknvv-vtweg AND
                     spart EQ xknvv-spart.

        CHECK knvp-kunnr <> knvp-kunn2.

        ADD 1 TO zline.

        CONCATENATE 'KNVP-PARVW(' zline ')' INTO zbdc_text.
        WRITE knvp-parvw TO zparvw.
        PERFORM bdc_field USING zbdc_text zparvw.

        CONCATENATE 'RF02D-KTONR(' zline ')' INTO zbdc_text.
        PERFORM bdc_field USING zbdc_text knvp-kunn2.

      ENDSELECT.

      PERFORM bdc_dynpro USING 'SAPMF02D' '0324'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'KNVP-PARVW(01)'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=UPDA'.
      PERFORM bdc_transaction USING 'VD01'.


  ENDLOOP.