Revision 96d3ef85
Von Sven Schöling vor etwa 16 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
|
$TMPL_VAR{sales_employee_labels} = sub { $_[0]->{name} || $_[0]->{login} };
|
||
|
$TMPL_VAR{shipto_labels} = sub { join "; ", grep { $_ } map { $_[0]->{"shipto${_}" } } qw(name department_1 street city) };
|
||
|
$TMPL_VAR{contact_labels} = sub { join(', ', $_[0]->{"cp_name"}, $_[0]->{"cp_givenname"}) . ($_[0]->{cp_abteilung} ? " ($_[0]->{cp_abteilung})" : "") };
|
||
|
$TMPL_VAR{department_labels} = sub { "$_[0]->{description}--$_[0]->{id}" };
|
||
|
$TMPL_VAR{department_labels} = sub { "$_[0]->{description}--$_[0]->{id}" };
|
||
|
|
||
|
# vendor/customer
|
||
|
$TMPL_VAR{vc_keys} = sub { "$_[0]->{name}--$_[0]->{id}" };
|
||
| ... | ... | |
|
# credit remaining
|
||
|
$creditwarning = (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) ? 1 : 0;
|
||
|
$TMPL_VAR{is_credit_remaining_negativ} = ($form->{creditremaining} =~ /-/) ? "0" : "1";
|
||
|
|
||
|
|
||
|
# business
|
||
|
$TMPL_VAR{business_label} = ($form->{vc} eq "customer" ? $locale->text('Customer type') : $locale->text('Vendor type'));
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub update {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
|
||
|
my ($recursive_call) = shift;
|
||
|
|
||
|
check_oe_access();
|
||
| ... | ... | |
|
|
||
|
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate) unless $recursive_call;
|
||
|
$form->{update} = 1;
|
||
|
|
||
|
|
||
|
$payment_id = $form->{payment_id} if $form->{payment_id};
|
||
|
|
||
|
|
||
|
&check_name($form->{vc});
|
||
|
|
||
|
|
||
|
$form->{payment_id} = $payment_id if $form->{payment_id} eq "";
|
||
|
|
||
|
|
||
|
$buysell = 'buy';
|
||
|
$buysell = 'sell' if ($form->{vc} eq 'vendor');
|
||
|
$form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell);
|
||
| ... | ... | |
|
push(@values, $item->{"id"});
|
||
|
$labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"};
|
||
|
}
|
||
|
|
||
|
|
||
|
#salesmen
|
||
|
my %labels_salesmen = ();
|
||
|
my @values_salesmen = ('');
|
||
| ... | ... | |
|
my $vc_label = $form->{vc} eq "customer" ? $locale->text('Customer') : $locale->text('Vendor');
|
||
|
$vc =
|
||
|
$myconfig{vclimit} <= scalar(@values)
|
||
|
? qq|<input type="text" value="| . H(($form->{"old$form->{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">|
|
||
|
? qq|<input type="text" value="| . H(($form->{"old$form->{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">|
|
||
|
: NTI($cgi->popup_menu('-name' => "$form->{vc}",
|
||
|
'-default' => $form->{"old$form->{vc}"},
|
||
|
'-onChange' => 'document.getElementById(\'update_button\').click();',
|
||
| ... | ... | |
|
<tr>
|
||
|
<td><input name="l_name" class=checkbox type=checkbox value=Y checked> $vc_label</td>
|
||
|
<td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>
|
||
|
|
||
|
|
||
|
<td><input name="l_shipvia" class=checkbox type=checkbox value=Y> | . $locale->text('Ship via') . qq|</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
| ... | ... | |
|
if ($form->{currency} ne $form->{defaultcurrency});
|
||
|
|
||
|
&validate_items;
|
||
|
|
||
|
if($form->{payment_id}) {
|
||
|
|
||
|
if($form->{payment_id}) {
|
||
|
$payment_id = $form->{payment_id};
|
||
|
}
|
||
|
|
||
|
|
||
|
# if the name changed get new values
|
||
|
if (&check_name($form->{vc})) {
|
||
|
if($form->{payment_id} eq "") {
|
||
|
if($form->{payment_id} eq "") {
|
||
|
$form->{payment_id} = $payment_id;
|
||
|
}
|
||
|
&update;
|
||
| ... | ... | |
|
if ($form->{currency} ne $form->{defaultcurrency});
|
||
|
|
||
|
&validate_items;
|
||
|
|
||
|
if($form->{payment_id}) {
|
||
|
|
||
|
if($form->{payment_id}) {
|
||
|
$payment_id = $form->{payment_id};
|
||
|
}
|
||
|
|
||
|
|
||
|
# if the name changed get new values
|
||
|
if (&check_name($form->{vc})) {
|
||
|
if($form->{payment_id} eq "") {
|
||
|
if($form->{payment_id} eq "") {
|
||
|
$form->{payment_id} = $payment_id;
|
||
|
}
|
||
|
&update;
|
||
| ... | ... | |
|
$form->{addition} = "SAVED";
|
||
|
$form->save_history($form->dbconnect(\%myconfig));
|
||
|
}
|
||
|
# /saving the history
|
||
|
# /saving the history
|
||
|
|
||
|
$form->{simple_save} = 1;
|
||
|
if(!$form->{print_and_save}) {
|
||
| ... | ... | |
|
$form->{addition} = "DELETED";
|
||
|
$form->save_history($form->dbconnect(\%myconfig));
|
||
|
}
|
||
|
# /saving the history
|
||
|
# /saving the history
|
||
|
$form->info($msg);
|
||
|
exit();
|
||
|
}
|
||
| ... | ... | |
|
$form->{ordnumber} = "";
|
||
|
$form->{quodate} = $form->{transdate};
|
||
|
}
|
||
|
|
||
|
|
||
|
$payment_id = $form->{payment_id} if $form->{payment_id};
|
||
|
|
||
|
|
||
|
# if the name changed get new values
|
||
|
if (&check_name($form->{vc})) {
|
||
|
$form->{payment_id} = $payment_id if $form->{payment_id} eq "";
|
||
| ... | ... | |
|
$buysell = 'sell';
|
||
|
}
|
||
|
|
||
|
if ( $form->{type} eq 'sales_order'
|
||
|
if ( $form->{type} eq 'sales_order'
|
||
|
|| $form->{type} eq 'sales_quotation') {
|
||
|
$form->{title} = $locale->text('Add Sales Invoice');
|
||
|
$form->{script} = 'is.pl';
|
||
Auch abrufbar als: Unified diff
Whitespace Purge