taxzones => "ALL_TAXZONES");
$form->get_pricegroup(\%myconfig, { all => 1 });
- $form->get_lists(customers => { key => "ALL_SALESMAN_CUSTOMERS", business_is_salesman => 1, with_obsolete => 1 }) if $::vertreter;
+ $form->get_lists(customers => { key => "ALL_SALESMAN_CUSTOMERS", business_is_salesman => 1 }) if $::vertreter;
$form->{ALL_SALESMEN} = $form->{ALL_EMPLOYEES};
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$main::lxdebug->leave_sub();
}
+sub _do_save {
+ $main::auth->assert('customer_vendor_edit & ' .
+ '(general_ledger | invoice_edit | vendor_invoice_edit | ' .
+ ' request_quotation_edit | sales_quotation_edit | sales_order_edit | purchase_order_edit)');
+
+ $::form->isblank("name", $::locale->text("Name missing!"));
+
+ if ($::form->{new_salesman_id} && $::vertreter) {
+ $::form->{salesman_id} = $::form->{new_salesman_id};
+ delete $::form->{new_salesman_id};
+ }
+
+ my $res = $::form->{db} eq 'customer' ? CT->save_customer(\%::myconfig, $::form) : CT->save_vendor(\%::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.'));
+ }
+ }
+}
+
sub add_transaction {
$main::lxdebug->enter_sub();
# }
# # /saving the history
- $form->isblank("name", $locale->text("Name missing!"));
- if ($form->{"db"} eq "customer") {
- CT->save_customer(\%myconfig, \%$form);
- } else {
- CT->save_vendor(\%myconfig, \%$form);
- }
+ _do_save();
$form->{callback} = $form->escape($form->{callback}, 1);
my $name = $form->escape("$form->{name}", 1);
my $msg = ucfirst $form->{db};
$msg .= " saved!";
- $form->isblank("name", $locale->text("Name missing!"));
- my $rc;
- if ($form->{"db"} eq "customer") {
- $rc = CT->save_customer(\%myconfig, \%$form);
- } else {
- $rc = CT->save_vendor(\%myconfig, \%$form);
- }
- if ($rc == 3) {
- $form->error($locale->text('customernumber not unique!'));
- }
+ _do_save();
+
# saving the history
if(!exists $form->{addition}) {
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
my $msg = ucfirst $form->{db};
$msg .= " saved!";
- $form->isblank("name", $locale->text("Name missing!"));
-
- my $res;
- if ($form->{"db"} eq "customer") {
- $res = CT->save_customer(\%myconfig, \%$form);
- } else {
- $res = CT->save_vendor(\%myconfig, \%$form);
- }
+ _do_save();
- 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->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
} else {
my $ml_ = $form->escape($ml);
print
- qq|<tr><td class="bg" height="22" align="left" valign="middle" ><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover""><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" titel="Hallo Welt"> $label</a> </td></tr>\n|;
+ qq|<tr><td class="bg" height="24" align="left" valign="middle" ><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover""><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" titel="Hallo Welt"> $label</a> </td></tr>\n|;
§ion_menu($menu, $item);
#print qq|<br>\n|;
#!/usr/bin/perl
+# -*- coding: iso-8859-15; -*-
# These are all the texts to build the translations files.
# The file has the form of 'english text' => 'foreign text',
'Cash' => 'Zahlungsverkehr',
'Cc' => 'Cc',
'Change Lx-Office installation settings (all menu entries beneath \'System\')' => 'Verändern der Lx-Office-Installationseinstellungen (Menüpunkte unterhalb von \'System\')',
+ 'Change representative to' => 'Vertreter ändern in',
'Charge Number' => 'Chargennummer',
'Charge number' => 'Chargennummer',
'Chart' => 'Buchungskonto',
'Productivity' => 'Produktivität',
'Profit Center' => 'Erfolgsbereich',
'Proforma Invoice' => 'Proformarechnung',
- 'Program' => 'Programm',
+ 'Program' => 'Programm',
'Project' => 'Projekt',
'Project Number' => 'Projektnummer',
'Project Number missing!' => 'Projektnummer fehlt!',
'You have to chose which unit to save for each of them.' => 'Sie müssen für jeden Artikel die neue Einheit auswählen.',
'You have to create at least one group, grant it access to Lx-Office\'s functions and assign users to it.' => 'Sie müssen mindestens eine Benutzergruppe anlegen, ihr Zugriff auf die verschiedenen Funktionsbereiche von Lx-Office gewähren und Benutzer dieser Gruppe zuordnen.',
'You have to create new Buchungsgruppen for all the combinations of inventory, income and expense accounts that have been used already.' => 'Sie müssen neue Buchungsgruppen für alle Kombinationen aus Inventar-, Erlös- und Aufwandskonto, die bereits benutzt wurden.',
- 'You have to enter a company name in your user preferences (see the "Program" menu, "Preferences").' => 'Sie müssen einen Firmennamen in Ihren Einstellungen angeben (siehe "Programm"-Menü, "Benuztereinstellungen).',
+ 'You have to enter a company name in your user preferences (see the "Program" menu, "Preferences").' => 'Sie müssen einen Firmennamen in Ihren Einstellungen angeben (siehe Menü "Programm", "Einstellungen").',
'You have to fill in at least an account number, the bank code, the IBAN and the BIC.' => 'Sie müssen zumindest die Kontonummer, die Bankleitzahl, die IBAN und den BIC angeben.',
'You have to specify a department.' => 'Sie müssen eine Abteilung wählen.',
'You have to specify an execution date for each antry.' => 'Sie müssen für jeden zu buchenden Eintrag ein Ausführungsdatum angeben.',
'cp_greeting to cp_gender migration' => 'Datenumwandlung von Titel nach Geschlecht (cp_greeting to cp_gender)',
'customer' => 'Kunde',
'customer_list' => 'kundenliste',
- 'customernumber not unique!' => 'Die Kundennummer ist schon vergeben',
'debug' => 'Debug',
'delete' => 'Löschen',
'deliverydate' => 'Lieferdatum',
'Productivity' => '',
'Profit Center' => '',
'Proforma Invoice' => '',
- 'Program' => '',
+ 'Program' => '',
'Project' => '',
'Project Number' => '',
'Project Number missing!' => '',
open my $fh, '>', $file or die "$! : $file";
- print $fh "#!/usr/bin/perl\n\n";
+ print $fh "#!/usr/bin/perl\n# -*- coding: iso-8859-15; -*-\n\n";
print $fh $header, "\n" if $header;
print $fh "$data_name = $delim[0]\n" if $data_name;
-%]
</td>
</tr>
+ [%- IF id %]
<tr>
<th align="right">[% 'Representative' | $T8 %]</th>
+ <td>
+ <input type="hidden" name="salesman_id" value="[%- HTML.escape(salesman_id) %]"%>
+ [%- HTML.escape(salesman) %]
+ </td>
+ </tr>
+ [%- END %]
+ <tr>
+ <th align="right">
+ [%- IF !id %]
+ [% 'Representative' | $T8 %]
+ [%- ELSE %]
+ [% 'Change representative to' | $T8 %]
+ [%- END %]
+ </th>
<td>
[%- INCLUDE generic/multibox.html
- name = 'salesman_id',
- DATA = ALL_SALESMAN_CUSTOMERS,
- id_key = 'id',
- label_key = 'name',
+ name = 'new_salesman_id',
+ DATA = ALL_SALESMAN_CUSTOMERS,
+ id_key = 'id',
+ label_key = 'name',
+ show_empty = id,
-%]
</td>
</tr>