From 6e0f3e5ce5de21104124afa048b2787e36ac0131 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Wed, 7 May 2014 23:43:07 -0700 Subject: [PATCH] upgrade in reverse numeric order, #29017 --- FS/FS/cust_pay.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index e3670dbfa..775c353e4 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -1066,12 +1066,14 @@ sub process_upgrade_paybatch { foreach my $table (qw(cust_pay cust_pay_void cust_refund)) { my $and_batchnum_is_null = ( $table =~ /^cust_pay/ ? ' AND batchnum IS NULL' : '' ); + my $pkey = ($table =~ /^cust_pay/ ? 'paynum' : 'refundnum'); my $search = FS::Cursor->new({ table => $table, extra_sql => "WHERE payby IN('CARD','CHEK') ". "AND (paybatch IS NOT NULL ". "OR (paybatch IS NULL AND auth IS NULL - $and_batchnum_is_null ) )", + $and_batchnum_is_null ) ) + ORDER BY $pkey DESC" }); while ( my $object = $search->fetch ) { if ( $object->paybatch eq '' ) { -- 2.11.0