| | |
| | | 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(); |
| | | |
| | | currentuser := QuintiqUser::CurrentUser().DisplayName(); |
| | | |
| | | AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, efFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), macroplanF, macroplanT, cbActiveVersion.Checked(), dhProducts.Data(), currentuser ); |
| | | |
| | | if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){ |
| | | currentuser := QuintiqUser::CurrentUser().DisplayName(); |
| | | 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' ); |
| | | WebMessageBox::Success( ApplicationMacroPlanner, Translations::A_VWED_Success() ); |
| | | } |
| | | } |
| | | Form.Close(); |
| | | *] |
| | | } |