X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fct.pl;h=84e49512275ede22c39b40553d07ae90dc277fca;hb=a751b16cead5e56b62e18ee616e04323919f5fe1;hp=767d0e87d5625f8b70c40d8ffdb9ef7b09ae92af;hpb=2b89ec9756dc1d3525b6163fe4cf4f38af83f9d8;p=kivitendo-erp.git
diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index 767d0e87d..84e495122 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -42,6 +42,8 @@ use CGI::Ajax;
use CGI;
use Data::Dumper;
+require "bin/mozilla/common.pl";
+
1;
# end of main
@@ -583,6 +585,8 @@ sub edit {
sub form_header {
$lxdebug->enter_sub();
+ $form->get_lists("employees" => "ALL_SALESMEN");
+
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$form->{creditlimit} =
$form->format_amount(\%myconfig, $form->{creditlimit}, 0);
@@ -638,11 +642,10 @@ sub form_header {
}
$taxzone = qq|
-
| . $locale->text('Steuersatz') . qq| |
|
-
|;
+|;
$get_contact_url =
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=get_contact";
@@ -772,32 +775,28 @@ sub form_header {
|
|;
}
- $business_salesman = "";
- $business = " | | ";
- if ($vertreter) {
- $business_salesman = qq|
-
-
-
- |
-
|;
- $business = qq|
- | . $locale->text('Username') . qq| |
- |
- | . $locale->text('Password') . qq| |
- | |;
- } else {
- $business = qq|
+
+ $business = qq|
| . $locale->text('Type of Business') . qq| |
|
|;
+
+ $salesman = "";
+
+ if ($form->{db} eq "customer") {
+ my (@salesman_values, %salesman_labels);
+ push(@salesman_values, undef);
+ foreach my $item (@{ $form->{ALL_SALESMEN} }) {
+ push(@salesman_values, $item->{id});
+ $salesman_labels{$item->{id}} = $item->{name} ne "" ? $item->{name} : $item->{login};
+ }
+
+ $salesman =
+ qq| | . $locale->text('Salesman') . qq| |
+ | .
+ NTI($cgi->popup_menu('-name' => 'salesman_id', '-default' => $form->{salesman_id},
+ '-values' => \@salesman_values, '-labels' => \%salesman_labels))
+ . qq| | |;
}
## LINET: Create a drop-down box with all prior titles and greetings.
@@ -895,7 +894,6 @@ sub form_header {
@@ -1199,13 +1200,6 @@ sub form_footer {
($form->{db} eq 'customer')
? $locale->text('Save and AR Transaction')
: $locale->text('Save and AP Transaction');
- if ($vertreter) {
- $update_button =
- qq||;
- } else {
- $update_button = "";
- }
##
##
@@ -1228,7 +1222,6 @@ sub form_footer {
-$update_button
text("Name missing!"));
- if ($vertreter && $form->{db} eq "customer") {
- $form->isblank("salesman_id", $locale->text("Salesman missing!"));
- }
&{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
$form->{callback} = $form->escape($form->{callback}, 1);
@@ -1397,9 +1387,6 @@ sub save_and_close {
$imsg .= " saved!";
$form->isblank("name", $locale->text("Name missing!"));
- if ($vertreter && $form->{db} eq "customer") {
- $form->isblank("salesman_id", $locale->text("Salesman missing!"));
- }
$rc = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
if ($rc == 3) {
$form->error($locale->text('customernumber not unique!'));
@@ -1425,9 +1412,6 @@ sub save {
$imsg .= " saved!";
$form->isblank("name", $locale->text("Name missing!"));
- if ($vertreter && $form->{db} eq "customer") {
- $form->isblank("salesman_id", $locale->text("Salesman missing!"));
- }
my $res = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
@@ -1521,8 +1505,8 @@ sub check_salesman {
} else {
# name is not on file
- # $locale->text('Customer not on file!')
- # $locale->text('Vendor not on file!')
+ # $locale->text('Customer not on file or locked!')
+ # $locale->text('Vendor not on file or locked!')
$msg = ucfirst $name . " not on file or locked!";
$form->error($locale->text($msg));
}