Skip to content

Commit

Permalink
[24.x] Bugfix nextmarker in AFSFileClientImpl.Codeunit (#1408) (#1886)
Browse files Browse the repository at this point in the history
<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->
Backport of #1408.

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes
[AB#545984](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/545984)

Co-authored-by: Pieter-Heine van der Meulen <[email protected]>
  • Loading branch information
JesperSchulz and Pieterheinevdm authored Aug 27, 2024
1 parent f1cc107 commit ff564c4
Showing 1 changed file with 3 additions and 3 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -187,7 +187,7 @@ codeunit 8951 "AFS File Client Impl."

AFSHelperLibrary.DirectoryContentNodeListToTempRecord(DirectoryURI, DirectoryPath, NodeList, PreserveDirectoryContent, AFSDirectoryContent);

if AFSOperationResponse.IsSuccessful() then begin
if AFSOperationResponse.IsSuccessful() and (AFSDirectoryContent."Entry No." <> 0) then begin
AFSDirectoryContent."Next Marker" := CopyStr(AFSHelperLibrary.GetNextMarkerFromResponse(ResponseText), 1, MaxStrLen(AFSDirectoryContent."Next Marker"));
AFSDirectoryContent.Modify();
end;
Expand Down Expand Up @@ -217,7 +217,7 @@ codeunit 8951 "AFS File Client Impl."
NodeList := AFSHelperLibrary.CreateHandleNodeListFromResponse(ResponseText);
AFSHelperLibrary.HandleNodeListToTempRecord(NodeList, AFSHandle);

if AFSOperationResponse.IsSuccessful() then begin
if AFSOperationResponse.IsSuccessful() and (AFSHandle."Entry No." <> 0) then begin
AFSHandle."Next Marker" := CopyStr(AFSHelperLibrary.GetNextMarkerFromResponse(ResponseText), 1, MaxStrLen(AFSHandle."Next Marker"));
AFSHandle.Modify();
end;
Expand Down Expand Up @@ -716,4 +716,4 @@ codeunit 8951 "AFS File Client Impl."
local procedure OnPutFileRangesAfterPutOperation(ResponseIndex: Integer; var AFSOperationResponse: Codeunit "AFS Operation Response")
begin
end;
}
}

0 comments on commit ff564c4

Please sign in to comment.