sap接口提示消息

lazhen

2024-11-29 f4eb204cdaa3d7bb3e6a0cca6c2152038c49358c

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def

@@ -6,20 +6,18 @@
  Body:
  [*
    Form.ApplyChanges();
    //componentmds    := ApplicationScope.ComponentMDS();
    //mdsinstanceF    := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlOriginMacroPlan.Data().DatasetMDSID() );
    //handleF         := mdsinstanceF.GetMDSHandle()
    //macroplanF      := handleF.AsMacroPlan();
    //
    //mdsinstanceT    := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlDestinationMacroPlan.Data().DatasetMDSID() );
    //handleT         := mdsinstanceT.GetMDSHandle()
    //macroplanT      := handleT.AsMacroPlan();
    
    if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
      currentuser     := QuintiqUser::CurrentUser().DisplayName();
      
      msg             := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
      WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' )
      msg             := '';
      loginfo         := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser, msg );
      sucproduct   := selectuniquevalues( loginfo, SAPResponseLoginfo, e, e.IsSuccess(), e.Msg() );
    //  info( '--------------', sucproduct.Size(), loginfo.SAPResponseLoginfo( relsize ), sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) );
      if( sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) ){
        WebMessageBox::Success( ApplicationMacroPlanner, '推送成功' );
      }else{
        WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' );
      }
    }
    Form.Close();
  *]