| | |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | //库存在途数据 |
|---|
| | | traverse( owner, Unit.Lane.LaneLeg, laneleg ){ |
|---|
| | | originspid := laneleg.OriginStockingPointID(); |
|---|
| | | //起始地是长春 |
|---|
| | | isccorigin := originspid.StartsWith( '长春' ) or originspid.StartsWith( 'CC' ); |
|---|
| | | //起始地是大连 |
|---|
| | | isdlorigin := originspid.StartsWith( '大连' ) or originspid.StartsWith( 'DL' ); |
|---|
| | | if( isccorigin and isdlorigin ){ |
|---|
| | | traverse( laneleg, Trip, trip, trip.LeadTime().Days() > 1 ){ |
|---|
| | | for( transferdate := trip.Departure() + Duration::Days( 1 ); transferdate < trip.Arrival(); transferdate := transferdate + Duration::Days( 1 ) ){ |
|---|
| | | daycolumn := selectobject( table, InventorySummaryColumn, column, column.StartDate() = transferdate.Date(), column.TimeUnit() = Translations::MP_GlobalParameters_Day() ); |
|---|
| | | traverse( trip, ProductInTrip, pit, pit.Quantity() <> 0 ){ |
|---|
| | | //获取工厂行 |
|---|
| | | factoryrow := table.GetRow( ifexpr( isccorigin, ccunit, dlunit ), pit.Product_MP() ); |
|---|
| | | //获取合计行 |
|---|
| | | allrow := table.GetRow( allunit, pit.Product_MP() ); |
|---|
| | | quantity := [Number]pit.Quantity(); |
|---|
| | | factoryrow.SetCellValue( daycolumn, quantity ); |
|---|
| | | allrow.SetCellValue( daycolumn, quantity ); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | rows := selectsortedset( table, InventroySummaryRow, row, row.Name() ); |
|---|
| | | i := 0; |
|---|
| | | traverse( rows, Elements, e ){ |
|---|
