Quintiq file version 2.0
|
#parent: #root
|
StaticMethod GenerateData (
|
const MacroPlan macroplan,
|
RecycleBin recycle,
|
const Archive archive,
|
InterfaceDataset interfaceDataset,
|
String executor,
|
Boolean versionflag
|
)
|
{
|
Description: '生成可以下发的客户需求（PPA+IDS）数据'
|
TextBody:
|
[*
|
// 甄兰鸽 Aug-20-2024 (created)
|
loginfo := maxobject( interfaceDataset, InterfaceLoginfo, loginfo, loginfo.Name() = Translations::InterfaceDataset_CustomerDemandPPAIDS_Name(), loginfo.InterfaceDateTime() );
|
if( not isnull( loginfo ) ){
|
if( not loginfo.IsShow() ){
|
loginfo.Delete();
|
}else{
|
loginfo.Last( false );
|
}
|
interfaceDataset.CustomerDemandPPAIDS( relflush );
|
}
|
nowdate := DateTime::ActualTime();
|
loginfo := interfaceDataset.InterfaceLoginfo( relnew, ExecuteUser := executor
|
, Name := Translations::InterfaceDataset_CustomerDemandPPAIDS_Name()
|
, InterfaceDateTime := nowdate
|
, Message := '客户需求（PPA+IDS）数据推送'
|
, Last := true
|
, IsShow := false
|
, ReturnSuccess := true
|
, ReturnMsg := 'Success'
|
, Success := true
|
);
|
traverse( macroplan, SalesDemand.astype( Forecast ), forecast, forecast.Origin() = 'PPA' ){
|
cd :=interfaceDataset.CustomerDemandPPAIDS( relnew, Product := forecast.ProductID()
|
, DemandDate := forecast.StartDate()
|
, DemandQty := [Number]forecast.Quantity()
|
, VersionName := macroplan.ScenarioName()
|
, InterfaceTime := nowdate
|
, VersionFlag := versionflag
|
);
|
loginfo.CustomerDemandPPAIDS( relinsert, cd );
|
}
|
binaryValue := TemplateManager::GetIDSFullTable( archive, Date::ActualDate().Year() );
|
source := GeneralExcelImportAndExportDataSource::Upload( recycle, binaryValue, OS::TempPath() + "template.xlsx" );
|
source.ReadStructure();
|
//productcolumn := select( recycle, ge.Column, column, column.Index() = 1 );
|
cnv2 := StringToDate::StandardConverter();
|
cnv2.SetCustomConversion();
|
cnv2.CustomFormatString( "dd/MM/yyyy" );
|
traverse( recycle, GeneralExcelImportAndExportDataSource.GeneralExcelImportAndExportDataTable.GeneralExcelImportAndExportDataRow, row ){
|
product := selectobject( row, GeneralExcelImportAndExportDataCell, cell, cell.GeneralExcelImportAndExportDataColumn().ColumnIndex() = 1 );
|
traverse( row, GeneralExcelImportAndExportDataCell, cell, cell.GeneralExcelImportAndExportDataColumn().ColumnIndex() > 3 ){
|
period := cnv2.Convert( cell.GeneralExcelImportAndExportDataColumn().Name() );
|
cd :=interfaceDataset.CustomerDemandPPAIDS( relnew, Product := product.Value()
|
, DemandDate := period
|
, DemandQty := [Number]cell.Value()
|
, VersionName := macroplan.ScenarioName()
|
, InterfaceTime := nowdate
|
, VersionFlag := versionflag
|
);
|
loginfo.CustomerDemandPPAIDS( relinsert, cd );
|
}
|
}
|
source.Delete();
|
loginfo.TotalRow( loginfo.CustomerDemandPPAIDS( relsize ) );
|
*]
|
}
|
