| $ tell = "write sys$output"
$ !
$ tell ""
$ tell "-------------------------------------------------------------------------"
$ tell "Cd Transfer Price Determination"
$ tell "-------------------------------------------------------------------------"
$ !
$ pricing_ref = "#" + f$edit(P1,"trim")
$ !
$ read_pricing_code_file:
$ !
$ set message/noident/notext/noseverity/nofacility
$ !
$ Search/output=sys$scratch:first_pass.out tpas$data:pricing_code.dat "''pricing_ref'"
$ !
$ if $severity .ne. 1
$ then
$ tell "Transfer code not found. Please try again.
$ tell ""
$ set message/ident/text/severity/facility
$ !
$ exit
$ endif
$ !
$ set message/ident/text/severity/facility
$ !
$ open/read first_pass sys$scratch:first_pass.out
$ !
$ read first_pass record
$ !
$ pricing_code = f$element(0,",",record)
$ Pricing_method = f$element(1,",",record)
$ pricing_text = f$element(2,",",record)
$ pricing_ref = f$edit(f$element(3,",",record),"trim")
$ !
$ close first_pass
$ !
$ !
$ if pricing_ref .nes. "-"
$ then
$ !
$ tell "''f$extract(1,1,pricing_code)' ''pricing_method' ''pricing_text'"
$ !
$ gosub read_pricing_code_file
$ !
$ else
$ tell "''f$extract(1,1,pricing_code)' ''pricing_method' ''pricing_text'"
$ endif
$ !
$ delete sys$scratch:first_pass.out;*
$ !
$ tell "-------------------------------------------------------------------------"
$ tell ""
$ exit
|
| #S ,Standard Cost +/+ Uplift ,Determined by the Pricing table, -
#D ,Derived MLP -/- MLP Discount,Determined by the Pricing table, -
#M ,Corp MLP -/- MLP Discount ,Determined by the Pricing table, -
#N ,NOR -/- NOR Discount ,Determined by the Pricing table, -
#O ,Order MLP -/- MLP Discount ,Determined by the Pricing table, -
#A ,Derived MLP -/- MLP Discount,Was previously M and Corp MLP <= 0, #M
#B ,Standard Cost + Uplift ,Was previously D and Transfer Price < Standard Cost , #D
#C ,Standard Cost + Uplift ,Was previously M and Transfer Price < Standard Cost , #M
#E ,Standard Cost + Uplift ,Was previously A and Transfer Price < Standard Cost , #A
#F ,Standard Cost ,Transfer Area to = Transfer Area from, -
#G ,Order MLP -/- MLP Discount ,Was previously N and Country AVG NOR <= 0, #N
#H ,Corp MLP -/- MLP Discount ,Was previously O and Order MLP <= 0, #O
#I ,Corp MLP -/- MLP Discount ,Was previously G and Order MLP <= 0, #G
#J ,Derived MLP -/- MLP Discount,Was previously H and Corp MLP <= 0, #H
#K ,Derived MLP -/- MLP Discount,Was previously I and Corp MLP <= 0, #I
#L ,Standard Cost + Uplift ,Was previously G and TP < Standard Cost, #G
#P ,Standard Cost + Uplift ,Was previously H and TP < Standard Cost, #H
#Q ,Standard Cost + Uplift ,Was previously N and TP < Standard Cost, #N
#R ,Standard Cost + Uplift ,Was previously O and TP < Standard Cost, #O
#S ,Standard Cost + Uplift ,Was previously I and TP < Standard Cost, #I
#T ,Standard Cost + Uplift ,Was previously J and TP < Standard Cost, #J
#U ,Standard Cost + Uplift ,Was previously K and TP < Standard Cost, #K
|