X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=ee570da7eeac3805adffb2e3ddab6e2b30d91f1b;hp=493b1c694993390a920290199441417638014df0;hb=2c6ae1f63d3e3f66e06b15d275db0c688a974480;hpb=df92ab34778ae931caeaf87daa9c763e75feeede

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 493b1c694..ee570da7e 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -5407,6 +5407,9 @@ sub queueable_upgrade {
         # window for possible conflict is practically nonexistant,
         #   but just in case...
         $record = $record->select_for_update;
+        if (!$record->custnum && $table eq 'cust_pay_pending') {
+          $record->set('custnum_pending',1);
+        }
         my $error = $record->replace;
         die $error if $error;
       }