vwed 初始化

chenqinghong

2024-05-07 3ec06a830367465068963156dcc1d8e522571c13

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
Quintiq file version 2.0
#parent: #root
Method NewSalesSegment (
  internal[GUIComponent] parent,
  SalesSegment_MP parentsalessegment
) as SalesSegment_MP id:Method_DialogCreateEditSalesSegment_NewSalesSegment
{
  #keys: '[107654.0.932618397]'
  Body:
  [*
    // New sales segment
    
    DataHolderParentSalesSegment.Data( parentsalessegment );
    
    // if no sales segment has been created before
    if ( isnull( DataHolderParentSalesSegment.Data() ) )
    {
      CheckBoxParentSalesSegment.Enabled( false );
      CheckBoxParentSalesSegment.Checked( false );
      SelectionParentSalesSegment.Enabled( false );
    }
    else
    {
      SelectionParentSalesSegment.BoundValue( DataHolderParentSalesSegment.Data().Name() );
      SelectionParentSalesSegment.Enabled( true );
      CheckBoxParentSalesSegment.Checked( true );
    }
    result := this.DoModal( parent );
    
    newobj := null( SalesSegment_MP );
    
    if( result > 0 )
    {
      displayindex := 0;
      if( EditorIndex.Text().Length() > 0 )
      {
        displayindex := [Number] EditorIndex.Text();
      }
      parentsalessegment := null ( SalesSegment_MP );
      if ( CheckBoxParentSalesSegment.Checked() )
      {
        parentsalessegment := SelectionParentSalesSegment.Data();
      }
      newobj := SalesSegment_MP::Create( MacroPlan, parentsalessegment, EditorName.Text(), displayindex, false );
    }
    return newobj;
  *]
}