actual关键物料判断

haorenhui

2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c

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
43
44
45
46
47
48
49
50
51
52
53
54
55
Quintiq file version 2.0
#parent: #root
Method DetermineOverlap (LibOpt_UIGraphArc arc) const declarative remote as Number
{
  TextBody:
  [*
    a_left  := min( this, UIGraphArcPoint, point, true, point.X() );
    a_right := max( this, UIGraphArcPoint, point, true, point.X() );
    
    b_left  := min( arc, UIGraphArcPoint, point, true, point.X() );
    b_right := max( arc, UIGraphArcPoint, point, true, point.X() );
    
    value := LibOpt_UIGraphArc::NoOverlap();
    if( a_left < b_left )
    {
      if( a_right >= b_right )
      {
        value := LibOpt_UIGraphArc::OverlapOuter();
      }
      else if( b_left < a_right )
      {
        value := LibOpt_UIGraphArc::OverlapLeft();
      }
    }
    else if( a_left = b_left )
    {
      if( a_right < b_right )
      {
        value := LibOpt_UIGraphArc::OverlapInner();
      }
      else if( a_right = b_right )
      {
        value := LibOpt_UIGraphArc::OverlapEqual();
      }
      else
      {
        value := LibOpt_UIGraphArc::OverlapOuter();
      }
    }
    else
    {
      if( a_right <= b_right )
      {
        value := LibOpt_UIGraphArc::OverlapInner();
      }
      else if( a_left < b_right )
      {
        value := LibOpt_UIGraphArc::OverlapRight();
      }
    }
    
    return value;
  *]
  InterfaceProperties { Accessibility: 'Module' }
}