[set page_banner]Order Update[/set] [set fm_class]Order[/set] [set help_name]order update[/set] [set page_title]Order Update[/set] [set icon_name]admin/icon_item.gif[/set] @_FM_STD_HEAD_@ [seti error][perl tables="so_orderhead so_invoice so_invoicebatch"] # my $action = $Values->{"mv_action"}; my $dbh = $Sql{so_invoice}; $dbh->{Autocommit} = 0; my $sth = $dbh->do("INSERT INTO so_invoicebatch (status, updated) VALUES (100,timenow());") or return "** Error executing $trans"; my $trans = " INSERT INTO so_invoice (ordernr, batchnr, invoicetotal, invoicedate, status) SELECT ordernr, currval('so_invbatchsequence'), ordertotal, timenow(), 100 FROM so_orderhead WHERE status = 100 AND ordernr NOT IN (SELECT ordernr FROM so_invoice) "; if (!$Values->{"select_all"}) { my $ordernr = $Values->{"select_order"} || return "[L]**Please select all or some orders[/L]" ; $ordernr =~ s/\000/,/g; $trans .= " AND ordernr in ($ordernr)" }; $sth = $dbh->do($trans) or return "** Error executing $trans"; $rc = $dbh->commit; undef $Values->{select_order}; undef $Values->{select_all}; $trans = "SELECT currval('so_invbatchsequence');"; $sth = $dbh->prepare($trans) or return "** Error executing $trans"; $sth->execute() or return "** Error executing..."; ($Scratch->{batchnr}) = $sth->fetchrow() or return "No row"; $Scratch->{invtime} = "now"; return; [/perl][/seti] [set returnpage]freemoney/soinvList[/set] [if scratch error]

[L]There was an error adding the new order. Please check your data.[/L]

[scratch error] [else] Invoice batch [scratch batchnr] will be processed [scratch invtime] [fm_dispatch invoicebatch="[scratch batchnr]" time="[scratch invtime]" interpolate=1] [/else] [/if] [value name=mv_action set=""]

[L]BACK[/L] @_FM_STD_FOOTER_@