装配上线计划+机加下线计划筛选

lazhen

2024-08-27 d4d53b863bec6b836baff0f6f50131d8223cca4d

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def

@@ -6,18 +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();
    //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();
    
    currentuser     := QuintiqUser::CurrentUser().DisplayName();
    
    AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, efFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), macroplanF, macroplanT, cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
    AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, efFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
    
    Form.Close();
  *]