Send Email and automatically save new value into database

Question

Hi,
I think this is a very unique problem, hope that anyone could help me. I tried to send email notification using pl/sql block (check_delay) as below. Please focus to this section first, from the pl/sql:
Problem 1
--> if emp_rec.OVERDUE_AMOUNT_PAID is not null then
dbms_output.put_line('emp_rec.payment_progress_id ' || emp_rec.payment_progress_id || crlf);
select c.PAYMENT_PROGRESS into payment_progress from credit_sales c where c.PAYMENT_PROGRESS_ID = emp_rec.payment_progress_id;
payment_ratio := (payment_progress/emp_rec.invoice_amount);
dbms_output.put_line('count ratio progress payment to invoice amount ' || payment_ratio || crlf);
dbms_output.put_line('payment progress ' || payment_progress || crlf);
Here, sql checks whether overdue amount is being paid in progress from payment_overdue table..then creates variables for ratio(payment_ratio) and progress payment amount(payment_progress). After that if payment_ratio < 0.1 it must sends email notification to customer_id and customer_representative_id. However, it does NOT send notification to
customer_id! How do I amend the code so that customer_id will get the notification too?
Problem 2
In problem 2, please focus to :
-->if emp_rec.OVERDUE_AMOUNT_PAID is null then
If customer does not pay any amount, sql will first checks whether delay between scheduled payment date and current system is more than 3 days..
dbms_output.put_line('count days delay ' || round(sysdate - to_date(emp_rec.scheduled_payment_date)) || crlf || crlf);
if round(sysdate - to_date(emp_rec.scheduled_payment_date)) >3 then
After that, sql will counts how many times customer delays. If first time, the notification will count notification as number 1..and update remark column with the message and count value as below..
select count(a.payment_overdue_id) as count into count from payment_overdue a where a.customer_id = emp_rec.CUSTOMER_ID and a.invoice_no = emp_rec.invoice_no;
     dbms_output.put_line('update remark : '||emp_rec.remark);
update PAYMENT_OVERDUE set remark='Reminder notice no '||count where payment_overdue_id=emp_rec.payment_overdue_id;
Finally, notification to be sent to customer with the message format as below..
email_to:=emp_rec.customer_id||default_email;
select b.INVOICE_NO into invoice_no from INVOICE b where b.INVOICE_ID = emp_rec.INVOICE_ID;
subj:='Reminder to make payment for Invoice No '||invoice_no;
mesg:='Kindly make payment for your amount outstanding as per Invoice No '||invoice_no||'. Reminder notice no '||count;
dbms_output.put_line('Sending email to ' || email_to || ' subject: ' || subj);
e_mail_message(email_to,email_to,subj,mesg);
Unfortunately, no email notification being sent to customer with this message format.. Please help me to make customer to receive the notification with this format.
Kindly, thank you so much for you guys to help me solve these two problems, Problem 1 and Problem 2....
Thank you.
CREATE OR REPLACE PROCEDURE TEST.check_delay AS
NO binary_float;
CURSOR emp_cur is
select * from PAYMENT_OVERDUE where FLAG=3 and STATUS='OUTSTANDING';
emp_rec emp_cur%rowtype;
email_to varchar2(200);
default_email varchar2(200);
mesg varchar2(4000);
invoice_no varchar2(100);
subj varchar2(4000);
payment_progress binary_float;
payment_ratio binary_float;
count number;
crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );
BEGIN
default_email:='@test.com';
FOR emp_rec in emp_cur
LOOP
if emp_rec.OVERDUE_AMOUNT_PAID is null then
dbms_output.put_line('count days delay ' || round(sysdate - to_date(emp_rec.scheduled_payment_date)) || crlf || crlf);
if round(sysdate - to_date(emp_rec.scheduled_payment_date)) >3 then
     select count(a.payment_overdue_id) as count into count from payment_overdue a where a.customer_id = emp_rec.CUSTOMER_ID and a.invoice_no = emp_rec.invoice_no;
     dbms_output.put_line('update remark : '||emp_rec.remark);
update PAYMENT_OVERDUE set remark='Reminder notice no '||count where payment_overdue_id=emp_rec.payment_overdue_id;
     email_to:=emp_rec.customer_id||default_email;
select b.INVOICE_NO into invoice_no from INVOICE b where b.INVOICE_ID = emp_rec.INVOICE_ID;
subj:='Reminder to make payment for Invoice No '||invoice_no;
mesg:='Kindly make payment for your amount outstanding as per Invoice No '||invoice_no||'. Reminder notive no '||count;
dbms_output.put_line('Sending email to ' || email_to || ' subject: ' || subj);
e_mail_message(email_to,email_to,subj,mesg);
end if;
end if;
if emp_rec.OVERDUE_AMOUNT_PAID is not null then
dbms_output.put_line('emp_rec.payment_progress_id ' || emp_rec.payment_progress_id || crlf);
select c.PAYMENT_PROGRESS into payment_progress from credit_sales c where c.PAYMENT_PROGRESS_ID = emp_rec.payment_progress_id;
payment_ratio := (payment_progress/emp_rec.invoice_amount);
dbms_output.put_line('count ratio progress payment to invoice amount ' || payment_ratio || crlf);
dbms_output.put_line('payment progress ' || payment_progress || crlf);
if payment_ratio < 0.1 then
email_to:=emp_rec.customer_id||default_email;
select b.INVOICE_NO into invoice_no from INVOICE b where b.INVOICE_ID = emp_rec.INVOICE_ID;
subj:='Reminder to settle outstanding amount for Invoice No '||invoice_no;
mesg:='Kindly settle your outstanding payment as per Invoice No '||invoice_no;
dbms_output.put_line('Sending email to ' || email_to || ' subject: ' || subj);
e_mail_message(email_to,email_to,subj,mesg);
email_to:=emp_rec.customer_representative_id||default_email;
subj:='Reminder to settle outstanding amount for Invoice No '||invoice_no;
mesg:='Kindly settle your outstanding payment as per Invoice No '||invoice_no;
dbms_output.put_line('Sending email to ' || email_to || ' subject: ' || subj);
e_mail_message(email_to,email_to,subj,mesg);
end if;
if (payment_ratio < 0.5 && payment_ratio > 0.1) then
select b.INVOICE_NO into invoice_no from INVOICE b where b.INVOICE_ID = emp_rec.INVOICE_ID;
     email_to:=emp_rec.customer_id||default_email;
subj:='Reminder to settle outstanding amount for Invoice No '||invoice_no;
mesg:='Kindly settle your outstanding payment as per Invoice No '||invoice_no;
dbms_output.put_line('Sending email to ' || email_to || ' subject: ' || subj);
e_mail_message(email_to,email_to,subj,mesg);
end if;
end if;
END LOOP;
END;
/

Answer 1

Hi BownieCross;
If you are using a local database file in your project the following may be the cause.
From Microsoft Documentation:
Issue:
"Every time I test my application and modify data, my changes are gone the next time I run my application."
Explanation:
The value of the Copy
to Output Directory property is Copy
if newer or Copy
always. The database in your output folder (the database that’s being modified when you test your application) is overwritten every
time that you build your project. For more information, see How
to: Manage Local Data Files in Your Project.
Fernando (MCSD)
If a post answers your question, please click "Mark As Answer" on that post and "Mark as Helpful".
NOTE: If I ask for code, please provide something that I can drop directly into a project and run (including XAML), or an actual application project. I'm trying to help a lot of people, so I don't have time to figure out weird snippets with undefined objects
and unknown namespaces.