Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c224f946

Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt

  • ID c224f9465dcc7c0e6807050135a43cec0706c290
  • Vorgänger 73e9f6e3
  • Nachfolger d9a03ae1

S:D:PurchaseInvoice: Kosmetik: kein ';' nach Kontrollstrukturen

Unterschiede anzeigen:

SL/DB/PurchaseInvoice.pm
59 59

  
60 60
sub items { goto &invoiceitems; }
61 61
sub add_items { goto &add_invoiceitems; }
62
sub record_number { goto &invnumber; };
62
sub record_number { goto &invnumber; }
63 63

  
64 64
sub is_sales {
65 65
  # For compatibility with Order, DeliveryOrder
......
87 87
  return t8('Invoice (one letter abbreviation)'). '(' . t8('Storno (one letter abbreviation)') . ')' if $self->storno;
88 88
  return t8('Invoice (one letter abbreviation)');
89 89

  
90
};
90
}
91 91

  
92 92
sub oneline_summary {
93 93
  my $self = shift;
......
123 123

  
124 124
sub displayable_name {
125 125
  join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
126
};
126
}
127 127

  
128 128
sub convert_to_reclamation {
129 129
  my ($self, %params) = @_;
......
165 165
  $self->add_transactions( $acc );
166 166
  push( @$acc_trans, $acc );
167 167
  return $acc_trans;
168
};
168
}
169 169

  
170 170
sub add_ap_amount_row {
171 171
  my ($self, %params ) = @_;
......
186 186

  
187 187
  if ( $tax and $tax->rate != 0 ) {
188 188
    ($netamount, $taxamount) = Form->calculate_tax($params{amount}, $tax->rate, $self->taxincluded, $roundplaces);
189
  };
189
  }
190 190

  
191 191
  return unless $netamount; # netamount mustn't be zero
192 192

  
......
218 218
     );
219 219
     $self->add_transactions( $acc );
220 220
     push( @$acc_trans, $acc );
221
  };
221
  }
222 222
  return $acc_trans;
223
};
223
}
224 224

  
225 225
sub mark_as_paid {
226 226
  my ($self) = @_;

Auch abrufbar als: Unified diff