13 lines
407 B
ABAP
13 lines
407 B
ABAP
REPORT {{p}}optic_quote_rpt.
|
|
|
|
DATA lo_pricer TYPE REF TO {{p}}glasses_pricer.
|
|
DATA lv_price TYPE {{p}}glasses_pricer=>ty_amount.
|
|
|
|
lo_pricer = NEW #( ).
|
|
lv_price = lo_pricer->price( iv_frame = CONV {{p}}glasses_pricer=>ty_amount( '120.00' )
|
|
iv_lens = 'P'
|
|
iv_coat = 'A'
|
|
iv_qty = 2 ).
|
|
|
|
WRITE: / 'Quotation:', lv_price.
|