|
Function FindRecord() |
Scroll |
Figure 21: Page 344 (Navigate) Function FindRecords()
//-TF
IF recTFDocuments.READPERMISSION THEN BEGIN
recTFDocuments.RESET;
recTFDocuments.SETCURRENTKEY("Document No.","Document Date");
recTFDocuments.SETFILTER("Document No.",DocNoFilter);
recTFDocuments.SETFILTER("Document Date",PostingDateFilter);
recTFDocuments.SETFILTER("Business Case ID",BusinessCaseFilter);
InsertIntoDocEntry(
DATABASE::"Therefore Documents",0,recTFDocuments.TABLECAPTION,recTFDocuments.COUNT);
END;
IF recProcessingJournal.READPERMISSION THEN BEGIN
recProcessingJournal.RESET;
recProcessingJournal.SETCURRENTKEY("Document No.","Document Date");
recProcessingJournal.SETFILTER("Document No.",DocNoFilter);
recProcessingJournal.SETFILTER("Document Date",PostingDateFilter);
recProcessingJournal.SETFILTER("Business Case ID",BusinessCaseFilter);
InsertIntoDocEntry(
DATABASE::"Processing Journal",0,recProcessingJournal.TABLECAPTION,recProcessingJournal.COUNT);
END;
//+TF
