Revision 30d4e2f7
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/SEPA.pm | ||
|---|---|---|
| 178 | 178 |
my ($columns, $joins); |
| 179 | 179 |
|
| 180 | 180 |
if ($params{details}) {
|
| 181 |
$columns = qq|, arap.invnumber, arap.invoice, arap.transdate AS reference_date, vc.name AS vc_name, c.accno AS chart_accno, c.description AS chart_description|; |
|
| 181 |
$columns = qq|, arap.invnumber, arap.invoice, arap.transdate AS reference_date, vc.name AS vc_name, vc.${vc}number AS vc_number, c.accno AS chart_accno, c.description AS chart_description|;
|
|
| 182 | 182 |
$joins = qq|LEFT JOIN ${arap} arap ON (sei.${arap}_id = arap.id)
|
| 183 | 183 |
LEFT JOIN ${vc} vc ON (arap.${vc}_id = vc.id)
|
| 184 | 184 |
LEFT JOIN chart c ON (sei.chart_id = c.id)|; |
| ... | ... | |
| 398 | 398 |
|
| 399 | 399 |
# Record the payment in acc_trans offsetting AR/AP. |
| 400 | 400 |
do_statement($form, @{ $handles{add_acc_trans} }, $orig_item->{"${arap}_id"}, $arap_chart_id, -1 * $mult * $orig_item->{amount}, $item->{execution_date}, '', $arap_chart_id);
|
| 401 |
do_statement($form, @{ $handles{add_acc_trans} }, $orig_item->{"${arap}_id"}, $orig_item->{chart_id}, $mult * $orig_item->{amount}, $item->{execution_date}, $orig_item->{reference},
|
|
| 401 |
do_statement($form, @{ $handles{add_acc_trans} }, $orig_item->{"${arap}_id"}, $orig_item->{chart_id}, $mult * $orig_item->{amount}, $item->{execution_date}, $orig_item->{reference},
|
|
| 402 | 402 |
$orig_item->{chart_id});
|
| 403 | 403 |
|
| 404 | 404 |
# Update the invoice to reflect the new paid amount. |
| SL/SEPA/XML.pm | ||
|---|---|---|
| 223 | 223 |
$xml->startTag('DrctDbtTx');
|
| 224 | 224 |
|
| 225 | 225 |
$xml->startTag('MndtRltdInf');
|
| 226 |
$xml->dataElement('MndtId', $self->_restricted_identification_sepa2($transaction->get('reference')));
|
|
| 226 |
$xml->dataElement('MndtId', $self->_restricted_identification_sepa2($transaction->get('company_number')));
|
|
| 227 | 227 |
$xml->dataElement('DtOfSgntr', $transaction->get('reference_date', 2010-12-02));
|
| 228 | 228 |
$xml->endTag('MndtRltdInf');
|
| 229 | 229 |
|
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 511 | 511 |
'dst_iban' => $item->{vc_iban},
|
| 512 | 512 |
'dst_bic' => $item->{vc_bic},
|
| 513 | 513 |
'company' => $item->{vc_name},
|
| 514 |
'company_number' => $item->{vc_number},
|
|
| 514 | 515 |
'amount' => $item->{amount},
|
| 515 | 516 |
'reference' => $item->{reference},
|
| 516 | 517 |
'reference_date' => $item->{reference_date},
|
Auch abrufbar als: Unified diff
SEPA: Bei Einzügen Feld "MndtId" mit Kundennummer belegen
Anstelle von bisher Rechnugnsnummer. Merkblätter diverser Banken sagen
dazu: