| | |
|---|
| | | [* |
|---|
| | | Form.ApplyChanges(); |
|---|
| | | if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){ |
|---|
| | | msg := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() ); |
|---|
| | | WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' ) |
|---|
| | | msg := ''; |
|---|
| | | loginfo := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName(), msg ); |
|---|
| | | 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(); |
|---|
| | | *] |
|---|
