projekt kivitendo

__PACKAGE__->meta->table('delivery_order_items');

__PACKAGE__->meta->columns(

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

__PACKAGE__->meta->table('invoice');

__PACKAGE__->meta->columns(

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

__PACKAGE__->meta->table('orderitems');

__PACKAGE__->meta->columns(

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

sellprice, discount, unit, reqdate, project_id, serialnumber,

ordnumber, transdate, cusordnumber,

lastcost, price_factor_id, price_factor, marge_price_factor, pricegroup_id,

VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,

my $h_item = prepare_query($form, $dbh, $q_item);

my $q_item_stock =

conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

conv_i($form->{"marge_price_factor_$i"}),

$pricegroup_id,

do_statement($form, $h_item, $q_item, @values);

my $stock_info = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_$i"});

doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost,

doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription,

doi.price_factor_id, doi.price_factor, doi.marge_price_factor, doi.pricegroup_id,

pr.projectnumber, dord.transdate AS dord_transdate, dord.donumber,

pg.partsgroup

FROM delivery_order_items doi

$query =

qq|INSERT INTO invoice (id, trans_id, parts_id, description, longdescription, qty, base_qty,

sellprice, fxsellprice, discount, allocated, unit, deliverydate,

@values = ($invoice_id, conv_i($form->{id}), conv_i($form->{"id_$i"}),

$form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"} * -1,

$baseqty * -1, $form->{"sellprice_$i"}, $fxsellprice, $form->{"discount_$i"}, $allocated,

$form->{"unit_$i"}, conv_date($form->{deliverydate}),

conv_i($form->{"project_id_$i"}), $form->{"serialnumber_$i"},

conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"marge_price_factor_$i"}),

);

do_query($form, $dbh, $query, @values);

i.id AS invoice_id,

i.description, i.longdescription, i.qty, i.fxsellprice AS sellprice, i.parts_id AS id, i.unit, i.deliverydate, i.project_id, i.serialnumber,

p.partnumber, p.inventory_accno_id AS part_inventory_accno_id, pr.projectnumber, pg.partsgroup

FROM invoice i

sellprice, fxsellprice, discount, allocated, assemblyitem,

unit, deliverydate, project_id, serialnumber, pricegroup_id,

ordnumber, donumber, transdate, cusordnumber, base_qty, subtotal,

price_factor_id, price_factor, marge_price_factor)

(SELECT factor FROM price_factors WHERE id = ?), ?)|;

@values = ($invoice_id, conv_i($form->{id}), conv_i($form->{"id_$i"}),

$form->{"cusordnumber_$i"}, $baseqty, $form->{"subtotal_$i"} ? 't' : 'f',

$form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},

$form->{"lastcost_$i"},

conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

conv_i($form->{"marge_price_factor_$i"}));

do_query($form, $dbh, $query, @values);

i.id AS invoice_id,

i.description, i.longdescription, i.qty, i.fxsellprice AS sellprice, i.discount, i.parts_id AS id, i.unit, i.deliverydate AS reqdate,

i.project_id, i.serialnumber, i.id AS invoice_pos, i.pricegroup_id, i.ordnumber, i.donumber, i.transdate, i.cusordnumber, i.subtotal, i.lastcost,

p.partnumber, p.assembly, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id, p.formel, p.listprice,

pr.projectnumber, pg.partsgroup, prg.pricegroup

sellprice = ?, discount = ?, unit = ?, reqdate = ?, project_id = ?, serialnumber = ?, ship = ?,

pricegroup_id = ?, ordnumber = ?, transdate = ?, cusordnumber = ?, subtotal = ?,

marge_percent = ?, marge_total = ?, lastcost = ?, price_factor_id = ?,

price_factor = (SELECT factor FROM price_factors WHERE id = ?), marge_price_factor = ?

WHERE id = ?

SQL

$form->{"cusordnumber_$i"}, $form->{"subtotal_$i"} ? 't' : 'f',

$form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},

$form->{"lastcost_$i"},

conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

conv_i($form->{"marge_price_factor_$i"}),

conv_i($orderitems_id),

o.sellprice, o.parts_id AS id, o.unit, o.discount, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id,

o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,

o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,

pr.projectnumber, p.formel,

pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup

FROM orderitems o

scalar => [ qw(record_item record) ],

);

use SL::PriceSource::ALL;

use SL::PriceSource::Price;

use SL::Locale::String;

sub all_price_sources {

my ($self) = @_;

$_->new(record_item => $self->record_item, record => $self->record)

} SL::PriceSource::ALL->all_enabled_price_sources

}

my $class = SL::PriceSource::ALL->price_source_class_by_name($source_name);

return $class

