| | |
| | | Date startdate, |
| | | Date enddate, |
| | | String executor, |
| | | String feedback |
| | | String feedback, |
| | | Boolean isPush |
| | | ) as InterfaceLoginfo |
| | | { |
| | | TextBody: |
| | |
| | | if( not exists( productids, Elements, e, e = row.ProductID() ) ){ |
| | | productids.Add( row.ProductID() ); |
| | | } |
| | | pirdata := selectobject( pir, PIRData, pirdata, pirdata.Product() = row.ProductID() and pirdata.PlanningDate() = column.StartDate() ); |
| | | pirdata := select( pir, PIRData, pirdata, pirdata.Product() = row.ProductID() and pirdata.PlanningDate() = column.StartDate() ); |
| | | if( isnull( pirdata ) ){ |
| | | pirdata := pir.PIRData( relnew, Product := row.ProductID(), PlanningDate := column.StartDate(), PlanningQty := 0, Werk := rowwerk ); |
| | | } |
| | |
| | | } |
| | | } |
| | | loginfo.TotalRow( pir.PIRData( relsize ) ); |
| | | feedback := AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo ); |
| | | |
| | | if ( isPush ) { |
| | | feedback := AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo ); |
| | | } |
| | | |
| | | return loginfo; |
| | | *] |
| | | } |