| | |
|---|
| | | |
|---|
| | | data := dhDialogData.Data(); |
|---|
| | | |
|---|
| | | //if( isnull( data.WrappedInstance() ) ) // New |
|---|
| | | //{ |
|---|
| | | // // When create product, parent relation must be null (as server method has logic to detect parent change using this relation) |
|---|
| | | // data.Parent( relflush ); |
|---|
| | | // data.Commit(); |
|---|
| | | // dhForm.Data().ListEventType().SelectByKey( data.WrappedInstance().Key() ); |
|---|
| | | //} |
|---|
| | | //else |
|---|
| | | //{ |
|---|
| | | // LibCal_EventType::Update( dhDialogData.Data().WrappedInstance(), efID.Text(), efName.Text() |
|---|
| | | // ,guard( selParent.Data(), null( LibCal_EventType ) ) ); |
|---|
| | | //} |
|---|
| | | newroutings := Routing::ThermalTrialRatio( data, [Number]efMaxCapacity.Text(), dsStartTime.Date(), dsEndTime.Date(), [Number]efThermalTrialRatio.Text() ); |
|---|
| | | |
|---|
| | | ApplicationMacroPlanner.SelectListObjects( dhForm.Data().ListRoutings(), newroutings ); |
|---|
| | | |
|---|
| | | this.Close(); |
|---|
| | | *] |
|---|
