修复一些bug

admin

2024-09-05 20470cd32eaebc49c5b8eea0e1908743846ade67

 _Main/BL/Type_Archive/StaticMethod_Archive.qbl

@@ -15,7 +15,7 @@
    archiveFileJSONs := respJSON.Get( "archiveFiles" );
    info( archiveFileJSONs.AsString() );
    
    if ( code = 200 ) {
    if ( code = 200 or code = 201 ) {
      for ( i := 0; i < archiveFileJSONs.Size(); i++ ) {
        archiveFileJSON := archiveFileJSONs.Get( i );
        
@@ -57,6 +57,7 @@
      
      // 存档Curve
      if ( curveFileName <> "" and curveBinaryValue.Size() > 0 ) {
        info( "存档Curve：" + curveFileName );
        ac := select( archive, ArchiveCurve, tempAC, true );
        if ( not isnull( ac ) ) {
          ac.Delete();