admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
Quintiq file version 2.0
#parent: #root
StaticMethod ValidateEquals (LibUTF_IterationRun run, Boolean checkequals, NamedValueTree sourcenvt, 
  NamedValueTree comparenvt, String text)
{
  Description:
  [*
    checkequals : true means check if the compartnvt matches value(s) in the sourcenvt. False means does not match.
    sourcenvt : original instance nvt for comparison
    comparenvt : nvt containing values to compare with the sourcenvt
  *]
  TextBody:
  [*
    comparenode := comparenvt.Root();
    
    traverse( comparenode.Children(), Elements, targetnv )
    {
      sourcenode := sourcenvt.Root();
      sourcenv := select( sourcenode.Children(), Elements, e, e.Name() = targetnv.Name() );
      if( not isnull( sourcenv ) )
      {
        name := targetnv.Name();
        if( name.StartsWith( 'Z_' ) )
        {
          name := name.SubString( 2, name.Length() - 2 );
        }
        newtext := text + '. Validating value for: ' + name;
        UI_Utility::CompareNamedValue( run, checkequals, sourcenv, targetnv, newtext );
      }
    }
  *]
}