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 |