|;
}
## LINET: Create a drop-down box with all prior titles and greetings.
@@ -891,7 +894,6 @@ sub form_header {
- $business_salesman
| . $locale->text($label . ' Number') . qq|
{db}number"}">
@@ -988,7 +990,10 @@ sub form_header {
| . $locale->text('Obsolete') . qq|
{obsolete}>
- $taxzone
+
+ $taxzone
+ $salesman
+
@@ -1195,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 = "";
- }
##
##
@@ -1224,7 +1222,6 @@ sub form_footer {
-$update_button
\n|;
}
+ # button for saving history
+ if($form->{id} ne "") {
+ print qq|
+ {id}
+ . qq|); name=history id=history value=|
+ . $locale->text('history')
+ . qq|>|;
+ }
+ # /button for saving history
+
print qq|
@@ -1260,10 +1268,14 @@ initializetabcontent("maintab")
sub add_transaction {
$lxdebug->enter_sub();
+# # saving the history
+# if(!exists $form->{addition}) {
+# $form->{addition} = "ADD TRANSACTION";
+# $form->save_history($form->dbconnect(\%myconfig));
+# }
+# # /saving the history
+
$form->isblank("name", $locale->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);
@@ -1271,7 +1283,6 @@ sub add_transaction {
$form->{callback} =
"$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&callback=$form->{callback}";
-
$form->redirect;
$lxdebug->leave_sub();
@@ -1281,8 +1292,13 @@ sub save_and_ap_transaction {
$lxdebug->enter_sub();
$form->{script} = "ap.pl";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&add_transaction;
-
$lxdebug->leave_sub();
}
@@ -1290,8 +1306,13 @@ sub save_and_ar_transaction {
$lxdebug->enter_sub();
$form->{script} = "ar.pl";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&add_transaction;
-
$lxdebug->leave_sub();
}
@@ -1300,8 +1321,13 @@ sub save_and_invoice {
$form->{script} = ($form->{db} eq 'customer') ? "is.pl" : "ir.pl";
$form->{type} = "invoice";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&add_transaction;
-
$lxdebug->leave_sub();
}
@@ -1310,8 +1336,13 @@ sub save_and_rfq {
$form->{script} = "oe.pl";
$form->{type} = "request_quotation";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&add_transaction;
-
$lxdebug->leave_sub();
}
@@ -1320,8 +1351,13 @@ sub save_and_quotation {
$form->{script} = "oe.pl";
$form->{type} = "sales_quotation";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&add_transaction;
-
$lxdebug->leave_sub();
}
@@ -1331,8 +1367,13 @@ sub save_and_order {
$form->{script} = "oe.pl";
$form->{type} =
($form->{db} eq 'customer') ? "sales_order" : "purchase_order";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&add_transaction;
-
$lxdebug->leave_sub();
}
@@ -1346,13 +1387,16 @@ 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!'));
}
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
$form->redirect($locale->text($msg));
$lxdebug->leave_sub();
@@ -1368,12 +1412,22 @@ 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!"));
- }
- print(STDERR "SHIPTO in sub save $form->{shipto_id}\n");
- &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
+ my $res = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
+
+ if (3 == $res) {
+ if ($form->{"db"} eq "customer") {
+ $form->error($locale->text('This customer number is already in use.'));
+ } else {
+ $form->error($locale->text('This vendor number is already in use.'));
+ }
+ }
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
&edit;
exit;
$lxdebug->leave_sub();
@@ -1391,6 +1445,12 @@ sub delete {
$msg = ucfirst $form->{db};
$msg .= " deleted!";
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{addition} = "DELETED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
$form->redirect($locale->text($msg));
$msg = "Cannot delete $form->{db}";
@@ -1411,179 +1471,10 @@ sub display {
sub update {
$lxdebug->enter_sub();
- &check_salesman($form->{salesman});
-
- # $form->get_salesman(\%myconfig, $form->{salesman});
&display();
$lxdebug->leave_sub();
}
-sub check_salesman {
- $lxdebug->enter_sub();
-
- my ($name) = @_;
-
- my ($new_name, $new_id) = split /--/, $form->{$name};
- my $i = 0;
-
- # check name, combine name and id
- if ($form->{"oldsalesman"} ne $form->{"salesman"}) {
-
- # return one name or a list of names in $form->{name_list}
- if (($i = $form->get_salesman(\%myconfig, $name)) > 1) {
- &select_salesman($name);
- exit;
- }
-
- if ($i == 1) {
-
- # we got one name
- $form->{"salesman_id"} = $form->{salesman_list}[0]->{id};
- $form->{salesman} = $form->{salesman_list}[0]->{name};
- $form->{"oldsalesman"} = $form->{salesman};
-
- } else {
-
- # name is not on file
- # $locale->text('Customer not on file!')
- # $locale->text('Vendor not on file!')
- $msg = ucfirst $name . " not on file or locked!";
- $form->error($locale->text($msg));
- }
- }
-
- $lxdebug->leave_sub();
-
- return $i;
-}
-
-sub select_salesman {
- $lxdebug->enter_sub();
-
- my ($table) = @_;
-
- @column_index = qw(ndx name);
-
- $label = ucfirst $table;
- $column_data{ndx} = qq|
|;
- $column_data{name} =
- qq|
| . $locale->text($label) . qq|
|;
-
- # list items with radio button on a form
- $form->header;
-
- $title = $locale->text('Select from one of the names below');
-
- print qq|
-
-
-
-
-
-