payment journal computer check sort order

Please disregard - I found a solution.

here is what i did:

Table: 372 Payment Buffer
- New field added called “Vendor Name”
- New Key “Vendor Name”
Report 393 “Suggest Vendor Payments”
- Add the following highlighted bold code in “MakeGenJnlLines” function

*****************************************************************************************************
IF PayableVendLedgEntry.FIND('-') THEN
REPEAT
PayableVendLedgEntry.SETRANGE("Vendor No.",PayableVendLedgEntry."Vendor No.");
PayableVendLedgEntry.FIND('-');
REPEAT
VendLedgEntry.GET(PayableVendLedgEntry."Vendor Ledg. Entry No.");
TempPaymentBuffer."Vendor No." := VendLedgEntry."Vendor No.";
TempPaymentBuffer."Currency Code" := VendLedgEntry."Currency Code";

//>>001
CLEAR(Vendor2);
IF Vendor2.GET(VendLedgEntry."Vendor No.") THEN
TempPaymentBuffer."Vendor Name" := Vendor2.Name;
//<<001

IF SummarizePerDim THEN BEGIN
TempDimBuf.RESET;
TempDimBuf.DELETEALL;
IF SelectedDim.FIND('-') THEN
REPEAT
*******************************************************************************************
//Also add this in the same function

CLEAR(OldTempPaymentBuffer);
//>>001
//TempPaymentBuffer.SETCURRENTKEY("Document No.");
TempPaymentBuffer.SETCURRENTKEY("Vendor Name”);
//<<001
IF TempPaymentBuffer.FIND('-') THEN
REPEAT
WITH GenJnlLine DO BEGIN
INIT;
Window.UPDATE(1,TempPaymentBuffer."Vendor No.");
LastLineNo := LastLineNo + 10000;
"Line No." := LastLineNo;
VALIDATE("Posting Date",PostingDate);
"Document Type" := "Document Type"::Payment;
"Posting No. Series" := GenJnlBatch."Posting No. Series";
IF SummarizePerVend THEN
"Document No." := TempPaymentBuffer."Document No."
ELSE
IF DocNoPerLine THEN BEGIN
IF TempPaymentBuffer.Amount < 0 THEN
"Document Type" := "Document Type"::Refund;