...
JobLedgEntry.SETFILTER("Posting Date",PostingDateFilter);
InsertIntoDocEntry(
DATABASE::"Job Ledger Entry",0,JobLedgEntry.TABLECAPTION,JobLedgEntry.COUNT);
END;
IF BankAccLedgEntry.READPERMISSION THEN BEGIN
BankAccLedgEntry.RESET;
BankAccLedgEntry.SETCURRENTKEY("Document No.","Posting Date");
BankAccLedgEntry.SETFILTER("Document No.",DocNoFilter);
...
...
JobLedgEntry.SETFILTER("Posting Date",PostingDateFilter);
InsertIntoDocEntry(
DATABASE::"Job Ledger Entry",0,JobLedgEntry.TABLECAPTION,JobLedgEntry.COUNT);
END;
// Add the following lines.
IF JobWIPGLEntry.READPERMISSION THEN BEGIN
JobWIPGLEntry.RESET;
JobWIPGLEntry.SETCURRENTKEY("Document No.","Posting Date");
JobWIPGLEntry.SETFILTER("Document No.",DocNoFilter);
JobWIPGLEntry.SETFILTER("Posting Date",PostingDateFilter);
InsertIntoDocEntry(
DATABASE::"Job WIP G/L Entry",0,JobWIPGLEntry.TABLECAPTION,JobWIPGLEntry.COUNT);
END;
IF JobWIPEntry.READPERMISSION THEN BEGIN
JobWIPEntry.RESET;
JobWIPEntry.SETFILTER("Document No.",DocNoFilter);
JobWIPEntry.SETFILTER("WIP Posting Date",PostingDateFilter);
InsertIntoDocEntry(
DATABASE::"Job WIP Entry",0,JobWIPEntry.TABLECAPTION,JobWIPEntry.COUNT);
END;
//End of the lines.
IF BankAccLedgEntry.READPERMISSION THEN BEGIN
BankAccLedgEntry.RESET;
BankAccLedgEntry.SETCURRENTKEY("Document No.","Posting Date");
BankAccLedgEntry.SETFILTER("Document No.",DocNoFilter);
...
...
DATABASE::"Res. Ledger Entry":
FORM.RUN(0,ResLedgEntry);
DATABASE::"Job Ledger Entry":
FORM.RUN(0,JobLedgEntry);
DATABASE::"Bank Account Ledger Entry":
FORM.RUN(0,BankAccLedgEntry);
DATABASE::"Check Ledger Entry":
FORM.RUN(0,CheckLedgEntry);
...
...
DATABASE::"Res. Ledger Entry":
FORM.RUN(0,ResLedgEntry);
DATABASE::"Job Ledger Entry":
FORM.RUN(0,JobLedgEntry);
// Add the following lines.
DATABASE::"Job WIP G/L Entry":
FORM.RUN(0,JobWIPGLEntry);
DATABASE::"Job WIP Entry":
FORM.RUN(0,JobWIPEntry);
//End of the lines.
DATABASE::"Bank Account Ledger Entry":
FORM.RUN(0,BankAccLedgEntry);
DATABASE::"Check Ledger Entry":
FORM.RUN(0,CheckLedgEntry);
...