Get and Set data in context

Question

Hello Everyone,
I am new to Webdynpro ABAP world. I have got a requirement where I need to get data from a value node "Document" created by me and Assign the values to three different nodes during runtime on Action of a Button. My context structure is as follows. Please help me by giving some code for my requirement. I would appreciate your help.
Context Structure----
Context
---DocumentHeader(Model Node)
---AccountGL(Model Node)
---AccountPayable(Model Node)
---CurrencyAmount(Model Node)
---Document(Value Node)
AMT_DOCCUR(Value Attribute)
Costcenter(Value Attribute)
GL_Account(Value Attribute)
Header_Txt(Value Attribute)
Ref_Doc_No(Value Attribute)
Vendor_No(Value Attribute)
The "Document" node is bound to a Table in "Main_Document" view and the document table is filled with data during runtime. I want to get the values of the attributes from Document node and assign them to other Model nodes that are bound to a BAPI.
Please help me with some code to acheive this requirement. I would appreciate your help.
I hope you can understand my requirement. Please do let me know if my explanation is not clear and I will try to explain in more detail.
Regards,
Gopal.

Answer 1

---AccountGL(Model Node) - table lt_accountgl should be   bound to this.
---AccountPayable(Model Node)- lt_account_payaable
---CurrencyAmount(Model Node)-lt_cuurency_amt
As per your code, read the above nodes and bind the tables to respective nodes.
method ONACTIONPOSTDOCUMENT .
  DATA lo_nd_document TYPE REF TO if_wd_context_node.
  DATA lt_documents TYPE wd_this->elements_document.
  DATA lo_nd_accountgl TYPE REF TO if_wd_context_node.
*   navigate from <CONTEXT> to <DOCUMENT> via lead selection
  lo_nd_document = wd_context->get_child_node( name = wd_this->wdctx_document ).
  lo_nd_accountgl = wd_context->get_child_node( name = wd_this->wdctx_accountgl ).---acountGL node
* get the contents of  the document node in an internal table
  lo_nd_document->get_static_attributes_table(  importing table = lt_documents ).
  Data: ls_documentheader type BAPIACHE09,
        lt_accountpayable type table of BAPIACAP09,
        ls_accountpayable type BAPIACAP09,
        lt_accountGL type table of BAPIACGL09,
        ls_accountGL type BAPIACGL09,
        lt_currencyamount type table of BAPIACCR09,
        ls_currencyamount type BAPIACCR09.
  loop at lt_documents into ls_documents.
* header data
    ls_documentheader-HEADER_TXT = ls_documents-HEADER_TXT.
    ls_documentheader-Ref_Doc_No = ls_documents-Ref_Doc_No.
* accounts payable data
    ls_accountpayable-vendor_no = ls_documents-vendor_no.
    append ls_accountpayable to lt_accountpayable.
* account GL data
    ls_accountGL-GL_Account = ls_documents-GL_Account.
    ls_accountGL-Costcenter = ls_documents-Costcenter.
    append ls_accountGL to lt_accountGL.
lo_nd_accountgl->bind_table( lt_accountgl ).  -----------Similarly do for other 2 nodes.
Currency items
    ls_currencyamount-AMT_DOCCUR = ls_documents-feildname
    append ls_currencyamount to lt_currencyamount.
    clear append ls_currencyamount.
    ls_currencyamount-AMT_DOCCUR = ls_documents-feildname * -1.
    append ls_currencyamount to lt_currencyamount.
    DATA lo_COMPONENTCONTROLLER TYPE REF TO IG_COMPONENTCONTROLLER .
    lo_COMPONENTCONTROLLER =   wd_this->get_componentcontroller_ctr( ).
    lo_componentcontroller->execute_bapi_acc_document_post(
    DATA lo_COMPONENTCONTROLLER TYPE REF TO IG_COMPONENTCONTROLLER .
    lo_COMPONENTCONTROLLER =   wd_this->get_componentcontroller_ctr( ).
    lo_componentcontroller->execute_bapi_transaction_commi(
Refresh all the tables before the next recoed
    refresh: lt_accountpayable,lt_accountpayable.
    clear:ls_documentheader,ls_accountpayable,ls_accountpayable.
  endloop.
endmethod
Edited by: Lekha on Sep 2, 2009 2:34 PM