存档Curve非空判断

admin

2024-09-05 33b2bc7f3deb9a6a1ad34acd2e2624bbf2f65c1b

 _Main/BL/Type_Archive/StaticMethod_Archive.qbl

@@ -56,11 +56,13 @@
      }
      
      // 存档Curve
      ac := select( archive, ArchiveCurve, tempAC, true );
      if ( not isnull( ac ) ) {
        ac.Delete();
      if ( curveFileName <> "" and curveBinaryValue.Size() > 0 ) {
        ac := select( archive, ArchiveCurve, tempAC, true );
        if ( not isnull( ac ) ) {
          ac.Delete();
        }
        archive.ArchiveCurve( relnew, Name := "始终只存一版.xlsx", FilePath := curveFileName, SourceFileBinaryValue := curveBinaryValue );
      }
      archive.ArchiveCurve( relnew, Name := "始终只存一版.xlsx", FilePath := curveFileName, SourceFileBinaryValue := curveBinaryValue );
    }
  *]
}