Quintiq file version 2.0
|
#parent: pl_Function_FCOV/btn_deleteOrder_FCOV
|
Response OnClick (
|
S_DT_CustomOrder selection
|
) id:Response_pl_Function_FCOV_btn_deleteOrder_FCOV_OnClick
|
{
|
#keys: '[414724.0.321284302]'
|
CanBindMultiple: false
|
DefinitionID => /pl_Function_FCOV/Responsedef_pl_Function_FCOV_btn_deleteOrder_FCOV_OnClick
|
Precondition:
|
[*
|
return not isnull( selection) and selection.ParentID()<>"";
|
*]
|
QuillAction
|
{
|
Body:
|
[*
|
Num:=WebMessageBox::Question("确认删除？",true);
|
if( Num=0)
|
{
|
OrderInfo:=select( MacroPlan,SalesDemand.astype( CustomerOrder ),obj,obj.ID()=selection.ParentID());
|
SSI := select(MacroPlan,S_DT_SpliteStruct,obj,obj.ID() = selection.ID_SpliteStruct());
|
if( not isnull( SSI))
|
{
|
SSI.Status(0);
|
}
|
S_FunctionClass::SM_OrderToSpliteOrder( MacroPlan,OrderInfo,"");
|
if( not isnull( selection))
|
{
|
selection.Delete();
|
}
|
}
|
*]
|
GroupServerCalls: false
|
}
|
}
|
