my ($tax_id, $taxkey) = split(/--/, $form->{tax});
my $startdate = $form->{startdate} ? $form->{startdate} : "1970-01-01";
my ($tax_id, $taxkey) = split(/--/, $form->{tax});
my $startdate = $form->{startdate} ? $form->{startdate} : "1970-01-01";
$query = qq|UPDATE chart SET
accno = ?, description = ?, charttype = ?,
gifi_accno = ?, category = ?, link = ?,
$query = qq|UPDATE chart SET
accno = ?, description = ?, charttype = ?,
gifi_accno = ?, category = ?, link = ?,
- my $query = qq|SELECT id, description, discount, customernumberinit, salesman
+ my $query = qq|SELECT id, description, discount, customernumberinit
- qq|SELECT b.description, b.discount, b.customernumberinit, b.salesman
+ qq|SELECT b.description, b.discount, b.customernumberinit
my $dbh = $form->dbconnect($myconfig);
my @values = ($form->{description}, $form->{discount},
my $dbh = $form->dbconnect($myconfig);
my @values = ($form->{description}, $form->{discount},
WHERE id = ?|;
push(@values, $form->{id});
} else {
$query = qq|INSERT INTO business
WHERE id = ?|;
push(@values, $form->{id});
} else {
$query = qq|INSERT INTO business
- (description, discount, customernumberinit, salesman)
- VALUES (?, ?, ?, ?)|;
+ (description, discount, customernumberinit)
+ VALUES (?, ?, ?)|;
}
do_query($form, $dbh, $query, @values);
}
do_query($form, $dbh, $query, @values);
- ($form->{orphaned}) = selectrow_arra($query, undef, $form->{id});
- $form->dberror($query . " ($form->{id})") if ($dbh->err);
+ ($form->{orphaned}) = selectrow_query($form, $dbh, $query, $form->{id});
}
$query = "SELECT inventory_accno_id, income_accno_id, expense_accno_id ".
"FROM defaults";
($form->{"std_inventory_accno_id"}, $form->{"std_income_accno_id"},
}
$query = "SELECT inventory_accno_id, income_accno_id, expense_accno_id ".
"FROM defaults";
($form->{"std_inventory_accno_id"}, $form->{"std_income_accno_id"},
my $module = "IC";
$query = qq|SELECT c.accno, c.description, c.link, c.id,
my $module = "IC";
$query = qq|SELECT c.accno, c.description, c.link, c.id,