X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fct.pl;h=767d0e87d5625f8b70c40d8ffdb9ef7b09ae92af;hb=7712480e4a082f84a2229f5b1a90d79a6c01255b;hp=49672ab54e8ecf1a084dee22fdf1c1a1a24eac70;hpb=a14a3ff56b00e22c39a2cfb0e465f8c7764a4cd4;p=kivitendo-erp.git

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index 49672ab54..767d0e87d 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -543,14 +543,8 @@ sub list_names {
 <input type=hidden name=password value=$form->{password}>
 
 <input class=submit type=submit name=action value="|
-    . $locale->text('Add') . qq|">|;
+    . $locale->text('Add') . qq|">
 
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
   </form>
 
 </body>
@@ -563,6 +557,10 @@ sub list_names {
 sub edit {
   $lxdebug->enter_sub();
 
+  # show history button
+  $form->{javascript} = qq|<script type=text/javascript src=js/show_history.js></script>|;
+  #/show hhistory button
+  
   # $locale->text('Edit Customer')
   # $locale->text('Edit Vendor')
 
@@ -1167,10 +1165,10 @@ $shipto
     <tr>
       <th align=left nowrap>| . $locale->text('From') . qq|</th>
       <td><input id=from name=from size=10 maxlength=10 value="$form->{from}">
-        <input type="button" name="from" id="trigger_from" value="?"></td>
+        <input type="button" name="fromB" id="trigger_from" value="?"></td>
       <th align=left nowrap>| . $locale->text('To (time)') . qq|</th>
       <td><input id=to name=to size=10 maxlength=10 value="$form->{to}">
-        <input type="button" name="to" id="trigger_to" value="?"></td>
+        <input type="button" name="toB" id="trigger_to" value="?"></td>
     </tr>       
     <tr>
      <td colspan=4>
@@ -1183,8 +1181,8 @@ $shipto
 
 </div>
 
-| . $form->write_trigger(\%myconfig, 2, "from", "BL", "trigger_from",
-                         "to", "BL", "trigger_to");
+| . $form->write_trigger(\%myconfig, 2, "fromB", "BL", "trigger_from",
+                         "toB", "BL", "trigger_to");
 
   $lxdebug->leave_sub();
 }
@@ -1249,10 +1247,16 @@ $update_button
       . qq|">\n|;
   }
 
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
+  # button for saving history
+  if($form->{id} ne "") {
+    print qq|
+  	  <input type=button class=submit onclick=set_history_window(|
+  	  . $form->{id} 
+  	  . qq|); name=history id=history value=|
+  	  . $locale->text('history') 
+  	  . qq|>|;
   }
+  # /button for saving history
 
   print qq|
 
@@ -1271,6 +1275,13 @@ 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!"));
@@ -1282,7 +1293,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();
@@ -1292,8 +1302,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();
 }
 
@@ -1301,8 +1316,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();
 }
 
@@ -1311,8 +1331,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();
 }
 
@@ -1321,8 +1346,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();
 }
 
@@ -1331,8 +1361,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();
 }
 
@@ -1342,8 +1377,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();
 }
 
@@ -1364,6 +1404,12 @@ sub save_and_close {
   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();
@@ -1382,9 +1428,22 @@ sub save {
   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();
@@ -1402,6 +1461,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}";
@@ -1609,7 +1674,6 @@ sub get_contact {
 
 }
 
-
 sub get_shipto {
   $lxdebug->enter_sub();