my ($recnos, $vINVOICE_TXT) = split (';', $key) ;
      chop ($recnos) ;
      $vINVOICE_TXT=~s!^.!!;
      my $vInv= "\"$vINVOICE_TXT\"" ;