APPLICATION OF ENTRIES

bharat_kothari

Hi,

can anyone suggest me if there is any functionality to apply back dated transactions to the bank payment in one go. i want to apply entries of last two years against the payments which is not physically possible by going on to each ledger entries and applying it.

Kindly reply as soon as possible.

Bharat kothari

ssingla

In the application window select all transaction and press F9 and post. No need to select indivisual transaction.

bharat_kothari

Hi,

thanks for the reply but my problem is i need to apply all the entries for all the vendors coming under a vendor posting group.

Kindly advice the soulution in that context.

thanks

Bharat kothari

ssingla

Did this for a client with the following objects:
Report : DataItem : Vendor (Call the belowmentioned codeunit with each vendor record. Vendor Record can be filtered)
Codeunit : Table = Vendor with the following code

VendLedgEntry.SETRANGE("Vendor No.","No.");
VendLedgEntry.SETRANGE(VendLedgEntry.Open,TRUE);
IF VendLedgEntry.FINDFIRST THEN BEGIN
  VendEntryApplID := USERID;
  IF VendEntryApplID = '' THEN
    VendEntryApplID := '***';
  VendLedgEntry.CALCFIELDS("Remaining Amount");
  VendLedgEntry."Applying Entry" := TRUE;
  VendLedgEntry."Applies-to ID" := VendEntryApplID;
  VendLedgEntry."Amount to Apply" := VendLedgEntry."Remaining Amount";
  CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",VendLedgEntry);
  COMMIT;
  
  VendLedgEntry2.SETRANGE("Vendor No.","No.");
  VendLedgEntry2.SETFILTER("Entry No.",'<>%1',VendLedgEntry."Entry No.");
  VendLedgEntry2.SETRANGE(Open,TRUE);
  VendLedgEntry2.SETFILTER(VendLedgEntry2.Positive,'%1',(NOT VendLedgEntry.Positive));
  IF NOT VendLedgEntry2.FINDFIRST THEN
    EXIT;
  
  VendLedgEntry1.SETRANGE("Vendor No.","No.");
  VendLedgEntry1.SETRANGE(Open,TRUE);
  VendLedgEntry1.SETFILTER("Entry No.",'<>%1',VendLedgEntry."Entry No.");
  IF VendLedgEntry1.FINDSET THEN BEGIN
    VendLedgEntry1.MODIFYALL(VendLedgEntry1."Applies-to ID",'');
    COMMIT;
  END ELSE
    EXIT;

  SetApplyId.SetApplId(VendLedgEntry1,VendLedgEntry,0,0,'');
  ApplyCU.RUN(VendLedgEntry);
END;

Define the required Variable. and run it.

The code is provided as is basis. You need to test before you apply this to production environment.