Quintiq file version 2.0
|
#parent: #root
|
Method OnOK () id:Method_DialogReportArchiveConfirm_OnOK
|
{
|
#keys: '[415136.0.1248982978]'
|
Body:
|
[*
|
this.ApplyChanges();
|
info( '------------------',cbCustomDemand.Checked()
|
,cbOfflinePlan.Checked()
|
,cbShiftPlan.Checked()
|
,cbAssembleOnlinePlan.Checked()
|
,cbInventoryPlan.Checked()
|
,cbTRCDemand.Checked()
|
,cbTransferPlan.Checked()
|
,cbPackagePlan.Checked() );
|
showlabel := '是否存档';
|
if( cbCustomDemand.Checked()
|
or cbOfflinePlan.Checked()
|
or cbShiftPlan.Checked()
|
or cbAssembleOnlinePlan.Checked()
|
or cbInventoryPlan.Checked()
|
or cbTRCDemand.Checked()
|
or cbTransferPlan.Checked()
|
or cbPackagePlan.Checked() ){
|
showlabel := '是否存档';
|
plannames := construct( Strings );
|
if( cbCustomDemand.Checked() ){
|
plannames.Add( lblCustomDemand.Label() );
|
}
|
if( cbOfflinePlan.Checked() ){
|
plannames.Add( lblOfflinePlan.Label() );
|
}
|
if( cbShiftPlan.Checked() ){
|
plannames.Add( lblShiftPlan.Label() );
|
}
|
if( cbAssembleOnlinePlan.Checked() ){
|
plannames.Add( lblAssembleOnlinePlan.Label() );
|
}
|
if( cbInventoryPlan.Checked() ){
|
plannames.Add( lblInventoryPlan.Label() );
|
}
|
if( cbTRCDemand.Checked() ){
|
plannames.Add( lblTRCDemand.Label() );
|
}
|
if( cbTransferPlan.Checked() ){
|
plannames.Add( lblTransferPlan.Label() );
|
}
|
if( cbPackagePlan.Checked()){
|
plannames.Add( lblPackagePlan.Label() );
|
}
|
showlabel := showlabel.Concat( plannames.Concatenate( "、" ) ).Concat( '？' );
|
info( '*****************************' );
|
if( WebMessageBox::Question( this, showlabel, 'OK|Cancel' ) = 0 ){
|
}
|
}else{
|
info( '************###########*****************' );
|
WebMessageBox::Information( this, '未选择任何计划进行存档' )
|
}
|
|
this.Close();
|
*]
|
}
|
