Revision 2d0a3648
Von Tamino Steinert vor 8 Monaten hinzugefügt
SL/DB/Reclamation.pm | ||
---|---|---|
270 | 270 |
{ from => 'invoice', to => SALES_RECLAMATION_TYPE(), abbr => 'sisr', }, |
271 | 271 |
{ from => 'purchase_invoice', to => PURCHASE_RECLAMATION_TYPE(), abbr => 'pipr', }, |
272 | 272 |
); |
273 |
my $from_to = (grep { $_->{from} eq $source->type && $_->{to} eq $destination_type} @from_tos)[0]; |
|
273 |
my $from_to = (grep { $_->{from} eq $source->record_type && $_->{to} eq $destination_type} @from_tos)[0];
|
|
274 | 274 |
if (!$from_to) { |
275 |
croak("Cannot convert from '" . $source->type . "' to '" . $destination_type . "'"); |
|
275 |
croak("Cannot convert from '" . $source->record_type . "' to '" . $destination_type . "'");
|
|
276 | 276 |
} |
277 | 277 |
|
278 | 278 |
my $is_abbr_any = sub { |
Auch abrufbar als: Unified diff
Model::Record: Nutzte record_type für Erstellung aus Workflow