Quintiq file version 2.0
#parent: pPR/efPR
Response OnUserChanged () id:Response_pPR_efPR_OnUserChanged
{
  #keys: '[413988.0.1186643093]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebEditField_OnUserChanged'
  QuillAction
  {
    Body:
    [*
      source := this.Text();
      
      flag := not this.Text().EndsWith( ".xlsx" );
      
      if ( not isnull( dhBinaryDataPR.Data() ) ) {
        if ( flag ) {
          WebMessageBox::Warning( "文件需要以.xlsx为后缀" );
          this.Text( dhOriginalFileNamePR.Data() );
        } else {
          dhOriginalFileNamePR.Data( this.Text() );
        }
      } else {
        WebMessageBox::Warning( "请先上传文件在命名" );
        this.Text( "" );
      }
    *]
    GroupServerCalls: false
  }
}