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
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method CreateDatabaseSyncErrorObjects 
 |  { 
 |    TextBody: 
 |    [* 
 |      // CKH2 Aug-25-2016 (created) 
 |      alldberror := selectset( this, DatabaseSyncErrorMPSync, er, true, true ); 
 |      updatederror := construct( DatabaseSyncErrorMPSyncs ); 
 |       
 |      objectdefinitions := selectuniquevalues( this, IOBase, b, true, b.DefinitionName() ); 
 |       
 |      traverse( objectdefinitions, Elements, obj ) 
 |      { 
 |        nroferror := counter( this, IOBase, b, b.DefinitionName() = obj, not b.IsValid() ); 
 |         
 |        if( nroferror > 0 ) 
 |        { 
 |          updatederror.Add( DatabaseSyncErrorMPSync::CreateOrUpdate( this, obj, nroferror ) ); 
 |        } 
 |      } 
 |       
 |      tobedeleted := alldberror.Difference( updatederror ); 
 |       
 |      traverse( tobedeleted, Elements, er ) 
 |      { 
 |        er.Delete(); 
 |      } 
 |    *] 
 |  } 
 |  
  |