[set page_banner]Article[/set]
[set fm_class]product[/set]
[set help_name]article[/set]
[set page_title]Article[/set]
[set icon_name]icon_item.gif[/set]
@_FM_STD_HEAD_@
[seti sqlSentence]
BEGIN TRANSACTION;
[perl]
my $trans;
my $action = $Values->{"mv_action"};
my $art_id = $Values->{"select_article"} || "currval('pd_artsequence')";
if ($action eq "Update") {
$trans = "UPDATE pd_article SET articlenr = '[value articlenr]', altartnr='[value altartnr]', description='[value description]',
unitweight=[value unitweight], updated='now' WHERE art_id = [value select_article];";
if ($Values->{"validfrom"}) {
$trans .= "UPDATE pd_artprice SET price = [value price], validfrom='[value validfrom]', updated='now' WHERE art_id = [value select_article] AND type=110001 and validto='infinity';";
}
} elsif ($action eq "Delete") {
$trans .= "DELETE FROM article WHERE art_id = [value select_article];";
return $trans;
} else {
$trans .= "INSERT INTO pd_article (articlenr, altartnr, description, unitweight, updated)
VALUES ('[value articlenr]', '[value altartnr]', '[value description]', [value unitweight], 'now');";
$trans .= "INSERT INTO pd_artprice (art_id, type, price, validfrom, validto, updated)
VALUES ($art_id, 110001, [value price], '[value validfrom]', 'infinity', 'now');";
};
$trans;
[/perl]
COMMIT;
[/seti]
[if value mv_action eq Update]
[set returnpage]freemoney/articleList[/set]
[set leadtext]The article has been updated[/set]
[elsif value mv_action eq Delete]
[set returnpage]freemoney/articleList[/set]
[set leadtext]The article entry has been deleted[/set]
[/elsif]
[else]
[set returnpage]freemoney/article[/set]
[set leadtext]The article entry 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 adding the new article entry. Please check your data.[/L]
[/catch] [L]BACK[/L] @_FM_STD_FOOTER_@