From 25db2003ae7a82fcfd92c08d87ba1903a89b28f9 Mon Sep 17 00:00:00 2001
From: Paul Reeves <preeves@ibphoenix.com>
Date: Fri, 20 Jan 2023 19:37:07 +0100
Subject: [PATCH] Start work on BillDate

---
 src/MyFirstUDRKit.cpp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/MyFirstUDRKit.cpp b/src/MyFirstUDRKit.cpp
index 010e446..27a6a66 100644
--- a/src/MyFirstUDRKit.cpp
+++ b/src/MyFirstUDRKit.cpp
@@ -107,6 +107,27 @@ FB_UDR_END_FUNCTION
 
 
 
+/*** DDL
+ create function BillDate (
+	 d    integer,
+	 date
+	 ) returns date
+	 external name 'my_first_udr_kit!MFK_BillDate'
+	 engine udr;
+	 ***/
+FB_UDR_BEGIN_FUNCTION(MFK_BillDate)
+
+FB_UDR_MESSAGE(InMessage,
+	(FB_INTEGER, d)
+	(FB_INTEGER, date)
+);
+FB_UDR_MESSAGE(OutMessage,
+	(FB_DATE, result)
+	);
+
+
+FB_UDR_END_FUNCTION
+