| | |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | | //根据当前版本的装配上线计划 |
|---|
| | | interface.AssemblyOnlinePlanVersion( relflush ); |
|---|
| | | //interface.AssemblyOnlinePlanVersion( relflush ); |
|---|
| | | allunit := AssemblyOnlinePlanVersion::GetDefaultAllUnit(); |
|---|
| | | name := AssemblyOnlinePlanVersion::GetDefaultName();//search := |
|---|
| | | interface.AssemblyOnlinePlanVersionSearch( relnew, Product := allunit, ProductionLine := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );//, TimeUnit := Translations::MP_GlobalParameters_Day() |
|---|
| | |
|---|
| | | } |
|---|
| | | traverse( macroPlan, NewAssemblyOnlinePlanRow, aoprow, aoprow.Type() = '1' ){ |
|---|
| | | row := table.GetRow( aoprow ); |
|---|
| | | traverse( table, Column, column ){//, aopcolumns.Find( column.StartDate() ) > -1 |
|---|
| | | traverse( table, Column, column, exists( aopcolumns, Elements, e, e = column.StartDate() ) ){//, aopcolumns.Find( column.StartDate() ) > -1 |
|---|
| | | qty := sum( aoprow, NewAssemblyOnlinePlanCell, aopcell, column.StartDate() <= aopcell.NewAssemblyOnlinePlanColumn().StartDate() |
|---|
| | | and column.EndDate() >= aopcell.NewAssemblyOnlinePlanColumn().StartDate(), aopcell.Quantity() ); |
|---|
| | | |
|---|
| | | cell := selectobject( row, Cell, cell, cell.Column() = column ); |
|---|
| | | if( isnull( cell ) ){ |
|---|
| | | cell := column.Cell( relnew, InventoryWeight := 0, ProductionSerialNumber := 0, Quantity := 0, Shift := '', Value := '' ); |
|---|
| | | row.Cell( relinsert, cell ); |
|---|
| | | } |
|---|
| | | cell.Quantity( qty ); |
|---|
| | | } |
|---|
| | | } |
|---|
