Дипломная работа: Автоматизация взаимоотношений с клиентами в ООО "Прострой"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
83
Листинг программного кода.
   
# $sth = $dbh->prepare( q{ SELECT * FROM scheta WHERE pokupatel LIKE ? AND
# userid = ? AND dt LIKE ? AND prod LIKE ? AND price LIKE ? AND otrab LIKE ?
# }) || die "Can't prepare statement: $DBI::errstr";
# $sth->execute("%$f{'1'}%","%$f{'2'}%","%$f{'3'}%",
# "%$f{'4'}%","%$f{'5'}%","%$f{'6'}%");
if ($f{'2'}) {
$sth = $dbh->prepare( q{ SELECT * FROM scheta WHERE pokupatel LIKE ?
AND usersid = ? AND (dt BETWEEN ? AND ?) AND otrab LIKE ? }) || die "Can't prepare
statement: $DBI::errstr";
$sth->execute("%$f{'1'}%",$f{'2'},$f{'3-1'},$f{'3-2'},"%$f{'6'}%");
} else {
$sth = $dbh->prepare( q{ SELECT * FROM scheta WHERE pokupatel LIKE ?
AND (dt BETWEEN ? AND ?) AND otrab LIKE ? }) || die "Can't prepare statement:
$DBI::errstr";
$sth->execute("%$f{'1'}%",$f{'3-1'},$f{'3-2'},"%$f{'6'}%");
}
$out.="<center><table border=1 cellspacing=0 cellpadding=4><tr>\n".
\
n".
"<td><strongtd><td><strong-id--
-ei)</td>\n".
\n";
$sth2 = $dbh->prepare( q{ SELECT userfio FROM users WHERE id = ? }) || die "Can't
prepare statement: $DBI::errstr";
while (@row = $sth->fetchrow_array) {
84
$sth2->execute($row[2]);
$userfio = $sth2->fetchrow_array;
$sth2->finish;
$sum=0; $sum2=0;
@rc=split(/,/,$row[5]);
for (@rc) {
($prod,$price)=split(/\=/);
$pr{$prod}=$price;
}
@rc=split(/,/,$row[4]);
@summ=();
for (@rc) {
($prod,$kol)=split(/\=/);
($skladid,$rulid)=split(/\-/,$prod);
$kl{$skladid}+=$kol;
$sum+=$kol;
$summ[$#summ+1]="$rulid-$kol";
$sum2+=int($pr{$skladid}*$kol*100)/100;
}
$summ=join(' + ',@summ);
$out.="<tr>\n".
"<td>$row[0]</td>\n".
"<td>$row[1]</td>\n".
"<td>$userfio</td>\n".
85
"<td>$row[3]</td>\n".
"<td>$summ = $sum</td>\n".
"<td>".po($sum2)."</td>\n".
"<td>".($rowtd>\n";
$out.="</tr>\n";
}
$sth->finish;
$out.="<form><input type=hidden name=action value=2><input type=hidden
name=search value=1>\n".
"<tr>\n".
"<td>&nbsp;</td>\n".
"<td><input type=text name=1 size=10 value=\"$f{'1'}\"></td>\n".
"<td><select name=2>".
"<option value=\"\">*</option>\n";
$sth = $dbh->prepare( q{ SELECT id,userfio FROM users });
$sth->execute;
while (@row = $sth->fetchrow_array) {
$out.="<option value=$row[0]".($row[0]==$f{'2'}?"
selected":"").">$row[1]</option>\n";
}
$sth->finish;
$out.="</select></td>\n".
-1 size=17 value=\"$f{'3-
1'}\"><br>\n".
-2 size=17 value=\"$f{'3-2'}\"></td>\n".
"<td><input type=text name=4 size=5 value=\"$f{'4'}\"></td>\n".
86
"<td><input type=text name=5 size=5 value=\"$f{'5'}\"></td>\n".
"<td><select name=6><option value=\"\"".($f{'6'}?"":"
selected").">*</option>".
"<opt

"</td>\n".
"</tr></table>\n".
"<br><input type=submit value=\\"></form>\n";
} else {
$out.="<center><table border=1 cellspacing=0 cellpadding=4><tr>\n".
\
n".
-\n".
\n";
$out.="<form><input type=hidden name=action value=2><input type=hidden
name=search value=1>\n".
"<tr>\n".
"<td>&nbsp;</td>\n".
"<td><input type=text name=1 size=10></td>\n".
"<td><select name=2>".
"<option value=\"\">*</option>\n";
$sth = $dbh->prepare( q{ SELECT id,userfio FROM users WHERE user <> ? });
$sth->execute($ignoreuserinstat);
while (@row = $sth->fetchrow_array) {
$out.="<option value=$row[0]>$row[1]</option>\n";
87
}
$sth->finish;
use Time::Local;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time-172800);
$year+=1900;
$mon++;
$days2dt="$year-$mon-$mday 00:00:00";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year+=1900;
$mon++;
$curdt="$year-$mon-$mday 23:59:59";
$out.="</select></td>\n".
-1 size=17
value=\"$days2dt\"><br>\n".
-2 size=17 value=\"$curdt\"></td>\n".
"<td><input type=text name=4 size=5></td>\n".
"<td><input type=text name=5 size=5></td>\n".
"<td><select name=6><option value=\"\">*</option>".

"</td>\n".
"</tr></table>\n".
"<br><input type=submit value=\\"></form>\n";
}
Источник: https://baza.diplomsite.ru/previewfile/400

Смотрите также:

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал