yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Quintiq file version 2.0
#parent: Toolbar651/btnOk
Response OnClick () id:Response_Toolbar651_btnOk_OnClick
{
  #keys: '[131094.0.605194397]'
  Body:
  [*
    // If applicable, inform the user that the recurrence cannot always be applied
    // exactly as defined. 
    if( btnMonthly.Pressed() and
        ckbMonthlyDay.Checked() )
    {    
      day := [Number]edtMonthlyDay.Text();
      if( day > 28 )
      {
        MessageBox::Warning( Dialog, Translations::Pattern_Monthly_LessDays( day ), "OK" );
      }
    }
    
    // If the dialog was opened from dlgSubscription, update the data in that dialog.
    if( not isnull( dhdlgSubscription.Data() ) )
    {
      Dialog.CallbackSubscriptionDialog();
    }
    
    Dialog.EndModal( 1 );
  *]
  DefinitionID: 'Responsedef_GUIButtonBase_OnClick'
  Precondition:
  [*
    return Dialog.ValuesOK();
  *]
}