| | |
| | | } |
| | | sucproduct := selectuniquevalues( sapresponse, Elements, e, e.IsSuccess(), e.Msg_v1() ); |
| | | failmssages := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess(), ifexpr( e.Msg().FindString( e.Msg_v1(), 0 ) > -1, e.Msg().ReplaceAll( e.Msg_v1(), '*' ), e.Msg() ) ); |
| | | feedback.Concat( '产品' ).Concat( sucproduct.Concatenate( "、" ) ).Concat( '推送成功' ).Concat( ';' ); |
| | | feedback := feedback.Concat( '产品' ).Concat( sucproduct.Concatenate( "、" ) ).Concat( '推送成功' ).Concat( ';' ); |
| | | traverse( failmssages, Elements, failmsg ){ |
| | | failproduct := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess() and ( failmsg = e.Msg() or failmsg = e.Msg().ReplaceAll( e.Msg_v1(), '*' ) ), e.Msg_v1() ); |
| | | if( failmsg.FindString( '*', 0 ) > -1 ){ |
| | | feedback.Concat( failmsg.ReplaceAll( '*', failproduct.Concatenate( '、' ) ) ).Concat( ';' ); |
| | | feedback := feedback.Concat( failmsg.ReplaceAll( '*', failproduct.Concatenate( '、' ) ) ).Concat( ';' ); |
| | | }else{ |
| | | feedback.Concat( '产品' ).Concat( failproduct.Concatenate( '、' ) ).Concat( '因为' ).Concat( failmsg ).Concat( '推送失败' ).Concat( ';' ); |
| | | feedback := feedback.Concat( '产品' ).Concat( failproduct.Concatenate( '、' ) ).Concat( '因为' ).Concat( failmsg ).Concat( '推送失败' ).Concat( ';' ); |
| | | } |
| | | } |
| | | feedback := feedback.Replace( feedback.Length() - 1, 1, '。' ); |
| | |
| | | currentuser := QuintiqUser::CurrentUser().DisplayName(); |
| | | |
| | | msg := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser ); |
| | | WebMessageBox::Success( msg ); |
| | | WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' ) |
| | | } |
| | | Form.Close(); |
| | | *] |
| | |
| | | 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::Success( msg ); |
| | | WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' ) |
| | | } |
| | | Form.Close(); |
| | | *] |