summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
25080f8)
Anstelle von bisher Rechnugnsnummer. Merkblätter diverser Banken sagen
dazu:
> SEPA-Mandat: Die Mandatsreferenz dient in Verbindung mit der
> Gläubiger-ID der eindeutigen Identifizierung eines SEPA-Mandats. Sie
> wird vom Lastschrifteinreicher individuell für jedes SEPA-Mandat
> vergeben (z.B. Vertrags-/Kundennummer).
my ($columns, $joins);
if ($params{details}) {
my ($columns, $joins);
if ($params{details}) {
- $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|;
+ $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|;
$joins = qq|LEFT JOIN ${arap} arap ON (sei.${arap}_id = arap.id)
LEFT JOIN ${vc} vc ON (arap.${vc}_id = vc.id)
LEFT JOIN chart c ON (sei.chart_id = c.id)|;
$joins = qq|LEFT JOIN ${arap} arap ON (sei.${arap}_id = arap.id)
LEFT JOIN ${vc} vc ON (arap.${vc}_id = vc.id)
LEFT JOIN chart c ON (sei.chart_id = c.id)|;
# Record the payment in acc_trans offsetting AR/AP.
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);
# Record the payment in acc_trans offsetting AR/AP.
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);
- 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},
+ 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},
$orig_item->{chart_id});
# Update the invoice to reflect the new paid amount.
$orig_item->{chart_id});
# Update the invoice to reflect the new paid amount.
$xml->startTag('DrctDbtTx');
$xml->startTag('MndtRltdInf');
$xml->startTag('DrctDbtTx');
$xml->startTag('MndtRltdInf');
- $xml->dataElement('MndtId', $self->_restricted_identification_sepa2($transaction->get('reference')));
+ $xml->dataElement('MndtId', $self->_restricted_identification_sepa2($transaction->get('company_number')));
$xml->dataElement('DtOfSgntr', $transaction->get('reference_date', 2010-12-02));
$xml->endTag('MndtRltdInf');
$xml->dataElement('DtOfSgntr', $transaction->get('reference_date', 2010-12-02));
$xml->endTag('MndtRltdInf');
'dst_iban' => $item->{vc_iban},
'dst_bic' => $item->{vc_bic},
'company' => $item->{vc_name},
'dst_iban' => $item->{vc_iban},
'dst_bic' => $item->{vc_bic},
'company' => $item->{vc_name},
+ 'company_number' => $item->{vc_number},
'amount' => $item->{amount},
'reference' => $item->{reference},
'reference_date' => $item->{reference_date},
'amount' => $item->{amount},
'reference' => $item->{reference},
'reference_date' => $item->{reference_date},