Share
Report
12Hi
I am working a AL extension to send a reminder Email to due Invoice in BC. For this I am using Report Object and word layout generate HTML email. To get the email details I am using customer ledger entries.
IF Customer.FINDFIRST THEN
repeat
body := '';
TotalRmtAmt := 0.00;
newdate := (CALCDATE('<+1D>', TODAY));
CustLedgEntry.SETCURRENTKEY("Customer No.", Open, Positive, "Due Date", "Currency Code");
CustLedgEntry.SETRANGE(CustLedgEntry."Customer No.", Customer."No.");
CustLedgEntry.SETRANGE(Open, TRUE);
CustLedgEntry.SETRANGE("Due Date", newdate);
CustLedgEntry.SETFILTER(CustLedgEntry."Document Type", '%1', CustLedgEntry."Document Type"::Invoice);
IF CustLedgEntry.FINDFIRST THEN BEGIN
REPEAT
CustLedgEntry.CALCFIELDS("Amount (LCY)");
CustLedgEntry.CALCFIELDS("Remaining Amt. (LCY)");
TotalRmtAmt += CustLedgEntry."Remaining Amt. (LCY)";
UNTIL (CustLedgEntry.NEXT = 0);
End;
if not CustLedgEntry.IsEmpty Then begin
Clear(ReportOutStream);
Clear(ReportInStream);
Clear(body);
Clear(TempBlob);
TempBlob.CreateOutStream(ReportOutStream);
PaymentReminderInvoice.SetRunningValues(Customer."No.", newdate, TotalRmtAmt);
if PaymentReminderInvoice.SaveAs('', ReportFormat::Html, ReportOutStream) then begin
TempBlob.CreateInStream(ReportInStream);
ReportInStream.ReadText(body);
if Customer."E-Mail" <> '' then begin
emailMsg.Create(Customer."E-Mail", 'Invoices Due Tomorrow', body, true);
email.Send(emailMsg, Enum::"Email Scenario"::"Send Invoice Reminders");
end;
end;
end;
UNTIL (Customer.NEXT = 0);
First Customer received the email proper template
Second customer onwards Return FALSE on below statement
if PaymentReminderInvoice.SaveAs('', ReportFormat::Html, ReportOutStream) then begin
There is no data level error on 2nd Customer , I have hard corded 2nd customer and check, then successfully sent the email
This issue coming when loop thru customer list
please provide a solution for this
Thank you
All responses (
Answers (
