bugfix

yypsybs

2023-09-22 585b0c8daf1305c498186609fb82b79c12a02e29

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
Quintiq file version 2.0
#parent: #root
Method OnOk () id:Method_DialogCreateEditActualPISPIP_OnOk
{
  #keys: '[139394.1.1046089763]'
  Body:
  [*
    // On ok
    this.ApplyChanges();
    data := DataHolderDialogData.Data();
    
    // New actual
    if( isnull( data.WrappedInstance() ) )
    {
      ActualProductInStockingPointInPeriod::Create( MacroPlan,
                                                    data.ProductInStockingPoint_MP().Product_MP(),
                                                    data.ProductInStockingPoint_MP().StockingPoint_MP(),
                                                    dsDate.Date(),
                                                    dsManufacturedDate.Date(),
                                                    ApplicationMacroPlanner.FormatStringToReal( efQuantity.Text() ),
                                                    efDescription.Text(),
                                                    false /*isfromdb*/ );  
    }
    // Edit
    else
    {
      if( DataHolderDialogDatas.Data().Size() = 1 )
      {
        data.WrappedInstance().Update( data.ProductInStockingPoint_MP().Product_MP(),
                                       data.ProductInStockingPoint_MP().StockingPoint_MP(),
                                       dsDate.Date(),
                                       dsManufacturedDate.Date(),ApplicationMacroPlanner.FormatStringToReal( efQuantity.Text() ),
                                       efDescription.Text(),
                                       false /*isfromdb*/ );
      }
      // Batch
      else
      {
        ActualProductInStockingPointInPeriod::Update( DataHolderDialogDatas.Data(),
                                                      cbBatchEditQuantity.Checked(),
                                                      data.ActualInventoryLevelEnd(),
                                                      cbBatchEditDescription.Checked(),
                                                      data.Description(),
                                                      false );
      }
    }
    
    this.Close();
  *]
}