diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,7 @@
+0.0.5
+
+* Add `encodeTransactionNoEmptyField`
+
 0.0.4
 
 * Use classy lens/prism
diff --git a/national-australia-bank.cabal b/national-australia-bank.cabal
--- a/national-australia-bank.cabal
+++ b/national-australia-bank.cabal
@@ -1,5 +1,5 @@
 name:                 national-australia-bank
-version:              0.0.4
+version:              0.0.5
 synopsis:             Functions for National Australia Bank transactions
 description:          Parsing, Processing and other functions for National Australia Bank transactions
 license:              BSD3
diff --git a/src/Data/Bank/NationalAustraliaBank/NationalAustraliaBank.hs b/src/Data/Bank/NationalAustraliaBank/NationalAustraliaBank.hs
--- a/src/Data/Bank/NationalAustraliaBank/NationalAustraliaBank.hs
+++ b/src/Data/Bank/NationalAustraliaBank/NationalAustraliaBank.hs
@@ -24,7 +24,7 @@
       DecDigit(DecDigit0) )
 import Data.Foldable ( asum, toList )
 import Data.List.NonEmpty ( NonEmpty(..), some1 )
-import Data.Ord
+import Data.Ord( comparing )
 import Data.String ( IsString(fromString) )
 import Data.Sv
     ( parseDecodeFromFile,
@@ -537,6 +537,18 @@
   contramap _amount (encodeAmount "Amount") <>
   fromString "Account Number" =: contramap _accountNumber E.string <>
   fromString "" =: contramap _emptyField E.string <>
+  fromString "Transaction Type" =: contramap _transactionType E.string <>
+  fromString "Transaction Details" =: contramap _details E.string <>
+  contramap _balance (encodeAmount "Balance") <>
+  fromString "Category" =: contramap _category E.string <>
+  fromString "Merchant Name" =: contramap _merchantName E.string
+
+encodeTransactionNoEmptyField ::
+  NameEncode Transaction
+encodeTransactionNoEmptyField =
+  contramap _date encodeDate <>
+  contramap _amount (encodeAmount "Amount") <>
+  fromString "Account Number" =: contramap _accountNumber E.string <>
   fromString "Transaction Type" =: contramap _transactionType E.string <>
   fromString "Transaction Details" =: contramap _details E.string <>
   contramap _balance (encodeAmount "Balance") <>