Quintiq file version 2.0 
 | 
#parent: pBudget/bBudget 
 | 
Response OnClick () id:Response_pBudget_bBudget_OnClick 
 | 
{ 
 | 
  #keys: '[413988.0.1186730624]' 
 | 
  CanBindMultiple: false 
 | 
  DefinitionID: 'Responsedef_WebButton_OnClick' 
 | 
  QuillAction 
 | 
  { 
 | 
    Body: 
 | 
    [* 
 | 
      try { 
 | 
        uploadJsonString := Application.GetFile(); 
 | 
        if ( uploadJsonString <> "" ) { 
 | 
          uploadJson := JSON::Parse( uploadJsonString ); 
 | 
          Archive::VerifyTheFileName( uploadJson ); 
 | 
           
 | 
          fileName := uploadJson.Get( "name" ).GetString(); 
 | 
          base64String := uploadJson.Get( "data" ).GetString(); 
 | 
               
 | 
          webFileBinaryData := BinaryData::FromBase64EncodedString( base64String ); 
 | 
           
 | 
          efBudget.Text( fileName ); 
 | 
          dhOriginalFileNameBudget.Data( fileName ); 
 | 
          dhBinaryDataBudget.Data( &webFileBinaryData ); 
 | 
        } 
 | 
      } onerror { 
 | 
        WebMessageBox::Error( e.GeneralInformation() ); 
 | 
      } 
 | 
    *] 
 | 
    GroupServerCalls: false 
 | 
  } 
 | 
} 
 |