| | |
|---|
| | | Body: |
|---|
| | | [* |
|---|
| | | Form.ApplyChanges(); |
|---|
| | | componentmds := ApplicationScope.ComponentMDS(); |
|---|
| | | mdsinstance := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlMacroPlan.Data().DatasetMDSID() ); |
|---|
| | | handle := mdsinstance.GetMDSHandle() |
|---|
| | | macroplan := handle.AsMacroPlan(); |
|---|
| | | AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, efFactory.Text(), macroplan, dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() ); |
|---|
| | | |
|---|
| | | if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){ |
|---|
| | | msg := ''; |
|---|
| | | loginfo := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, |
|---|
| | | MacroPlan, |
|---|
| | | ddslFactory.Text(), |
|---|
| | | efVersion.Text(), |
|---|
| | | dsStartDate.Date(), |
|---|
| | | dsEndDate.Date(), |
|---|
| | | QuintiqUser::CurrentUser().DisplayName(), |
|---|
| | | msg, |
|---|
| | | InterfaceDataset.IsPushSAP_PIR() ); |
|---|
| | | sucproduct := selectuniquevalues( loginfo, SAPResponseLoginfo, e, e.IsSuccess(), e.Msg_v1() ); |
|---|
| | | if( sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) ){ |
|---|
| | | WebMessageBox::Success( ApplicationMacroPlanner, '推送成功' ); |
|---|
| | | }else{ |
|---|
| | | WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' ); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | Form.Close(); |
|---|
| | | *] |
|---|
| | | } |
|---|
