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