procedure TLC_InsertVendLed(VAR VendorLedgerEntry: Record /Vendor Ledger Entry/; GenJournalLine: Record /Gen. Journal Line/)
var
IF GenJournalLine./TLC Employee Code/ <> '' THEN
VendorLedgerEntry./TLC Employee Code/ := GenJournalLine./TLC Employee Code/;
local procedure TLC_OnAfterCopyVendLedgerEntryFromCVLedgEntryBuffer(var VendorLedgerEntry: Record /Vendor Ledger Entry/; CVLedgerEntryBuffer: Record /CV Ledger Entry Buffer/)
begin
if CVLedgerEntryBuffer./TLC Employee Code/ <> '' then
VendorLedgerEntry./TLC Employee Code/ := CVLedgerEntryBuffer./TLC Employee Code/;
end;
local procedure TLC_OnAfterCopyVendLedgerEntryFromGenJnlLine(var VendorLedgerEntry: Record /Vendor Ledger Entry/; GenJournalLine: Record /Gen. Journal Line/)
begin
if GenJournalLine./TLC Employee Code/ <> '' then
VendorLedgerEntry./TLC Employee Code/ := GenJournalLine./TLC Employee Code/;
end;