PR

yypsybs

2023-09-13 795184402d79c6c4ce7bb7cb0babfcb175c51982

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Quintiq file version 2.0
#parent: pnlStartTime_844/durStartTimeOfDay
Response OnChanged () id:Response_pnlStartTime_844_durStartTimeOfDay_OnChanged
{
  #keys: '[131094.1.128259814]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebDateTimeFieldBase_OnChanged'
  QuillAction
  {
    Body:
    [*
      // If not AllDay, adjust the EndTimeOfDay accordingly.
      // When EndTimeOfDay is not changed, UpdateDuration must be done from here.
      updateDuration := true;
      
      if( not ckbIsAllDay.Checked() )
      {
        delta := this.Duration() - dhStartTimeOfDay.Data();
        
        if( delta <> Duration::Zero() )
        {
          endTimeOfDay := durEndTimeOfDay.Duration() + delta;
      
          // Also adjust dsEndDate if necessary.    
          dsEndDate.Date( dsEndDate.Date() + endTimeOfDay.Days() );
          durEndTimeOfDay.Duration( endTimeOfDay - Duration::Days( endTimeOfDay.Days() ) );
      
          // Update the 'memory' for later delta-calculation, and/or setting the time back when AllDay is turned off.
          dhStartTimeOfDay.Data( this.Duration() );
          
          updateDuration := false;
        }
      }
      
      if( updateDuration )
      {
        Form.UpdateDuration();
      }
    *]
    GroupServerCalls: false
  }
}