Revision 4699b274
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| sql/Pg-upgrade2/convert_drafts_to_record_templates.pl | ||
|---|---|---|
|
my ($self) = @_;
|
||
|
|
||
|
$self->{q_draft} = qq|
|
||
|
SELECT description, form
|
||
|
SELECT description, form, employee_id
|
||
|
FROM drafts
|
||
|
WHERE module = ?
|
||
|
|;
|
||
| ... | ... | |
|
$self->{h_draft}->execute('ar') || die $self->{h_draft}->errstr;
|
||
|
|
||
|
while (my $draft_record = $self->{h_draft}->fetchrow_hashref) {
|
||
|
my $draft = YAML::Load($draft_record->{form});
|
||
|
my $currency_id = $self->{currency_ids_by_name}->{$draft->{currency}};
|
||
|
my ($employee_id) = $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;
|
||
|
my $draft = YAML::Load($draft_record->{form});
|
||
|
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;
|
||
|
|
||
|
next unless $currency_id;
|
||
|
|
||
| ... | ... | |
|
while (my $draft_record = $self->{h_draft}->fetchrow_hashref) {
|
||
|
my $draft = YAML::Load($draft_record->{form});
|
||
|
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;
|
||
|
|
||
|
next unless $currency_id;
|
||
|
|
||
| ... | ... | |
|
$currency_id,
|
||
|
$draft->{department_id} || undef,
|
||
|
$draft->{globalproject_id} || undef,
|
||
|
undef,
|
||
|
$employee_id,
|
||
|
|
||
|
# taxincluded, direct_debit, ob_transaction, cb_transaction,
|
||
|
$draft->{taxincluded} ? 1 : 0,
|
||
| ... | ... | |
|
$self->{h_draft}->execute('gl') || die $self->{h_draft}->errstr;
|
||
|
|
||
|
while (my $draft_record = $self->{h_draft}->fetchrow_hashref) {
|
||
|
my $draft = YAML::Load($draft_record->{form});
|
||
|
my $draft = YAML::Load($draft_record->{form});
|
||
|
my $employee_id = $draft_record->{employee_id} || $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;
|
||
|
|
||
|
my @values = (
|
||
|
# template_name, template_type, customer_id, vendor_id,
|
||
| ... | ... | |
|
$self->{default_currency_id},
|
||
|
$draft->{department_id} || undef,
|
||
|
undef,
|
||
|
undef,
|
||
|
$employee_id,
|
||
|
|
||
|
# taxincluded, direct_debit, ob_transaction, cb_transaction,
|
||
|
$draft->{taxincluded} ? 1 : 0,
|
||
Auch abrufbar als: Unified diff
Belegvorlagen: employee_id bei Umwandlung aus Drafts beibehalten