Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 2f6a11fb

Von Bernd Bleßmann vor mehr als 10 Jahren hinzugefügt

trailing whitespaces entfernt

Unterschiede anzeigen:

SL/AP.pm
} else {
($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
$query =
qq|INSERT INTO ap (id, invnumber, employee_id,currency_id, taxzone_id) | .
qq|VALUES (?, ?, (SELECT e.id FROM employee e WHERE e.login = ?),
SL/Controller/Buchungsgruppen.pm
# constraint, if Buchungsgruppe is connected to a part
my $db = $self->{config}->db;
$db->do_transaction(sub {
$db->do_transaction(sub {
my $taxzone_charts = SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->config->id ]);
foreach my $taxzonechart ( @{$taxzone_charts} ) { $taxzonechart->delete };
$self->config->delete();
SL/Controller/CsvImport/BaseMulti.pm
my $ri = $p->{row_ident};
$ccb->{row_ident}->{$ri} = [ map { "cvar_" . $_->name } (@{ $self->cvar_configs_by->{row_ident}->{$ri} }) ];
}
return $ccb;
}
SL/DB/Buchungsgruppe.pm
my ($self) = @_;
return SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->id ]);
}
sub orphaned {
my ($self) = @_;
die 'not an accessor' if @_ > 1;
SL/DO.pm
$form->{saved_donumber} = $form->{donumber};
$form->{saved_ordnumber} = $form->{ordnumber};
$form->{saved_cusordnumber} = $form->{cusordnumber};
Common::webdav_folder($form);
$main::lxdebug->leave_sub();
SL/IR.pm
# also search hits in makemodels, but only cache the results by id and merge later
my $mm_query = qq|
SELECT parts_id, model FROM makemodel
LEFT JOIN parts ON parts.id = parts_id
SELECT parts_id, model FROM makemodel
LEFT JOIN parts ON parts.id = parts_id
WHERE NOT parts.obsolete AND model ILIKE ? AND (make IS NULL OR make = ?);
|;
my $mm_results = selectall_hashref_query($::form, $dbh, $mm_query, '%' . $form->{"partnumber_$i"} . '%', $::form->{vendor_id});
......
WHERE id = p.buchungsgruppen_id) = c1.id)
LEFT JOIN chart c2 ON
((SELECT tc.income_accno_id
FROM taxzone_charts tc
FROM taxzone_charts tc
WHERE tc.taxzone_id = '$taxzone_id' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c2.id)
LEFT JOIN chart c3 ON
((SELECT tc.expense_accno_id
SL/InstanceConfiguration.pm
report.
Valid options:
closed_to start_of_year all_transactions last_ob_or_all_transactions last_ob_or_start_of_year
closed_to start_of_year all_transactions last_ob_or_all_transactions last_ob_or_start_of_year
=item C<get_is_changeable>
SL/Presenter/Part.pm
=back
=back
=back
=over 2
SL/WH.pm
Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment));
my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit});
my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit});
if ($unit) {
my $assembly = SL::DB::Manager::Assembly->get_all(
query => [ id => $params{assembly_id} ],
bin/mozilla/vk.pl
# stored seperately). However, for fxsellprice this method only works when
# the tax is not included, because otherwise fxsellprice includes the tax
# and there is no simple way to extract the tax rate of the article from
# the big query.
# the big query.
#
# Using fxsellprice is potentially more accurate (certainly for tax
# included), because we can use the same method as is used while the
......
# sellprice_total_including_tax = qty * fxsellprice * (1-discount) / price_factor * exchangerate
# $ar->{sellprice_total_including_tax} = $form->round_amount( $ar->{qty} * ( $ar->{fxsellprice} * ( 1 - $ar->{discount} ) ) / $ar->{price_factor}, $form->{"decimalplaces"});
$ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor} / $basefactor;
$ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor} / $basefactor;
$ar->{sellprice_total} = $form->round_amount( $ar->{qty} * $ar->{sellprice} / $ar->{price_factor} , $form->{"decimalplaces"});
$ar->{lastcost} = $ar->{lastcost} / $ar->{price_factor} / $basefactor;

Auch abrufbar als: Unified diff