: empty_price();

}

map { $_->available_prices } $_[0]->all_price_sources;

}

sub best_price {

}

sub empty_price {

use SL::PriceSource::Pricegroup;

use SL::PriceSource::MasterData;

use SL::PriceSource::Makemodel;

my %price_sources_by_name = (

master_data => 'SL::PriceSource::MasterData',

pricegroup => 'SL::PriceSource::Pricegroup',

makemodel => 'SL::PriceSource::Makemodel',

);

my @price_sources_order = qw(

master_data

pricegroup

makemodel

);

sub all_enabled_price_sources {

sub available_prices { die 'available_prices needs to be implemented' }

sub best_price { die 'best_price needs to be implemented' }

sub price_from_source { die 'price_from_source needs to be implemented:' . "@_" }

sub part {

$_[0]->record_item->part;

}

1;

__END__

Shortcut to C<< record_item->part >>

=back

=head1 INTERFACE METHODS

to recreate it later. Try to be brief, no one needs 20 different price

suggestions.

=item C<best_price>

Must return what you think of as the best matching price in your

C<available_prices>. This does not have to be the lowest price, but it will be

compared later to other price sources, and the lowest will be set.

=item C<price_from_source SOURCE, SPEC>

Note that constraints from the rest of the C<record> do not apply anymore. If

information needed for the retrieval can be deleted elsewhere, then you must

$self->part->makemodels;

}

sub price_from_source {

my ($self, $source, $spec) = @_;

}

sub make_price_from_makemodel {

my ($self, $makemodel) = @_;

: ($self->make_lastcost, $self->make_listprice);

}

sub price_from_source {

my ($self, $source, $spec) = @_;

: $_[0]->make_lastcost

}

sub make_sellprice {

my ($self) = @_;

scalar => [ qw(price description spec price_source invalid missing) ],

);

SL::DB::Helper::Attr::make(__PACKAGE__,

price => 'numeric(15,5)',

);

sub source {

$_[0]->price_source

: '';

}

$self->price_source

? $self->price_source->description

}

sub to_str {

}

1;

# in PriceSource::Base implementation

$price = SL::PriceSource::Price->new(

price => 10.3,

price_source => $self,

)

SL::PriceSource::Price->new(

description => t8('None (PriceSource)'),

);

SL::PriceSource::Price->new(

price_source => $self,

);

SL::PriceSource::Price->new(

spec => $original_spec,

price_source => $self,

);

=head1 DESCRIPTION

See L<SL::PriceSource> for information about the mechanism.

The price. A price of 0 is special and is considered undesirable. If passed as

part of C<available_prices> it will be filtered out. If returned as

=item C<spec>

OPTIONAL. Both indicator and localized message that the price with this spec

could not be reproduced and should be changed.

=item C<invalid>

OPTIONAL. Both indicator and localized message that the conditions for this

price are no longer valid, and that the price should be changed.

=back

=head1 SEE ALSO

} @$prices;

}

sub price_from_source {

my ($self, $source, $spec) = @_;

return $best_price || ();

}

sub make_price {

my ($self, $price_obj) = @_;

map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };

$form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};

$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});

$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});

}

for my $i (1 .. $numrows) {

my %column_data = ();

# undo formatting

map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }

qw(qty discount sellprice lastcost price_new price_old)

$form->{"sellprice_$i"} = $form->{"price_new_$i"};

}

# unit begin

$form->{"unit_old_$i"} ||= $form->{"unit_$i"};

$form->{"selected_unit_$i"} ||= $form->{"unit_$i"};

}

my $sellprice_value = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

my $edit_prices = $main::auth->assert('edit_prices', 1) && !$::form->{"active_price_source_$i"};

$column_data{sellprice} = (!$edit_prices)

? $cgi->hidden( -name => "sellprice_$i", -id => "sellprice_$i", -value => $sellprice_value) . $sellprice_value

: $cgi->textfield(-name => "sellprice_$i", -id => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value => $sellprice_value);

$column_data{linetotal} = $form->format_amount(\%myconfig, $linetotal, 2);

$column_data{bin} = $form->{"bin_$i"};

if ($form->{"id_${i}"} && !$is_delivery_order) {

my $price_source = SL::PriceSource->new(record_item => $record_item, record => $record);

$column_data{price_source} .= $cgi->button(-value => $price->source_description, -onClick => "kivi.io.price_chooser($i)");

if ($price->source) {

$column_data{price_source} .= ' ' . $cgi->img({src => 'image/flag-red.png', alt => $price->invalid, title => $price->invalid }) if $price->invalid;

$column_data{price_source} .= ' ' . $cgi->img({src => 'image/flag-red.png', alt => $price->missing, title => $price->missing }) if $price->missing;

}

}

