[set page_banner]Ledger[/set] [set fm_class]Ledger[/set] [set help_name]report[/set] [set page_title]Reports[/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 $report_id = $Values->{"select_report"} || "currval('gl_reportsequence')"; if ($action eq "Update") { $trans = "UPDATE gl_report SET reportnr = [value reportnr], name='[value name]', description='[value description]', row_id=[value row_id], col_id=[value col_id] WHERE glreport_id = [value select_report];"; } elsif ($action eq "Delete") { $trans .= "DELETE FROM gl_report WHERE report_id = [value select_report];"; } else { $trans .= "INSERT INTO gl_report (reportnr, name, description, row_id, col_id) VALUES ([value reportnr], '[value name]', '[value description]', [value row_id], [value col_id]);"; }; $trans; [/perl] COMMIT; [/seti] [if value mv_action eq Update] [set returnpage]freemoney/reportList[/set] [set leadtext]The report has been updated[/set] [elsif value mv_action eq Delete] [set returnpage]freemoney/reportList[/set] [set leadtext]The report entry has been deleted[/set] [/elsif] [else] [set returnpage]freemoney/report[/set] [set leadtext]The report entry has been added[/set] [/else] [/if] [value name=mv_action set=""] [try][sql interpolate=1][scratch sqlSentence][/sql][/try] [catch][L]There was an error adding the new report entry.[/L][/catch] [L][scratch leadtext][/L] [L]BACK[/L] @_FM_STD_FOOTER_@