机加管线报表库存计算参数入场离场数量计算

lazhen

2025-01-09 8afe90b633046db39042aada36b88193062f8cff

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Quintiq file version 2.0
#parent: #root
Method ParseMenu (Menu component) id:Method_GlobalStateTestGenerator_ParseMenu_22
{
  #keys: '[142876.9.493604446]'
  Body:
  [*
    name := '';
    title := '';
    formkey := Key::ZeroKey();
    dialogkey := Key::ZeroKey();
    
    if( component.istype( ComponentMenu ) )
    {
      name := component.astype( ComponentMenu ).GetProperty( 'ComponentType' );
      GlobalStateTestGenerator.GetFormProperties( name, title, formkey );
    }
    else
    {
      name := component.Text();
      title := '{TODO_TITLE}'; // TODO
      
      componentname := component.Display().Tokenize( '.' ).Reverse().Element( 0 );
      cd := select( ApplicationScope.Project().ComponentRegistry().GetAllComponents(),
                    Elements,
                    mcd,
                    mcd.Name() = componentname );
      
      if( not isnull( cd ) )
      {
        dialogname := '';
        traverse( cd.Responses(), Responses, response,
                  dialogname = '' )
        {
          impl := response.Implementation().astype( ModeledResponseQuillImplementation );
          dialogname := GlobalStateTestGenerator.GetDialogNameFromResponse( impl );
        }
        
        if( dialogname <> '' )
        {
          try
          {
            newdialog := construct( Dialog, dialogname );
            name := dialogname;
            dialogkey := newdialog.Key();
            title := newdialog.Title();
          }
          onerror
          {
          }
        }
      }
    }
    
    if( formkey <> Key::ZeroKey() )
    {
      try
      {
        newform := construct( Form, name );
        form := TG_UIForm::FindOrCreate( TestGenerator, name, title, formkey );
        GlobalStateTestGenerator.ParseForm( form, newform );
      }
      onerror
      {
        newdialog := construct( Dialog, name );
        dialogkey := newdialog.Key();
        
        dialog := TG_UIDialog::FindOrCreate( TestGenerator, name, title, dialogkey );
        GlobalStateTestGenerator.ParseDialog( dialog, construct( Dialog, name ) );
      }
    }
    else if( dialogkey <> Key::ZeroKey() )
    {
      dialog := TG_UIDialog::FindOrCreate( TestGenerator, name, title, dialogkey );
      GlobalStateTestGenerator.ParseDialog( dialog, construct( Dialog, name ) );
    }
    
    traverse( component, SubComponents.astype( Menu ), child )
    {
      this.ParseMenu( child );
    }
  *]
}