$cgi->hidden("-name" => "unit_old_$i", "-value" => $form->{"selected_unit_$i"}),

$cgi->hidden("-name" => "price_new_$i", "-value" => $form->format_amount(\%myconfig, $form->{"price_new_$i"})),

map { ($cgi->hidden("-name" => $_, "-id" => $_, "-value" => $form->{$_})); } map { $_."_$i" }

income_accno expense_accno listprice assembly taxaccounts ordnumber donumber transdate cusordnumber

longdescription basefactor marge_absolut marge_percent marge_price_factor weight), @hidden_vars)

);

$::form->header;

my @item_list = map {

$_->{display_sellprice} /= $_->{price_factor} if ($_->{price_factor});

$_;

} @{ $::form->{item_list} };

$::form->{"active_price_source_$i"} = $best_price->source;

}

$form->{"marge_price_factor_$i"} = $new_item->{price_factor};

$form->{"sellprice_$i"} =

$form->round_amount($form->{"sellprice_$i"}, $decimalplaces);

}

}

map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }

transdate longdescription basefactor marge_total marge_percent

marge_price_factor lastcost price_factor_id partnotes

stock_out stock_in has_sernumber reqdate orderitems_id

my $ic_cvar_configs = CVar->get_configs(module => 'IC');

push @flds, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };

if ($sellprice) {

$form->{"sellprice_$i"} = $sellprice;

} else {

# if there is an exchange rate adjust sellprice

$form->{"sellprice_$i"} /= $exchangerate;

}

if ($sellprice) {

$form->{"sellprice_$i"} = $sellprice;

} else {

# if there is an exchange rate adjust sellprice

$form->{"sellprice_$i"} /= $exchangerate;

}

if ($sellprice) {

$form->{"sellprice_$i"} = $sellprice;

} else {

if ($best_price) {

$::form->{"sellprice_$i"} = $best_price->price;

$::form->{"active_price_source_$i"} = $best_price->source;

}

$form->{"sellprice_$i"} /= $exchangerate; # if there is an exchange rate adjust sellprice

}

if (price_str) $('#sellprice_' + row).val(price_str);

$('#update_button').click();

}

});

'Beratername' => 'Beratername',

'Beraternummer' => 'Beraternummer',

'Best Before' => 'Mindesthaltbarkeit',

'Best Price' => 'Bester Preis',

'Bilanz' => 'Bilanz',

'Billable amount' => 'Abrechenbarer Betrag',

'Buchungsgruppen' => 'Buchungsgruppen',

'Buchungskonto' => 'Buchungskonto',

'Buchungsnummer' => 'Buchungsnummer',

'Business Number' => 'Firmennummer',

'Business Volume' => 'Geschäftsvolumen',

'Business evaluation' => 'Betriebswirtschaftliche Auswertung',

'Could not load class #1 (#2): "#3"' => 'Konnte Klasse #1 (#2) nicht laden: "#3"',

'Could not load class #1, #2' => 'Konnte Klasse #1 nicht laden: "#2"',

'Could not load employee' => 'Konnte Benutzer nicht laden',

'Could not print dunning.' => 'Die Mahnungen konnten nicht gedruckt werden.',

'Could not spawn ghostscript.' => 'Die Anwendung "ghostscript" konnte nicht gestartet werden.',

'Could not spawn the printer command.' => 'Die Druckanwendung konnte nicht gestartet werden.',

'Customer' => 'Kunde',

'Customer (database ID)' => 'Kunde (Datenbank-ID)',

'Customer (name)' => 'Kunde (Name)',

'Customer Master Data' => 'Kundenstammdaten',

'Customer Name' => 'Kundenname',

'Customer Number' => 'Kundennummer',

'Destination warehouse' => 'Ziellager',

'Destination warehouse and bin' => 'Ziellager und -lagerplatz',

'Detail view' => 'Detailanzeige',

'Details (one letter abbreviation)' => 'D',

'Dial command missing in kivitendo configuration\'s [cti] section' => 'Wählbefehl fehlt im Abschnitt [cti] der kivitendo-Konfiguration',

'Difference' => 'Differenz',

'Discard duplicate entries in CSV file' => 'Doppelte Einträge in CSV-Datei verwerfen',

'Discard entries with duplicates in database or CSV file' => 'Einträge aus CSV-Datei verwerfen, die es bereits in der Datenbank oder der CSV-Datei gibt',

'Discount' => 'Rabatt',

'Display' => 'Anzeigen',

'Display file' => 'Datei anzeigen',

'Display options' => 'Anzeigeoptionen',

'No.' => 'Position',

