|
Lines 181-194
sub AddBookseller {
Link Here
|
| 181 |
my $query = q| |
181 |
my $query = q| |
| 182 |
INSERT INTO aqbooksellers |
182 |
INSERT INTO aqbooksellers |
| 183 |
( |
183 |
( |
| 184 |
name, address1, address2, address3, address4, |
184 |
name, address1, address2, address3, address4, |
| 185 |
postal, phone, accountnumber,fax, url, |
185 |
postal, phone, accountnumber, fax, url, |
| 186 |
contact, contpos, contphone, contfax, contaltphone, |
186 |
contact, contpos, contphone, contfax, contaltphone, |
| 187 |
contemail, contnotes, active, listprice, invoiceprice, |
187 |
contemail, contnotes, active, listprice, invoiceprice, |
| 188 |
gstreg, listincgst, invoiceincgst,gstrate, discount, |
188 |
gstreg, listincgst, invoiceincgst, shippingincgst, |
|
|
189 |
gstrate, sgstrate, discount, |
| 189 |
notes, deliverytime |
190 |
notes, deliverytime |
| 190 |
) |
191 |
) |
| 191 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) | |
192 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) | |
| 192 |
; |
193 |
; |
| 193 |
my $sth = $dbh->prepare($query); |
194 |
my $sth = $dbh->prepare($query); |
| 194 |
$sth->execute( |
195 |
$sth->execute( |
|
Lines 204-210
sub AddBookseller {
Link Here
|
| 204 |
$data->{active} ,$data->{listprice}, |
205 |
$data->{active} ,$data->{listprice}, |
| 205 |
$data->{invoiceprice} ,$data->{gstreg}, |
206 |
$data->{invoiceprice} ,$data->{gstreg}, |
| 206 |
$data->{listincgst} ,$data->{invoiceincgst}, |
207 |
$data->{listincgst} ,$data->{invoiceincgst}, |
| 207 |
$data->{gstrate} ,$data->{discount}, |
208 |
$data->{shippingincgst} ,$data->{gstrate}, |
|
|
209 |
$data->{sgstrate} ,$data->{discount}, |
| 208 |
$data->{notes} ,$data->{deliverytime}, |
210 |
$data->{notes} ,$data->{deliverytime}, |
| 209 |
); |
211 |
); |
| 210 |
|
212 |
|
|
Lines 238-245
sub ModBookseller {
Link Here
|
| 238 |
postal=?,phone=?,accountnumber=?,fax=?,url=?,contact=?,contpos=?, |
240 |
postal=?,phone=?,accountnumber=?,fax=?,url=?,contact=?,contpos=?, |
| 239 |
contphone=?,contfax=?,contaltphone=?,contemail=?, |
241 |
contphone=?,contfax=?,contaltphone=?,contemail=?, |
| 240 |
contnotes=?,active=?,listprice=?, invoiceprice=?, |
242 |
contnotes=?,active=?,listprice=?, invoiceprice=?, |
| 241 |
gstreg=?,listincgst=?,invoiceincgst=?, |
243 |
gstreg=?,listincgst=?,invoiceincgst=?,shippingincgst=?, |
| 242 |
discount=?,notes=?,gstrate=?,deliverytime=? |
244 |
discount=?,notes=?,gstrate=?,sgstrate=?,deliverytime=? |
| 243 |
WHERE id=?'; |
245 |
WHERE id=?'; |
| 244 |
my $sth = $dbh->prepare($query); |
246 |
my $sth = $dbh->prepare($query); |
| 245 |
return $sth->execute( |
247 |
return $sth->execute( |
|
Lines 255-262
sub ModBookseller {
Link Here
|
| 255 |
$data->{'active'}, $data->{'listprice'}, |
257 |
$data->{'active'}, $data->{'listprice'}, |
| 256 |
$data->{'invoiceprice'}, $data->{'gstreg'}, |
258 |
$data->{'invoiceprice'}, $data->{'gstreg'}, |
| 257 |
$data->{'listincgst'}, $data->{'invoiceincgst'}, |
259 |
$data->{'listincgst'}, $data->{'invoiceincgst'}, |
|
|
260 |
$data->{'shippingincgst'}, |
| 258 |
$data->{'discount'}, $data->{'notes'}, |
261 |
$data->{'discount'}, $data->{'notes'}, |
| 259 |
$data->{'gstrate'}, |
262 |
$data->{'gstrate'}, $data->{'sgstrate'}, |
| 260 |
$data->{deliverytime}, |
263 |
$data->{deliverytime}, |
| 261 |
$data->{'id'} |
264 |
$data->{'id'} |
| 262 |
); |
265 |
); |