Quintiq file version 2.0
|
#parent: #root
|
StaticMethod Publish (
|
InterfaceDataset owner,
|
InterfaceLoginfo loginfo,
|
Product_MPs products
|
) as String
|
{
|
TextBody:
|
[*
|
// 甄兰鸽 Nov-27-2024 (created)
|
jsondata := JSON::Object();
|
|
traverse( loginfo, AOnlineAndMOfflinePlanPIR, pir ){
|
jsonarray := JSON::Array();//.Add( "dto", JSON::Object().Add( "dday", date.Format( "Y-M2-D2" ) ).Add( "fac", "" ) ).Build();
|
traverse( pir, PIRData, pirdata, exists( products, Elements, tempP,
|
ifexpr( tempP.ParentID() = "MLB" or tempP.ParentID() = "MQB", tempP.Notes(), tempP.ID() ) = pirdata.Product() ) ){
|
pirjson := JSON::Object().Add( "product", pirdata.Product() )
|
.Add( "planningDate", pirdata.PlanningDate().Format( 'YM2D2' ) )//"2024-10-01" )
|
.Add( "planningQty", pirdata.PlanningQty() )
|
.Add( "factory", pirdata.Werk() ).Build();/*"2024-10-01 12:00:00" )*/
|
jsonarray.Add( pirjson );
|
}
|
jsondata.Add( 'ZPPPSCode', pir.ZPPPSCode() )
|
.Add( 'werk', pir.Werk() )
|
.Add( 'VERSB', pir.Version() )
|
.Add( 'startDate', pir.StartDate().Format( 'YM2D2' ) )
|
.Add( 'endDate', pir.EndDate().Format( 'YM2D2' ) )
|
.Add( 'dataList', jsonarray );
|
}
|
|
// 设置请求体
|
requestBody := jsondata.Build().AsString();
|
loginfo.RequestBody( requestBody );
|
|
info( loginfo.RequestBody() );
|
data := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
|
|
//info( '----------------', data );
|
//data := "Test";
|
|
return data;
|
*]
|
}
|
