1
2
3
4
5
6
7
8
9
10
11
12
13
14
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method CheckChecksum () as Boolean 
 |  { 
 |    Description: 'Check data integrity of the payload contained in this data piece, returns true if good.' 
 |    TextBody: 
 |    [* 
 |      binaryData := this.Payload().AsBinaryData(); 
 |      md5        := binaryData.MD5().AsBinaryValue(); 
 |       
 |      return this.PayloadChecksum() = md5; 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |