| | |
|---|
| | | unit := selectobject( macroplan, Unit, unit, unit.ID() = excel.Unit() ); |
|---|
| | | feedback := ''; |
|---|
| | | if( ChangeLossSetting::ValidateInput( feedback, macroplan, null( ChangeLossSetting ), unit, product1, product2, excel.StartDate(), excel.EndDate(), excel.ChangeLossNumber() ) ){ |
|---|
| | | cls := macroplan.ChangeLossSetting( relnew, ChangeLossNumber := [Real]excel.ChangeLossNumber() ); |
|---|
| | | cls := macroplan.ChangeLossSetting( relnew, ChangeLossNumber := [Real]excel.ChangeLossNumber(), StartDate := excel.StartDate(), EndDate := excel.EndDate() ); |
|---|
| | | |
|---|
| | | cls.ProductFirst( relset, product1 ); |
|---|
| | | cls.ProductSecond( relset, product2 ); |
|---|
| | |
|---|
| | | error( feedback ); |
|---|
| | | } |
|---|
| | | }else { |
|---|
| | | cls.StartDate( excel.StartDate() ); |
|---|
| | | cls.EndDate( excel.EndDate() ); |
|---|
| | | cls.ChangeLossNumber( [Real]excel.ChangeLossNumber() ); |
|---|
| | | } |
|---|
| | | info( '-------------------', cls.ChangeLossNumber() ); |
|---|
