Purpose Call with tables and structures (BAPI_SALESORDER_GETDETAILBOS) We want to call up a BAPI function, passing and returning values in structures and tables. |
// Order header InputField (4,3) "Customer" (4,23) size=10 name="orderheader.sold_to" -readonly InputField (4,37) -nolabel size=61 name="customername" -readonly InputField (5,3) "Date" (5,23) size=10 name="orderheader.doc_date" -readonly InputField (6,3) "Reference" (6,23) size=40 name="orderheader.purch_no" -readonly InputField (7,3) "Net Value" (7,23) size=16 name="orderheader.net_val_hd" -readonly InputField (7,40) -nolabel size=8 -readonly name="orderheader.currency" -readonly // Items fixedColumns=6 -singlerowselection Column "Item" size=6 name="itm_number" -readonly Column "Material" size=18 name="material" -readonly Column "Text" size=36 name="short_text" -readonly Column "Quantity" size=12 name="req_qty" -readonly Column "Unit" size=6 name="sales_unit" -readonly Column "Net Value" size=16 name="subtot_pp1" -readonly
// items itm_number material short_text req_qty sales_unit subtot_pp1 // partners CreateTable V[orderpartners] include=V[orderpartner] // addresses CreateTable V[orderaddresses] include=V[orderaddress] // read order export.SALESDOCUMENT="vbeln" _ import.ORDERHEADER="orderheader" _ import.ORDERADDRESS="orderaddresses" _ import.ORDERPARTNERS="orderpartners" _ import.ORDERITEMS="orderitems" // Display currency value with 2 decimal places decimals=2 decimalseparator="UserDefault" // Items label next_pos if V[k<&V[orderitems.rowcount]] Set V[k] &V[k] + 1 // Display quantity as integer value if no decimals (BAPI returns 3 decimals) Set V[orderitems.req_qty.&V[k]] "&V[orderitems.req_qty.&V[k]]" * 1 _ decimalseparator="UserDefault" // Display currency value with 2 decimal places Set V[orderitems.subtot_pp1.&V[k]] "&V[orderitems.subtot_pp1.&V[k]]" * 1 _ decimals=2 decimalseparator="UserDefault" goto next_pos endif // address number from partner table // address from address table via address number // set customer adress data Return |
Components |