Fix the WordTemplate1.bas example

Author: aafent

FAST.FBasic.InteractiveConsole/FBasicSettings.json

@@ -1,6 +1,6 @@
 {
   "Settings": {
-    "ProgramsFolder": "~\\..\\..\\..\\..\\..\\FAST.FBasic.InteractiveConsole\\Tests", // ~ stands for current directory
+    "ProgramsFolder": "~\\..\\..\\..\\..\\FAST.FBasic.InteractiveConsole\\Tests", // ~ stands for current directory
     "Startup": "helloWorld.bas"
   },
   "ConnectionStrings": {

FAST.FBasic.InteractiveConsole/TestCode/DemoDatabase.cs

@@ -44,6 +44,20 @@ CREATE TABLE IF NOT EXISTS Orders (
                 FOREIGN KEY (CustomerID) REFERENCES Customers(CustomerID)
             )";
             command.ExecuteNonQuery();
+
+
+            // Create Customers table
+            command.CommandText = @"
+            CREATE TABLE IF NOT EXISTS Applications (
+                ApplicationID INTEGER PRIMARY KEY AUTOINCREMENT,
+                CustomerID INTEGER not null,
+                RequestedAmount REAL not null,
+                LoanTerms INTEGER not null,
+                Purpose TEXT NOT NULL,
+                ApplicationDate TEXT NOT NUll
+            )";
+            command.ExecuteNonQuery();
+
         }
 
         private void InsertSampleData(string connectionString)
@@ -96,7 +110,7 @@ INSERT INTO Orders (CustomerID, OrderDate, Amount)
                 new { CustomerId = 3, Date = "2024-01-30", Amount = 175.50 },
                 new { CustomerId = 4, Date = "2024-03-05", Amount = 220.00 },
                 new { CustomerId = 1, Date = "2024-03-22", Amount = 350.25 }
-            };
+                };
 
                 foreach (var order in orders)
                 {
@@ -107,6 +121,34 @@ INSERT INTO Orders (CustomerID, OrderDate, Amount)
                     cmd.ExecuteNonQuery();
                 }
 
+
+                cmd.CommandText = @"
+                INSERT INTO Applications (ApplicationID, CustomerID, RequestedAmount, LoanTerms, Purpose, ApplicationDate) 
+                VALUES (@applicationId, @customerId, @requestedAmount, @loanTerms, @purpose, @applicationDate)";
+
+                var applications = new[] {
+                new { ApplicationId = 1010, CustomerId = 1, Date = "2025-01-15", Amount = 1152.50 },
+                new { ApplicationId = 1011, CustomerId = 1, Date = "2025-02-20", Amount = 2000.00 },
+                new { ApplicationId = 1012, CustomerId = 2, Date = "2025-01-18", Amount = 975.25 },
+                new { ApplicationId = 1013, CustomerId = 3, Date = "2025-02-18", Amount = 3975.00},
+                };
+
+                Random random = new Random();
+                foreach (var appl in applications)
+                {
+                    cmd.Parameters.Clear();
+                    cmd.Parameters.AddWithValue("@applicationId", appl.ApplicationId);
+                    cmd.Parameters.AddWithValue("@customerId", appl.CustomerId);
+                    cmd.Parameters.AddWithValue("@requestedAmount", appl.Amount);
+                    cmd.Parameters.AddWithValue("@loanTerms", random.Next(1,4)*12);
+                    cmd.Parameters.AddWithValue("@purpose", "To buy consumer goods.");
+                    cmd.Parameters.AddWithValue("@applicationDate", appl.Date);
+
+                    cmd.ExecuteNonQuery();
+                }
+
+
+
                 transaction.Commit();
                 Console.WriteLine("Sample data inserted successfully!");
             }

FAST.FBasic.InteractiveConsole/Tests/Other/LoanTemplate.docx

@@ -7,8 +7,7 @@ REM ---------------------------------------------------
 REM Category: Collections
 REM
 
-
-rem uncomment the folloing line to perform a database test
+rem uncomment the following line to perform a database test
 'rinput DB, DEMO, ok
 
 

FAST.FBasic.InteractiveConsole/Tests/Other/demo.db

@@ -4,18 +4,18 @@ REM attaching a second document at the end of the first. The example demonstrati
 REM how to retrieve only the necessary for the template data from the database.
 REM
 
-FILESTREAM template, in, "", "other", "LoanTemplate.docx"    ' Streams Library
+rem Prepare template documents
+FILESTREAM template, inmemory, "", "other", "LoanTemplate.docx"    ' Streams Library
 FILESTREAM final, out, "", "Output", "example1.docx"
-loginfo "Reading the file"
 WORDEXTRACTBODY template, text   ' Templating Library
 
-rem Orchestrate the needed data
-rem extract metadata
-print "Load data on demand..."
+rem Extract metadata
 PHVSDATA allNames text          ' TextReplacer Library
 PHSdata cnames text             ' TextReplacer Library
 
-let LoanAmount=25000
+rem Orchestrate the needed data 
+print "Load data on demand..."
+let AppID=1010  ' Input from the caller application
 
 foreach cnames 
    loginfo "Setting up...."+[cnames.ph]
@@ -25,14 +25,14 @@ endforeach cnames
 
 rem (v) Do the replacement and save the document
 loginfo "Creating the new document"
-WORDREPALCEBODY template, newdoc, allNames   ' Templating Library
+WORDREPALCEBODY template, ALL, allNames   ' Templating Library
+
 
 rem (v) Append Consent 
 FILESTREAM Consent, in, "", "other", "Consent.docx"
-'WORDPAGEBREAK newdoc
-WORDAPPEND Consent, newdoc
+WORDAPPEND Consent, template
 
-SCOPY newdoc,final    ' Streams Library
+SCOPY template,final    ' Streams Library
 
 halt
 
@@ -46,9 +46,17 @@ reset Days
 fetch Days
 return
 
+Appl:
+loginfo "Loading Application: "+AppID
+CURSOR Appl, "select CustomerID,RequestedAmount,LoanTerms,Purpose,ApplicationDate from Applications  where ApplicationID="+sql(AppID)   ' SQLData Adapter 
+reset Appl
+fetch Appl
+
+return
+
 Cust:
-loginfo "Loading Customers"
-CURSOR Cust, "select CustomerID,Name,VatNumber,Email,Address,City from Customers"   ' SQLData Adapter 
+loginfo "Loading Customer:"+[Appl.CustomerID]
+CURSOR Cust, "select Name,VatNumber,Email,Address,City from Customers where CustomerID="+sql([Appl.CustomerID])
 reset Cust
 fetch Cust
 
@@ -58,6 +66,4 @@ notfound:
 print "***NOT FOUND***"
 return
 
-
 End
-