FXApp/ws_objects/app_base.pbl.src/f_price_order_poexpr.srf

$PBExportHeader$f_price_order_poexpr.srf
global type f_price_order_poexpr from function_object
end type

forward prototypes
global function decimal f_price_order_poexpr (string arg_poexpr)
end prototypes

global function decimal f_price_order_poexpr (string arg_poexpr);Decimal ld_price

If Pos(arg_poexpr,'=') > 0 Then
	ld_price = Dec(Trim(Mid(arg_poexpr , (Pos(arg_poexpr , '=') + 1))))
Else
	ld_price = 0
End If

Return ld_price


end function