payment journal computer check sort order

john_bellinger

I'm working in 4.0 -

Out of the box computer checks print in account no. order. Has anyone ever changed order so that it is by vendor name? If so, how?

Savatage

You could add a key to the Gen Journal Line for "Description" (if it's not there already)

& then re-sort the line before you print the checks

- just a thought

john_bellinger

Please disregard - I found a solution.

Savatage

john_bellinger

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;

Savatage

Savatage wrote:

You could add a key to the Gen Journal Line for "Description" (if it's not there already)

& then re-sort the line before you print the checks

- just a thought

This works too