Jondolar,
The trial version itself never expires. The applications themselves expire and cannot be used by the trial version if they are more than 30 days old. In this case, the original sample application was built more than 30 days ago, so it will not work with the trial version.
If you want to try this yourself, you can place a command button on the Gem Types form in the the Gems sample app that came with the trial version. Place this code in the On Element Entry event for the command button.
// This routine uses PrintString to create a formatted page including
// information from both the Main record and all of its subrecords.
var vDescription as string
var vPos as int
var vSub as int
var vSubTotal as int
var vPriceTotal as double
var vYCor as int
var vPrice as double
var vSPrice as string
//Create a new Page
NewPage(850,1100)
// Print header
PrintString("Lantica Jewelers", 300, 25, 0, "BArial", 30, 0)
// Format and print Gem_Type, Description and Occurence
vDescription = "The " + Gem_Type + " is " + Description + @NewLine() + "That is most commonly found in "
vDescription = Vdescription + Occurrence
PrintString(vDescription, 50, @PageExtentY() + 10, 725, "Arial", 15, 0)
//Format and print Birthstone and Hardness
vDescription = "It is the birthstone for the month of " + Birthstone_Month + "."
vDescription = vDescription + " It has a Hardness of " + Hardness
PrintString(vDescription, 50, @PageExtentY(), 725, "Arial", 15, 0)
// Print Appearance
PrintString(Appearance, 50, @PageExtentY(), 725, "Arial", 15, 0)
// Print Enhancements
PrintString(Enhancements , 50, @PageExtentY(), 725, "Arial", 15, 0)
// Format and print count of Subrecords.
vDescription = "We at Lantica Jewelers are lucky enough to have " + @FormResultSetTotal("Gems") + " of these rare jewels in stock"
PrintString(vDescription, 50, @PageExtentY() + 10, 725, "Arial", 15, 0)
// Prints Sub Header 1/10 of an inch below the general description of the gem
PrintString("Current Inventory of " + Gem_Type + @NewLine(), 255, @PageExtentY() + 20, 0, "Arial", 25, 0)
//Loops through the Subrecords
vSubTotal = @FormResultSetTotal("Gems")
vSub = 1
While vSub <= vSubTotal
{
VDescription = @FormFieldValue("Gems", "Gem", vSub)
vYCor = @PageExtentY() + 2 // Y coordinate for the values
FormResultSetCurrentPosition("Gems", vSub)
PrintString(@FormFieldValue("Gems", "Gem", vSub), 50, vYCor, 90, "Arial", 15, 0)
PrintString(@FormFieldValue("Gems", "Origin", vSub), @PageExtentX() + 1, vYCor, 75, "Arial", 15, 0)
PrintString(@FormFieldValue("Gems", "Shape", vSub), @PageExtentX() + 1, vYCor, 130, "Arial", 15, 0)
PrintString(@FormFieldValue("Gems", "Color", vSub), @PageExtentX() + 1, vYCor, 100, "Arial", 15, 0)
PrintString(@FormFieldValue("Gems", "Size", vSub), @PageExtentX() + 1, vYCor, 100, "Arial", 15, 0)
PrintString(@FormFieldValue("Gems", "Weight", vSub), @PageExtentX() + 1, vYCor, 65, "Arial", 15, 0)
PrintString(@FormFieldValue("Gems", "Clarity", vSub), @PageExtentX() + 1, vYCor, 90, "Arial", 15, 0)
vSPrice = @FormFieldValue("Gems", "Price", vSub)
vPrice = @ToMoney(vSPrice)
vsPrice = @Decimals(vSPrice, 2)
PrintString(@Text((9 - @len(vSPrice)) * 2, " ") + "$" + vSPrice , @PageExtentX() + 1, vYCor, 100, "Arial", 15, 0)
vPriceTotal += vPrice // Total price being counted up
vSub = vSub + 1
}
FormResultSetCurrentPosition("Gems", 1)
//List total cost of all gems and finish the page
//Note the following line will need to be changed if a different money symbol other than $ is desired.
PrintString("Total value of Gems listed is: $" + @Decimals(VPriceTotal,2), 50, @PageExtentY() + 20, 0, "Arial", 20, 0)
FinishPage()
The code may or may not need some adjustment to work with the trial sample app.