Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision be776964

Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt

  • ID be776964b83340e69fa2f02eae59b703c0c95b88
  • Vorgänger 6d06b178
  • Nachfolger 014161b8

Nutzung der Tabelle currencies

Dieser Commmit passt den Code an, um die Tabelle currencies zu nutzen.

Unterschiede anzeigen:

SL/AP.pm
55 55
  my $exchangerate = 0;
56 56

  
57 57
  $form->{defaultcurrency} = $form->get_default_currency($myconfig);
58
  delete $form->{currency} unless $form->{defaultcurrency};
59 58

  
60 59
  ($null, $form->{department_id}) = split(/--/, $form->{department});
61 60

  
......
185 184
    $query = qq|UPDATE ap SET
186 185
                invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,
187 186
                amount = ?, duedate = ?, paid = ?, netamount = ?,
188
                curr = ?, notes = ?, department_id = ?, storno = ?, storno_id = ?,
187
                curr = (SELECT id FROM currencies WHERE curr = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?,
189 188
                globalproject_id = ?, direct_debit = ?
190 189
               WHERE id = ?|;
191 190
    @values = ($form->{invnumber}, conv_date($form->{transdate}),
......
665 664

  
666 665
  $form->{exchangerate}    = $form->format_amount($myconfig, $form->{exchangerate});
667 666
  $form->{defaultcurrency} = $form->get_default_currency($myconfig);
668
  delete $form->{currency} unless $form->{defaultcurrency};
669 667

  
670 668
  # Get the AP accno.
671 669
  $query =

Auch abrufbar als: Unified diff