Quintiq file version 2.0
#parent: PanelMaterialPurchase613/btn_Issuing
Response OnClick () id:Response_PanelMaterialPurchase613_btn_Issuing_OnClick
{
  #keys: '[414724.0.32883517]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    return not isnull( MacroPlan);
  *]
  QuillAction
  {
    Body:
    [*
      nExecute := WebMessageBox::Question("确认要发布当前的所有采购订单吗？");
      
      if( nExecute = 0)
      {
        OutMsg :="";
        bResult := H_FunctionClass::SM_MaterialPurchaseIssuer(OutMsg,MacroPlan,"-",ApplicationMacroPlanner.GetUserName());
        if( OutMsg.Length()>0)
        {
          if(bResult)
          {
            WebMessageBox::Success( OutMsg);
          }
          else
          {
            WebMessageBox::Warning( OutMsg);
          }
        }   
      }
    *]
    GroupServerCalls: false
  }
}