+ 'accountcode',# 2. BWGroupID (centrex group)
+ sub { # 3. BWGroupNumber
+ my ($cdr, $field) = @_; #, $conf, $hashref) = @_;
+
+ if ($cdr->accountcode eq '' && $field =~ /^(1800|1300)/){
+ $cdr->charged_party($field);
+ $cdr->accountcode($field);
+ }
+ },