Revision 33528d10
Von Cem Aydin vor mehr als 1 Jahr hinzugefügt
| 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
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.)