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

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
Quintiq file version 2.0
#parent: #root
Method UpdateValueType
{
  TextBody:
  [*
    // Needed for the check below
    Transaction::Transaction().Propagate( attribute( TG_UIField, AttributeBinding ) );
    
    objectattribute := minselect( DomainModel::Domain(), ModeledAttributes.Elements, mattr,
                                  mattr.Name() = this.AttributeBinding(),
                                  not exists( this, TG_UIDialog.TG_UIDialogToUIObject.TG_UIObject, uio,
                                              uio.Name() = mattr.ObjectDefinition().Name() ) );
    
    if( not isnull( objectattribute ) )
    {
      uiobject := select( this, TG_UIDialog.TG_TestGenerator.TG_UIObject, uio,
                          uio.Name() = objectattribute.ObjectDefinition().Name() );
      
      if( isnull( uiobject ) )
      {
        TG_UIObject::FindOrCreate( this.TG_UIDialog().TG_TestGenerator(),
                                   objectattribute.ObjectDefinition().Name(),
                                   objectattribute.ObjectDefinition().Name() );
      }
      
      this.TG_UIDialog().AddUIObject( uiobject );
      this.ValueType( objectattribute.ValueType().Name() );
    }
    else
    {
      // For most cases, these are 'relation' binding, e.g. from selection component.
      this.ValueType( 'String' ); // TODO
    }
  *]
}