Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 61fd623b

Von Cem Aydin vor 10 Monaten hinzugefügt

  • ID 61fd623b958483cc57c328c3f3305c633b824473
  • Vorgänger e1e09249
  • Nachfolger 73126531

Schweizer QR-Rechnung: Scan Funktion in mobile design eingebaut

Schweizer QR-Rechnungen können via mobile design eingescannt werden.

Die eingescannten Daten werden in einer Maske angezeigt und können
dann als Kreditorbuchung gespeichert werden.

Zum speichern wird die post funktion aus ap.pl verwendet.

- Menüpunkt im mobile design hinzugefügt
- Neue mobile Templates und controller hinzugefügt
- ap.pl: Anpassung redirect nach post
- AP.pm: QR-Code Daten in Kreditorenbuchung speichern (Verwendung von
URI::Escape, da es sich um mehrzeilige Daten mit Sonderzeichen handelt,
welche über die form weitergegeben werden.)

Unterschiede anzeigen:

SL/AP.pm
50 50
use Data::Dumper;
51 51
use List::Util qw(sum0);
52 52
use strict;
53
use URI::Escape;
53 54

  
54 55
sub post_transaction {
55 56
  my ($self, $myconfig, $form, $provided_dbh, %params) = @_;
......
161 162
                transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,
162 163
                amount = ?, duedate = ?, deliverydate = ?, tax_point = ?, paid = ?, netamount = ?,
163 164
                currency_id = (SELECT id FROM currencies WHERE name = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?,
164
                globalproject_id = ?, direct_debit = ?, payment_id = ?, transaction_description = ?, intnotes = ?
165
                globalproject_id = ?, direct_debit = ?, payment_id = ?, transaction_description = ?, intnotes = ?,
166
                qrbill_data = ?
165 167
               WHERE id = ?|;
166 168
    @values = ($form->{invnumber}, conv_date($form->{transdate}),
167 169
                  $form->{ordnumber}, conv_i($form->{vendor_id}),
......
174 176
                  $form->{direct_debit} ? 't' : 'f',
175 177
                  conv_i($form->{payment_id}), $form->{transaction_description},
176 178
                  $form->{intnotes},
179
                  $form->{qrbill_data_encoded} ? uri_unescape($form->{qrbill_data_encoded}) : undef,
177 180
                  $form->{id});
178 181
    do_query($form, $dbh, $query, @values);
179 182

  

Auch abrufbar als: Unified diff