my $currency_id = $self->{currency_ids_by_name}->{$draft->{currency}};
my $employee_id = $draft_record->{employee_id} || $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;
my $currency_id = $self->{currency_ids_by_name}->{$draft->{currency}};
my $employee_id = $draft_record->{employee_id} || $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;