FoAM/feral-budget
12
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

Can we increase the probability of success through the numerology of creative accounting?

Browse source 
kate’s changes to prepare_budget to add item lines and notes
This commit is contained in:
nik gaffney 2021-09-07 09:33:06 +02:00
parent 831352fc98
commit e6463c54e9
1 changed files with 1191 additions and 1155 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
f20-budget.pl
View file

@ -369,7 +369,15 @@ END
my $sth5 = $dbh->prepare($sql5); my $sth5 = $dbh->prepare($sql5);
$sth5->execute; $sth5->execute;
for ($i=1;$i<=8;$i++) {
my $sqlCL = qq( SELECT count(id) AS count from nonfinance where budget_id=$record->{id} AND agent_id =$record2->{id} AND kind='labour' );
my $sthCL = $dbh->prepare($sqlCL);
$sthCL->execute;
while (my $recordCL = $sthCL->fetchrow_hashref) {
my $t = $recordCL->{count};
for ($i=1;$i<=$t;$i++) {
while (my $record5 = $sth5->fetchrow_hashref) { while (my $record5 = $sth5->fetchrow_hashref) {
print(qq(<tr><td colspan="1"><b>$i.</b></td>\n)); print(qq(<tr><td colspan="1"><b>$i.</b></td>\n));
print(qq(<td><input type="checkbox" NAME="new_lstatus$i" VALUE="delivered")); print(qq(<td><input type="checkbox" NAME="new_lstatus$i" VALUE="delivered"));
@ -381,16 +389,10 @@ END
print(qq(<td colspan="3"><input type="text" name="new_labour$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n)); print(qq(<td colspan="3"><input type="text" name="new_labour$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n));
$i++ $i++
} }
if ($i<=5) {
print(qq(<tr><td colspan="1"><b>$i.</b></td>\n));
print(qq(<td><input type="checkbox" NAME="new_lstatus$i" VALUE="delivered"));
if ($record5->{status} eq 'delivered') {
print(qq(CHECKED));
}
;
print(qq(></td>\n));
print(qq(<td colspan="3"><input type="text" name="new_labour$i" size="100" maxsize="200"></td></tr>\n));
} }
print(qq(<tr><td colspan="4"><input type="text" name="insert_labour" size=1 maxsize=2 value="">));
print(qq(enter a number to add budget lines </td></tr>));
} }
print(qq(<tr><td colspan="8" height="20">&nbsp;</td></tr>\n)); print(qq(<tr><td colspan="8" height="20">&nbsp;</td></tr>\n));
@ -400,7 +402,14 @@ END
my $sth5 = $dbh->prepare($sql5); my $sth5 = $dbh->prepare($sql5);
$sth5->execute; $sth5->execute;
for ($i=1;$i<=8;$i++) { my $sqlCR = qq( SELECT count(id) AS count from nonfinance where budget_id=$record->{id} AND agent_id =$record2->{id} AND kind='resources' );
my $sthCR = $dbh->prepare($sqlCR);
$sthCR->execute;
while (my $recordCR = $sthCR->fetchrow_hashref) {
my $t = $recordCR->{count};
for ($i=1;$i<=$t;$i++) {
while (my $record5 = $sth5->fetchrow_hashref) { while (my $record5 = $sth5->fetchrow_hashref) {
print(qq(<tr><td colspan="1"><b>$i.</b></td>\n)); print(qq(<tr><td colspan="1"><b>$i.</b></td>\n));
print(qq(<td><input type="checkbox" NAME="new_rstatus$i" VALUE="delivered")); print(qq(<td><input type="checkbox" NAME="new_rstatus$i" VALUE="delivered"));
@ -412,23 +421,46 @@ END
print(qq(<td colspan="3"><input type="text" name="new_resource$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n)); print(qq(<td colspan="3"><input type="text" name="new_resource$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n));
$i++ $i++
} }
if ($i<=5) {
print(qq(<tr><td colspan="1"><b>$i.</b></td>\n));
print(qq(<td><input type="checkbox" NAME="new_rstatus$i" VALUE="delivered"));
if ($record5->{status} eq 'delivered') {
print(qq(CHECKED));
}
print(qq(></td>\n));
print(qq(<td colspan="3"><input type="text" name="new_resource$i" size="100" maxsize="200"></td></tr>\n));
}
} }
print(qq(<tr><td colspan="1"></td><td colspan="1"></td><td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td></tr>\n)); print <<END;
print(qq(</td></tr>\n)); <tr><td colspan="4">
print(qq(</FORM>\n)); <input type="text" name="insert_resources" size=1 maxsize=2 value="">
print(qq(<tr><td height="10"></td></tr>\n)); enter a number to add budget lines</td>
print(qq(<tr><td colspan="5"></td><td colspan="3" class="serif_sm">Notes:</td></tr>\n)); </tr>
print(qq(</td></tr></table></table>\n)); END
}
print <<END;
<tr><td height="10"></td></tr>
<tr>
<td colspan="1"></td><td colspan="1"></td>
<td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td>
</tr>
</td></tr>
</FORM>
<tr><td height="10"></td></tr>
END
# print "<tr><td colspan=\"1\" class=\"medbig\"><b>OR add budget lines</b></td><td colspan=\"8\">for labour &amp;/or resources </td></tr>";
# $sthCL->execute;
# while (my $recordCL = $sthCL->fetchrow_hashref) {
# print "<tr><td colspan=\"4\"><input type=\"text\" name=\"insert_labour\" size=2 maxsize=3 value=\"\">";
# print " add this many budget lines for labour [after $recordCL->{count}]\n";
# }
# $sthCR->execute;
# whle (my $recordCR = $sthCR->fetchrow_hashref) {
# print "<tr><td colspan=\"4\"><input type=\"text\" name=\"insert_labour\" size=2 maxsize=3 value=\"\">";
# print " add this many budget lines for resources [after $recordCR->{count}]\n";
# }
print <<END;
<tr><td colspan="5"></td><td colspan="3" class="serif_sm">Notes:</td></tr>
</td></tr>
</table>
</table>
END
} else { } else {
& print_header; & print_header;
@ -1924,7 +1956,9 @@ END
sub print_subtotal { sub print_subtotal {
my $string = shift; my $string = shift;
my $amount = shift; my $amount = shift;
if (not $amount) {$amount = "";} if (not $amount) {
$amount = "";
}
print <<END; print <<END;
<div class="budget-subtotal"> <div class="budget-subtotal">
<p class="subtotal-name">$string</p> <p class="subtotal-name">$string</p>
@ -1938,7 +1972,9 @@ END
sub print_item { sub print_item {
my $string = shift; my $string = shift;
my $amount = shift; my $amount = shift;
if (not $amount) {$amount = "";} if (not $amount) {
$amount = "";
}
print <<END; print <<END;
<div class="budget-item"> <div class="budget-item">
<p class="item-name">$string</p> <p class="item-name">$string</p>