Quintiq file version 2.0
|
#parent: #root
|
StaticMethod Publish (
|
InterfaceDataset owner,
|
InterfaceLoginfo loginfo
|
) 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 ){
|
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 );
|
}
|
|
loginfo.RequestBody( jsondata.Build().AsString() );
|
//info( loginfo.RequestBody() );
|
data := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
|
//info( '----------------', data );
|
return data;
|
*]
|
}
|
