连续生产优化

admin

2024-10-22 ef42765827dbd7c60d23dffd9a5bd510d0d76617

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
Quintiq file version 2.0
#parent: #root
Method ValuesPeriodOK () as Boolean id:Method_LibCal_dlgSubscription_ValuesPeriodOK
{
  #keys: '[131094.1.101616702]'
  Body:
  [*
    feedback   := FeedbackObject::LocalFeedback();
    periodKind := "subscription";
    
    // StartOfPeriod must have a value.
    if( datStartOfPeriod.Date().IsInfinite() )
    {
      feedback.AddHard( Translations::Period_InvalidStartOfPeriod( periodKind ) );
    }
    
    // EndOfPeriod must have a value.
    if( ckbEndOfPeriod.Checked() and
        datEndOfPeriod.Date().IsInfinite() )
    {
      feedback.AddHard( Translations::Period_InvalidEndOfPeriod( periodKind ) );
    }
    
    if( feedback.IsAllowed() )
    {
      // EndOfPeriod must be greater than StartOfPeriod.
      startOfPeriod := datStartOfPeriod.Date();
      endOfPeriod   := datEndOfPeriod  .Date();
      
      if( ckbEndOfPeriod.Checked() and
          endOfPeriod < startOfPeriod )
      {
        feedback.AddHard( Translations::Period_EndMustBeGreaterThanStartOfPeriod( periodKind,
                                                                                  startOfPeriod.Format( Translations::DateFormat() ),
                                                                                  endOfPeriod  .Format( Translations::DateFormat() ) ) );
      }
    }
    
    return feedback.IsAllowed();
  *]
}