response - ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

diff options

author	Joey Hess <joey@kodama.kitenet.net>	2008-10-14 15:03:38 -0400
committer	Joey Hess <joey@kodama.kitenet.net>	2008-10-14 15:03:38 -0400
commit	f2d43e4a0cbf02a230ac984a9fb49adcf2f788e1 (patch)
tree	4691d50bef599e4b974f7a31690991b25077e3f5 /doc/users
parent	559c0707ae50c2272e917dd6e680c196cee33650 (diff)

response

Diffstat (limited to 'doc/users')

0 files changed, 0 insertions, 0 deletions

t your option) any later version.

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

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

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

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

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

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

#======================================================================

# customer/vendor module

#======================================================================

use LedgerSMB::CT;

# end of main

sub add {

  $form->{title} = "Add";

# $locale->text('Add Customer')

# $locale->text('Add Vendor')

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

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

&form_header;

&form_footer;

}

sub history {

# $locale->text('Customer History')

# $locale->text('Vendor History')

  $history = 1;

  $label = ucfirst $form->{db};

  $label .= " History";

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

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

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

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

  } else {

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

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

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

}

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

  $form->{nextsub} = "list_history";

  $transactions = qq|

<tr>

      <td></td>

<td>

<table>

<tr>

<td>

<table>

<tr>

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

</tr>

<tr>

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

</tr>

<tr>

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

</tr>

</table>

</td>

<td>

<table>

<tr>

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

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

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

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

</tr>

<tr>

              <td></td>

              <td colspan=3>

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

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

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

  $include = qq|

<tr>

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

<td>

<table>

<tr>

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

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

</td>

</tr>

<tr>

<td>

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

</td>

<td>

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

</td>

<td>

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

</td>

<td>

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

</td>

</tr>

<tr>

<td>

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

</td>

<td>

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

</td>

<td>

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

</td>

<tr>

</tr>

<td>

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

</td>

<td>

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

</td>

<td>

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

</td>

</tr>

</table>

</td>

</tr>

&search_name;

  if ($form->{lynx}) {

    require "bin/menu.pl";

&menubar;

}

print qq|

</body>

</html>

}

sub transactions {

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

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

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

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

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

  } else {

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

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

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

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

}

  $transactions = qq|

<tr>

      <td></td>

<td>

<table>

<tr>

<td>

<table>

<tr>

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

</tr>

<tr>

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

</tr>

<tr>

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

</tr>

<tr>

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

</tr>

</table>

</td>

<td>

<table>

<tr>

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

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

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

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

</tr>

<tr>

              <td></td>

              <td colspan=3>

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

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

</td>

</tr>

<tr>

              <td></td>

              <td colspan=3>

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

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

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

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

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

}

sub include_in_report {

  $label = ucfirst $form->{db};

@a = ();

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

}

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

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

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

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

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

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

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

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

  } else {

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

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

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

}

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

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

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

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

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

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

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

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

  $include = qq|

<tr>

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

<td>

<table>

  while (@a) {

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

    for (1 .. 5) {

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

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

}

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

}

  $include .= qq|

</table>

</td>

</tr>

}

sub search {

# $locale->text('Customers')

# $locale->text('Vendors')

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

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

  $form->{nextsub} = "list_names";

  $orphan = qq|

<tr>

      <td></td>

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

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

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

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

</tr>

&transactions;

&include_in_report;

&search_name;

  if ($form->{lynx}) {

    require "bin/menu.pl";

&menubar;

}

print qq|

</body>

</html>

}

sub search_name {

  $label = ucfirst $form->{db};

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

    $employee = qq|

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

      <td><input name=employee size=32></td>

}

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

    $employee = qq|

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

      <td><input name=employee size=32></td>

}

  $form->header;

print qq|

<body>

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

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

<table width=100%>

<tr>

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

</tr>

  <tr height="5"></tr>

  <tr valign=top>

<td>

<table>

    <tr valign=top>

<td>

<table>

<tr>

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

        <td><input name=name size=32></td>

</tr>

<tr>

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

        <td><input name=contact size=32></td>

</tr>

<tr>

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

        <td><input name=email size=32></td>

</tr>

<tr>

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

        <td><input name=phone size=20></td>

</tr>

<tr>

$employee

</tr>

<tr>

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

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

</tr>

</table>

</td>

<td>

<table>

<tr>


context:
space:
mode: