yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
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
Quintiq file version 2.0
#parent: #root
Method MPSyncCurrency_MP (
  Boolean isoverwritemanualconfig,
  IOCurrency_MPs iocurrency_mps
)
{
  Description: 'Synchronization of Currency_MP for MPSync'
  TextBody:
  [*
    // Select a set of existing Currency_MP
    existing := selectset( this, Currency_MP, item, true );
    updates := construct( Currency_MPs );
    
    // Traverse the new set of valid Currency_MP
    traverse( iocurrency_mps , Elements, io, io.IsValid()  )
    {
      indexkey := io.ID();
      // Find existing Currency_MP
      objectinstance := Currency_MP::FindCurrencyTypeIndex( indexkey );
      
      // If no existing Currency_MP is found, create one
      if( isnull( objectinstance ) )
      {
        objectinstance := Currency_MP::Create( indexkey,
                                               this, 
                                               io.Name(),
                                               io.Symbol(),
                                               io.IsBase(),
                                               true );
      }
      // Else if the Currency_MP is not manually configured or the imported instance should overwrite manual configuration,
      // update the existing Currency_MP
      else if( not objectinstance.IsManuallyConfigured() or isoverwritemanualconfig )
      {
        // Update Currency_MP
        objectinstance.Update( io.ID(), io.Name(), io.Symbol(), io.IsBase(), true );
        updates.Add( objectinstance );
      }
      
      // If existing Currency_MP is found or a new one is created, synchronize CurrencyRate_MP
      if( not isnull( objectinstance ) )
      {
        objectinstance.CustomUpdate( io, isoverwritemanualconfig ); 
        this.MPSyncCurrencyRate_MP( isoverwritemanualconfig, io, objectinstance );
      }
    }
    
    // Get the set of old Currency_MP to be deleted
    tobedeleteset := existing.Difference( updates );
    
    // Traverse the set of Currency_MP to be deleted
    // Only delete Currency_MP that is not manually configured or the imported instance should overwrite manual configuration
    traverse( tobedeleteset, Elements, ele,
              not ele.IsManuallyConfigured() or isoverwritemanualconfig )
    {
      ele.Delete();
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}