| | |
|---|
| | | if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){ |
|---|
| | | currentuser := QuintiqUser::CurrentUser().DisplayName(); |
|---|
| | | |
|---|
| | | AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser ); |
|---|
| | | WebMessageBox::Success( "推送成功！" ); |
|---|
| | | msg := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser ); |
|---|
| | | WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' ) |
|---|
| | | } |
|---|
| | | Form.Close(); |
|---|
| | | *] |
|---|
