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
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();
    }
  *]
}