| Quintiq file version 2.0 | 
| #parent: pIDS/bIDS | 
| Response OnClick () id:Response_pIDS_bIDS_OnClick | 
| { | 
|   #keys: '[413988.0.1185074879]' | 
|   CanBindMultiple: false | 
|   DefinitionID: 'Responsedef_WebButton_OnClick' | 
|   QuillAction | 
|   { | 
|     Body: | 
|     [* | 
|       try { | 
|         uploadJsonString := Application.GetFile(); | 
|         if ( uploadJsonString <> "" and not uploadJsonString.Regex( "IDS" ) ) { | 
|           WebMessageBox::Error( "文件名不匹配" ); | 
|         } else if ( uploadJsonString <> "" ) { | 
|           uploadJson := JSON::Parse( uploadJsonString ); | 
|           Archive::VerifyTheFileName( uploadJson ); | 
|            | 
|           fileName := uploadJson.Get( "name" ).GetString(); | 
|           base64String := uploadJson.Get( "data" ).GetString(); | 
|                | 
|           webFileBinaryData := BinaryData::FromBase64EncodedString( base64String ); | 
|            | 
|           efIDS.Text( fileName ); | 
|           dhBinaryDataIDS.Data( &webFileBinaryData ); | 
|           dhOriginalFileNameIDS.Data( fileName ); | 
|         } | 
|       } onerror { | 
|         WebMessageBox::Error( e.GeneralInformation() ); | 
|       } | 
|     *] | 
|     GroupServerCalls: false | 
|   } | 
| } |