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, AOnlineAndMOfflinePlanMS64, pir ){
|
jsonarray := JSON::Array();//.Add( "dto", JSON::Object().Add( "dday", date.Format( "Y-M2-D2" ) ).Add( "fac", "" ) ).Build();
|
traverse( pir, MS64Data, pirdata ){
|
pirjson := JSON::Object().Add( "product", pirdata.Product() )
|
.Add( "factory", pirdata.Werk() ).Build();/*"2024-10-01 12:00:00" )*/
|
jsonarray.Add( pirjson );
|
}
|
jsondata.Add( 'ZPPPSCode', pir.ZPPPSCode() )
|
.Add( 'BERID', '' ).Add( 'BEDAE', '' )
|
.Add( 'DATEV', pir.StartDate().Format( 'YM2D2' ) )
|
.Add( 'DATEB', pir.EndDate().Format( 'YM2D2' ) )
|
.Add( 'VERSBF', pir.VersionFrom() )
|
.Add( 'VERSBT', pir.VersionTo() )
|
.Add( 'VERVS', ifexpr( pir.IsActive(), "X", "" ) )
|
.Add( 'dataList', jsonarray );
|
}
|
|
loginfo.RequestBody( jsondata.Build().AsString() );
|
info( loginfo.RequestBody() );
|
data := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
|
info( '----------------', data );
|
return data;
|
*]
|
}
|
