Quintiq file version 2.0
|
#parent: pPPA/bPPA
|
Response OnClick () id:Response_pPPA_bPPA_OnClick
|
{
|
#keys: '[413988.0.1186822434]'
|
CanBindMultiple: false
|
DefinitionID: 'Responsedef_WebButton_OnClick'
|
Precondition:
|
[*
|
//return cPPAEnable.Checked();
|
*]
|
QuillAction
|
{
|
Body:
|
[*
|
try {
|
uploadJsonString := Application.GetFile();
|
if ( uploadJsonString <> "" and not uploadJsonString.Regex( "PPA" ) ) {
|
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 );
|
|
efPPA.Text( fileName );
|
dhBinaryDataPPA.Data( &webFileBinaryData );
|
dhOriginalFileNamePPA.Data( fileName );
|
|
cPPAEnable.Checked( true );
|
}
|
} onerror {
|
WebMessageBox::Error( e.GeneralInformation() );
|
}
|
*]
|
GroupServerCalls: false
|
}
|
}
|
