Revision aa0fece0
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 72 | 72 |
|
| 73 | 73 |
#get name of currency instead of id: |
| 74 | 74 |
$query = qq|SELECT name AS curr FROM currencies WHERE id=?|; |
| 75 |
($form->{curr}) = selectrow_query($form, $dbh, $query, conv_i($form->{curr}));
|
|
| 75 |
($form->{curr}) = selectrow_query($form, $dbh, $query, conv_i($form->{currency_id}));
|
|
| 76 | 76 |
|
| 77 | 77 |
if ( $form->{salesman_id} ) {
|
| 78 | 78 |
my $query = |
| ... | ... | |
| 276 | 276 |
$query = qq|SELECT nextval('id')|;
|
| 277 | 277 |
($form->{id}) = selectrow_query($form, $dbh, $query);
|
| 278 | 278 |
|
| 279 |
$query = qq|INSERT INTO customer (id, name) VALUES (?, '')|;
|
|
| 279 |
$query = qq|INSERT INTO customer (id, name, currency_id) VALUES (?, '', (SELECT currency_id FROM defaults))|;
|
|
| 280 | 280 |
do_query($form, $dbh, $query, $form->{id});
|
| 281 | 281 |
} |
| 282 | 282 |
|
| ... | ... | |
| 423 | 423 |
$query = qq|SELECT nextval('id')|;
|
| 424 | 424 |
($form->{id}) = selectrow_query($form, $dbh, $query);
|
| 425 | 425 |
|
| 426 |
$query = qq|INSERT INTO vendor (id, name) VALUES (?, '')|;
|
|
| 426 |
$query = qq|INSERT INTO vendor (id, name, currency_id) VALUES (?, '', (SELECT currency_id FROM defaults))|;
|
|
| 427 | 427 |
do_query($form, $dbh, $query, $form->{id});
|
| 428 | 428 |
|
| 429 | 429 |
my $vendornumber = SL::TransNumber->new(type => 'vendor', |
Auch abrufbar als: Unified diff
Behebt Bugs für Währungen
Vergessene Anpassungen von der Spaltenumbenennung in currencies.pl
wurden noch repariert (auch in currencies.pl selbst). Weiterhin
wurden noch andere Bugs repariert, wie Anlegen von Kunden, korrekte
Anzeige der Währung bei Lieferanten und Kunden, speichern von Rechnungen
(VK und EK), Angebot und Lieferschein erfassen.