bin/mozilla/ct.pl

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 #=====================================================================
   8 # SQL-Ledger Accounting
   9 # Copyright (c) 1998-2002
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors: Reed White <alta@alta-research.com>
  16 #
  17 # This program is free software; you can redistribute it and/or modify
  18 # it under the terms of the GNU General Public License as published by
  19 # the Free Software Foundation; either version 2 of the License, or
  20 # (at your option) any later version.
  21 #
  22 # This program is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU General Public License for more details.
  26 # You should have received a copy of the GNU General Public License
  27 # along with this program; if not, write to the Free Software
  28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29 #======================================================================
  30 #
  31 # customer/vendor module
  32 #
  33 #======================================================================
  34
  35 # $locale->text('Customers')
  36 # $locale->text('Vendors')
  37 # $locale->text('Add Customer')
  38 # $locale->text('Add Vendor')
  39
  40 use SL::CT;
  41
  42 1;
  43
  44 # end of main
  45
  46 sub add {
  47   $lxdebug->enter_sub();
  48
  49   $form->{title} = "Add";
  50
  51   $form->{callback} =
  52     "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
  53     unless $form->{callback};
  54
  55   CT->taxaccounts(\%myconfig, \%$form);
  56
  57   &form_header;
  58   &form_footer;
  59
  60   $lxdebug->leave_sub();
  61 }
  62
  63 sub search {
  64   $lxdebug->enter_sub();
  65
  66   $label = ucfirst $form->{db};
  67   $form->{title} = $locale->text($label . "s");
  68
  69   if ($form->{db} eq 'vendor') {
  70     $gifi = qq|
  71                 <td><input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |
  72       . $locale->text('GIFI') . qq|</td>
  73 |;
  74   }
  75
  76   $form->header;
  77
  78   print qq|
  79 <body>
  80
  81 <form method=post action=$form->{script}>
  82
  83 <input type=hidden name=db value=$form->{db}>
  84
  85 <table width=100%>
  86   <tr>
  87     <th class=listtop>$form->{title}</th>
  88   </tr>
  89   <tr height="5"></tr>
  90   <tr valign=top>
  91     <td>
  92       <table>
  93         <tr>
  94           <th align=right nowrap>| . $locale->text($label . ' Number') . qq|</th>
  95           <td><input name=$form->{db}number size=35></td>
  96         </tr>
  97         <tr>
  98           <th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
  99           <td><input name=name size=35></td>
 100         </tr>
 101         <tr>
 102           <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
 103           <td><input name=contact size=35></td>
 104         </tr>
 105         <tr>
 106           <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
 107           <td><input name=email size=35></td>
 108         </tr>
 109         <tr>
 110           <td></td>
 111           <td><input name=status class=radio type=radio value=all checked>&nbsp;|
 112     . $locale->text('All') . qq|
 113           <input name=status class=radio type=radio value=orphaned>&nbsp;|
 114     . $locale->text('Orphaned') . qq|</td>
 115         </tr>
 116         <tr>
 117           <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
 118           <td>
 119             <table>
 120               <tr>
 121                 <td><input name="l_id" type=checkbox class=checkbox value=Y> |
 122     . $locale->text('ID') . qq|</td>
 123                 <td><input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |
 124     . $locale->text($label . ' Number') . qq|</td>
 125                 <td><input name="l_name" type=checkbox class=checkbox value=Y checked> |
 126     . $locale->text('Company Name') . qq|</td>
 127                 <td><input name="l_address" type=checkbox class=checkbox value=Y> |
 128     . $locale->text('Address') . qq|</td>
 129               </tr>
 130               <tr>
 131                 <td><input name="l_contact" type=checkbox class=checkbox value=Y checked> |
 132     . $locale->text('Contact') . qq|</td>
 133                 <td><input name="l_phone" type=checkbox class=checkbox value=Y checked> |
 134     . $locale->text('Phone') . qq|</td>
 135                 <td><input name="l_fax" type=checkbox class=checkbox value=Y> |
 136     . $locale->text('Fax') . qq|</td>
 137                 <td><input name="l_email" type=checkbox class=checkbox value=Y checked> |
 138     . $locale->text('E-mail') . qq|</td>
 139               </tr>
 140               <tr>
 141                 <td><input name="l_taxnumber" type=checkbox class=checkbox value=Y> |
 142     . $locale->text('Tax Number') . qq|</td>
 143                 $gifi
 144                 <td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |
 145     . $locale->text('SIC') . qq|</td>
 146                 <td><input name="l_business" type=checkbox class=checkbox value=Y> |
 147     . $locale->text('Type of Business') . qq|</td>
 148               </tr>
 149               <tr>
 150                 <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> |
 151     . $locale->text('Invoices') . qq|</td>
 152                 <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> |
 153     . $locale->text('Orders') . qq|</td>
 154                 <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> |
 155     . $locale->text('Quotations') . qq|</td>
 156               </tr>
 157             </table>
 158           </td>
 159         </tr>
 160       </table>
 161     </td>
 162   </tr>
 163   <tr>
 164     <td><hr size=3 noshade></td>
 165   </tr>
 166 </table>
 167
 168 <input type=hidden name=nextsub value=list_names>
 169
 170 <input type=hidden name=path value=$form->{path}>
 171 <input type=hidden name=login value=$form->{login}>
 172 <input type=hidden name=password value=$form->{password}>
 173
 174 <br>
 175 <input type=submit class=submit name=action value="|
 176     . $locale->text('Continue') . qq|">
 177 </form>
 178
 179 </body>
 180 </html>
 181 |;
 182   $lxdebug->leave_sub();
 183 }
 184
 185 sub list_names {
 186   $lxdebug->enter_sub();
 187
 188   CT->search(\%myconfig, \%$form);
 189
 190   $callback =
 191     "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
 192   $href = $callback;
 193
 194   @columns =
 195     $form->sort_columns(id, name,
 196                         "$form->{db}number", address,
 197                         contact,             phone,
 198                         fax,                 email,
 199                         taxnumber,           gifi_accno,
 200                         sic_code,            business,
 201                         invnumber,           ordnumber,
 202                         quonumber);
 203
 204   foreach $item (@columns) {
 205     if ($form->{"l_$item"} eq "Y") {
 206       push @column_index, $item;
 207
 208       # add column to href and callback
 209       $callback .= "&l_$item=Y";
 210       $href     .= "&l_$item=Y";
 211     }
 212   }
 213   $number =
 214     ($form->{db} eq "customer")
 215     ? $locale->text('Customer Number')
 216     : $locale->text('Vendor Number');
 217
 218   if ($form->{status} eq 'all') {
 219     $option = $locale->text('All');
 220   }
 221   if ($form->{status} eq 'orphaned') {
 222     $option .= $locale->text('Orphaned');
 223   }
 224   if ($form->{name}) {
 225     $callback .= "&name=" . $form->escape($form->{name}, 1);
 226     $href .= "&name=" . $form->escape($form->{name});
 227     $option .= "\n<br>" . $locale->text('Name') . " : $form->{name}";
 228   }
 229   if ($form->{contact}) {
 230     $callback .= "&contact=" . $form->escape($form->{contact}, 1);
 231     $href .= "&contact=" . $form->escape($form->{contact});
 232     $option .= "\n<br>" . $locale->text('Contact') . " : $form->{contact}";
 233   }
 234   if ($form->{"$form->{db}number"}) {
 235     $callback .=
 236       qq|&$form->{db}number=| . $form->escape($form->{"$form->{db}number"}, 1);
 237     $href .=
 238       "&$form->{db}number=" . $form->escape($form->{"$form->{db}number"});
 239     $option .=
 240       "\n<br>" . $locale->text('Number') . qq| : $form->{"$form->{db}number"}|;
 241   }
 242   if ($form->{email}) {
 243     $callback .= "&email=" . $form->escape($form->{email}, 1);
 244     $href .= "&email=" . $form->escape($form->{email});
 245     $option .= "\n<br>" . $locale->text('E-mail') . " : $form->{email}";
 246   }
 247
 248   $form->{callback} = "$callback&sort=$form->{sort}";
 249   $callback = $form->escape($form->{callback});
 250
 251   $column_header{id} =
 252     qq|<th class=listheading>| . $locale->text('ID') . qq|</th>|;
 253   $column_header{"$form->{db}number"} =
 254     qq|<th><a class=listheading href=$href&sort=$form->{db}number>$number</a></th>|;
 255   $column_header{name} =
 256       qq|<th><a class=listheading href=$href&sort=name>|
 257     . $locale->text('Name')
 258     . qq|</a></th>|;
 259   $column_header{address} =
 260       qq|<th><a class=listheading href=$href&sort=address>|
 261     . $locale->text('Address')
 262     . qq|</a></th>|;
 263   $column_header{contact} =
 264       qq|<th><a class=listheading href=$href&sort=contact>|
 265     . $locale->text('Contact')
 266     . qq|</a></th>|;
 267   $column_header{phone} =
 268       qq|<th><a class=listheading href=$href&sort=phone>|
 269     . $locale->text('Phone')
 270     . qq|</a></th>|;
 271   $column_header{fax} =
 272       qq|<th><a class=listheading href=$href&sort=fax>|
 273     . $locale->text('Fax')
 274     . qq|</a></th>|;
 275   $column_header{email} =
 276       qq|<th><a class=listheading href=$href&sort=email>|
 277     . $locale->text('E-mail')
 278     . qq|</a></th>|;
 279   $column_header{cc} =
 280       qq|<th><a class=listheading href=$href&sort=cc>|
 281     . $locale->text('Cc')
 282     . qq|</a></th>|;
 283
 284   $column_header{taxnumber} =
 285       qq|<th><a class=listheading href=$href&sort=taxnumber>|
 286     . $locale->text('Tax Number')
 287     . qq|</a></th>|;
 288   $column_header{gifi_accno} =
 289       qq|<th><a class=listheading href=$href&sort=gifi_accno>|
 290     . $locale->text('GIFI')
 291     . qq|</a></th>|;
 292   $column_header{sic_code} =
 293       qq|<th><a class=listheading href=$href&sort=sic_code>|
 294     . $locale->text('SIC')
 295     . qq|</a></th>|;
 296   $column_header{business} =
 297       qq|<th><a class=listheading href=$href&sort=business>|
 298     . $locale->text('Type of Business')
 299     . qq|</a></th>|;
 300
 301   $column_header{invnumber} =
 302       qq|<th><a class=listheading href=$href&sort=invnumber>|
 303     . $locale->text('Invoice')
 304     . qq|</a></th>|;
 305   $column_header{ordnumber} =
 306       qq|<th><a class=listheading href=$href&sort=ordnumber>|
 307     . $locale->text('Order')
 308     . qq|</a></th>|;
 309   $column_header{quonumber} =
 310       qq|<th><a class=listheading href=$href&sort=quonumber>|
 311     . $locale->text('Quotation')
 312     . qq|</a></th>|;
 313
 314   $label = ucfirst $form->{db} . "s";
 315   $form->{title} = $locale->text($label);
 316
 317   $form->header;
 318
 319   print qq|
 320 <body>
 321
 322 <table width=100%>
 323   <tr>
 324     <th class=listtop>$form->{title}</th>
 325   </tr>
 326   <tr height="5"></tr>
 327   <tr>
 328     <td>$option</td>
 329   </tr>
 330   <tr>
 331     <td>
 332       <table width=100%>
 333         <tr class=listheading>
 334 |;
 335
 336   map { print "$column_header{$_}\n" } @column_index;
 337
 338   print qq|
 339         </tr>
 340 |;
 341
 342   $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order';
 343   $quotationtype =
 344     ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
 345
 346   foreach $ref (@{ $form->{CT} }) {
 347
 348     if ($ref->{id} eq $sameid) {
 349       map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
 350     } else {
 351       map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } @column_index;
 352
 353       map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
 354         (invnumber, ordnumber, quonumber);
 355
 356       $column_data{name} =
 357         "<td align=left><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name}&nbsp;</td>";
 358
 359       if ($ref->{email}) {
 360         $email = $ref->{email};
 361         $email =~ s/</\&lt;/;
 362         $email =~ s/>/\&gt;/;
 363
 364         $column_data{email} =
 365           qq|<td><a href="mailto:$ref->{email}">$email</a></td>|;
 366       }
 367
 368     }
 369
 370     if ($ref->{formtype} eq 'invoice') {
 371       $column_data{invnumber} =
 372         "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}&nbsp;</td>";
 373     }
 374
 375     if ($ref->{formtype} eq 'order') {
 376       $column_data{ordnumber} =
 377         "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}&nbsp;</td>";
 378     }
 379
 380     if ($ref->{formtype} eq 'quotation') {
 381       $column_data{quonumber} =
 382         "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}&nbsp;</td>";
 383     }
 384
 385     $i++;
 386     $i %= 2;
 387     print "
 388         <tr class=listrow$i>
 389 ";
 390
 391     map { print "$column_data{$_}\n" } @column_index;
 392
 393     print qq|
 394         </tr>
 395 |;
 396
 397     $sameid = $ref->{id};
 398
 399   }
 400
 401   print qq|
 402       </table>
 403     </td>
 404   </tr>
 405   <tr>
 406     <td><hr size=3 noshade></td>
 407   </tr>
 408 </table>
 409
 410 <br>
 411 <form method=post action=$form->{script}>
 412
 413 <input name=callback type=hidden value="$form->{callback}">
 414 <input name=db type=hidden value=$form->{db}>
 415
 416 <input type=hidden name=path value=$form->{path}>
 417 <input type=hidden name=login value=$form->{login}>
 418 <input type=hidden name=password value=$form->{password}>
 419
 420 <input class=submit type=submit name=action value="|
 421     . $locale->text('Add') . qq|">|;
 422
 423   if ($form->{menubar}) {
 424     require "$form->{path}/menu.pl";
 425     &menubar;
 426   }
 427
 428   print qq|
 429   </form>
 430
 431 </body>
 432 </html>
 433 |;
 434
 435   $lxdebug->leave_sub();
 436 }
 437
 438 sub edit {
 439   $lxdebug->enter_sub();
 440
 441   # $locale->text('Edit Customer')
 442   # $locale->text('Edit Vendor')
 443
 444   CT->get_tuple(\%myconfig, \%$form);
 445
 446   # format " into &quot;
 447   map { $form->{$_} =~ s/\"/&quot;/g } keys %$form;
 448
 449   $form->{title} = "Edit";
 450
 451   # format discount
 452   $form->{discount} *= 100;
 453
 454   &form_header;
 455   &form_footer;
 456
 457   $lxdebug->leave_sub();
 458 }
 459
 460 sub form_header {
 461   $lxdebug->enter_sub();
 462
 463   $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
 464   $form->{creditlimit} =
 465     $form->format_amount(\%myconfig, $form->{creditlimit}, 0);
 466   $form->{discount} = $form->format_amount(\%myconfig, $form->{discount});
 467
 468   if ($myconfig{role} eq 'admin') {
 469     $bcc = qq|
 470         <tr>
 471           <th align=right nowrap>| . $locale->text('Bcc') . qq|</th>
 472           <td><input name=bcc size=35 value="$form->{bcc}"></td>
 473         </tr>
 474 |;
 475   }
 476   $form->{obsolete} = "checked" if $form->{obsolete};
 477   %langs = (de => "deutsch", en => "englisch", fr => "französisch");
 478   $lang = qq|<option value=""></option>|;
 479   foreach $item (keys %langs) {
 480     if ($form->{language} eq $item) {
 481       $lang .= qq|<option value="$item" selected>$langs{$item}</option>|;
 482     } else {
 483       $lang .= qq|<option value="$item">$langs{$item}</option>|;
 484     }
 485   }
 486
 487   foreach $item (split / /, $form->{taxaccounts}) {
 488     if (($form->{tax}{$item}{taxable}) || !($form->{id})) {
 489       $taxable .=
 490         qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked>&nbsp;<b>$form->{tax}{$item}{description}</b>|;
 491     } else {
 492       $taxable .=
 493         qq| <input name="tax_$item" value=1 class=checkbox type=checkbox>&nbsp;<b>$form->{tax}{$item}{description}</b>|;
 494     }
 495   }
 496
 497 ##LINET
 498   $taxable = "";
 499
 500   if ($taxable) {
 501     $tax = qq|
 502   <tr>
 503     <th align=right>| . $locale->text('Taxable') . qq|</th>
 504     <td colspan=2>
 505       <table>
 506         <tr>
 507           <td>$taxable</td>
 508           <td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
 509           <th align=left>| . $locale->text('Tax Included') . qq|</th>
 510         </tr>
 511       </table>
 512     </td>
 513   </tr>
 514 |;
 515   }
 516   $form->{selectbusiness} = qq|<option>\n|;
 517   map {
 518     $form->{selectbusiness} .=
 519       qq|<option value=$_->{id}>$_->{description}\n|
 520   } @{ $form->{all_business} };
 521   if ($form->{business_save}) {
 522     $form->{selectbusiness} = $form->{business_save};
 523   }
 524   $form->{selectbusiness} =~
 525     s/<option value=$form->{business}>/<option value=$form->{business} selected>/;
 526
 527   $label = ucfirst $form->{db};
 528   $form->{title} = $locale->text("$form->{title} $label");
 529   if ($form->{title_save}) {
 530     $form->{title} = $form->{title_save};
 531   }
 532   if ($form->{db} eq 'vendor') {
 533     $customer = qq|
 534            <th align=right>| . $locale->text('Kundennummer') . qq|</th>
 535            <td><input name=v_customer_id size=10 tabindex=18 maxlength=35 value="$form->{v_customer_id}"></td>
 536 |;
 537   }
 538
 539   if ($form->{db} eq 'customer') {
 540
 541     $customer = qq|
 542            <th align=right>| . $locale->text('KNr. beim Kunden') . qq|</th>
 543            <td><input name=c_vendor_id size=10 tabindex=18 maxlength=35 value="$form->{c_vendor_id}"></td>
 544 |;
 545   }
 546   $business_salesman = "";
 547   $business          = "<th></th><td></td>";
 548   if ($vertreter) {
 549     $business_salesman = qq|
 550         <tr>
 551           <td colspan=3>
 552             <table>
 553              <th align=right>| . $locale->text('Type of Business') . qq|</th>
 554              <td><select name=business tabindex=1>$form->{selectbusiness}</select></td>
 555              <th align=right>| . $locale->text('Salesman') . qq|</th>
 556              <td><input name=salesman tabindex=2 value="$form->{salesman}"></td>
 557              <input type=hidden name=salesman_id value="$form->{salesman_id}">
 558              <input type=hidden name=oldsalesman value="$form->{oldsalesman}">
 559             </table>
 560           </td>
 561        <tr>|;
 562     $business = qq|
 563              <th align=right>| . $locale->text('Username') . qq|</th>
 564              <td><input name=username maxlength=50 tabindex=22 value="$form->{username}"></td>
 565              <th align=right>| . $locale->text('Password') . qq|</th>
 566              <td><input name=user_password maxlength=12 tabindex=23 value="$form->{user_password}"></td>|;
 567   } else {
 568     $business = qq|
 569           <th align=right>| . $locale->text('Type of Business') . qq|</th>
 570           <td><select name=business tabindex=22>$form->{selectbusiness}</select></td>
 571       |;
 572   }
 573
 574 ## LINET: Create a drop-down box with all prior titles and greetings.
 575   CT->query_titles_and_greetings(\%myconfig, \%$form);
 576
 577   $select_title = qq|&nbsp;<select name=selected_cp_title><option></option>|;
 578   map({ $select_title .= qq|<option>$_</option>|; } @{ $form->{TITLES} });
 579   $select_title .= qq|</select>|;
 580
 581   $select_greeting =
 582     qq|&nbsp;<select name=selected_cp_greeting><option></option>|;
 583   map(
 584      { $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
 585   $select_greeting .= qq|</select>|;
 586 ## /LINET
 587
 588   if ($form->{db} eq 'customer') {
 589
 590     #get pricegroup and form it
 591     $form->get_pricegroup(\%myconfig, { all => 1 });
 592
 593     $form->{pricegroup}    = "$form->{klass}";
 594     $form->{pricegroup_id} = "$form->{klass}";
 595
 596     if (@{ $form->{all_pricegroup} }) {
 597
 598       $form->{selectpricegroup} = qq|<option>\n|;
 599       map {
 600         $form->{selectpricegroup} .=
 601           qq|<option value="$_->{id}">$_->{pricegroup}\n|
 602       } @{ $form->{all_pricegroup} };
 603     }
 604
 605     if ($form->{selectpricegroup}) {
 606       $form->{selectpricegroup} = $form->unescape($form->{selectpricegroup});
 607
 608       $pricegroup =
 609         qq|<input type=hidden name=selectpricegroup value="|
 610         . $form->escape($form->{selectpricegroup}, 1) . qq|">|;
 611
 612       $form->{selectpricegroup} =~
 613         s/(<option value="\Q$form->{klass}\E")/$1 selected/;
 614
 615       $pricegroup .=
 616         qq|<select name=klass tabindex=24>$form->{selectpricegroup}</select>|;
 617
 618     }
 619   }
 620
 621   # $locale->text('Customer Number')
 622   # $locale->text('Vendor Number')
 623   $form->{fokus} = "ct.name";
 624   $form->header;
 625
 626   print qq|
 627 <body onLoad="fokus()">
 628 <form method=post name="ct" action=$form->{script}>
 629
 630 <table width=100%>
 631   <tr>
 632     <th class=listtop>$form->{title}</th>
 633   </tr>
 634   <tr>
 635     <td>
 636       <table width=100%>
 637         <tr class=listheading>
 638           <th class=listheading colspan=2 width=50%>|
 639     . $locale->text('Billing Address') . qq|</th>
 640           <th class=listheading width=50%>|
 641     . $locale->text('Shipping Address') . qq|</th>
 642         </tr>
 643         <tr height="5"></tr>
 644         $business_salesman
 645         <tr>
 646           <th align=right nowrap>| . $locale->text($label . ' Number') . qq|</th>
 647           <td><input name="$form->{db}number" size=35 maxlength=35 value="$form->{"$form->{db}number"}"></td>
 648         </tr>
 649         <tr>
 650           <th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
 651           <td><input name=name size=35 maxlength=75 tabindex=1 value="$form->{name}"></td>
 652           <td><input name=shiptoname size=35 maxlength=75 value="$form->{shiptoname}"></td>
 653         </tr>
 654         <tr>
 655           <th align=right nowrap>| . $locale->text('Abteilung') . qq|</th>
 656           <td><input name=department_1 size=16 maxlength=75 tabindex=2 value="$form->{department_1}">
 657           <input name=department_2 size=16 maxlength=75 tabindex=3 value="$form->{department_2}"></td>
 658           <td><input name=shiptodepartment_1 size=16 maxlength=75 value="$form->{shiptodepartment_1}">
 659           <input name=shiptodepartment_2 size=16 maxlength=75 value="$form->{shiptodepartment_2}"></td>
 660         </tr>
 661         <tr>
 662           <th align=right nowrap>| . $locale->text('Street') . qq|</th>
 663           <td><input name=street size=35 tabindex=4 maxlength=75 value="$form->{street}"></td>
 664           <td><input name=shiptostreet size=35 maxlength=75 value="$form->{shiptostreet}"></td>
 665         </tr>
 666         <tr>
 667           <th align=right nowrap>|
 668     . $locale->text('Zipcode') . "/" . $locale->text('City') . qq|</th>
 669           <td><input name=zipcode size=5 tabindex=5 maxlength=10 value="$form->{zipcode}">
 670           <input name=city size=30 tabindex=6 maxlength=75 value="$form->{city}"></td>
 671           <td><input name=shiptozipcode size=5 maxlength=10 value="$form->{shiptozipcode}">
 672           <input name=shiptocity size=30 maxlength=75 value="$form->{shiptocity}"></td>
 673         </tr>
 674         <tr>
 675           <th align=right nowrap>| . $locale->text('Country') . qq|</th>
 676           <td><input name=country size=35 tabindex=7 maxlength=75 value="$form->{country}"></td>
 677           <td><input name=shiptocountry size=35 maxlength=35 value="$form->{shiptocountry}"></td>
 678         </tr>
 679         <tr>
 680           <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
 681           <td><input name=contact size=28 tabindex=8 maxlength=75 value="$form->{contact}"></td>
 682           <td><input name=shiptocontact size=30 maxlength=75 value="$form->{shiptocontact}"></td>
 683         </tr>
 684         <tr>
 685           <th align=right nowrap>| . $locale->text('Phone') . qq|</th>
 686           <td><input name=phone size=30 tabindex=9 maxlength=30 value="$form->{phone}"></td>
 687           <td><input name=shiptophone size=30 maxlength=30 value="$form->{shiptophone}"></td>
 688         </tr>
 689         <tr>
 690           <th align=right nowrap>| . $locale->text('Fax') . qq|</th>
 691           <td><input name=fax size=30 tabindex=10 maxlength=30 value="$form->{fax}"></td>
 692           <td><input name=shiptofax size=30 maxlength=30 value="$form->{shiptofax}"></td>
 693         </tr>
 694         <tr>
 695           <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
 696           <td><input name=email tabindex=11 size=45 value="$form->{email}"></td>
 697           <td><input name=shiptoemail size=45 value="$form->{shiptoemail}"></td>
 698         </tr>
 699         <tr>
 700           <th align=right nowrap>| . $locale->text('Homepage') . qq|</th>
 701           <td><input name=homepage tabindex=12 size=45 value="$form->{homepage}"></td>
 702         </tr>
 703         <tr>
 704         </tr>|;
 705 ##LINET - added fields for contact person
 706   print qq|       <tr>
 707          <td colspan=3>
 708                 <input type=hidden name=cp_id value=$form->{cp_id}>
 709                 <table>
 710                 <tr>
 711                   <th align=right nowrap>|
 712     . $locale->text('Contact Person') . qq|</th>
 713                 </tr>
 714                 <tr>
 715                   <th></th>
 716                   <th align=left nowrap>| . $locale->text('Greeting') . qq|</th>
 717                   <td><input name=cp_greeting size=30 maxlength=30 value="$form->{cp_greeting}">&nbsp;
 718                   $select_greeting</td>
 719                   <th align=left nowrap>| . $locale->text('Title') . qq|</th>
 720                   <td><input name=cp_title size=30 maxlength=30 value="$form->{cp_title}">&nbsp;
 721                   $select_title</td>
 722                 </tr>
 723                 <tr>
 724                   <th></th>
 725                   <th align=left nowrap>|
 726     . $locale->text('Given Name') . qq|</th>
 727                   <td><input name=cp_givenname size=30 maxlength=40 value="$form->{cp_givenname}"></td>
 728                   <th align=left nowrap>| . $locale->text('Name') . qq|</th>
 729                   <td><input name=cp_name size=30 maxlength=40 value="$form->{cp_name}"></td>
 730                 </tr>
 731                 <tr>
 732                   <th></th>
 733                   <th align=left nowrap>| . $locale->text('Phone1') . qq|</th>
 734                   <td><input name=cp_phone1 size=30 maxlength=30 value="$form->{cp_phone1}"></td>
 735                   <th align=left nowrap>| . $locale->text('Phone2') . qq|</th>
 736                   <td><input name=cp_phone2 size=30 maxlength=30 value="$form->{cp_phone2}"></td>
 737                 </tr>
 738                 <tr>
 739                   <th></th>
 740                   <th align=left nowrap>| . $locale->text('E-mail') . qq|</th>
 741                   <td><input name=cp_email size=30 maxlength=40 value="$form->{cp_email}"></td>
 742                   <th></th>
 743                   <th></th>
 744                 </tr>                </table>
 745         </td>
 746         </tr>
 747         <tr height="5"></tr>|;
 748 ##/LINET
 749   print qq|        $bcc
 750         $tax
 751       </table>
 752     </td>
 753   </tr>
 754   <tr>
 755     <td>
 756       <table>
 757         <tr>
 758           <th align=right>| . $locale->text('Credit Limit') . qq|</th>
 759           <td><input name=creditlimit tabindex=13 size=9 value="$form->{creditlimit}"></td>
 760           <th align=right>| . $locale->text('Terms: Net') . qq|</th>
 761           <td><input name=terms tabindex=14 size=2 value="$form->{terms}">|
 762     . $locale->text('days') . qq|</td>
 763           <th align=right>| . $locale->text('Discount') . qq|</th>
 764           <td><input name=discount tabindex=15 size=4 value="$form->{discount}">
 765           %</td>
 766         </tr>
 767         <tr>
 768           <th align=right>| . $locale->text('Tax Number / SSN') . qq|</th>
 769           <td><input name=taxnumber tabindex=16 size=20 value="$form->{taxnumber}"></td>
 770           <th align=right>| . $locale->text('USt-IdNr.') . qq|</th>
 771           <td><input name=ustid tabindex=17 size=20 value="$form->{ustid}"></td>
 772           $customer
 773         </tr>
 774         <tr>
 775           <th align=right>| . $locale->text('Account Number') . qq|</th>
 776           <td><input name=account_number size=10 tabindex=19 value="$form->{account_number}"></td>
 777           <th align=right>| . $locale->text('Bank Code Number') . qq|</th>
 778           <td><input name=bank_code size=10 tabindex=20 value="$form->{bank_code}"></td>
 779           <th align=right>| . $locale->text('Bank') . qq|</th>
 780           <td><input name=bank size=30 tabindex=21 value="$form->{bank}"></td>
 781         </tr>
 782         <tr>
 783           $business
 784           <th align=right>| . $locale->text('Language') . qq|</th>
 785           <td><select name=language tabindex=23>$lang
 786                           </select></td>|;
 787
 788   if ($form->{db} eq 'customer') {
 789
 790     print qq|
 791           <th align=right>| . $locale->text('Preisklasse') . qq|</th>
 792           <td>$pricegroup</td>|;
 793   }
 794   print qq|        </tr>
 795         <tr>
 796           <td align=right>| . $locale->text('Obsolete') . qq|</td>
 797           <td><input name=obsolete class=checkbox type=checkbox value=1 $form->{obsolete}></td>
 798         </tr>
 799       </table>
 800     </td>
 801   </tr>
 802   <tr>
 803     <th align=left nowrap>| . $locale->text('Notes') . qq|</th>
 804   </tr>
 805   <tr>
 806     <td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td>
 807   </tr>
 808   <tr>
 809     <td><hr size=3 noshade></td>
 810   </tr>
 811 </table>
 812 |;
 813
 814   $lxdebug->leave_sub();
 815 }
 816
 817 sub form_footer {
 818   $lxdebug->enter_sub();
 819
 820   $label     = ucfirst $form->{db};
 821   $quotation =
 822     ($form->{db} eq 'customer')
 823     ? $locale->text('Save and Quotation')
 824     : $locale->text('Save and RFQ');
 825   $arap =
 826     ($form->{db} eq 'customer')
 827     ? $locale->text('Save and AR Transaction')
 828     : $locale->text('Save and AP Transaction');
 829   if ($vertreter) {
 830     $update_button =
 831       qq|<input class=submit type=submit name=action accesskey="u" value="|
 832       . $locale->text("Update") . qq|">|;
 833   } else {
 834     $update_button = "";
 835   }
 836
 837 ##<input class=submit type=submit name=action value="|.$locale->text("Save and Quotation").qq|">
 838 ##<input class=submit type=submit name=action value="|.$locale->text("Save and RFQ").qq|">
 839 ##<input class=submit type=submit name=action value="|.$locale->text("Save and AR Transaction").qq|">
 840 ##<input class=submit type=submit name=action value="|.$locale->text("Save and AP Transaction").qq|">
 841
 842   print qq|
 843 <input name=id type=hidden value=$form->{id}>
 844 <input name=taxaccounts type=hidden value="$form->{taxaccounts}">
 845 <input name=business_save type=hidden value="$form->{selectbusiness}">
 846 <input name=title_save type=hidden value="$form->{title}">
 847
 848 <input type=hidden name=path value=$form->{path}>
 849 <input type=hidden name=login value=$form->{login}>
 850 <input type=hidden name=password value=$form->{password}>
 851
 852 <input type=hidden name=callback value="$form->{callback}">
 853 <input type=hidden name=db value=$form->{db}>
 854
 855
 856
 857 <br>
 858 $update_button
 859 <input class=submit type=submit name=action accesskey="s" value="|
 860     . $locale->text("Save") . qq|">
 861 <input class=submit type=submit name=action value="$arap">
 862 <input class=submit type=submit name=action value="|
 863     . $locale->text("Save and Invoice") . qq|">
 864 <input class=submit type=submit name=action value="|
 865     . $locale->text("Save and Order") . qq|">
 866 <input class=submit type=submit name=action value="$quotation">
 867 |;
 868
 869   if ($form->{id} && $form->{status} eq 'orphaned') {
 870     print qq|<input class=submit type=submit name=action value="|
 871       . $locale->text('Delete')
 872       . qq|">\n|;
 873   }
 874
 875   if ($form->{menubar}) {
 876     require "$form->{path}/menu.pl";
 877     &menubar;
 878   }
 879
 880   print qq|
 881
 882   </form>
 883
 884 </body>
 885 </html>
 886 |;
 887
 888   $lxdebug->leave_sub();
 889 }
 890
 891 sub add_transaction {
 892   $lxdebug->enter_sub();
 893
 894   $form->isblank("name", $locale->text("Name missing!"));
 895   if ($vertreter && $form->{db} eq "customer") {
 896     $form->isblank("salesman_id", $locale->text("Salesman missing!"));
 897   }
 898   &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
 899
 900   $form->{callback} = $form->escape($form->{callback}, 1);
 901   $name = $form->escape("$form->{name}", 1);
 902
 903   $form->{callback} =
 904     "$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}";
 905
 906   $form->redirect;
 907
 908   $lxdebug->leave_sub();
 909 }
 910
 911 sub save_and_ap_transaction {
 912   $lxdebug->enter_sub();
 913
 914   $form->{script} = "ap.pl";
 915   &add_transaction;
 916
 917   $lxdebug->leave_sub();
 918 }
 919
 920 sub save_and_ar_transaction {
 921   $lxdebug->enter_sub();
 922
 923   $form->{script} = "ar.pl";
 924   &add_transaction;
 925
 926   $lxdebug->leave_sub();
 927 }
 928
 929 sub save_and_invoice {
 930   $lxdebug->enter_sub();
 931
 932   $form->{script} = ($form->{db} eq 'customer') ? "is.pl" : "ir.pl";
 933   $form->{type} = "invoice";
 934   &add_transaction;
 935
 936   $lxdebug->leave_sub();
 937 }
 938
 939 sub save_and_rfq {
 940   $lxdebug->enter_sub();
 941
 942   $form->{script} = "oe.pl";
 943   $form->{type}   = "request_quotation";
 944   &add_transaction;
 945
 946   $lxdebug->leave_sub();
 947 }
 948
 949 sub save_and_quotation {
 950   $lxdebug->enter_sub();
 951
 952   $form->{script} = "oe.pl";
 953   $form->{type}   = "sales_quotation";
 954   &add_transaction;
 955
 956   $lxdebug->leave_sub();
 957 }
 958
 959 sub save_and_order {
 960   $lxdebug->enter_sub();
 961
 962   $form->{script} = "oe.pl";
 963   $form->{type}   =
 964     ($form->{db} eq 'customer') ? "sales_order" : "purchase_order";
 965   &add_transaction;
 966
 967   $lxdebug->leave_sub();
 968 }
 969
 970 sub save {
 971   $lxdebug->enter_sub();
 972
 973   # $locale->text('Customer saved!')
 974   # $locale->text('Vendor saved!')
 975
 976   $msg = ucfirst $form->{db};
 977   $imsg .= " saved!";
 978
 979   $form->isblank("name", $locale->text("Name missing!"));
 980   if ($vertreter && $form->{db} eq "customer") {
 981     $form->isblank("salesman_id", $locale->text("Salesman missing!"));
 982   }
 983   $rc = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
 984   if ($rc == 3) {
 985     $form->error($locale->text('customernumber not unique!'));
 986   }
 987   $form->redirect($locale->text($msg));
 988
 989   $lxdebug->leave_sub();
 990 }
 991
 992 sub delete {
 993   $lxdebug->enter_sub();
 994
 995   # $locale->text('Customer deleted!')
 996   # $locale->text('Cannot delete customer!')
 997   # $locale->text('Vendor deleted!')
 998   # $locale->text('Cannot delete vendor!')
 999
1000   CT->delete(\%myconfig, \%$form);
1001
1002   $msg = ucfirst $form->{db};
1003   $msg .= " deleted!";
1004   $form->redirect($locale->text($msg));
1005
1006   $msg = "Cannot delete $form->{db}";
1007   $form->error($locale->text($msg));
1008
1009   $lxdebug->leave_sub();
1010 }
1011
1012 sub display {
1013   $lxdebug->enter_sub();
1014
1015   &form_header();
1016   &form_footer();
1017
1018   $lxdebug->leave_sub();
1019 }
1020
1021 sub update {
1022   $lxdebug->enter_sub();
1023
1024   &check_salesman($form->{salesman});
1025
1026   #  $form->get_salesman(\%myconfig, $form->{salesman});
1027   &display();
1028   $lxdebug->leave_sub();
1029 }
1030
1031 sub check_salesman {
1032   $lxdebug->enter_sub();
1033
1034   my ($name) = @_;
1035
1036   my ($new_name, $new_id) = split /--/, $form->{$name};
1037   my $i = 0;
1038
1039   # check name, combine name and id
1040   if ($form->{"oldsalesman"} ne $form->{"salesman"}) {
1041
1042     # return one name or a list of names in $form->{name_list}
1043     if (($i = $form->get_salesman(\%myconfig, $name)) > 1) {
1044       &select_salesman($name);
1045       exit;
1046     }
1047
1048     if ($i == 1) {
1049
1050       # we got one name
1051       $form->{"salesman_id"} = $form->{salesman_list}[0]->{id};
1052       $form->{salesman}      = $form->{salesman_list}[0]->{name};
1053       $form->{"oldsalesman"} = $form->{salesman};
1054
1055     } else {
1056
1057       # name is not on file
1058       # $locale->text('Customer not on file!')
1059       # $locale->text('Vendor not on file!')
1060       $msg = ucfirst $name . " not on file or locked!";
1061       $form->error($locale->text($msg));
1062     }
1063   }
1064
1065   $lxdebug->leave_sub();
1066
1067   return $i;
1068 }
1069
1070 sub select_salesman {
1071   $lxdebug->enter_sub();
1072
1073   my ($table) = @_;
1074
1075   @column_index = qw(ndx name);
1076
1077   $label             = ucfirst $table;
1078   $column_data{ndx}  = qq|<th>&nbsp;</th>|;
1079   $column_data{name} =
1080     qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
1081
1082   # list items with radio button on a form
1083   $form->header;
1084
1085   $title = $locale->text('Select from one of the names below');
1086
1087   print qq|
1088 <body>
1089
1090 <form method=post action=$form->{script}>
1091
1092 <table width=100%>
1093   <tr>
1094     <th class=listtop>$title</th>
1095   </tr>
1096   <tr space=5></tr>
1097   <tr>
1098     <td>
1099       <table width=100%>
1100         <tr class=listheading>|;
1101
1102   map { print "\n$column_data{$_}" } @column_index;
1103
1104   print qq|
1105         </tr>
1106 |;
1107
1108   my $i = 0;
1109   foreach $ref (@{ $form->{salesman_list} }) {
1110     $checked = ($i++) ? "" : "checked";
1111
1112     $ref->{name} =~ s/\"/&quot;/g;
1113
1114     $column_data{ndx} =
1115       qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
1116     $column_data{name} =
1117       qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
1118
1119     $j++;
1120     $j %= 2;
1121     print qq|
1122         <tr class=listrow$j>|;
1123
1124     map { print "\n$column_data{$_}" } @column_index;
1125
1126     print qq|
1127         </tr>
1128
1129 <input name="new_id_$i" type=hidden value=$ref->{id}>
1130
1131 |;
1132
1133   }
1134
1135   print qq|
1136       </table>
1137     </td>
1138   </tr>
1139   <tr>
1140     <td><hr size=3 noshade></td>
1141   </tr>
1142 </table>
1143
1144 <input name=lastndx type=hidden value=$i>
1145
1146 |;
1147
1148   # delete variables
1149   map { delete $form->{$_} } qw(action name_list header);
1150
1151   # save all other form variables
1152   foreach $key (keys %${form}) {
1153     $form->{$key} =~ s/\"/&quot;/g;
1154     print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
1155   }
1156
1157   print qq|
1158 <input type=hidden name=nextsub value=salesman_selected>
1159
1160 <input type=hidden name=vc value=$table>
1161 <br>
1162 <input class=submit type=submit name=action value="|
1163     . $locale->text('Continue') . qq|">
1164 </form>
1165
1166 </body>
1167 </html>
1168 |;
1169
1170   $lxdebug->leave_sub();
1171 }
1172
1173 sub salesman_selected {
1174   $lxdebug->enter_sub();
1175
1176   # replace the variable with the one checked
1177
1178   # index for new item
1179   $i = $form->{ndx};
1180
1181   $form->{salesman}      = $form->{"new_name_$i"};
1182   $form->{"salesman_id"} = $form->{"new_id_$i"};
1183   $form->{"oldsalesman"} = $form->{salesman};
1184
1185   # delete all the new_ variables
1186   for $i (1 .. $form->{lastndx}) {
1187     map { delete $form->{"new_${_}_$i"} } (id, name);
1188   }
1189
1190   map { delete $form->{$_} } qw(ndx lastndx nextsub);
1191
1192   &update(1);
1193
1194   $lxdebug->leave_sub();
1195 }
1196
1197 sub continue { &{ $form->{nextsub} } }