'No/individual shipping address' => 'Keine/individuelle Lieferadresse',

'None' => 'Kein',

'None (PriceSource)' => 'Freier Preis',

'Normal users cannot log in.' => 'Normale Benutzer können sich nicht anmelden.',

'Normalize Customer / Vendor names' => 'Normalisierung Kunden- / Lieferantennamen',

'Pricegroup missing!' => 'Preisgruppe fehlt!',

'Pricegroup saved!' => 'Preisgruppe gespeichert!',

'Pricegroups' => 'Preisgruppen',

'Print' => 'Drucken',

'Print and Post' => 'Drucken und Buchen',

'Print automatically' => 'Automatisch ausdrucken',

'There are still transfers not matching the qty of the delivery order. Stock operations can not be changed later. Do you really want to proceed?' => 'Einige der Lagerbewegungen sind nicht vollständig und Lagerbewegungen können nachträglich nicht mehr verändert werden. Wollen Sie wirklich fortfahren?',

'There are undefined currencies in your system.' => 'In Ihrer Datenbank wurden Währungen benutzt, die nicht ordnungsgemäß in den Währungen eingetragen wurden.',

'There are usually three ways to install Perl modules.' => 'Es gibt normalerweise drei Arten, ein Perlmodul zu installieren.',

'There is a better price available' => 'Es ist ein besserer Preis verfügbar',

'There is already a taxkey 0 with tax rate not 0.' => 'Es existiert bereits ein Steuerschlüssel mit Steuersatz ungleich 0%.',

'There is an inconsistancy in your database.' => 'In Ihrer Datenbank sind Unstimmigkeiten vorhanden.',

'This can be done with the following query:' => 'Dies kann mit der folgenden Datenbankabfrage erreicht werden:',

'This could have happened for two reasons:' => 'Dies kann aus zwei Gründen geschehen sein:',

'This customer number is already in use.' => 'Diese Kundennummer wird bereits verwendet.',

'This feature especially prevents mistakes by mixing up prior tax and sales tax.' => 'Dieses Feature vermeidet insbesondere Verwechslungen von Umsatz- und Vorsteuer.',

'This function requires the presence of articles with a time-based unit such as "h" or "min".' => 'Für diese Funktion mussen Artikel mit einer Zeit-basierten Einheit wie "Std" oder "min" existieren.',

'This group is valid for the following clients' => 'Diese Gruppe ist für die folgenden Mandanten gültig',

'Unsupported image type (supported types: #1)' => 'Nicht unterstützter Bildtyp (unterstützte Typen: #1)',

'Until' => 'Bis',

'Update' => 'Erneuern',

'Update Price' => 'Preis übernehmen',

'Update Prices' => 'Preise aktualisieren',

'Update SKR04: new tax account 3804 (19%)' => 'Update SKR04: neues Steuerkonto 3804 (19%) für innergemeinschaftlichen Erwerb',

'Vendor' => 'Lieferant',

'Vendor (database ID)' => '(Datenbank-ID)',

'Vendor (name)' => 'Lieferant (Name)',

'Vendor Invoice' => 'Einkaufsrechnung',

'Vendor Invoices & AP Transactions' => 'Einkaufsrechnungen & Kreditorenbuchungen',

'Vendor Name' => 'Lieferantenname',

[%- USE L %]

[%- USE LxERP %]

[% SET best_price = price_source.best_price %]

<table>

<tr class='listheading'>

<th></th>

<th>[% 'Price Source' | $T8 %]</th>

<th>[% 'Price' | $T8 %]</th>

<th>[% 'Best Price' | $T8 %]</th>

</tr>

<tr class='listrow'>

[%- IF price_source.record_item.active_price_source %]

<td>[% 'None (PriceSource)' | $T8 %]</td>

<td>-</td>

<td></td>

</tr>

[%- FOREACH price IN price_source.available_prices %]

<tr class='listrow'>

[%- IF price_source.record_item.active_price_source != price.source %]

<td>[% L.button_tag('kivi.io.update_price_source(' _ FORM.row _ ', \'' _ price.source _ '\', \'' _ LxERP.format_amount(price.price, -2) _ '\')', LxERP.t8('Select')) %]</td>

<td>[% L.button_tag('kivi.io.update_price_source(' _ FORM.row _ ', \'' _ price.source _ '\', \'' _ LxERP.format_amount(price.price, -2) _ '\')', LxERP.t8('Update Price')) %]</td>

[%- ELSE %]

<td><b>[% 'Selected' | $T8 %]</b></td>

[% END %]

<td>[% price.price_as_number %]</td>

[% IF price.source == best_price.source %]

<td align='center'>&#x2022;</td>

[% ELSE %]

<td></td>

[% END %]