Task Report for $agent_firstname $agent_lastname as of $datenow
|
~;
}
}
### FIND TASKS DUE TODAY OR OVERDUE FOR TRANSACTIONS!
$todaystasks.=qq~
Due or Overdue Transaction Tasks!
|
~;
### 1. Check The List Of Properties ###
my $ssth = $dbh->prepare("select id,addressnumber,addressdirection,addressstreet,city,zip,mlsnumber,status from trans_board where agent = '$Cook{agentid}' order by id DESC");
$ssth->execute;
while (($transid,$addressnumber,$addressdirection,$addresstreet,$city,$zip,$mlsnumber,$status) = $ssth->fetchrow_array()) {
my $this_address_bar = qq~
$status | $addressnumber $addressdirection $addresstreet, $city IN $zip (MLS Number $mlsnumber)
|
~;
my $this_address_bar_printed = "no";
### 2. Find The Template ###
my $xasth = $dbh->prepare("SELECT template_id FROM trans_boardtask_triggers WHERE idlink = '$transid' GROUP BY template_id");
$xasth->execute;
while (($g_temp_id) = $xasth->fetchrow_array()) {
my $this_template_bar;
#IF TEMPLATE IS FOUND DISPLAY PROPERTY ADDRESS
### 4. Convert The Template ID To Name ###
my $basth = $dbh->prepare("select template_name from trans_boardtask_templates where id = '$g_temp_id'");
$basth->execute;
while (($template_id_name) = $basth->fetchrow_array()) {
$this_template_bar = qq~
Actions to Perform for $template_id_name
|
$print_header
~;
}
### 3. Find Overdue Tasks ###
my $casth = $dbh->prepare("select id,idlink,template_id,task_type,title,activity,agent_task_id,DATE_FORMAT(date_trigger, '%b %D, %Y'),notes from trans_boardtask_triggers where task_type = 'Transaction' and idlink = '$transid' AND template_id = '$g_temp_id' AND date_trigger <= now() AND date_completed = '0000-00-00 00:00:00' order by date_trigger ASC");
$casth->execute;
$trcolor = "1";
$trcolor2 = "2";
my $task_bar_data;
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_template_id,$task_triggers_task_type,$task_triggers_title,$task_triggers_activity,$task_triggers_agent_task_id,$task_triggers_date_trigger,$task_triggers_notes) = $casth->fetchrow_array()) {
unless ($task_triggers_notes eq "") {$display_note = "
(Note: $task_triggers_notes)";}
if ($task_triggers_activity eq "Letter") {
$task_triggers_activityl = "[ Print Letter ]";
}
elsif ($task_triggers_activity eq "E-Mail") {
$task_triggers_activityl = "[ Send E-Mail ]";
}
else {
$task_triggers_activityl = "";
}
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#ccccff";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
#$display_task_list .=qq~
$task_bar_data .= qq~
| $task_triggers_task_type |
$task_triggers_activity |
 $task_triggers_title$display_note |
$task_triggers_date_trigger |
Actions:  
$task_triggers_activityl |
~;
$found = "yes";
$display_note = "";
$todaystasks.="$address_displayed";
$address_displayed = "";
}
if ($task_bar_data ne "") {
unless ($this_address_bar_printed eq "yes") {
$todaystasks.=$this_address_bar;
$this_address_bar_printed = "yes";
}
$todaystasks.=$this_template_bar;
$todaystasks.=$task_bar_data;
}
}
}
$found = "no";
### FIND TASKS DUE TODAY OR OVERDUE FOR CONTACTS!
$todaystasks.=qq~
| |
Due or Overdue Contact Tasks!
|
$print_header
~;
my $ssth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes from trans_boardcontact where agent = '$Cook{agentid}' order by id DESC");
$ssth->execute;
while (my($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$notes) = $ssth->fetchrow_array()) {
my $basth = $dbh->prepare("select id,idlink,template_id,task_type,title,activity,agent_task_id,DATE_FORMAT(date_trigger, '%b %D, %Y') from trans_boardtask_triggers where task_type = 'Contact' and idlink = '$id' AND date_trigger <= now() AND date_completed = '0000-00-00 00:00:00' order by date_trigger ASC");
$basth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (my($task_triggers_id,$task_triggers_idlink,$task_triggers_template_id,$task_triggers_task_type,$task_triggers_title,$task_triggers_activity,$task_triggers_agent_task_id,$task_triggers_date_trigger) = $basth->fetchrow_array()) {
$contact_found = "yes";
my $basth = $dbh->prepare("select template_name from trans_boardtask_templates where id = '$id'");
$basth->execute;
while (($template_id_name) = $basth->fetchrow_array()) {
$print_tempname = "$template_id_name";
}
if ($task_triggers_activity eq "Letter") {
$task_triggers_activityl = "[ Print Letter ]";
}
elsif ($task_triggers_activity eq "E-Mail") {
$task_triggers_activityl = "[ Send E-Mail ]";
}
else {
$task_triggers_activityl = "";
}
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#ccffcc";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
$display_ctask_list .=qq~
| $task_triggers_task_type |
$task_triggers_activity |
$task_triggers_title$display_note |
$task_triggers_date_trigger |
Actions:
$task_triggers_activityl |
~;
$found = "yes";
}
if ($found eq "yes") {
if ($spouse ne "") {
$spouse = " & $spouse ";
}
else {
$spouse = "";
}
$todaystasks.=qq~
Contact $id $firstname$spouse $lastname
Running: $print_tempname Template
|
$display_ctask_list
~;
}
$display_ctask_list = "";
$found = "no";
$contact_found = "no";
}
unless ($contact_found eq "yes") {
$todaystasks.=qq~
| You Must Create/Assign An Action Plan To Your Contacts! |
~;
}
### FIND TASKS DUE TODAY OR OVERDUE FOR PROSPECTS!
$todaystasks.=qq~
| |
Due or Overdue Prospect Tasks!
|
$print_header
~;
my $ssth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes from trans_boardprospect where agent = '$Cook{agentid}' order by id DESC");
$ssth->execute;
while (($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$notes) = $ssth->fetchrow_array()) {
my $basth = $dbh->prepare("select id,idlink,template_id,task_type,title,activity,agent_task_id,DATE_FORMAT(date_trigger, '%b %D, %Y') from trans_boardtask_triggers where task_type = 'Prospect' AND idlink = '$id' AND date_trigger <= now() AND date_completed = '0000-00-00 00:00:00' order by date_trigger ASC");
$basth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_template_id,$task_triggers_task_type,$task_triggers_title,$task_triggers_activity,$task_triggers_agent_task_id,$task_triggers_date_trigger) = $basth->fetchrow_array()) {
$prospect_found = "yes";
my $basth = $dbh->prepare("select template_name from trans_boardtask_templates where id = '$task_triggers_template_id'");
$basth->execute;
while (($template_id_name) = $basth->fetchrow_array()) {
$print_tempname = "$template_id_name";
}
if ($task_triggers_activity eq "Letter") {
$task_triggers_activityl = "[ Print Letter ]";
}
elsif ($task_triggers_activity eq "E-Mail") {
$task_triggers_activityl = "[ Send E-Mail ]";
}
else {
$task_triggers_activityl = "";
}
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#ffffcc";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
$display_ptask_list .=qq~
| $task_triggers_task_type |
$task_triggers_activity |
$task_triggers_title$display_note |
$task_triggers_date_trigger |
Actions:
$task_triggers_activityl |
~;
$found = "yes";
}
if ($found eq "yes") {
if ($spouse ne "") {
$spouse = " & $spouse ";
}
else {
$spouse = "";
}
$todaystasks.=qq~
Prospect $firstname$spouse $lastname
Running: $print_tempname Template
|
$display_ptask_list
~;
}
$display_ptask_list = "";
$found = "no";
$prospect_found = "no";
}
unless ($prospect_found eq "yes") {
$todaystasks.=qq~
| You Must Create/Assign An Action Plan To Your Prospects! |
~;
}
$todaystasks.=qq~