yypsybs
2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Quintiq file version 2.0
#parent: #root
Method MPSyncOperationLink (
  Boolean isoverwritemanualconfig,
  IOOperationLinks iooperationlinks
)
{
  Description: 'Synchronization of OperationLink for MPSync'
  TextBody:
  [*
    // Select a set of existing OperationLink
    existing := selectset( this, Unit.Operation.SourceOperationLink, item, true );
    updates := construct( OperationLinks );
    
    // Traverse the new set of valid OperationLink
    traverse( iooperationlinks , Elements, io, io.IsValid() )
    {
      source := io.SourceOperationID();
      dest := io.DestOperationID();
      // Find existing OperationLink
      objectinstance := OperationLink::FindOperationLinkTypeIndex( source, dest );
      // Find existing source Operation
      sourceop := Operation::FindOperationTypeIndex( source );
      // Find existing destination Operation
      destop := Operation::FindOperationTypeIndex( dest );
      
      // If no existing OperationLink is found, and there's valid source and destination Operation, create one
      if( isnull( objectinstance ) )
      {
        if( not ( isnull( sourceop ) or isnull( destop ) ) )
        {
          objectinstance := OperationLink::Create( sourceop, 
                                                   destop,
                                                   io.SourceGroupID(),
                                                   io.DestGroupID(),
                                                   io.SourceQuantity(),
                                                   io.DestHasUserQuantity(),
                                                   io.DestQuantity(),
                                                   io.DestMinQuantity(),
                                                   io.DestMaxQuantity(),
                                                   io.DestGroupQuantity(), 
                                                   true,
                                                   false );
        }
      }
      // Else if the OperationLink is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing OperationLink
      else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
      {
        // Update OperationLink
        objectinstance.Update( sourceop,
                               destop,
                               io.SourceGroupID(),
                               io.DestGroupID(),
                               io.SourceQuantity(),
                               io.DestHasUserQuantity(),
                               io.DestQuantity(),
                               io.DestMinQuantity(),
                               io.DestMaxQuantity(),
                               io.DestGroupQuantity(), 
                               true,
                               false );
        
        updates.Add( objectinstance );
      }
      
      if( not isnull( objectinstance ) )
      {
        // Extended method
        objectinstance.CustomUpdate( io, isoverwritemanualconfig );
      }
    }
    
    // Get the set of old OperationLink to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of OperationLink to be deleted
    // Only delete OperationLink that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
}