[Bug]: e-Documents: EventSubscriber OnAfterSend does not loop the RecordVariant variable

[KristofVervaeke]

Describe the issue

When selecting multiple posted sales invoices, and sending them, only the first invoices is send to e-documents

Expected behavior

All selected invoices should be send to e-documents

Steps to reproduce

Select multiple posted sales invoices and send them using a sending profile for e-documents.

Additional context

No response

I will provide a fix for a bug

• I will provide a fix for a bug

[KristofVervaeke]

[EventSubscriber(ObjectType::Table, Database::"Document Sending Profile", OnAfterSend, '', false, false)]
local procedure OnAfterSendEDocument(ReportUsage: Integer; RecordVariant: Variant; DocNo: Code[20]; ToCust: Code[20]; DocName: Text[150]; CustomerFieldNo: Integer; DocumentNoFieldNo: Integer; DocumentSendingProfile: Record "Document Sending Profile")
var
EDocument: Record "E-Document";
RecordRef: RecordRef;
begin
if DocumentSendingProfile."Electronic Document" <> Enum::"Doc. Sending Profile Elec.Doc."::"Extended E-Document Service Flow" then
exit;
if DocumentSendingProfile."Electronic Service Flow" = '' then
exit;

    RecordRef.GetTable(RecordVariant);
    if RecordRef.FindSet() then
        repeat
            if not EDocument.IsEDocumentCreatedForRecord(RecordVariant) then
                CreateEDocumentFromPostedDocument(RecordVariant, DocumentSendingProfile);
        until RecordRef.Next() = 0;
end;