RewriteEngine On RewriteRule /VIRTUAL/([^/]+) http://$1 [R] RewriteCond %{HTTP_HOST} ^rip$ [NC] RewriteRule / http://rip:631/ [R,L] RewriteCond %{HTTP_HOST} ^proxy$ [NC] RewriteRule / http://rip:8080/ [R,L] #UseCanonicalName DNS UseCanonicalName Off NameVirtualHost * VirtualDocumentRoot /var/www/VIRTUAL/%0/www VirtualScriptAlias /var/www/VIRTUAL/%0/cgi-local Options +ExecCGI # AuthPAM_Enabled On AuthType Basic AuthName BOS require group users DocumentRoot /var/www ScriptAlias /cgi-local /var/www/cgi-local Options +ExecCGI # AuthPAM_Enabled On AuthType Basic AuthName BOS require group users edger-smb
Unnamed repository; edit this file to name it for gitweb.Jonas Smedegaard
summaryrefslogtreecommitdiff
path: root/bin/ct.pl
blob: 252c36be153f9dd5aa85ab10827bc5cb3182655b (plain) 
    

  1. #=====================================================================
    2. 

  2. # LedgerSMB Small Medium Business Accounting
    3. 

  3. # http://www.ledgersmb.org/
    4. 

  4. #
    5. 

  5. 

  6. # Copyright (C) 2006
    7. 

  7. # This work contains copyrighted information from a number of sources all used
    8. 

  8. # with permission.
    9. 

  9. #
    10. 

  10. # This file contains source code included with or based on SQL-Ledger which
    11. 

  11. # is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed 
    12. 

  12. # under the GNU General Public License version 2 or, at your option, any later 
    13. 

  13. # version.  For a full list including contact information of contributors, 
    14. 

  14. # maintainers, and copyright holders, see the CONTRIBUTORS file.
    15. 

  15. #
    16. 

  16. # Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
    17. 

  17. # Copyright (c) 2001
    18. 

  18. #
    19. 

  19. #  Author: DWS Systems Inc.
    20. 

  20. #     Web: http://www.sql-ledger.org
    21. 

  21. #
    22. 

  22. #  Contributors: Reed White <alta@alta-research.com>
    23. 

  23. #
    24. 

  24. #
    25. 

  25. #
    26. 

  26. # This program is free software; you can redistribute it and/or modify
    27. 

  27. # it under the terms of the GNU General Public License as published by
    28. 

  28. # the Free Software Foundation; either version 2 of the License, or
    29. 

  29. # (at your option) any later version.
    30. 

  30. #
    31. 

  31. # This program is distributed in the hope that it will be useful,
    32. 

  32. # but WITHOUT ANY WARRANTY; without even the implied warranty of
    33. 

  33. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    34. 

  34. # GNU General Public License for more details.
    35. 

  35. # You should have received a copy of the GNU General Public License
    36. 

  36. # along with this program; if not, write to the Free Software
    37. 

  37. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    38. 

  38. #======================================================================
    39. 

  39. #
    40. 

  40. # customer/vendor module
    41. 

  41. #
    42. 

  42. #======================================================================
    43. 

  43. 

  44. use LedgerSMB::CT;
    45. 

  45. 

  46. 1;
    47. 

  47. # end of main
    48. 

  48. 

  49. 

  50. 

  51. sub add {
    52. 

  52. 

  53.   $form->{title} = "Add";
    54. 

  54. # $locale->text('Add Customer')
    55. 

  55. # $locale->text('Add Vendor')
    56. 

  56. 

  57.   $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
    58. 

  58. 

  59.   CT->create_links(\%myconfig, \%$form);
    60. 

  60.   
    61. 

  61.   &form_header;
    62. 

  62.   &form_footer;
    63. 

  63.   
    64. 

  64. }
    65. 

  65. 

  66. 

  67. sub history {
    68. 

  68. 

  69. # $locale->text('Customer History')
    70. 

  70. # $locale->text('Vendor History')
    71. 

  71. 

  72.   $history = 1;
    73. 

  73.   $label = ucfirst $form->{db};
    74. 

  74.   $label .= " History";
    75. 

  75. 

  76.   if ($form->{db} eq 'customer') {
    77. 

  77.     $invlabel = $locale->text('Sales Invoices');
    78. 

  78.     $ordlabel = $locale->text('Sales Orders');
    79. 

  79.     $quolabel = $locale->text('Quotations');
    80. 

  80.   } else {
    81. 

  81.     $invlabel = $locale->text('Vendor Invoices');
    82. 

  82.     $ordlabel = $locale->text('Purchase Orders');
    83. 

  83.     $quolabel = $locale->text('Request for Quotations');
    84. 

  84.   }
    85. 

  85.   
    86. 

  86.   $form->{title} = $locale->text($label);
    87. 

  87.   
    88. 

  88.   $form->{nextsub} = "list_history";
    89. 

  89. 

  90.   $transactions = qq|
    91. 

  91.     <tr>
    92. 

  92.       <td></td>
    93. 

  93.       <td>
    94. 

  94.         <table>
    95. 

  95.           <tr>
    96. 

  96.             <td>
    97. 

  97.           <table>
    98. 

  98.             <tr>
    99. 

  99.               <td><input name=type type=radio class=radio value=invoice checked> $invlabel</td>
    100. 

  100.             </tr>
    101. 

  101.             <tr>
    102. 

  102.               <td><input name=type type=radio class=radio value=order> $ordlabel</td>
    103. 

  103.             </tr>
    104. 

  104.             <tr>
    105. 

  105.               <td><input name="type" type=radio class=radio value=quotation> $quolabel</td>
    106. 

  106.             </tr>
    107. 

  107.           </table>
    108. 

  108.         </td>
    109. 

  109.         <td>
    110. 

  110.           <table>
    111. 

  111.             <tr>
    112. 

  112.               <th>|.$locale->text('From').qq|</th>
    113. 

  113.               <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
    114. 

  114.               <th>|.$locale->text('To').qq|</th>
    115. 

  115.               <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
    116. 

  116.             </tr>
    117. 

  117.             <tr>
    118. 

  118.               <td></td>
    119. 

  119.               <td colspan=3>
    120. 

  120.                   <input name="open" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Open').qq|
    121. 

  121.                   <input name="closed" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Closed').qq|
    122. 

  122.               </td>
    123. 

  123.             </tr>
    124. 

  124.           </table>
    125. 

  125.         </td>
    126. 

  126.           </tr>
    127. 

  127.         </table>
    128. 

  128.       </td>
    129. 

  129.     </tr>
    130. 

  130. |;
    131. 

  131. 

  132.   $include = qq|
    133. 

  133.     <tr>
    134. 

  134.       <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
    135. 

  135.       <td>
    136. 

  136.         <table>
    137. 

  137.           <tr>
    138. 

  138.         <td><input name=history type=radio class=radio value=summary checked> |.$locale->text('Summary').qq|</td>
    139. 

  139.         <td><input name=history type=radio class=radio value=detail> |.$locale->text('Detail').qq|
    140. 

  140.         </td>
    141. 

  141.           </tr>
    142. 

  142.           <tr>
    143. 

  143.         <td>
    144. 

  144.         <input name="l_partnumber" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Part Number').qq|
    145. 

  145.         </td>
    146. 

  146.         <td>
    147. 

  147.         <input name="l_description" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Description').qq|
    148. 

  148.         </td>
    149. 

  149.         <td>
    150. 

  150.         <input name="l_sellprice" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Sell Price').qq|
    151. 

  151.         </td>
    152. 

  152.         <td>
    153. 

  153.         <input name="l_curr" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Currency').qq|
    154. 

  154.         </td>
    155. 

  155.           </tr>
    156. 

  156.           <tr>
    157. 

  157.         <td>
    158. 

  158.         <input name="l_qty" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Qty').qq|
    159. 

  159.         </td>
    160. 

  160.         <td>
    161. 

  161.         <input name="l_unit" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Unit').qq|
    162. 

  162.         </td>
    163. 

  163.         <td>
    164. 

  164.         <input name="l_discount" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Discount').qq|
    165. 

  165.         </td>
    166. 

  166.           <tr>
    167. 

  167.           </tr>
    168. 

  168.         <td>
    169. 

  169.         <input name="l_deliverydate" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Delivery Date').qq|
    170. 

  170.         </td>
    171. 

  171.         <td>
    172. 

  172.         <input name="l_projectnumber" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Project Number').qq|
    173. 

  173.         </td>
    174. 

  174.         <td>
    175. 

  175.         <input name="l_serialnumber" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Serial Number').qq|
    176. 

  176.         </td>
    177. 

  177.           </tr>
    178. 

  178.         </table>
    179. 

  179.       </td>
    180. 

  180.     </tr>
    181. 

  181. |;
    182. 

  182. 

  183.   &search_name;
    184. 

  184.   
    185. 

  185.   if ($form->{lynx}) {
    186. 

  186.     require "bin/menu.pl";
    187. 

  187.     &menubar;
    188. 

  188.   }
    189. 

  189. 

  190.   print qq|
    191. 

  191. </body>
    192. 

  192. </html>
    193. 

  193. |;
    194. 

  194. 

  195. }
    196. 

  196. 

  197. 

  198. sub transactions {
    199. 

  199. 

  200.   if ($form->{db} eq 'customer') {
    201. 

  201.     $translabel = $locale->text('AR Transactions');
    202. 

  202.     $invlabel = $locale->text('Sales Invoices');
    203. 

  203.     $ordlabel = $locale->text('Sales Orders');
    204. 

  204.     $quolabel = $locale->text('Quotations');
    205. 

  205.   } else {
    206. 

  206.     $translabel = $locale->text('AP Transactions');
    207. 

  207.     $invlabel = $locale->text('Vendor Invoices');
    208. 

  208.     $ordlabel = $locale->text('Purchase Orders');
    209. 

  209.     $quolabel = $locale->text('Request for Quotations');
    210. 

  210.   }
    211. 

  211. 

  212.  
    213. 

  213.   $transactions = qq|
    214. 

  214.     <tr>
    215. 

  215.       <td></td>
    216. 

  216.       <td>
    217. 

  217.         <table>
    218. 

  218.           <tr>
    219. 

  219.             <td>
    220. 

  220.           <table>
    221. 

  221.             <tr>
    222. 

  222.               <td><input name="l_transnumber" type=checkbox class=checkbox value=Y> $translabel</td>
    223. 

  223.             </tr>
    224. 

  224.             <tr>
    225. 

  225.               <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> $invlabel</td>
    226. 

  226.             </tr>
    227. 

  227.             <tr>
    228. 

  228.               <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> $ordlabel</td>
    229. 

  229.             </tr>
    230. 

  230.             <tr>
    231. 

  231.               <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> $quolabel</td>
    232. 

  232.             </tr>
    233. 

  233.           </table>
    234. 

  234.         </td>
    235. 

  235.         <td>
    236. 

  236.           <table>
    237. 

  237.             <tr>
    238. 

  238.               <th>|.$locale->text('From').qq|</th>
    239. 

  239.               <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
    240. 

  240.               <th>|.$locale->text('To').qq|</th>
    241. 

  241.               <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
    242. 

  242.             </tr>
    243. 

  243.             <tr>
    244. 

  244.               <td></td>
    245. 

  245.               <td colspan=3>
    246. 

  246.                   <input name="open" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Open').qq|
    247. 

  247.                   <input name="closed" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Closed').qq|
    248. 

  248.               </td>
    249. 

  249.             </tr>
    250. 

  250.             <tr>
    251. 

  251.               <td></td>
    252. 

  252.               <td colspan=3>
    253. 

  253.                   <input name="l_amount" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Amount').qq|
    254. 

  254.                   <input name="l_tax" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Tax').qq|
    255. 

  255.                   <input name="l_total" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Total').qq|
    256. 

  256.                   <input name="l_subtotal" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
    257. 

  257.               </td>
    258. 

  258.             </tr>
    259. 

  259.           </table>
    260. 

  260.         </td>
    261. 

  261.           </tr>
    262. 

  262.         </table>
    263. 

  263.       </td>
    264. 

  264.     </tr>
    265. 

  265. |;
    266. 

  266. 

  267. }
    268. 

  268. 

  269. 

  270. sub include_in_report {
    271. 

  271.   
    272. 

  272.   $label = ucfirst $form->{db};
    273. 

  273. 

  274.   @a = ();
    275. 

  275.   
    276. 

  276.   push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> |.$locale->text('No.');
    277. 

  277.   push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID');
    278. 

  278.   push @a, qq|<input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text($label . ' Number');
    279. 

  279.   push @a, qq|<input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |.$locale->text('Company Name');
    280. 

  280.   push @a, qq|<input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |.$locale->text('Contact');
    281. 

  281.   push @a, qq|<input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |.$locale->text('E-mail');
    282. 

  282.   push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address');
    283. 

  283.   push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City');
    284. 

  284.   push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province');
    285. 

  285.   push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code');
    286. 

  286.   push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country');
    287. 

  287.   push @a, qq|<input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |.$locale->text('Phone');
    288. 

  288.   push @a, qq|<input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax');
    289. 

  289.   push @a, qq|<input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc');
    290. 

  290.   
    291. 

  291.   if ($myconfig{role} =~ /(admin|manager)/) {
    292. 

  292.     push @a, qq|<input name="l_bcc" type=checkbox class=checkbox value=Y> |.$locale->text('Bcc');
    293. 

  293.   }
    294. 

  294. 

  295.   push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes');
    296. 

  296.   push @a, qq|<input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount');
    297. 

  297.   push @a, qq|<input name="l_taxaccount" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Account');
    298. 

  298.   push @a, qq|<input name="l_taxnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Number');
    299. 

  299.   
    300. 

  300.   if ($form->{db} eq 'customer') {
    301. 

  301.     push @a, qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Salesperson');
    302. 

  302.     push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager');
    303. 

  303.     push @a, qq|<input name="l_pricegroup" type=checkbox class=checkbox value=Y> |.$locale->text('Pricegroup');
    304. 

  304. 

  305.   } else {
    306. 

  306.     push @a, qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Employee');
    307. 

  307.     push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager');
    308. 

  308.     push @a, qq|<input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |.$locale->text('GIFI');
    309. 

  309. 

  310.   }
    311. 

  311. 

  312.   push @a, qq|<input name="l_sic_code" type=checkbox class=checkbox value=Y> |.$locale->text('SIC');
    313. 

  313.   push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN');
    314. 

  314.   push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC');
    315. 

  315.   push @a, qq|<input name="l_business" type=checkbox class=checkbox value=Y> |.$locale->text('Type of Business');
    316. 

  316.   push @a, qq|<input name="l_terms" type=checkbox class=checkbox value=Y> |.$locale->text('Terms');
    317. 

  317.   push @a, qq|<input name="l_language" type=checkbox class=checkbox value=Y> |.$locale->text('Language');
    318. 

  318.   push @a, qq|<input name="l_startdate" type=checkbox class=checkbox value=Y> |.$locale->text('Startdate');
    319. 

  319.   push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y> |.$locale->text('Enddate');
    320. 

  320. 

  321.    
    322. 

  322.   $include = qq|
    323. 

  323.     <tr>
    324. 

  324.       <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
    325. 

  325.       <td>
    326. 

  326.         <table>
    327. 

  327. |;
    328. 

  328. 

  329.   while (@a) {
    330. 

  330.     $include .= qq|<tr>\n|;
    331. 

  331.     for (1 .. 5) {
    332. 

  332.       $include .= qq|<td nowrap>|. shift @a;
    333. 

  333.       $include .= qq|</td>\n|;
    334. 

  334.     }
    335. 

  335.     $include .= qq|</tr>\n|;
    336. 

  336.   }
    337. 

  337. 

  338.   $include .= qq|
    339. 

  339.         </table>
    340. 

  340.       </td>
    341. 

  341.     </tr>
    342. 

  342. |;
    343. 

  343. 

  344. }
    345. 

  345. 

  346. 

  347. sub search {
    348. 

  348. 

  349. # $locale->text('Customers')
    350. 

  350. # $locale->text('Vendors')
    351. 

  351. 

  352.   $form->{title} = $locale->text('Search') unless $form->{title};
    353. 

  353.   
    354. 

  354.   for (qw(name contact phone email)) { $form->{"l_$_"} = 'checked' }
    355. 

  355. 

  356.   $form->{nextsub} = "list_names";
    357. 

  357. 

  358.   $orphan = qq|
    359. 

  359.     <tr>
    360. 

  360.       <td></td>
    361. 

  361.       <td><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
    362. 

  362.       <input name=status class=radio type=radio value=active>&nbsp;|.$locale->text('Active').qq|
    363. 

  363.       <input name=status class=radio type=radio value=inactive>&nbsp;|.$locale->text('Inactive').qq|
    364. 

  364.       <input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
    365. 

  365.     </tr>
    366. 

  366. |;
    367. 

  367. 

  368. 

  369.   &transactions;
    370. 

  370.   &include_in_report;
    371. 

  371.   &search_name;
    372. 

  372. 

  373.   if ($form->{lynx}) {
    374. 

  374.     require "bin/menu.pl";
    375. 

  375.     &menubar;
    376. 

  376.   }
    377. 

  377. 

  378.   print qq|
    379. 

  379.           
    380. 

  380. </body>
    381. 

  381. </html>
    382. 

  382. |;
    383. 

  383. 

  384. }
    385. 

  385. 

  386. 

  387. sub search_name {
    388. 

  388. 

  389.   $label = ucfirst $form->{db};
    390. 

  390. 

  391.   if ($form->{db} eq 'customer') {
    392. 

  392.     $employee = qq|
    393. 

  393.       <th align=right nowrap>|.$locale->text('Salesperson').qq|</th>
    394. 

  394.       <td><input name=employee size=32></td>
    395. 

  395. |;
    396. 

  396.   }
    397. 

  397.   if ($form->{db} eq 'vendor') {
    398. 

  398.     $employee = qq|
    399. 

  399.       <th align=right nowrap>|.$locale->text('Employee').qq|</th>
    400. 

  400.       <td><input name=employee size=32></td>
    401. 

  401. |;
    402. 

  402.   }
    403. 

  403.  
    404. 

  404.  
    405. 

  405.   $form->header;
    406. 

  406.   
    407. 

  407.   print qq|
    408. 

  408. <body>
    409. 

  409. 

  410. <form method=post action=$form->{script}>
    411. 

  411. 

  412. <input type=hidden name=db value=$form->{db}>
    413. 

  413. 

  414. <table width=100%>
    415. 

  415.   <tr>
    416. 

  416.     <th class=listtop>$form->{title}</th>
    417. 

  417.   </tr>
    418. 

  418.   <tr height="5"></tr>
    419. 

  419.   <tr valign=top>
    420. 

  420.     <td>
    421. 

  421.       <table>
    422. 

  422.     <tr valign=top>
    423. 

  423.       <td>
    424. 

  424.         <table>
    425. 

  425.           <tr>
    426. 

  426.         <th align=right nowrap>|.$locale->text('Company Name').qq|</th>
    427. 

  427.         <td><input name=name size=32></td>
    428. 

  428.           </tr>
    429. 

  429.           <tr>
    430. 

  430.         <th align=right nowrap>|.$locale->text('Contact').qq|</th>
    431. 

  431.         <td><input name=contact size=32></td>
    432. 

  432.           </tr>
    433. 

  433.           <tr>
    434. 

  434.         <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
    435. 

  435.         <td><input name=email size=32></td>
    436. 

  436.           </tr>
    437. 

  437.           <tr>
    438. 

  438.         <th align=right nowrap>|.$locale->text('Phone').qq|</th>
    439. 

  439.         <td><input name=phone size=20></td>
    440. 

  440.           </tr>
    441. 

  441.           <tr>
    442. 

  442.         $employee
    443. 

  443.           </tr>
    444. 

  444.           <tr>
    445. 

  445.         <th align=right nowrap>|.$locale->text('Notes').qq|</th>
    446. 

  446.         <td colspan=3><textarea name=notes rows=3 cols=32></textarea></td>
    447. 

  447.           </tr>
    448. 

  448.         </table>
    449. 

  449.       </td>
    450. 

  450. 

  451.       <td>
    452. 

  452.         <table>
    453. 

  453.           <tr>
    454. 

  454.         <th align=right nowrap>|.$locale->text($label . ' Number').qq|</th>
    455. 

  455.         <td><input name=$form->{db}number size=32></td>
    456. 

  456.           </tr>
    457. 

  457.           <tr>
    458. 

  458.         <th align=right nowrap>|.$locale->text('Address').qq|</th>
    459. 

  459.         <td><input name=address size=32></td>
    460. 

  460.           </tr>
    461. 

  461.           <tr>
    462. 

  462.         <th align=right nowrap>|.$locale->text('City').qq|</th>
    463. 

  463.         <td><input name=city size=32></td>
    464. 

  464.           </tr>
    465. 

  465.           <tr>
    466. 

  466.         <th align=right nowrap>|.$locale->text('State/Province').qq|</th>
    467. 

  467.         <td><input name=state size=32></td>
    468. 

  468.           </tr>
    469. 

  469.           <tr>
    470. 

  470.         <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
    471. 

  471.         <td><input name=zipcode size=10></td>
    472. 

  472.           </tr>
    473. 

  473.           <tr>
    474. 

  474.         <th align=right nowrap>|.$locale->text('Country').qq|</th>
    475. 

  475.         <td><input name=country size=32></td>
    476. 

  476.           </tr>
    477. 

  477.           <tr>
    478. 

  478.         <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
    479. 

  479.         <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}"> |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td>
    480. 

  480.           </tr>
    481. 

  481.         </table>
    482. 

  482.       </td>
    483. 

  483.     </tr>
    484. 

  484.       </table>
    485. 

  485.     </td>
    486. 

  486.   </tr>
    487. 

  487. 

  488.   <tr>
    489. 

  489.     <td>
    490. 

  490.       <table>
    491. 

  491. 

  492.     $orphan
    493. 

  493.     $transactions
    494. 

  494.     $include
    495. 

  495. 

  496.       </table>
    497. 

  497.     </td>
    498. 

  498.   </tr>
    499. 

  499. 

  500.   <tr>
    501. 

  501.     <td><hr size=3 noshade></td>
    502. 

  502.   </tr>
    503. 

  503. </table>
    504. 

  504. 

  505. <input type="hidden" name="nextsub" value="$form->{nextsub}">
    506. 

  506. 

  507. <input type="hidden" name="path" value="$form->{path}">
    508. 

  508. <input type="hidden" name="login" value="$form->{login}">
    509. 

  509. <input type="hidden" name="sessionid" value="$form->{sessionid}">
    510. 

  510. 

  511. <br>
    512. 

  512. <button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
    513. 

  513. </form>
    514. 

  514. |;
    515. 

  515. 

  516. }
    517. 

  517. 

  518. 

  519. sub list_names {
    520. 

  520. 

  521.   CT->search(\%myconfig, \%$form);
    522. 

  522.   
    523. 

  523.   $href = "$form->{script}?action=list_names&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&l_subtotal=$form->{l_subtotal}";
    524. 

  524.   
    525. 

  525.   $form->sort_order();
    526. 

  526.   
    527. 

  527.   $callback = "$form->{script}?action=list_names&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&l_subtotal=$form->{l_subtotal}";
    528. 

  528.   
    529. 

  529.   @columns = $form->sort_columns(id, name, "$form->{db}number", address,
    530. 

  530.                                  city, state, zipcode, country, contact,
    531. 

  531.                  phone, fax, email, cc, bcc, employee,
    532. 

  532.                  manager, notes, discount, terms,
    533. 

  533.                  taxaccount, taxnumber, gifi_accno, sic_code, business,
    534. 

  534.                  pricegroup, language, iban, bic,
    535. 

  535.                  startdate, enddate,
    536. 

  536.                  invnumber, invamount, invtax, invtotal,
    537. 

  537.                  ordnumber, ordamount, ordtax, ordtotal,
    538. 

  538.                  quonumber, quoamount, quotax, quototal);
    539. 

  539.   unshift @columns, "ndx";
    540. 

  540.   
    541. 

  541.   $form->{l_invnumber} = "Y" if $form->{l_transnumber};
    542. 

  542.   foreach $item (qw(inv ord quo)) {
    543. 

  543.     if ($form->{"l_${item}number"}) {
    544. 

  544.       for (qw(amount tax total)) { $form->{"l_$item$_"} = $form->{"l_$_"} }
    545. 

  545.       $removeemployee = 1;
    546. 

  546.       $openclosed = 1;
    547. 

  547.     }
    548. 

  548.   }
    549. 

  549.   $form->{open} = $form->{closed} = "" if !$openclosed;
    550. 

  550. 

  551. 

  552.   foreach $item (@columns) {
    553. 

  553.     if ($form->{"l_$item"} eq "Y") {
    554. 

  554.       push @column_index, $item;
    555. 

  555. 

  556.       # add column to href and callback
    557. 

  557.       $callback .= "&l_$item=Y";
    558. 

  558.       $href .= "&l_$item=Y";
    559. 

  559.     }
    560. 

  560.   }
    561. 

  561.   
    562. 

  562.   foreach $item (qw(amount tax total transnumber)) {
    563. 

  563.     if ($form->{"l_$item"} eq "Y") { 
    564. 

  564.       $callback .= "&l_$item=Y"; 
    565. 

  565.       $href .= "&l_$item=Y"; 
    566. 

  566.     }
    567. 

  567.   }
    568. 

  568. 

  569. 

  570.   if ($form->{status} eq 'all') {
    571. 

  571.     $option = $locale->text('All');
    572. 

  572.   }
    573. 

  573.   if ($form->{status} eq 'orphaned') {
    574. 

  574.     $option = $locale->text('Orphaned');
    575. 

  575.   }
    576. 

  576.   if ($form->{status} eq 'active') {
    577. 

  577.     $option = $locale->text('Active');
    578. 

  578.   }
    579. 

  579.   if ($form->{status} eq 'inactive') {
    580. 

  580.     $option = $locale->text('Inactive');
    581. 

  581.   }
    582. 

  582. 

  583.   if ($form->{name}) {
    584. 

  584.     $callback .= "&name=".$form->escape($form->{name},1);
    585. 

  585.     $href .= "&name=".$form->escape($form->{name});
    586. 

  586.     $option .= "\n<br>".$locale->text('Name')." : $form->{name}";
    587. 

  587.   }
    588. 

  588.   if ($form->{address}) {
    589. 

  589.     $callback .= "&address=".$form->escape($form->{address},1);
    590. 

  590.     $href .= "&address=".$form->escape($form->{address});
    591. 

  591.     $option .= "\n<br>".$locale->text('Address')." : $form->{address}";
    592. 

  592.   }
    593. 

  593.   if ($form->{city}) {
    594. 

  594.     $callback .= "&city=".$form->escape($form->{city},1);
    595. 

  595.     $href .= "&city=".$form->escape($form->{city});
    596. 

  596.     $option .= "\n<br>".$locale->text('City')." : $form->{city}";
    597. 

  597.   }
    598. 

  598.   if ($form->{state}) {
    599. 

  599.     $callback .= "&state=".$form->escape($form->{state},1);
    600. 

  600.     $href .= "&state=".$form->escape($form->{state});
    601. 

  601.     $option .= "\n<br>".$locale->text('State')." : $form->{state}";
    602. 

  602.   }
    603. 

  603.   if ($form->{zipcode}) {
    604. 

  604.     $callback .= "&zipcode=".$form->escape($form->{zipcode},1);
    605. 

  605.     $href .= "&zipcode=".$form->escape($form->{zipcode});
    606. 

  606.     $option .= "\n<br>".$locale->text('Zip/Postal Code')." : $form->{zipcode}";
    607. 

  607.   }
    608. 

  608.   if ($form->{country}) {
    609. 

  609.     $callback .= "&country=".$form->escape($form->{country},1);
    610. 

  610.     $href .= "&country=".$form->escape($form->{country});
    611. 

  611.     $option .= "\n<br>".$locale->text('Country')." : $form->{country}";
    612. 

  612.   }
    613. 

  613.   if ($form->{contact}) {
    614. 

  614.     $callback .= "&contact=".$form->escape($form->{contact},1);
    615. 

  615.     $href .= "&contact=".$form->escape($form->{contact});
    616. 

  616.     $option .= "\n<br>".$locale->text('Contact')." : $form->{contact}";
    617. 

  617.   }
    618. 

  618.   if ($form->{employee}) {
    619. 

  619.     $callback .= "&employee=".$form->escape($form->{employee},1);
    620. 

  620.     $href .= "&employee=".$form->escape($form->{employee});
    621. 

  621.     $option .= "\n<br>";
    622. 

  622.     if ($form->{db} eq 'customer') {
    623. 

  623.       $option .= $locale->text('Salesperson');
    624. 

  624.     }
    625. 

  625.     if ($form->{db} eq 'vendor') {
    626. 

  626.       $option .= $locale->text('Employee');
    627. 

  627.     }
    628. 

  628.     $option .= " : $form->{employee}";
    629. 

  629.   }
    630. 

  630. 

  631.   $fromdate = "";
    632. 

  632.   $todate = "";
    633. 

  633.   if ($form->{startdatefrom}) {
    634. 

  634.     $callback .= "&startdatefrom=$form->{startdatefrom}";
    635. 

  635.     $href .= "&startdatefrom=$form->{startdatefrom}";
    636. 

  636.     $fromdate = $locale->date(\%myconfig, $form->{startdatefrom}, 1);
    637. 

  637.   }
    638. 

  638.   if ($form->{startdateto}) {
    639. 

  639.     $callback .= "&startdateto=$form->{startdateto}";
    640. 

  640.     $href .= "&startdateto=$form->{startdateto}";
    641. 

  641.     $todate = $locale->date(\%myconfig, $form->{startdateto}, 1);
    642. 

  642.   }
    643. 

  643.   if ($fromdate || $todate) {
    644. 

  644.     $option .= "\n<br>".$locale->text('Startdate')." $fromdate - $todate";
    645. 

  645.   }
    646. 

  646.   
    647. 

  647.   if ($form->{notes}) {
    648. 

  648.     $callback .= "&notes=".$form->escape($form->{notes},1);
    649. 

  649.     $href .= "&notes=".$form->escape($form->{notes});
    650. 

  650.     $option .= "\n<br>".$locale->text('Notes')." : $form->{notes}";
    651. 

  651.   }
    652. 

  652.   if ($form->{"$form->{db}number"}) {
    653. 

  653.     $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1);
    654. 

  654.     $href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
    655. 

  655.     $option .= "\n<br>".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
    656. 

  656.   }
    657. 

  657.   if ($form->{phone}) {
    658. 

  658.     $callback .= "&phone=".$form->escape($form->{phone},1);
    659. 

  659.     $href .= "&phone=".$form->escape($form->{phone});
    660. 

  660.     $option .= "\n<br>".$locale->text('Phone')." : $form->{phone}";
    661. 

  661.   }
    662. 

  662.   if ($form->{email}) {
    663. 

  663.     $callback .= "&email=".$form->escape($form->{email},1);
    664. 

  664.     $href .= "&email=".$form->escape($form->{email});
    665. 

  665.     $option .= "\n<br>".$locale->text('E-mail')." : $form->{email}";
    666. 

  666.   }
    667. 

  667.   if ($form->{transdatefrom}) {
    668. 

  668.     $callback .= "&transdatefrom=$form->{transdatefrom}";
    669. 

  669.     $href .= "&transdatefrom=$form->{transdatefrom}";
    670. 

  670.     $option .= "\n<br>" if ($option);
    671. 

  671.     $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
    672. 

  672.   }
    673. 

  673.   if ($form->{transdateto}) {
    674. 

  674.     $callback .= "&transdateto=$form->{transdateto}";
    675. 

  675.     $href .= "&transdateto=$form->{transdateto}";
    676. 

  676.     if ($form->{transdatefrom}) {
    677. 

  677.       $option .= " ";
    678. 

  678.     } else {
    679. 

  679.       $option .= "\n<br>" if ($option);
    680. 

  680.     }
    681. 

  681.     $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
    682. 

  682.   }
    683. 

  683.   if ($form->{open}) {
    684. 

  684.     $callback .= "&open=$form->{open}";
    685. 

  685.     $href .= "&open=$form->{open}";
    686. 

  686.     $option .= "\n<br>" if ($option);
    687. 

  687.     $option .= $locale->text('Open');
    688. 

  688.   }
    689. 

  689.   if ($form->{closed}) {
    690. 

  690.     $callback .= "&closed=$form->{closed}";
    691. 

  691.     $href .= "&closed=$form->{closed}";
    692. 

  692.     $option .= "\n<br>" if ($option);
    693. 

  693.     $option .= $locale->text('Closed');
    694. 

  694.   }
    695. 

  695.   
    696. 

  696. 

  697.   $form->{callback} = "$callback&sort=$form->{sort}";
    698. 

  698.   $callback = $form->escape($form->{callback});
    699. 

  699.   
    700. 

  700.   $column_header{ndx} = qq|<th class=listheading>&nbsp;</th>|;
    701. 

  701.   $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|;
    702. 

  702.   $column_header{"$form->{db}number"} = qq|<th><a class=listheading href=$href&sort=$form->{db}number>|.$locale->text('Number').qq|</a></th>|;
    703. 

  703.   $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
    704. 

  704.   $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|;
    705. 

  705.   $column_header{city} = qq|<th><a class=listheading href=$href&sort=city>|.$locale->text('City').qq|</a></th>|;
    706. 

  706.   $column_header{state} = qq|<th><a class=listheading href=$href&sort=state>|.$locale->text('State/Province').qq|</a></th>|;
    707. 

  707.   $column_header{zipcode} = qq|<th><a class=listheading href=$href&sort=zipcode>|.$locale->text('Zip/Postal Code').qq|</a></th>|;
    708. 

  708.   $column_header{country} = qq|<th><a class=listheading href=$href&sort=country>|.$locale->text('Country').qq|</a></th>|;
    709. 

  709.   $column_header{contact} = qq|<th><a class=listheading href=$href&sort=contact>|.$locale->text('Contact').qq|</a></th>|;
    710. 

  710.   $column_header{phone} = qq|<th><a class=listheading href=$href&sort=phone>|.$locale->text('Phone').qq|</a></th>|;
    711. 

  711.   $column_header{fax} = qq|<th><a class=listheading href=$href&sort=fax>|.$locale->text('Fax').qq|</a></th>|;
    712. 

  712.   $column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|;
    713. 

  713.   $column_header{cc} = qq|<th><a class=listheading href=$href&sort=cc>|.$locale->text('Cc').qq|</a></th>|;
    714. 

  714.   $column_header{bcc} = qq|<th><a class=listheading href=$href&sort=cc>|.$locale->text('Bcc').qq|</a></th>|;
    715. 

  715.   $column_header{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|;
    716. 

  716.   $column_header{discount} = qq|<th class=listheading>%</th>|;
    717. 

  717.   $column_header{terms} = qq|<th class=listheading>|.$locale->text('Terms').qq|</th>|;
    718. 

  718.   
    719. 

  719.   $column_header{taxnumber} = qq|<th><a class=listheading href=$href&sort=taxnumber>|.$locale->text('Tax Number').qq|</a></th>|;
    720. 

  720.   $column_header{taxaccount} = qq|<th class=listheading>|.$locale->text('Tax Account').qq|</th>|;
    721. 

  721.   $column_header{gifi_accno} = qq|<th><a class=listheading href=$href&sort=gifi_accno>|.$locale->text('GIFI').qq|</a></th>|;
    722. 

  722.   $column_header{sic_code} = qq|<th><a class=listheading href=$href&sort=sic_code>|.$locale->text('SIC').qq|</a></th>|;
    723. 

  723.   $column_header{business} = qq|<th><a class=listheading href=$href&sort=business>|.$locale->text('Type of Business').qq|</a></th>|;
    724. 

  724.   $column_header{iban} = qq|<th class=listheading>|.$locale->text('IBAN').qq|</th>|;
    725. 

  725.   $column_header{bic} = qq|<th class=listheading>|.$locale->text('BIC').qq|</th>|;
    726. 

  726.   $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|;
    727. 

  727.   $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|;
    728. 

  728.   
    729. 

  729.   $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</a></th>|;
    730. 

  730.   $column_header{ordnumber} = qq|<th><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order').qq|</a></th>|;
    731. 

  731.   $column_header{quonumber} = qq|<th><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|;
    732. 

  732. 

  733.   if ($form->{db} eq 'customer') {
    734. 

  734.     $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Salesperson').qq|</a></th>|;
    735. 

  735.   } else {
    736. 

  736.     $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Employee').qq|</a></th>|;
    737. 

  737.   }
    738. 

  738.   $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|;
    739. 

  739. 

  740.   $column_header{pricegroup} = qq|<th><a class=listheading href=$href&sort=pricegroup>|.$locale->text('Pricegroup').qq|</a></th>|;
    741. 

  741.   $column_header{language} = qq|<th><a class=listheading href=$href&sort=language>|.$locale->text('Language').qq|</a></th>|;
    742. 

  742.   
    743. 

  743. 

  744.   $amount = $locale->text('Amount');
    745. 

  745.   $tax = $locale->text('Tax');
    746. 

  746.   $total = $locale->text('Total');
    747. 

  747.   
    748. 

  748.   $column_header{invamount} = qq|<th class=listheading>$amount</th>|;
    749. 

  749.   $column_header{ordamount} = qq|<th class=listheading>$amount</th>|;
    750. 

  750.   $column_header{quoamount} = qq|<th class=listheading>$amount</th>|;
    751. 

  751.   
    752. 

  752.   $column_header{invtax} = qq|<th class=listheading>$tax</th>|;
    753. 

  753.   $column_header{ordtax} = qq|<th class=listheading>$tax</th>|;
    754. 

  754.   $column_header{quotax} = qq|<th class=listheading>$tax</th>|;
    755. 

  755.   
    756. 

  756.   $column_header{invtotal} = qq|<th class=listheading>$total</th>|;
    757. 

  757.   $column_header{ordtotal} = qq|<th class=listheading>$total</th>|;
    758. 

  758.   $column_header{quototal} = qq|<th class=listheading>$total</th>|;
    759. 

  759.  
    760. 

  760. 

  761.   if ($form->{status}) {
    762. 

  762.     $label = ucfirst $form->{db}."s";
    763. 

  763.     $form->{title} = $locale->text($label);
    764. 

  764.   } else {
    765. 

  765.     $label = ucfirst $form->{db};
    766. 

  766.     $form->{title} = $locale->text($label ." Transactions");
    767. 

  767.   }
    768. 

  768. 

  769.   $form->header;
    770. 

  770. 

  771.   print qq|
    772. 

  772. <body>
    773. 

  773. 

  774. <table width=100%>
    775. 

  775.   <tr>
    776. 

  776.     <th class=listtop>$form->{title}</th>
    777. 

  777.   </tr>
    778. 

  778.   <tr height="5"></tr>
    779. 

  779.   <tr>
    780. 

  780.     <td>$option</td>
    781. 

  781.   </tr>
    782. 

  782.   <tr>
    783. 

  783.     <td>
    784. 

  784.       <table width=100%>
    785. 

  785.     <tr class=listheading>
    786. 

  786. |;
    787. 

  787. 

  788.   for (@column_index) { print "$column_header{$_}\n" }
    789. 

  789. 

  790.   print qq|
    791. 

  791.         </tr>
    792. 

  792. |;
    793. 

  793. 

  794.   $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order';
    795. 

  795.   $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
    796. 

  796.   $subtotal = 0;
    797. 

  797. 

  798.   $i = 0;
    799. 

  799.   foreach $ref (@{ $form->{CT} }) {
    800. 

  800. 

  801.     if ($ref->{$form->{sort}} ne $sameitem && $form->{l_subtotal}) {
    802. 

  802.       # print subtotal
    803. 

  803.       if ($subtotal) {
    804. 

  804.     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
    805. 

  805.     &list_subtotal;
    806. 

  806.       }
    807. 

  807.     }
    808. 

  808. 

  809.     if ($ref->{id} eq $sameid) {
    810. 

  810.       for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
    811. 

  811.     } else {
    812. 

  812.     
    813. 

  813.       $i++;
    814. 

  814.       
    815. 

  815.       $ref->{notes} =~ s/\r?\n/<br>/g;
    816. 

  816.       for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
    817. 

  817. 

  818.       $column_data{ndx} = "<td align=right>$i</td>";
    819. 

  819.       
    820. 

  820.       if ($ref->{$form->{sort}} eq $sameitem) {
    821. 

  821.     $column_data{$form->{sort}} = "<td>&nbsp;</td>";
    822. 

  822.       }
    823. 

  823.     
    824. 

  824.       $column_data{address} = "<td>$ref->{address1} $ref->{address2}&nbsp;</td>";
    825. 

  825.       $column_data{name} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name}&nbsp;</td>";
    826. 

  826. 

  827.       $email = "";
    828. 

  828.       if ($form->{sort} =~ /(email|cc)/) {
    829. 

  829.     if ($ref->{$form->{sort}} ne $sameitem) {
    830. 

  830.       $email = 1;
    831. 

  831.     }
    832. 

  832.       } else {
    833. 

  833.     $email = 1;
    834. 

  834.       }
    835. 

  835.       
    836. 

  836.       if ($email) {
    837. 

  837.     foreach $item (qw(email cc bcc)) {
    838. 

  838.       if ($ref->{$item}) {
    839. 

  839.         $email = $ref->{$item};
    840. 

  840.         $email =~ s/</\&lt;/;
    841. 

  841.         $email =~ s/>/\&gt;/;
    842. 

  842.