[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb:[5254] trunk
- Subject: SF.net SVN: ledger-smb:[5254] trunk
- From: ..hidden..
- Date: Sat, 24 Nov 2012 10:38:06 +0000
Revision: 5254
http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5254&view=rev
Author: einhverfr
Date: 2012-11-24 10:38:06 +0000 (Sat, 24 Nov 2012)
Log Message:
-----------
Merging from branches/1.3
Modified Paths:
--------------
trunk/Changelog
trunk/LedgerSMB/IC.pm
trunk/bin/ic.pl
trunk/t/02-number-handling.t
Property Changed:
----------------
trunk/
Property changes on: trunk
___________________________________________________________________
Modified: svn:mergeinfo
- /branches/1.3:3711-5250
+ /branches/1.3:3711-5253
Modified: trunk/Changelog
===================================================================
--- trunk/Changelog 2012-11-24 10:31:43 UTC (rev 5253)
+++ trunk/Changelog 2012-11-24 10:38:06 UTC (rev 5254)
@@ -84,6 +84,8 @@
* Fixed pricematrix rows not showing where pricegroups are used (Chris T)
* Fixed missing grant in some cases on cr_coa_to_account (Chris T)
* Fixed letterhead not showing up on emailed invoices (Chris T, h/t Kevin B)
+* Fixed blank screen on posting AR/IS/OE (Chris T)
+* Fixed ECA's not distinct on parts screen and search (Chris T, 3550075)
Chris T is Chris Travers
Kevin B is Kevin Bailey
Modified: trunk/LedgerSMB/IC.pm
===================================================================
--- trunk/LedgerSMB/IC.pm 2012-11-24 10:31:43 UTC (rev 5253)
+++ trunk/LedgerSMB/IC.pm 2012-11-24 10:38:06 UTC (rev 5254)
@@ -201,7 +201,7 @@
$query = qq|
SELECT v.id, e.name, pv.partnumber,
pv.lastcost, pv.leadtime,
- pv.curr AS vendorcurr
+ pv.curr AS vendorcurr, v.meta_number
FROM partsvendor pv
JOIN entity_credit_account v
ON (v.id = pv.credit_id)
@@ -225,7 +225,7 @@
SELECT pc.pricebreak, pc.sellprice AS customerprice,
pc.curr AS customercurr, pc.validfrom,
pc.validto, e.name, c.id AS cid,
- g.pricegroup, g.id AS gid
+ g.pricegroup, g.id AS gid, c.meta_number
FROM partscustomer pc
LEFT JOIN entity_credit_account c
ON (c.id = pc.credit_id)
Modified: trunk/bin/ic.pl
===================================================================
--- trunk/bin/ic.pl 2012-11-24 10:31:43 UTC (rev 5253)
+++ trunk/bin/ic.pl 2012-11-24 10:38:06 UTC (rev 5254)
@@ -290,6 +290,8 @@
$i = 1;
foreach $ref ( @{ $form->{vendormatrix} } ) {
$form->{"vendor_$i"} = qq|$ref->{name}--$ref->{id}|;
+ $form->{"vendor_mn_$i"} = $ref->{meta_number};
+
for (qw(partnumber lastcost leadtime vendorcurr)) {
$form->{"${_}_$i"} = $ref->{$_};
@@ -324,6 +326,7 @@
foreach $ref ( @{ $form->{customermatrix} } ) {
$form->{"customer_$i"} = "$ref->{name}--$ref->{cid}" if $ref->{cid};
+ $form->{"customer_mn_$i"} = $ref->{meta_number};
$form->{"pricegroup_$i"} = "$ref->{pricegroup}--$ref->{gid}"
if $ref->{gid};
@@ -2839,6 +2842,7 @@
<table width=100%>
<tr>
<th class="listheading">| . $locale->text('Vendor') . qq|</th>
+ <th class="listheading">| . $locale->text('Account Number') . qq|</th>
<th class="listheading">| . $locale->text('Vendor Reference Number') . qq|</th>
<th class="listheading">| . $locale->text('Cost') . qq|</th>
$currency
@@ -2860,6 +2864,7 @@
$vendor = qq|
<td><input name="vendor_$i" size=35 value="$form->{"vendor_$i"}"></td>
+ <td><input name="vendor_mn_$i" size=35 value="$form->{"vendor_mn_$i"}"></td>
|;
if ( $form->{selectvendor} ) {
@@ -2876,6 +2881,9 @@
<td>$vendor
<input type=hidden name="vendor_$i" value="$form->{"vendor_$i"}">
</td>
+ <td>$form->{"vendor_mn_$i"}
+ <input type=hidden name="vendor_$i" value="$form->{"vendor_mn_$i"}">
+ </td>
|;
}
@@ -2935,6 +2943,7 @@
<table width=100%>
<tr>
<th class="listheading">| . $locale->text('Customer') . qq|</th>
+ <th class="listheading">| . $locale->text('Account') . qq|</th>
$pricegroup
<th class="listheading">| . $locale->text('Break') . qq|</th>
<th class="listheading">| . $locale->text('Sell Price') . qq|</th>
@@ -2957,6 +2966,9 @@
if ( $i == $numrows ) {
$customer = qq|
<td><input name="customer_$i" size=35 value="$form->{"customer_$i"}"></td>
+ <td>
+ <input name="customer_mn_$i" size=35 value="$form->{"customer_mn_$i"}">
+ </td>
|;
if ( $form->{selectcustomer} ) {
@@ -2977,6 +2989,8 @@
$customer = qq|
<td>$customer</td>
<input type=hidden name="customer_$i" value="$form->{"customer_$i"}">
+ <td>$form->{"customer_mn_$i"}</td>
+ <input type=hidden name="customer_$i" value="$form->{"customer_mn_$i"}">
|;
if ( $form->{selectpricegroup} ) {
@@ -3355,13 +3369,15 @@
}
$i = $form->{vendor_rows};
+ $form->{vendornumber} = $form->{"vendor_mn_$i"};
if ( !$form->{selectvendor} ) {
- if ( $form->{"vendor_$i"} && !$form->{"vendor_id_$i"} ) {
+ if ( ($form->{"vendor_$i"} || $form->{vendornumber})
+ && !$form->{"vendor_id_$i"} ) {
( $form->{vendor} ) = split /--/, $form->{"vendor_$i"};
- if ( ( $j = $form->get_name( \%myconfig, vendor ) ) > 1 ) {
- &select_name( vendor, $i );
+ if ( ( $j = $form->get_name( \%myconfig, "vendor" ) ) > 1 ) {
+ &select_name( "vendor", $i );
$form->finalize_request();
}
@@ -3432,17 +3448,17 @@
}
$i = $form->{customer_rows};
+ $form->{customernumber} = $form->{"customer_mn_$i"};
if ( !$form->{selectcustomer} ) {
if ( $form->{"customer_$i"} && !$form->{"customer_id_$i"} ) {
( $form->{customer} ) = split /--/, $form->{"customer_$i"};
- if ( ( $j = $form->get_name( \%myconfig, customer ) ) > 1 ) {
- &select_name( customer, $i );
+ if ( ( $j = $form->get_name( \%myconfig, 'customer' ) ) > 1 ) {
+ &select_name( 'customer', $i );
$form->finalize_request();
}
-
if ( $j == 1 ) {
# we got one name
@@ -3480,12 +3496,14 @@
sub select_name {
my ( $table, $vr ) = @_;
- @column_index = qw(ndx name address);
+ @column_index = qw(ndx name meta_number address);
$label = ucfirst $table;
$column_data{ndx} = qq|<th> </th>|;
$column_data{name} =
qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
+ $column_data{meta_number} =
+ qq|<th class=listheading>| . $locale->text('Account Number') . qq|</th>|;
$column_data{address} =
qq|<th class=listheading colspan=5>|
. $locale->text('Address')
@@ -3519,7 +3537,7 @@
</tr>
|;
- @column_index = qw(ndx name address city state zipcode country);
+ @column_index = qw(ndx name meta_number address city state zipcode country);
my $i = 0;
foreach $ref ( @{ $form->{name_list} } ) {
@@ -3531,7 +3549,9 @@
qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
$column_data{name} =
qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
- $column_data{address} = qq|<td>$ref->{address1} $ref->{address2}|;
+ $column_data{meta_number} =
+qq|<td>$ref->{meta_number}</td>|;
+ $column_data{address} = qq|<td>$ref->{address1} $ref->{address2} </td>|;
for (qw(city state zipcode country)) {
$column_data{$_} = qq|<td>$ref->{$_} </td>|;
}
Modified: trunk/t/02-number-handling.t
===================================================================
--- trunk/t/02-number-handling.t 2012-11-24 10:31:43 UTC (rev 5253)
+++ trunk/t/02-number-handling.t 2012-11-24 10:38:06 UTC (rev 5254)
@@ -341,8 +341,6 @@
cmp_ok($form->parse_amount(\%myconfig, ''), '==', 0,
"form: Empty string returns 0");
@r = trap{$form->parse_amount(\%myconfig, 'foo')};
- is($trap->exit, undef,
- 'form: Invalid string does not exit');
}
foreach my $format (0 .. $#formats) {
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.