1 Reply Latest reply: Aug 30, 2007 8:23 PM by Seshu reddy Maramreddy RSS

BAPI_ACC_DOCUMENT_POST

Rajeev Gupta
Currently Being Moderated

Hi Gurus,

 

I have condition where I am using the BAPI 'BAPI_ACC_DOCUMENT_POST', for creeating an accounting document using 'FB01'

I have few field such as " sales office, sales group, sales dist, product hierarchy, product grp, product line, product category", I am not sure where to link up these items in the BAPI. I mean as if we have to link up the posting date and compnay code, will do this in documentheader,

so can you please help me out.

 

Thanks

Rajeev Gupta

  • Re: BAPI_ACC_DOCUMENT_POST
    Seshu reddy Maramreddy
    Currently Being Moderated

    Check the below program :

     

    &----


    *& Report  ACC_BAPI_TEST_DOCUMENT                                      *

    *&                                                                     *

    &----


    *& Test report, calls BAPI AcctngDocument                              *

    *&                                                                     *

    &----


     

    report  acc_bapi_test_document                  .

     

    selection-screen begin of block bl01 .

     

    parameters:

      check_l             radiobutton group rb1,

      check_a default 'X' radiobutton group rb1,

      post                radiobutton group rb1.

    selection-screen uline.

    parameters:

      rev_c               radiobutton group rb1,

      rev_p               radiobutton group rb1.

    selection-screen uline.

    parameters:

      ref_key like bapiache01-obj_key default 'TEST000001BAPICALL',

      dest    like bdi_logsys-logsys  default '          '.

     

    selection-screen end   of block bl01 .

     

    data:

      gd_documentheader    like bapiache09,

      gd_customercpd       like bapiacpa09,

      gd_fica_hd           like bapiaccahd,

      it_accountreceivable like table of bapiacar09 with header line,

      it_accountgl         like table of bapiacgl09 with header line,

      it_accounttax        like table of bapiactx09 with header line,

      it_criteria          like table of bapiackec9 with header line,

      it_valuefield        like table of bapiackev9 with header line,

      it_currencyamount    like table of bapiaccr09 with header line,

      it_return            like table of bapiret2   with header line,

      it_receivers         like table of bdi_logsys with header line,

      it_fica_it           like table of bapiaccait with header line,

      it_accountpayable    like table of bapiacap09 with header line,

      it_paymentcard       like table of bapiacpc09 with header line,

      it_ext               like table of bapiacextc with header line,

      it_re                like table of bapiacre09 with header line,

      it_ext2              like table of bapiparex  with header line.

     

     

    perform fill_internal_tables.

     

    if check_l = 'X'.

     

      call function 'BAPI_ACC_DOCUMENT_CHECK'

           destination dest

           exporting

                documentheader    = gd_documentheader

                customercpd       = gd_customercpd

                contractheader    = gd_fica_hd

           tables

                accountgl         = it_accountgl

                accountreceivable = it_accountreceivable

                accountpayable    = it_accountpayable

                accounttax        = it_accounttax

    •            currencyamount    = it_currencyamount

                criteria          = it_criteria

                valuefield        = it_valuefield

                extension1        = it_ext

                return            = it_return

                paymentcard       = it_paymentcard

                contractitem      = it_fica_it

                extension2        = it_ext2

                realestate        = it_re.

      .

     

      write: / 'Result of check lines:'.                        "#EC NOTEXT

      perform show_messages.

     

    endif.

     

    if check_a = 'X'.

     

      call function 'BAPI_ACC_DOCUMENT_CHECK'

        destination dest

        exporting

          documentheader    = gd_documentheader

          customercpd       = gd_customercpd

          contractheader    = gd_fica_hd

        tables

          accountgl         = it_accountgl

          accountreceivable = it_accountreceivable

          accountpayable    = it_accountpayable

          accounttax        = it_accounttax

          currencyamount    = it_currencyamount

          criteria          = it_criteria

          valuefield        = it_valuefield

          extension1        = it_ext

          return            = it_return

          paymentcard       = it_paymentcard

          contractitem      = it_fica_it

          extension2        = it_ext2

          realestate        = it_re.

     

      write: / 'Result of check all:'.                          "#EC NOTEXT

      perform show_messages.

     

    endif.

     

    if post = 'X'.

     

      data: l_type like gd_documentheader-obj_type,

            l_key  like gd_documentheader-obj_key,

            l_sys  like gd_documentheader-obj_sys.

     

      if dest = space or

         dest = gd_documentheader-obj_sys.

    •    post synchron

     

        call function 'BAPI_ACC_DOCUMENT_POST'

          exporting

            documentheader    = gd_documentheader

            customercpd       = gd_customercpd

            contractheader    = gd_fica_hd

          importing

            obj_type          = l_type

            obj_key           = l_key

            obj_sys           = l_sys

          tables

            accountgl         = it_accountgl

            accountreceivable = it_accountreceivable

            accountpayable    = it_accountpayable

            accounttax        = it_accounttax

            currencyamount    = it_currencyamount

            criteria          = it_criteria

            valuefield        = it_valuefield

            extension1        = it_ext

            return            = it_return

            paymentcard       = it_paymentcard

            contractitem      = it_fica_it

            extension2        = it_ext2

            realestate        = it_re.

     

        write: / 'Result of post:'.                             "#EC NOTEXT

        perform show_messages.

     

      else.

    •   create Idoc

     

        it_receivers-logsys = dest.

        append it_receivers.

     

        call function 'ALE_ACC_DOCUMENT_POST'

          exporting

            documentheader    = gd_documentheader

            customercpd       = gd_customercpd

            contractheader    = gd_fica_hd

          tables

            accountgl         = it_accountgl

            accountreceivable = it_accountreceivable

            accountpayable    = it_accountpayable

            accounttax        = it_accounttax

            currencyamount    = it_currencyamount

            criteria          = it_criteria

            valuefield        = it_valuefield

            extension1        = it_ext

            paymentcard       = it_paymentcard

            contractitem      = it_fica_it

            extension2        = it_ext2

            realestate        = it_re

            receivers         = it_receivers

    •       COMMUNICATION_DOCUMENTS =

    •       APPLICATION_OBJECTS     =

          exceptions

            error_creating_idocs    = 1

            others                  = 2  .

     

        if sy-subrc = 0.

          write: / 'IDoc created'.                              "#EC NOTEXT

        else.

          write: sy-msgid.

        endif.

     

      endif.

    endif.

     

    if rev_p = 'X' or rev_c = 'X'.

      data: rev like bapiacrev,

            rev_key like ref_key.

     

      rev_key       = ref_key.

      rev_key(1)    = 'R'.

      rev-obj_type  = gd_documentheader-obj_type.

      rev-obj_key   = rev_key.

      rev-obj_sys   = gd_documentheader-obj_sys.

      rev-obj_key_r = ref_key.

     

      if rev_c is initial.

        if dest = space or

           dest = gd_documentheader-obj_sys.

     

          call function 'BAPI_ACC_DOCUMENT_REV_POST'

            exporting

              reversal = rev

              bus_act  = gd_documentheader-bus_act

            tables

              return   = it_return.

        else.

          it_receivers-logsys = dest.

          append it_receivers.

     

          call function 'ALE_ACC_DOCUMENT_REV_POST'

            exporting

              reversal                      = rev

              busact                        = gd_documentheader-bus_act

    •         OBJ_TYPE                      = 'BUS6035'

    •         SERIAL_ID                     = '0'

            tables

              receivers                     = it_receivers

    •         COMMUNICATION_DOCUMENTS       =

    •         APPLICATION_OBJECTS           =

            exceptions

              error_creating_idocs          = 1

              others                        = 2

                    .

          if sy-subrc <> 0.

            message id sy-msgid type sy-msgty number sy-msgno

                    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

          else.

            write: / 'IDoc created'.                            "#EC NOTEXT

          endif.

     

        endif.

      else.

        call function 'BAPI_ACC_DOCUMENT_REV_CHECK'

          exporting

            reversal = rev

            bus_act  = gd_documentheader-bus_act

          tables

            return   = it_return.

      endif.

     

      write: / 'Result of Reversal Posting:'.                   "#EC NOTEXT

      perform show_messages.

     

    endif.

     

    commit work.

     

     

     

     

    ----


    •      Form  fill_internal_tables

    ----


    form fill_internal_tables.

     

      perform fill_header.

      perform fill_accountgl.

      perform fill_accountar.

      perform fill_accountap.

      perform fill_accounttax.

      perform fill_currencyamount.

      perform fill_criteria.

      perform fill_valuefield.

      perform fill_re.

      perform fill_cpd.

      perform fill_contractitem.

      perform fill_contractheader.

      perform fill_paymentcard.

      perform fill_extension.

     

    endform.                               " fill_internal_tables

     

    ----


    •      Form  Show_messages

    ----


    form show_messages.

     

      if it_return[] is initial.

        write: / 'no messages'.

      else.

        skip 1.

        loop at it_return.

          write: /    it_return-type,

                 (2)  it_return-id,

                      it_return-number,

                 (80) it_return-message,

    •                 IT_RETURN-LOG_NO

    •                 IT_RETURN-LOG_MSG_NO

    •                 IT_RETURN-MESSAGE_V1

    •                 IT_RETURN-MESSAGE_V2

    •                 IT_RETURN-MESSAGE_V3

    •                 IT_RETURN-MESSAGE_V4

                 (20) it_return-parameter,

                 (3)  it_return-row,

                      it_return-field.

    •                 IT_RETURN-SYSTEM

        endloop.

      endif.

     

      uline.

     

    endform.                               " Show_messages

     

     

    ----


    •       FORM fill_accountgl                                           *

    ----


    form fill_accountgl.

     

      clear it_accountgl.

      it_accountgl-itemno_acc     = 2.

      it_accountgl-gl_account     = '0000113206'.

    • IT_ACCOUNTGL-STAT_CON       =

    • IT_ACCOUNTGL-REF_KEY_1      =

    • IT_ACCOUNTGL-REF_KEY_2      =

    • IT_ACCOUNTGL-REF_KEY_3      =

    • it_accountgl-tax_code       = 'V1'.

    • IT_ACCOUNTGL-ACCT_KEY       =

    • IT_ACCOUNTGL-TAXJURCODE     =

    • IT_ACCOUNTGL-CSHDIS_IND     =

    • IT_ACCOUNTGL-ALLOC_NMBR     =

      it_accountgl-item_text      = 'BAPI Test G/L line item'.  "#EC NOTEXT

    • IT_ACCOUNTGL-BUS_AREA       =

    • it_accountgl-costcenter     =

    • IT_ACCOUNTGL-ORDERID        =

    • it_accountgl-ext_object_id  =

    • it_accountgl-bus_scenario   =

    • IT_ACCOUNTGL-MATERIAL       =

    • IT_ACCOUNTGL-QUANTITY       =

    • IT_ACCOUNTGL-BASE_UOM       =

    • IT_ACCOUNTGL-BASE_UOM_ISO   =

    • IT_ACCOUNTGL-PLANT          =

    • it_accountgl-profit_ctr     =

    • IT_ACCOUNTGL-PART_PRCTR     =

    • IT_ACCOUNTGL-WBS_ELEMENT    =

    • IT_ACCOUNTGL-NETWORK        =

    • IT_ACCOUNTGL-CMMT_ITEM      =

    • IT_ACCOUNTGL-FUNDS_CTR      =

    • IT_ACCOUNTGL-FUND           =

    • IT_ACCOUNTGL-SALES_ORD      =

    • IT_ACCOUNTGL-S_ORD_ITEM     =

    • IT_ACCOUNTGL-P_EL_PRCTR     =

    • IT_ACCOUNTGL-BILL_TYPE      =

    • IT_ACCOUNTGL-DISTR_CHAN     =

    • IT_ACCOUNTGL-SOLD_TO        =

    • IT_ACCOUNTGL-DIVISION       =

    • IT_ACCOUNTGL-SALESORG       =

    • IT_ACCOUNTGL-SALES_OFF      =

    • IT_ACCOUNTGL-SALES_GRP      =

    • IT_ACCOUNTGL-INV_QTY        =

    • IT_ACCOUNTGL-SALES_UNIT     =

    • IT_ACCOUNTGL-SALES_UNIT_ISO =

    • IT_ACCOUNTGL-INV_QTY_SU     =

    • IT_ACCOUNTGL-NET_WEIGHT     =

    • IT_ACCOUNTGL-GROSS_WT       =

    • IT_ACCOUNTGL-UNIT_OF_WT     =

    • IT_ACCOUNTGL-UNIT_OF_WT_ISO =

    • IT_ACCOUNTGL-VOLUME         =

    • IT_ACCOUNTGL-VOLUMEUNIT     =

    • IT_ACCOUNTGL-VOLUMEUNIT_ISO =

    • it_accountgl-fm_area        =

    • it_accountgl-log_proc       =

    • it_accountgl-ac_doc_no      =

    • it_accountgl-acct_type      =

    • it_accountgl-doc_type       =

    • it_accountgl-comp_code      =

    • it_accountgl-func_area      =

    • it_accountgl-plant          =

    • it_accountgl-fis_period     =

    • it_accountgl-fisc_year      =

    • it_accountgl-pstng_date     =

    • it_accountgl-value_date     =

    • it_accountgl-customer       =

    • it_accountgl-vendor_no      =

    • it_accountgl-costobject     =

    • it_accountgl-acttype        =

    • it_accountgl-order_itno     =

    • it_accountgl-routing_no     =

    • it_accountgl-activity       =

    • it_accountgl-cond_type      =

    • it_accountgl-cond_count     =

    • it_accountgl-cond_st_no     =

    • it_accountgl-co_busproc     =

    • it_accountgl-asset_no       =

    • it_accountgl-sub_number     =

    • it_accountgl-de_cre_ind     =

    • it_accountgl-p_el_prctr     =

    • it_accountgl-xmfrw          =

    • it_accountgl-po_pr_qnt      =

    • it_accountgl-po_pr_uom      =

    • it_accountgl-po_pr_uom_iso  =

    • it_accountgl-entry_qnt      =

    • it_accountgl-entry_uom      =

    • it_accountgl-entry_uom_iso  =

    • it_accountgl-item_cat       =

    • it_accountgl-matl_type      =

    • it_accountgl-mvt_ind        =

    • it_accountgl-reval_ind      =

    • it_accountgl-orig_group     =

    • it_accountgl-orig_mat       =

    • it_accountgl-serial_no      =

    • it_accountgl-part_acct      =

    • it_accountgl-tr_part_ba     =

    • it_accountgl-trade_id       =

    • it_accountgl-val_area       =

    • it_accountgl-val_type       =

    • it_accountgl-asval_date     =

    • it_accountgl-po_number      =

    • it_accountgl-po_item        =

      append it_accountgl.

     

    endform.                    "fill_accountgl

     

    ----


    •       FORM fill_header                                              *

    ----


    form fill_header.

     

      call function 'OWN_LOGICAL_SYSTEM_GET'

        importing

          own_logical_system = gd_documentheader-obj_sys.

     

    • OBJ_TYPE has to be replaced by customers object key (Y* or Z*)

      gd_documentheader-obj_type   = 'IDOC'.

      gd_documentheader-obj_key    = ref_key.

      gd_documentheader-username   = sy-uname.

      gd_documentheader-header_txt = 'BAPI Test'.               "#EC NOTEXT

    • gd_documentheader-obj_key_r  =

    • GD_DOCUMENTHEADER-reason_rev =

      gd_documentheader-comp_code  = '1000'.

    • GD_DOCUMENTHEADER-AC_DOC_NO  =

      gd_documentheader-fisc_year  = '2007'.

      gd_documentheader-doc_date   = sy-datum.

      gd_documentheader-pstng_date = sy-datum.

    • GD_DOCUMENTHEADER-TRANS_DATE =

    • GD_DOCUMENTHEADER-VALUE_DATE =

    • GD_DOCUMENTHEADER-FIS_PERIOD =

    • GD_DOCUMENTHEADER-DOC_TYPE   =

    • GD_DOCUMENTHEADER-REF_DOC_NO =

    • GD_DOCUMENTHEADER-COMPO_ACC  =

      gd_documentheader-bus_act    = 'RFBU'.

     

    endform.                    "fill_header

     

    ----


    •       FORM fill_contractheader                                     *

    ----


    form fill_contractheader.

     

    • gd_fica_hd-doc_no           =

    • gd_fica_hd-doc_type_ca      =

    • gd_fica_hd-res_key          =

    • gd_fica_hd-fikey            =

    • gd_fica_hd-payment_form_ref =

     

    endform.                    "fill_contractheader

     

    ----


    •       FORM fill_cpd                                                 *

    ----


    form fill_cpd.

     

    • gd_customercpd-name

    • gd_customercpd-name_2

    • gd_customercpd-name_3

    • gd_customercpd-name_4

    • gd_customercpd-postl_code

    • gd_customercpd-city

    • gd_customercpd-country

    • gd_customercpd-country_iso

    • gd_customercpd-street

    • gd_customercpd-po_box

    • gd_customercpd-pobx_pcd

    • gd_customercpd-pobk_curac

    • gd_customercpd-bank_acct

    • gd_customercpd-bank_no

    • gd_customercpd-bank_ctry

    • gd_customercpd-bank_ctry_iso

    • gd_customercpd-tax_no_1

    • gd_customercpd-tax_no_2

    • gd_customercpd-tax

    • gd_customercpd-equal_tax

    • gd_customercpd-region

    • gd_customercpd-ctrl_key

    • gd_customercpd-instr_key

    • gd_customercpd-dme_ind

    • gd_customercpd-langu_iso

     

    endform.                    "fill_cpd

     

    ----


    •       FORM fill_ar                                                  *

    ----


    form fill_accountar.

     

    • CLEAR it_accountreceivable.

    • it_accountreceivable-itemno_acc =

    • it_accountreceivable-customer   =

    • IT_ACCOUNTRECEIVABLE-REF_KEY_1  =

    • IT_ACCOUNTRECEIVABLE-REF_KEY_2  =

    • IT_ACCOUNTRECEIVABLE-REF_KEY_3  =

    • IT_ACCOUNTRECEIVABLE-PMNTTRMS   =

    • IT_ACCOUNTRECEIVABLE-BLINE_DATE =

    • IT_ACCOUNTRECEIVABLE-DSCT_DAYS1 =

    • IT_ACCOUNTRECEIVABLE-DSCT_DAYS2 =

    • IT_ACCOUNTRECEIVABLE-NETTERMS   =

    • IT_ACCOUNTRECEIVABLE-DSCT_PCT1  =

    • IT_ACCOUNTRECEIVABLE-DSCT_PCT2  =

    • IT_ACCOUNTRECEIVABLE-PYMT_METH  =

    • IT_ACCOUNTRECEIVABLE-DUNN_KEY   =

    • IT_ACCOUNTRECEIVABLE-DUNN_BLOCK =

    • IT_ACCOUNTRECEIVABLE-PMNT_BLOCK =

    • IT_ACCOUNTRECEIVABLE-VAT_REG_NO =

    • IT_ACCOUNTRECEIVABLE-ALLOC_NMBR =

    • it_accountreceivable-item_text  =

    • IT_ACCOUNTRECEIVABLE-PARTNER_BK =

    • IT_ACCOUNTRECEIVABLE-GL_ACCOUNT =

    • it_accountreceivable-comp_code

    • it_accountreceivable-bus_area

    • it_accountreceivable-pmtmthsupl

    • it_accountreceivable-paymt_ref

    • it_accountreceivable-scbank_ind

    • it_accountreceivable-businessplace

    • it_accountreceivable-sectioncode

    • it_accountreceivable-branch

    • it_accountreceivable-pymt_cur

    • it_accountreceivable-pymt_cur_iso

    • it_accountreceivable-pymt_amt

    • it_accountreceivable-c_ctr_area

    • it_accountreceivable-bank_id

    • it_accountreceivable-supcountry

    • it_accountreceivable-supcountry_iso

    • it_accountreceivable-tax_code

    • it_accountreceivable-taxjurcode

    • it_accountreceivable-tax_date

    • it_accountreceivable-sp_gl_ind

    • it_accountreceivable-partner_guid = '1465464654'.

    • APPEND it_accountreceivable.

     

    endform.                    "fill_accountar

     

    ----


    •       FORM fill_ap                                                  *

    ----


    form fill_accountap.

     

      clear it_accountpayable.

      it_accountpayable-itemno_acc = 1.

      it_accountpayable-vendor_no  = 'IHCVEN01'.

    • it_accountpayable-gl_account

    • it_accountpayable-ref_key_1

    • it_accountpayable-ref_key_2

    • it_accountpayable-ref_key_3

    • it_accountpayable-comp_code

    • it_accountpayable-bus_area

    • it_accountpayable-pmnttrms

    • it_accountpayable-bline_date

    • it_accountpayable-dsct_days1

    • it_accountpayable-dsct_days2

    • it_accountpayable-netterms

    • it_accountpayable-dsct_pct1

    • it_accountpayable-dsct_pct2

    • it_accountpayable-pymt_meth

    • it_accountpayable-pmtmthsupl

    • it_accountpayable-pmnt_block

    • it_accountpayable-scbank_ind

    • it_accountpayable-supcountry

    • it_accountpayable-supcountry_iso

    • it_accountpayable-bllsrv_ind

    • it_accountpayable-alloc_nmbr

      it_accountpayable-item_text  = 'BAPI Test A/P line item'. "#EC NOTEXT

    • it_accountpayable-po_sub_no

    • it_accountpayable-po_checkdg

    • it_accountpayable-po_ref_no

    • it_accountpayable-w_tax_code

    • it_accountpayable-businessplace

    • it_accountpayable-sectioncode

    • it_accountpayable-instr1

    • it_accountpayable-instr2

    • it_accountpayable-instr3

    • it_accountpayable-instr4

    • it_accountpayable-branch

    • it_accountpayable-pymt_cur

    • it_accountpayable-pymt_amt

    • it_accountpayable-pymt_cur_iso

    • it_accountpayable-sp_gl_ind

     

      append it_accountpayable.

     

    endform.                    "fill_accountap

     

    ----


    •       FORM fill_tax                                                 *

    ----


    form fill_accounttax.

     

      clear it_accounttax.

      it_accounttax-itemno_acc = 3.

      it_accounttax-gl_account = '0000165000'.

      it_accounttax-tax_code   = 'V1'.

      it_accounttax-acct_key   = 'VST'.

    • IT_ACCOUNTTAX-TAXJURCODE =

    • it_accounttax-cond_key   =

    • IT_ACCOUNTTAX-TAX_RATE   =

    • IT_ACCOUNTTAX-TAX_DATE   =

    • IT_ACCOUNTTAX-STAT_CON   =

    • IT_ACCOUNTTAX-taxjurcode_deep

    • IT_ACCOUNTTAX-taxjurcode_level

      append it_accounttax.

     

    endform.                    "fill_accounttax

     

    ----


    •       FORM fill_currencyamount                                      *

    ----


    form fill_currencyamount.

     

      clear it_currencyamount.

      it_currencyamount-itemno_acc   = 1.

      it_currencyamount-curr_type    = '00'.

      it_currencyamount-currency     = 'EUR'.

    • IT_CURRENCYAMOUNT-CURRENCY_ISO =

      it_currencyamount-amt_doccur   = -116.

    • IT_CURRENCYAMOUNT-EXCH_RATE    = .

    • it_currencyamount-amt_base     =

    • IT_CURRENCYAMOUNT-DISC_BASE    =

    • it_currencyamount-exch_rate_v  =

    • it_currencyamount-disc_amt     =

      append it_currencyamount.

     

      clear it_currencyamount.

      it_currencyamount-itemno_acc   = 2.

      it_currencyamount-curr_type    = '00'.

      it_currencyamount-currency     = 'EUR'.

    • IT_CURRENCYAMOUNT-CURRENCY_ISO =

      it_currencyamount-amt_doccur   = '100'.

    • IT_CURRENCYAMOUNT-EXCH_RATE    =

    • it_currencyamount-amt_base    =

    • IT_CURRENCYAMOUNT-DISC_BASE    =

    • it_currencyamount-exch_rate_v =

    • it_currencyamount-disc_amt     =

      append it_currencyamount.

     

      clear it_currencyamount.

      it_currencyamount-itemno_acc   = 3.

      it_currencyamount-curr_type    = '00'.

      it_currencyamount-currency     = 'EUR'.

    • it_currencyamount-currency_iso =

      it_currencyamount-amt_doccur   = '16'.

    • IT_CURRENCYAMOUNT-EXCH_RATE    =

      it_currencyamount-amt_base     = '100'.

    • IT_CURRENCYAMOUNT-DISC_BASE    =

    • IT_CURRENCYAMOUNT-EXCH_RATE_V  =

    • it_currencyamount-disc_amt     =

      append it_currencyamount.

     

    endform.                    "fill_currencyamount

     

    ----


    •       FORM fill_criteria                                            *

    ----


    form fill_criteria.

     

    • CLEAR it_criteria.

    • it_criteria-itemno_acc = 2.

    • it_criteria-fieldname = 'BZIRK'.

    • it_criteria-character = '000001'.

    • append it_criteria.

     

    endform.                    "fill_criteria

     

    ----


    •       FORM fill_valuefield                                          *

    ----


    form fill_valuefield.

     

    • CLEAR it_valuefield.

    • it_valuefield-itemno_acc = 2.

    • it_valuefield-fieldname = 'VV010'.

    • it_valuefield-curr_type

    • it_valuefield-currency = 'EUR'.

    • it_valuefield-currency_iso

    • it_valuefield-amt_valcom

    • it_valuefield-base_uom

    • it_valuefield-base_uom_iso

    • it_valuefield-qua_valcom

    • append it_valuefield.

     

    endform.                    "fill_valuefield

     

    ----


    •       FORM fill_extension                                           *

    ----


    form fill_extension.

     

    • CLEAR it_ext.

    • it_ext-field1

    • it_ext-field2

    • it_ext-field3

    • it_ext-field4

    • APPEND it_ext.

     

    • DATA: ls_zzz TYPE ZZZ_ACCIT.

    • CLEAR it_ext2.

    • it_ext2-structure = 'ZZZ_ACCIT'.

    • ls_zzz-posnr = 2.

    • ls_zzz-awref_reb = '123654'.

    • ls_zzz-aworg_reb = '654654'.

    • ls_zzz-grant_nbr = '0022002'.

    • MOVE ls_zzz TO it_ext2-valuepart1.

    • APPEND it_ext2.

     

    endform.                    "fill_extension

     

    ----


    •       FORM fill_paymentcard                                         *

    ----


    form fill_paymentcard.

     

    • CLEAR it_paymentcard.

    • it_paymentcard-itemno_acc = 1.

    • it_paymentcard-cc_glaccount

    • it_paymentcard-cc_type

    • it_paymentcard-cc_number

    • it_paymentcard-cc_seq_no

    • it_paymentcard-cc_valid_f

    • it_paymentcard-cc_valid_t

    • it_paymentcard-cc_name

    • it_paymentcard-dataorigin

    • it_paymentcard-authamount = '100'.

    • it_paymentcard-currency = 'EUR'.

    • it_paymentcard-currency_iso

    • it_paymentcard-cc_autth_no

    • it_paymentcard-auth_refno

    • it_paymentcard-auth_date

    • it_paymentcard-auth_time

    • it_paymentcard-merchidcl

    • it_paymentcard-point_of_receipt

    • it_paymentcard-terminal

    • it_paymentcard-cctyp = '1'.

    • APPEND it_paymentcard.

     

    endform.                    "fill_paymentcard

     

    ----


    •       FORM fill_contractitem                                        *

    ----


    form fill_contractitem.

     

    • CLEAR it_fica_it.

    • it_fica_it-itemno_acc

    • it_fica_it-cont_acct

    • it_fica_it-main_trans

    • it_fica_it-sub_trans

    • it_fica_it-func_area

    • it_fica_it-fm_area

    • it_fica_it-cmmt_item

    • it_fica_it-funds_ctr

    • it_fica_it-fund

    • append it_fica_it.

     

    endform.                    "fill_contractitem

     

    &----


    *&      Form  fill_re

    &----


    form fill_re .

     

    • CLEAR it_re.

    • it_re-itemno_acc      =

    • it_re-business_entity =

    • it_re-building        =

    • it_re-property        =

    • it_re-rental_object   =

    • it_re-serv_charge_key =

    • it_re-settlement_unit =

    • it_re-contract_no     =

    • APPEND it_re.

    *

     

    endform.                    "fill_re

     

    Text elements :

     

    CHECK_A     Check Document

    CHECK_L     Check Lines

    DEST     Logical system

    POST     Post Document

    REF_KEY     Object key

    REV_C     Check Reversal

    REV_P     Reverse Document

     

    I do not have any idea about this FM,  i got this one from Se37 -> where used list.

     

    Thanks

    Seshu

Actions