| | |
|---|
| | | Quintiq file version 2.0 |
|---|
| | | #parent: #root |
|---|
| | | Method OnOK () id:Method_DialogCreateEditThermalTrialRatio_OnOK |
|---|
| | | Method OnOK () id:Method_DialogCreateEditHotTestRatio_OnOK |
|---|
| | | { |
|---|
| | | #keys: '[415136.0.762562093]' |
|---|
| | | Body: |
|---|
| | |
|---|
| | | |
|---|
| | | 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, ddlUnit.Data(), [Number]efMaxCapacity.Text(), dsStartTime.Date(), dsEndTime.Date(), [Number]efThermalTrialRatio.Text() ); |
|---|
| | | info( '------------web---------------' ); |
|---|
| | | traverse( newroutings, Elements, e ){ |
|---|
| | | info( e.Key(), e.Name() ); |
|---|
| | | } |
|---|
| | | ApplicationMacroPlanner.SelectListObjects( dhForm.Data().ListRoutings(), newroutings ); |
|---|
| | | |
|---|
| | | this.Close(); |
|---|
| | | *] |
|---|
