Revision e7214232
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 372 | 372 |
$form->{ge} *= 1;
|
| 373 | 373 |
$form->{alu} *= 1;
|
| 374 | 374 |
$form->{buchungsgruppen_id} *= 1;
|
| 375 |
$form->{adr_id} *= 1;
|
|
| 376 | 375 |
$form->{not_discountable} *= 1;
|
| 377 | 376 |
$form->{payment_id} *= 1;
|
| 378 | 377 |
|
| ... | ... | |
| 491 | 490 |
rop = $form->{rop},
|
| 492 | 491 |
bin = '$form->{bin}',
|
| 493 | 492 |
buchungsgruppen_id = '$form->{buchungsgruppen_id}',
|
| 494 |
adr_id = '$form->{adr_id}',
|
|
| 495 | 493 |
payment_id = '$form->{payment_id}',
|
| 496 | 494 |
inventory_accno_id = (SELECT c.id FROM chart c |
| 497 | 495 |
WHERE c.accno = '$form->{inventory_accno}'),
|
| ... | ... | |
| 1511 | 1509 |
} |
| 1512 | 1510 |
$sth->finish; |
| 1513 | 1511 |
|
| 1514 |
# get adr |
|
| 1515 |
$query = qq|SELECT id, adr_description, adr_code |
|
| 1516 |
FROM adr|; |
|
| 1517 |
$sth = $dbh->prepare($query); |
|
| 1518 |
$sth->execute || $form->dberror($query); |
|
| 1519 |
|
|
| 1520 |
|
|
| 1521 |
$form->{ADR} = [];
|
|
| 1522 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 1523 |
push @{ $form->{ADR} }, $ref;
|
|
| 1524 |
} |
|
| 1525 |
$sth->finish; |
|
| 1526 |
|
|
| 1527 | 1512 |
# get payment terms |
| 1528 | 1513 |
$query = qq|SELECT id, description |
| 1529 | 1514 |
FROM payment_terms |
Auch abrufbar als: Unified diff
ADR entfernt (kam aus Kundenprojekt und ist nicht fuer die allgemeine Lx-Office-Variante gedacht).