From b5e8459bb1b5775edb0f55b05a9a7b1021b49621 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 31 May 2017 17:55:19 -0700
Subject: [PATCH] better error importing credits with unknown customer numbers,
 RT#76184

---
 FS/FS/cust_credit.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 624971388..ddf407b69 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -167,6 +167,10 @@ sub insert {
   my $dbh = dbh;
 
   my $cust_main = qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
+  unless ( $cust_main ) {
+    $dbh->rollback if $oldAutoCommit;
+    return "Unknown custnum ". $self->custnum;
+  }
   my $old_balance = $cust_main->balance;
 
   if (!$self->reasonnum) {
-- 
2.11.0