summaryrefslogtreecommitdiff
path: root/LedgerSMB/IC.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/IC.pm')
-rwxr-xr-xLedgerSMB/IC.pm16
1 files changed, 11 insertions, 5 deletions
diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm
index d4eb2a6e..feb7dd7a 100755
--- a/LedgerSMB/IC.pm
+++ b/LedgerSMB/IC.pm
@@ -479,11 +479,17 @@ sub save {
for $i (1 .. $form->{assembly_rows}) {
$form->{"qty_$i"} = $form->parse_amount(
$myconfig, $form->{"qty_$i"});
- $sth->execute(
- $form->{id}, $form->{"id_$i"},
- $form->{"qty_$i"}, $form->{"bom_$i"},
- $form->{"adj_$i"}
- ) || $form->dberror($query);
+ if(!$form->{"bom_$i"}){
+ $form->{"bom_$i"} = undef;
+ }
+
+ if ($form->{"id_$i"} && $form->{"qty_$i"}){
+ $sth->execute(
+ $form->{id}, $form->{"id_$i"},
+ $form->{"qty_$i"}, $form->{"bom_$i"} || 0,
+ $form->{"adj_$i"}
+ ) || $form->dberror($query);
+ }
}
}
# adjust onhand for the parts