Revision 452b5ca8
Von Bernd Bleßmann vor 6 Monaten hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1506 | 1506 |
{ type => SCALAR, callbacks => { is_fx_currency => sub { shift ne $_[1]->[0]->{defaultcurrency} } } }, # should be ISO three letter codes for currency identification (ISO 4217)
|
| 1507 | 1507 |
{ type => SCALAR | HASHREF, callbacks => { is_valid_kivi_date => sub { shift =~ m/\d+.\d+.\d+/ } } }, # we have three numbers. Either DateTime or form scalar
|
| 1508 | 1508 |
{ type => SCALAR, callbacks => { is_buy_or_sell_rate => sub { shift =~ m/^(buy|sell)$/ } } },
|
| 1509 |
{ type => SCALAR, callbacks => { is_current_form_id => sub { $_[0] == $_[1]->[0]->{id} } }, optional => 1 },
|
|
| 1509 |
{ type => SCALAR | UNDEF, callbacks => { is_current_form_id => sub { $_[0] == $_[1]->[0]->{id} } }, optional => 1 },
|
|
| 1510 | 1510 |
{ type => SCALAR, callbacks => { is_valid_fx_table => sub { shift =~ m/^(ar|ap)$/ } }, optional => 1 }
|
| 1511 | 1511 |
); |
| 1512 | 1512 |
my ($self, $myconfig, $currency, $transdate, $fld, $id, $record_table) = @_; |
Auch abrufbar als: Unified diff
S:Form: check_exchagerate: die id kann bzw. darf auch "undef" sein.
Das gab z.B. einen Fehler beim Neuanlegen einer Debitorenbuchungen für Kunden,
bei denen eine Fremdwärung eingestellt ist.