From 84df716d6e5e2ea8f4824f3c054f0dc8782900ac Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 11 Sep 2007 21:59:33 +0000 Subject: More permissions material added to the Roles git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1570 4979c152-3d1c-0410-bac9-87ea11338e46 --- sql/modules/Roles.sql | 149 ++++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 144 insertions(+), 5 deletions(-) (limited to 'sql') diff --git a/sql/modules/Roles.sql b/sql/modules/Roles.sql index 894f5a70..c1a8a483 100644 --- a/sql/modules/Roles.sql +++ b/sql/modules/Roles.sql @@ -146,6 +146,8 @@ INSERT INTO menu_acl (node_id, acl_type, role_name) values (1, 'allow', 'lsmb___create_ar_transaction'); INSERT INTO menu_acl (node_id, acl_type, role_name) values (2, 'allow', 'lsmb___create_ar_transaction'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (194, 'allow', 'lsmb___create_ar_transaction'); CREATE ROLE lsmb___create_ar_transaction_voucher WITH INHERIT NOLOGIN @@ -167,6 +169,8 @@ GRANT INSERT ON inventory TO lsmb___create_ar_invoice; INSERT INTO menu_acl (node_id, acl_type, role_name) values (3, 'allow', 'lsmb___create_ar_invoice'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (195, 'allow', 'lsmb___create_ar_transaction'); CREATE ROLE lsmb___create_ar_invoice_voucher @@ -242,9 +246,9 @@ GRANT INSERT ON oe TO lsmb___create_sales_quotation; GRANT INSERT ON orderitems TO lsmb___create_sales_quotation; INSERT INTO menu_acl (node_id, acl_type, role_name) -values (50, 'allow', 'lsmb___create_sales_quotation'); +values (67, 'allow', 'lsmb___create_sales_quotation'); INSERT INTO menu_acl (node_id, acl_type, role_name) -values (51, 'allow', 'lsmb___create_sales_quotation'); +values (68, 'allow', 'lsmb___create_sales_quotation'); CREATE ROLE lsmb___list_sales_orders @@ -254,6 +258,14 @@ IN ROLE lsmb___read_contact; GRANT SELECT ON oe TO lsmb___list_sales_orders; GRANT SELECT ON orderitems TO lsmb___list_sales_orders; +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (50, 'allow', 'lsmb___list_sales_orders'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (53, 'allow', 'lsmb___list_sales_orders'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (54, 'allow', 'lsmb___list_sales_orders'); + + CREATE ROLE lsmb___list_sales_quotations WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; @@ -261,6 +273,14 @@ IN ROLE lsmb___read_contact; GRANT SELECT ON oe TO lsmb___list_sales_quotations; GRANT SELECT ON orderitems TO lsmb___list_sales_quotations; +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (67, 'allow', 'lsmb___list_sales_quotations'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (70, 'allow', 'lsmb___list_sales_quotations'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (71, 'allow', 'lsmb___list_sales_quotations'); + + CREATE ROLE lsmb___all_ar WITH INHERIT NOLOGIN IN ROLE lsmb___ar_all_vouchers, @@ -275,24 +295,82 @@ CREATE ROLE lsmb___create_ap_transaction WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; +GRANT INSERT ON ap TO lsmb___create_ap_transaction; +GRANT INSERT ON acc_trans TO lsmb___create_ap_transaction; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (21, 'allow', 'lsmb___create_ap_transaction'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (22, 'allow', 'lsmb___create_ap_transaction'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (196, 'allow', 'lsmb___create_ap_transaction'); + CREATE ROLE lsmb___create_ap_transaction_voucher WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact, lsmb___create_batch; +GRANT INSERT ON ar TO lsmb___create_ap_transaction_voucher; +GRANT INSERT ON acc_trans TO lsmb___create_ap_transaction_voucher; + +-- TODO add Menu ACLs + CREATE ROLE lsmb___create_ap_invoice WITH INHERIT NOLOGIN -IN ROLE lsmb___read_contact; +IN ROLE lsmb___read_contact, +lsmb___create_ap_transaction; + +GRANT INSERT ON invoice TO lsmb___create_ap_invoice; +GRANT INSERT ON inventory TO lsmb___create_ap_invoice; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (23, 'allow', 'lsmb___create_ap_invoice'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (197, 'allow', 'lsmb___create_ap_transaction'); + CREATE ROLE lsmb___create_ap_invoice_voucher WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact, lsmb___create_batch; +GRANT INSERT ON invoice TO lsmb___create_ap_invoice_voucher; +GRANT INSERT ON inventory TO lsmb___create_ap_invoice_voucher; + +-- TODO add Menu ACLs + + CREATE ROLE lsmb___list_ap_transactions WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; +GRANT SELECT ON ap TO lsmb___list_ap_transactions; +GRANT SELECT ON acc_trans TO lsmb___list_ap_transactions; +GRANT SELECT ON invoice TO lsmb___list_ap_transactions +GRANT SELECT ON inventory TO lsmb___list_ap_transactions + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (21, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (24, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (25, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (26, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (27, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (28, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (29, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (30, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (32, 'allow', 'lsmb___list_ap_transactions'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (34, 'allow', 'lsmb___list_ap_transactions'); + + CREATE ROLE lsmb___ap_all_vouchers WITH INHERIT NOLOGIN IN ROLE lsmb___create_ap_transaction_voucher, @@ -309,18 +387,58 @@ WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; WITH INHERIT NOLOGIN; +GRANT INSERT ON oe TO lsmb___create_purchase_order; +GRANT INSERT ON orderitems TO lsmb___create_purchase_order; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (50, 'allow', 'lsmb___create_purchase_order'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (52, 'allow', 'lsmb___create_purchase_order'); + + CREATE ROLE lsmb___create_purchase_rfq WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; +GRANT INSERT ON oe TO lsmb___create_purchase_rfq; +GRANT INSERT ON orderitems TO lsmb___create_purchase_rfq; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (67, 'allow', 'lsmb___create_purchase_rfq'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (69, 'allow', 'lsmb___create_purchase_rfq'); + + CREATE ROLE lsmb___list_purchase_orders WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; +GRANT SELECT ON oe TO lsmb___list_purchase_orders; +GRANT SELECT ON orderitems TO lsmb___list_purchase_orders; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (50, 'allow', 'lsmb___list_purchase_orders'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (53, 'allow', 'lsmb___list_purchase_orders'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (55, 'allow', 'lsmb___list_purchase_orders'); + + CREATE ROLE lsmb___list_purchase_rfqs WITH INHERIT NOLOGIN IN ROLE lsmb___read_contact; +GRANT SELECT ON oe TO lsmb___list_purchase_rfqs; +GRANT SELECT ON orderitems TO lsmb___list_purchase_rfqs; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (67, 'allow', 'lsmb___list_purchase_rfqs'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (70, 'allow', 'lsmb___list_purchase_rfqs'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (72, 'allow', 'lsmb___list_purchase_rfqs'); + + CREATE ROLE lsmb___all_ap WITH INHERIT NOLOGIN IN ROLE lsmb___ap_all_vouchers, @@ -333,12 +451,33 @@ lsmb___list_purchase_rfqs; -- POS CREATE ROLE lsmb___create_pos_invoice WITH INHERIT NOLOGIN -IN ROLE lsmb___create_sales_invoice, -lsmb___create_ar_invoice; +IN ROLE lsmb___read_contact; + +GRANT INSERT ON invoice TO lsmb___create_pos_invoice; +GRANT INSERT ON inventory TO lsmb___create_pos_invoice; +GRANT INSERT ON ar TO lsmb___create_pos_invoice; +GRANT INSERT ON acc_trans TO lsmb___create_pos_invoice; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (16, 'allow', 'lsmb___create_pos_invoice'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (17, 'allow', 'lsmb___create_pos_invoice'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (18, 'allow', 'lsmb___create_pos_invoice'); + CREATE ROLE lsmb___close_till WITH INHERIT NOLOGIN; +GRANT INSERT ON gl TO lsmb___close_till; +GRANT INSERT ON acc_trans TO lsmb___close_till; + +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (16, 'allow', 'lsmb___close_till'); +INSERT INTO menu_acl (node_id, acl_type, role_name) +values (19, 'allow', 'lsmb___close_till'); + + CREATE ROLE lsmb___list_all_open WITH INHERIT NOLOGIN; -- cgit v1.2.3 n class="hl sng">"vendor";
  • $form->{type} = "invoice";
  • # create links
  • $form->create_links("AP", \%myconfig, "vendor", 1);
  • # currencies
  • @curr = split /:/, $form->{currencies};
  • $form->{defaultcurrency} = $curr[0];
  • chomp $form->{defaultcurrency};
  • for (@curr) { $form->{selectcurrency} .= "<option>$_\n" }
  • if (@{ $form->{all_vendor} }) {
  • unless ($form->{vendor_id}) {
  • $form->{vendor_id} = $form->{all_vendor}->[0]->{id};
  • }
  • }
  • AA->get_name(\%myconfig, \%$form);
  • delete $form->{notes};
  • IR->retrieve_invoice(\%myconfig, \%$form);
  • $form->{oldlanguage_code} = $form->{language_code};
  • $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });
  • if (@ { $form->{all_partsgroup} }) {
  • $form->{selectpartsgroup} = "<option>\n";
  • foreach $ref (@ { $form->{all_partsgroup} }) {
  • if ($ref->{translation}) {
  • $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;
  • } else {
  • $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
  • }
  • }
  • }
  • if (@{ $form->{all_project} }) {
  • $form->{selectprojectnumber} = "<option>\n";
  • for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }
  • }
  • $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
  • $form->{oldtransdate} = $form->{transdate};
  • # vendors
  • $form->{selectvendor} = "";
  • if (@{ $form->{all_vendor} }) {
  • $form->{vendor} = "$form->{vendor}--$form->{vendor_id}";
  • for (@{ $form->{all_vendor} }) { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
  • }
  • # departments
  • if (@{ $form->{all_department} }) {
  • $form->{selectdepartment} = "<option>\n";
  • $form->{department} = "$form->{department}--$form->{department_id}" if $form->{department_id};
  • for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }
  • }
  • if (@{ $form->{all_language} }) {
  • $form->{selectlanguage} = "<option>\n";
  • for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }
  • }
  • # forex
  • $form->{forex} = $form->{exchangerate};
  • $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
  • foreach $key (keys %{ $form->{AP_links} }) {
  • $form->{"select$key"} = "";
  • foreach $ref (@{ $form->{AP_links}{$key} }) {
  • $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
  • }
  • if ($key eq "AP_paid") {
  • for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
  • $form->{"AP_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
  • # reverse paid
  • $form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount};
  • $form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate};
  • $form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate};
  • $form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source};
  • $form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo};
  • $form->{"cleared_$i"} = $form->{acc_trans}{$key}->[$i-1]->{cleared};
  • $form->{paidaccounts} = $i;
  • }
  • } else {
  • $form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}" if $form->{acc_trans}{$key}->[0]->{accno};
  • }
  • }
  • $form->{paidaccounts} = 1 unless (exists $form->{paidaccounts});
  • $form->{AP} = $form->{AP_1} unless $form->{id};
  • $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));
  • if (! $form->{readonly}) {
  • $form->{readonly} = 1 if $myconfig{acs} =~ /AP--Vendor Invoice/;
  • }
  • }
  • sub prepare_invoice {
  • $form->{type} = "invoice";
  • $form->{currency} =~ s/ //g;
  • $form->{oldcurrency} = $form->{currency};
  • if ($form->{id}) {
  • for (qw(invnumber ordnumber ponumber quonumber)) { $form->{$_} = $form->quote($form->{$_}) }
  • foreach $ref (@{ $form->{invoice_details} }) {
  • $i++;
  • for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} }
  • $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}| if $ref->{project_id};
  • $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}| if $ref->{partsgroup_id};
  • $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
  • ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
  • $dec = length $dec;
  • $decimalplaces = ($dec > 2) ? $dec : 2;
  • $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
  • $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
  • $form->{"oldqty_$i"} = $form->{"qty_$i"};
  • for (qw(partnumber sku description unit)) { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) }
  • $form->{rowcount} = $i;
  • }
  • }
  • }
  • sub form_header {
  • # set option selected
  • for (qw(AP currency)) {
  • $form->{"select$_"} =~ s/ selected//;
  • $form->{"select$_"} =~ s/option>\Q$form->{$_}\E/option selected>$form->{$_}/;
  • }
  • for (qw(vendor department)) {
  • $form->{"select$_"} = $form->unescape($form->{"select$_"});
  • $form->{"select$_"} =~ s/ selected//;
  • $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
  • }
  • if ($form->{selectlanguage}) {
  • $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
  • $form->{"selectlanguage"} =~ s/ selected//;
  • $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
  • $lang = qq|
  • <tr>
  • <th align=right nowrap>|.$locale->text('Language').qq|</th>
  • <td><select name=language_code>$form->{selectlanguage}</select></td>
  • <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}>
  • <input type=hidden name="selectlanguage" value="|.
  • $form->escape($form->{selectlanguage},1).qq|">
  • </tr>
  • |;
  • }
  • $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
  • $exchangerate = qq|<tr>|;
  • $exchangerate .= qq|
  • <th align=right nowrap>|.$locale->text('Currency').qq|</th>
  • <td><select name=currency>$form->{selectcurrency}</select></td> | if $form->{defaultcurrency};
  • $exchangerate .= qq|
  • <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
  • <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
  • |;
  • if ($form->{defaultcurrency} && $form->{currency} ne $form->{defaultcurrency}) {
  • if ($form->{forex}) {
  • $exchangerate .= qq|
  • <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>
  • <td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>
  • |;
  • } else {
  • $exchangerate .= qq|
  • <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>
  • <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
  • |;
  • }
  • }
  • $exchangerate .= qq|
  • <input type=hidden name=forex value=$form->{forex}>
  • </tr>
  • |;
  • if ($form->{selectvendor}) {
  • $vendor = qq|<select name=vendor>$form->{selectvendor}</select>
  • <input type=hidden name="selectvendor" value="|.
  • $form->escape($form->{selectvendor},1).qq|">|;
  • } else {
  • $vendor = qq|<input name=vendor value="$form->{vendor}" size=35>|;
  • }
  • $department = qq|
  • <tr>
  • <th align="right" nowrap>|.$locale->text('Department').qq|</th>
  • <td colspan=3><select name=department>$form->{selectdepartment}</select>
  • <input type=hidden name=selectdepartment value="|.
  • $form->escape($form->{selectdepartment},1).qq|">
  • </td>
  • </tr>
  • | if $form->{selectdepartment};
  • $n = ($form->{creditremaining} < 0) ? "0" : "1";
  • $i = $form->{rowcount} + 1;
  • $focus = "partnumber_$i";
  • $form->header;
  • print qq|
  • <body onLoad="document.forms[0].${focus}.focus()" />
  • <form method=post action="$form->{script}">
  • |;
  • $form->{vc} = "vendor";
  • $form->hide_form(qw(id title vc type terms creditlimit creditremaining closedto locked shipped oldtransdate recurring));
  • print qq|
  • <table width=100%>
  • <tr class=listtop>
  • <th>$form->{title}</th>
  • </tr>
  • <tr height="5"></tr>
  • <tr>
  • <td>
  • <table width=100%>
  • <tr valign=top>
  • <td>
  • <table>
  • <tr>
  • <th align=right nowrap>|.$locale->text('Vendor').qq|</th>
  • <td colspan=3>$vendor</td>
  • <input type=hidden name=vendor_id value=$form->{vendor_id}>
  • <input type=hidden name=oldvendor value="$form->{oldvendor}">
  • </tr>
  • <tr>
  • <td></td>
  • <td colspan=3>
  • <table>
  • <tr>
  • <th nowrap>|.$locale->text('Credit Limit').qq|</th>
  • <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td>
  • <td width=20%></td>
  • <th nowrap>|.$locale->text('Remaining').qq|</th>
  • <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>
  • </tr>
  • </table>
  • </td>
  • <tr>
  • <th align=right>|.$locale->text('Record in').qq|</th>
  • <td colspan=3><select name=AP>$form->{selectAP}</select></td>
  • <input type=hidden name=selectAP value="$form->{selectAP}">
  • </tr>
  • $department
  • $exchangerate
  • </table>
  • </td>
  • <td align=right>
  • <table>
  • <tr>
  • <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
  • <td><input name=invnumber size=20 value="$form->{invnumber}"></td>
  • </tr>
  • <tr>
  • <th align=right nowrap>|.$locale->text('Order Number').qq|</th>
  • <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
  • <input type=hidden name=quonumber value="$form->{quonumber}">
  • </tr>
  • <tr>
  • <th align=right nowrap>|.$locale->text('Invoice Date').qq|</th>
  • <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
  • </tr>
  • <tr>
  • <th align=right nowrap>|.$locale->text('Due Date').qq|</th>
  • <td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>
  • </tr>
  • <tr>
  • <th align=right nowrap>|.$locale->text('PO Number').qq|</th>
  • <td><input name=ponumber size=20 value="$form->{ponumber}"></td>
  • </tr>
  • $lang
  • </table>
  • </td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • |;
  • $form->hide_form(qw(selectcurrency defaultcurrency taxaccounts));
  • for (split / /, $form->{taxaccounts}) { $form->hide_form("${_}_rate", "${_}_description") }
  • }
  • sub form_footer {
  • $form->{invtotal} = $form->{invsubtotal};
  • if (($rows = $form->numtextrows($form->{notes}, 35, 8)) < 2) {
  • $rows = 2;
  • }
  • if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
  • $introws = 2;
  • }
  • $rows = ($rows > $introws) ? $rows : $introws;
  • $notes = qq|<textarea name=notes rows=$rows cols=35 wrap=soft>$form->{notes}</textarea>|;
  • $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
  • $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
  • $taxincluded = "";
  • if ($form->{taxaccounts}) {
  • $taxincluded = qq|
  • <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|.$locale->text('Tax Included').qq|</b>
  • |;
  • }
  • if (!$form->{taxincluded}) {
  • my @taxset = Tax::init_taxes($form, $form->{taxaccounts});
  • $form->{invtotal} += $form->round_amount(
  • Tax::calculate_taxes(\@taxset, $form, $form->{invsubtotal}, 0), 2);
  • foreach $taxobj (@taxset) {
  • $item = $taxobj->account;
  • if ($form->{"${item}_base"}) {
  • $form->{"${item}_total"} = $form->format_amount(\%myconfig,
  • $form->round_amount($taxobj->value, 2), 2);
  • $tax .= qq|
  • <tr>
  • <th align=right>$form->{"${item}_description"}</th>
  • <td align=right>$form->{"${item}_total"}</td>
  • </tr>
  • |;
  • }
  • }
  • $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
  • $subtotal = qq|
  • <tr>
  • <th align=right>|.$locale->text('Subtotal').qq|</th>
  • <td align=right>$form->{invsubtotal}</td>
  • </tr>
  • |;
  • }
  • $form->{oldinvtotal} = $form->{invtotal};
  • $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
  • print qq|
  • <tr>
  • <td>
  • <table width=100%>
  • <tr valign=bottom>
  • <td>
  • <table>
  • <tr>
  • <th align=left>|.$locale->text('Notes').qq|</th>
  • <th align=left>|.$locale->text('Internal Notes').qq|</th>
  • <th align=left>|.$locale->text('Import Text').qq|</th>
  • </tr>
  • <tr valign=top>
  • <td>$notes</td>
  • <td>$intnotes</td>
  • <td><textarea name=import_text rows=$rows cols=25></textarea>
  • </tr>
  • </table>
  • </td>
  • <td align=right>
  • $taxincluded
  • <br>
  • <table>
  • $subtotal
  • $tax
  • <tr>
  • <th align=right>|.$locale->text('Total').qq|</th>
  • <td align=right>$form->{invtotal}</td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • <tr>
  • <td>
  • <table width=100%>
  • <tr>
  • <th colspan=6 class=listheading>|.$locale->text('Payments').qq|</th>
  • </tr>
  • |;
  • if ($form->{currency} eq $form->{defaultcurrency}) {
  • @column_index = qw(datepaid source memo paid AP_paid);
  • } else {
  • @column_index = qw(datepaid source memo paid exchangerate AP_paid);
  • }
  • $column_data{datepaid} = "<th>".$locale->text('Date')."</th>";
  • $column_data{paid} = "<th>".$locale->text('Amount')."</th>";
  • $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>";
  • $column_data{AP_paid} = "<th>".$locale->text('Account')."</th>";
  • $column_data{source} = "<th>".$locale->text('Source')."</th>";
  • $column_data{memo} = "<th>".$locale->text('Memo')."</th>";
  • print qq|
  • <tr>
  • |;
  • for (@column_index) { print "$column_data{$_}\n" }
  • print qq|
  • </tr>
  • |;
  • $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
  • for $i (1 .. $form->{paidaccounts}) {
  • $form->hide_form("cleared_$i");
  • print qq|
  • <tr>
  • |;
  • $form->{"selectAP_paid_$i"} = $form->{selectAP_paid};
  • $form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
  • # format amounts
  • $totalpaid += $form->{"paid_$i"};
  • $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
  • $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
  • $exchangerate = qq|&nbsp;|;
  • if ($form->{currency} ne $form->{defaultcurrency}) {
  • if ($form->{"forex_$i"}) {
  • $exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
  • } else {
  • $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
  • }
  • }
  • $exchangerate .= qq|
  • <input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
  • |;
  • $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
  • $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
  • $column_data{"AP_paid_$i"} = qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
  • $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|;
  • $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
  • $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
  • for (@column_index) { print qq|$column_data{"${_}_$i"}\n| }
  • print qq|
  • </tr>
  • |;
  • }
  • $form->{oldtotalpaid} = $totalpaid;
  • $form->hide_form(qw(paidaccounts selectAP_paid oldinvtotal oldtotalpaid));
  • print qq|
  • </table>
  • </td>
  • </tr>
  • <tr>
  • <td><hr size=3 noshade></td>
  • </tr>
  • </table>
  • <br>
  • |;
  • $transdate = $form->datetonum(\%myconfig, $form->{transdate});
  • $closedto = $form->datetonum(\%myconfig, $form->{closedto});
  • # type=submit $locale->text('Update')
  • # type=submit $locale->text('Post')
  • # type=submit $locale->text('Post as new')
  • # type=submit $locale->text('Schedule')
  • # type=submit $locale->text('Purchase Order')
  • # type=submit $locale->text('Delete')
  • if (! $form->{readonly}) {
  • %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
  • 'post' => { ndx => 3, key => 'O', value => $locale->text('Post') },
  • 'post_as_new' => { ndx => 5, key => 'N', value => $locale->text('Post as new') },
  • 'purchase_order' => { ndx => 6, key => 'L', value => $locale->text('Purchase Order') },
  • 'schedule' => { ndx => 7, key => 'H', value => $locale->text('Schedule') },
  • 'delete' => { ndx => 8, key => 'D', value => $locale->text('Delete') },
  • );
  • if ($form->{id}) {
  • if ($form->{locked}) {
  • for ("post", "delete") { delete $button{$_} }
  • }
  • } else {
  • if ($transdate > $closedto) {
  • for ('update', 'post', 'schedule') { $a{$_} = 1 }
  • }
  • for (keys %button) { delete $button{$_} if ! $a{$_} }
  • }
  • for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
  • }
  • if ($form->{lynx}) {
  • require "bin/menu.pl";
  • &menubar;
  • }
  • $form->hide_form(qw(rowcount callback path login sessionid));
  • print qq|
  • </form>
  • </body>
  • </html>
  • |;
  • }
  • sub import_text {
  • my @o_list;
  • my @i_lines = split(/(\n|\r|\r\n)/, $form->{import_text});
  • foreach $i (@i_lines){
  • chomp($i);
  • if ($i != ""){ # Strip out blank lines
  • push @o_list, $i;
  • }
  • }
  • my $c = 1;
  • my $linenumber = 0;
  • foreach $l (@o_list){
  • if ($c % 2){
  • $linenumber += 1;
  • $form->{"partnumber_$linenumber"} = $l;
  • }
  • else {
  • $form->{"qty_$linenumber"} = $l;
  • }
  • $c += 1;
  • $form->{rowcount}=$linenumber;
  • IR->retrieve_item(\%myconfig, \%$form);
  • $rows = scalar @{ $form->{item_list} };
  • $rows = 0 unless $rows;
  • $i = $form->{rowcount};
  • if ($rows = 0){
  • $form->{"id_$i"} = 0;
  • $form->{"unit_$i"} = $locale->text('ea');
  • &new_item;
  • } elsif ($rows > 1){
  • &select_item;
  • exit;
  • } else {
  • map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit);
  • map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
  • $s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"};
  • ($dec) = ($s =~ /\.(\d+)/);
  • $dec = length $dec;
  • $decimalplaces = ($dec > 2) ? $dec : 2;
  • $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100);
  • map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts});
  • map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
  • if (!$form->{taxincluded}) {
  • my @taxes = Tax::init_taxes($form, $form->{taxaccounts});
  • $amount += (Tax::calculate_taxes(\@taxes, $form, $amount, 0));
  • }
  • $form->{creditremaining} -= $amount;
  • $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
  • $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
  • }
  • $form->{item_list} = [];
  • }
  • ++$form->{rowcount}
  • }
  • sub update {