[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_@