projekt kivitendo

use SL::Common;

use SL::DB::Helper::Mappings;

use SL::DB;

use SL::DBUtils qw(do_query);

use SL::Form;

use SL::MoreCommon qw(restore_form save_form);

use strict;

sub build_std_url {

$main::lxdebug->enter_sub(2);

my $script = $form->{script};

foreach my $key (@_) {

next unless ($key);

if ($key =~ /(.*?)=(.*)/) {

} else {

foreach my $var ($form->flatten_variables($key)) {

}

my $url = "${script}?" . join('&', @parts);

$main::lxdebug->leave_sub(2);

# -------------------------------------------------------------------------

sub delivery_customer_selection {

$main::lxdebug->enter_sub();

my $order_by = "name";

$order_by = $form->{"order_by"} if (defined($form->{"order_by"}));

my $order_dir = 1;

$order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));

my $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);

map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));

if (0 == scalar(@{$delivery})) {

$::request->{layout}->add_javascripts_inline("customer_selected('1')");

}

(qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));

$form->header(no_layout => 1);

print $form->parse_html_template("generic/select_delivery_customer", { "HEADER" => \@header,

"DELIVERY" => $delivery, });

$main::lxdebug->leave_sub();

}

# -------------------------------------------------------------------------

sub vendor_selection {

$main::lxdebug->enter_sub();

my $order_by = "name";

$order_by = $form->{"order_by"} if (defined($form->{"order_by"}));

my $order_dir = 1;

$order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));

my $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);

map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));

if (0 == scalar(@{$vendor})) {

$::request->{layout}->add_javascripts_inline("vendor_selected('1')");

}

(qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));

$form->header(no_layout => 1);

print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,

"VENDOR" => $vendor, });

$main::lxdebug->leave_sub();

}

# -------------------------------------------------------------------------

sub calculate_qty {

$main::lxdebug->enter_sub();

my @variable;

foreach my $item (split m/;/, $variable_string) {

next unless $item =~ m/^ \s* (\w+) \s* = \s* (\w+) \s* (\w+) \s* $/x;

}

my %header_title = (

$form->{formel} = $formel;

my $html = $form->parse_html_template("generic/calculate_qty", { "HEADER" => \@header,

$main::lxdebug->leave_sub();

}

# -------------------------------------------------------------------------

sub H {

return $main::locale->quote_special_chars('HTML', $_[0]);

}

sub Q {

return $main::locale->quote_special_chars('URL@HTML', $_[0]);

}

sub E {

return $main::form->escape($_[0]);

}

sub NTI {

sub format_dates {

return $::form->format_dates(@_);

}

return $::form->reformat_numbers(@_);

}

# -------------------------------------------------------------------------

sub show_history {

$form->header(no_layout => 1);

my $callback = build_std_url(qw(action longdescription trans_id_type input_name));

my $restriction;

$restriction = "AND ( snumbers LIKE 'invnumber%' OR what_done LIKE '%Buchungsnummer%' OR snumbers LIKE 'gltransaction%' OR snumbers LIKE 'emailjournal%' ) ";

} elsif ( $form->{trans_id_type} eq 'id' ) {

$restriction = " AND ( snumbers NOT LIKE 'invnumber_%' AND snumbers NOT LIKE 'gltransaction%' AND snumbers NOT LIKE 'emailjournal%' AND (what_done NOT LIKE '%Buchungsnummer%' OR what_done IS null))";

} else {

print $form->parse_html_template( "common/show_history", {

"DATEN" => $form->get_history($dbh,$form->{input_name},$restriction,$form->{order}),

"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),

uc($sort)."BY" => $sortby,

callback => $callback,

} );

sub call_sub {

$main::lxdebug->enter_sub();

my $form = $main::form;

if (!$name) {

{

$main::lxdebug->leave_sub();

}

# -------------------------------------------------------------------------

sub show_vc_details {

$main::lxdebug->enter_sub();

$form->{discount_as_percent} = $form->format_amount(\%::myconfig, $form->parse_amount(\%::myconfig, $form->{discount}) * 100, 2);

$form->header(no_layout => 1);

print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });

$main::lxdebug->leave_sub();

}

# -------------------------------------------------------------------------

$main::lxdebug->enter_sub();

$main::lxdebug->leave_sub();

}

$main::lxdebug->enter_sub();

print $::form->redirect_header('is.pl?action=add&type=invoice');

$main::lxdebug->leave_sub();

}

$main::lxdebug->enter_sub();

print $::form->redirect_header('ar.pl?action=add');

$main::lxdebug->leave_sub();

}

$main::lxdebug->enter_sub();

print $::form->redirect_header('ir.pl?action=add&type=invoice');

$main::lxdebug->leave_sub();

}

$main::lxdebug->enter_sub();

print $::form->redirect_header('ap.pl?action=add');

$main::lxdebug->leave_sub();

}

$main::lxdebug->enter_sub();

print $::form->redirect_header('gl.pl?action=add');

$main::lxdebug->leave_sub();

}

sub db {

}

sub continue { call_sub($::form->{nextsub}); }

1;