haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
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
Quintiq file version 2.0
#parent: #root
Method ResponseOpensDialog (ModeledResponseQuillImplementation impl, output Boolean menuopensdialog, output String dialogdatabinding) id:Method_GlobalStateTestGenerator_ResponseOpensDialog
{
  #keys: '[142876.9.501684863]'
  Body:
  [*
    value := impl.Body();
    value := value.ReplaceAll( ' ', '' );
    
    constructtext := 'construct(';
    start := value.FindString( constructtext, 0 );
    
    if( start >= 0 )
    {
      end := value.FindString( ')', start );
      text := value.SubString( start + constructtext.Length(), end - start - constructtext.Length() );
    
      try
      {
        x := construct( Dialog, text );
        menuopensdialog := not isnull( x );
        
        dialogorder := select( ApplicationScope.Project().ComponentRegistry().GetAllComponents(),
                               Elements,
                               mcd,
                               mcd.Name() = text );
        
        dialogdatabinding := dialogorder.DataBinding().DataBinding();
      }
      onerror
      {
      }
    }
  *]
}