[set page_banner]Report Rows[/set]
[set fm_class]Ledger[/set]
[set help_name]report_row[/set]
[set page_title]Report Rows[/set]
[set icon_name]admin/icon_stats.gif[/set]
@_FM_STD_HEAD_@
[seti sqlSentence]
BEGIN TRANSACTION;
[perl]
my $trans;
my $action = $Values->{"mv_action"};
my $row_id;
if ($action eq "Update") {
$row_id = $Values->{"select_row"};
$trans .= "UPDATE gl_reportrowhead SET description = '[value description]'
WHERE row_id = $row_id;\n";
$trans .= "DELETE FROM gl_reportrow WHERE row_id = $row_id;";
} elsif ($action eq "Delete") {
$trans .= "DELETE FROM gl_reportrowhead WHERE row_id = [value select_row];";
return $trans;
} else {
$trans .= "INSERT INTO gl_reportrowhead (description) VALUES ('[value description]');\n";
$row_id = "currval('gl_reportrowsequence')";
}
my $ref = $Scratch->{rows};
my ($ar, $nul, $names) = @$ref;
my $linenr = 0;
for my $row (@$ar) {
my ($type, $label, $text, $acctinfo1, $acctinfo2,$sign1,$fromline,$sign2,$toline) = @$row;
$linenr++;
if ($type == 1) {
$trans .= "INSERT INTO gl_reportrow (row_id, linenr, rowtype, label, rowtext, acctinfo1, acctinfo2)
VALUES ($row_id, $linenr, $type, '$label', '$text', '$acctinfo1', '$acctinfo2');\n";
} else {
$sign2 ||= 0;
$trans .= "INSERT INTO gl_reportrow (row_id, linenr, rowtype, label, rowtext, sign1, fromline, sign2, toline)
VALUES ($row_id, $linenr, $type, '$label', '$text', $sign1, '$fromline', $sign2, '$toline');\n";
}
};
undef $Values->{select_row};
$trans;
[/perl]
COMMIT;
[/seti]
[if value mv_action eq Update]
[set returnpage]freemoney/reportrowList[/set]
[set leadtext]The row has been updated.[/set]
[elsif value mv_action eq Delete]
[set returnpage]freemoney/reportrowList[/set]
[set leadtext]The row has been deleted:[/set]
[/elsif]
[else]
[set returnpage]freemoney/reportrowList[/set]
[set leadtext]The row has been added.[/set]
[/else]
[/if]
[value name=mv_action set=""]
[try][sql interpolate=1][scratch sqlSentence][/sql][/try]
[L][scratch leadtext][/L]
[catch] [L]There was an error. Please check your data.[/L]
[/catch] [L]BACK[/L] @_FM_STD_FOOTER_@