| | |
| | | |
| | | if( not source.IsExistFutureMonthData() or |
| | | ( source.IsExistFutureMonthData() and WebMessageBox::Question( this, Translations::MP_FinancialProductionReport_Question(), 'Yes|No' ) = 0 ) ){ |
| | | FinancialSalesSource::InitializeNew( MacroPlan ); |
| | | FinancialProductionSource::Initialize( MacroPlan ); |
| | | source.AfterImport(); |
| | | DataHolderTable.Data( FinancialProductionSource::InitiateSearch( MacroPlan ) ); |
| | | productids := selectuniquevalues( DataHolderProduct.Data(), Elements, product, exists( dhGenerations.Data(), Elements, e, e.Generation() = product.Generation() ) |
| | | and exists( dhMQBMLBs.Data(), Elements, e, e.MLBMQB() = product.MQBMLB() ) |
| | | and exists( dhPowers.Data(), Elements, e, e.Power() = product.Power() ), product.ID() ); |
| | | |
| | | table := selectobject( MacroPlan, FinancialProductionSource.FinancialProductionReport, table, table.IsShow() ); |
| | | table.Generate( dhSearch.Data(), dhFactorys.Data(), productids ); |
| | | DataHolderTable.Data( table ); |
| | | } |
| | | |
| | | WebMessageBox::Success( Translations::A_VWED_Success() ); |