Revision 6d270ae6
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 734 | 734 |
|
| 735 | 735 |
my $all_units = AM->retrieve_units($myconfig, $form); |
| 736 | 736 |
|
| 737 |
my $already_booked = !!$form->{id};
|
|
| 738 |
|
|
| 737 | 739 |
if (!$payments_only) {
|
| 738 | 740 |
if ($form->{storno}) {
|
| 739 | 741 |
_delete_transfers($dbh, $form, $form->{storno_id});
|
| ... | ... | |
| 1060 | 1062 |
my $taxdate = $form->{tax_point} ||$form->{deliverydate} || $form->{invdate};
|
| 1061 | 1063 |
|
| 1062 | 1064 |
# better type? maybe define Invoice->invoice_type |
| 1063 |
if ($form->{type} ne 'invoice_for_advance_payment') {
|
|
| 1065 |
if (!$already_booked && $form->{type} ne 'invoice_for_advance_payment') {
|
|
| 1064 | 1066 |
my $invoices_for_advance_payment = $self->_get_invoices_for_advance_payment($form->{convert_from_ar_ids} || $form->{id});
|
| 1065 | 1067 |
if (scalar @$invoices_for_advance_payment > 0) {
|
| 1066 | 1068 |
# reverse booking for invoices for advance payment |
| ... | ... | |
| 1070 | 1072 |
# delete ? |
| 1071 | 1073 |
# --> is implemented below (bookings are marked in memo field) |
| 1072 | 1074 |
# |
| 1073 |
# post twice case ? |
|
| 1074 |
# ? |
|
| 1075 |
# |
|
| 1076 | 1075 |
# TODO: helper table acc_trans_advance_payment |
| 1077 | 1076 |
# trans_id for final invoice connects to acc_trans_id here |
| 1078 | 1077 |
# my $booking = SL::DB::AccTrans->new( ...) |
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: keine weitere Rückbuchung bei erneutem Buchen einer Schluss-Rg