lazhen
2024-11-25 a35a334af2f2c626538e0f6245a36f1ce5a5536f
_Main/BL/Type_InventoryPlanArchiveRow/Method_SetQuantity.qbl
@@ -9,7 +9,12 @@
  TextBody:
  [*
    // 甄兰鸽 Jun-24-2024 (created)
    cell := selectobject( this, Cell, cell, cell.Column() = column );
    cell        := selectobject( this, Cell, cell, cell.Column() = column );
    if( isnull( cell ) ){
      cell      := this.Cell( relnew, PlanQuantity := 0, ActualQuantity := 0 );
      column.Cell( relinsert, cell );
    }
    cell.PlanQuantity( cell.PlanQuantity() + planqty );
    cell.ActualQuantity( cell.ActualQuantity() + actualaty );
  *]