Ray was kind enough to speak to me the other day regarding the sample cheque app in the Lantica library.

I was able to apply this and completely re-configure the cheque exactly to our specs, more or less.

A couple of issues though:

1. I need to make my amounts accept commas.  I have currently formatted them with two decimal places.

2. My amounts are left justified as they all have the same Y parameter.  I need them right justified similar to a report.

3. Lastly, I am using the convert numbers to words feature on the actual cheque.  Problem is if the words are too long they overlap my next field spec called date.

Is there a way to set a consistent specific length, and make it wrap to the next line ?

I tried setting up a Newline to move the last part of the words to a newline as follows but the "cents" are giving me a programming error:

vWords = vWords + @Newline(" and ") + Cents + "/100"

I would prefer to set up a max length though.

I can send the app to Ray if you like.

Thanks,

Louis

Hello Louis,

1. You will need to re-write the FormatMoney() function in your Global Code section to insert the commas. Below is a Function that should do just that. Now it may have some problems in it, if it does just let me know

Function FormatMoney(Val as Double) as String
Var vBack as String
Var vWhole as String
Var vFrac as String
Var vDub as Double

vWhole = @Str(@Int(Val))
vFrac = @Str(@Frac(Val)) + "00"
While @Len(vWhole) > 3
{
	vBack =  "," + @Right(vWhole, 3) + vBack
	vWhole = @Left(vWhole, @Len(vWhole) - 3)
}
vBack = vWhole + vBack

If @Instr(vFrac, ".") > 0 Then
{
	vDub = @ToNumber(vFrac)
	vFrac = @Str(@Decimals(@Round(vDub, 2), 2))
	vFrac = @Right(vFrac, 2)
}
vBack = "$" + vBack + "." + @Left(vFrac, 2)

Return vBack
End Function 

2. To Right Justify the values using Printstring you need to measure how long something is going to be when printed and then subtract that from where you want the right side of the money amounts to line up. Below is an excert from a larger routine that does just that.

//RIGHT ALIGNING THE DOLLAR FIGURE
	vMoney = FormatMoney(Dollars)
//Measure how long the string will be when printed
	PrintString(vMoney, 0, 0, 0, "Arial", 16, 1)
	vSize = @PageExtentX()
//400 is the coordinate for the right edges to line up against
	vSize = 400 - vSize
//Print the actual value to the page
	PrintString(vMoney, vSize, vY, 0, "Arial", 16, 0) 

3. @Newline() does not take arguements so @Newline("And") is not going to work. If you want to truncate at a certain number of characters you can use @Left(). So

@Left(vAmountText, 150) 

will return the first 150 characters and you can print that out. To break on the word "And" you would need to use @InStr() to find the position of "And" and then use @Left() and @Right() along with @Newline() to create a two line amount

4. The programming can only deal with the values that you pass it. If you pass it no values then it will try to deal with no values. In the example code in the SBasicCodeLibrary if you pass in a blank date you will get "January 0, 0", the formatted value of 0000/00/00 which is a blank date variable. If you pass in a blank amount you will get "$0.00" which is the formatted value of 0 which is a blank double variable.

Also the FormatDate() function that is in that example does not use @Left() it uses @Month$(), @DOM() and @Year() to format the date value.

5. To loop through your records use @ResultSetTotal() and @ResultSetCurrentPosition(). If you have a subform you will want to use @FormResultSetTotal() and @ResultSetCurrentPosition() to avoid any confusion as to which form you wish to operate on. The code below will loop through every record in the current result set.

Var vLoop as Int
Var vCnt as Int

VLoop = 1
vCnt = @ResultSetTotal()

While vLoop <= vCnt
{
	ResultSetCurrentPosition(vLoop)
//Your code goes here and it will run on every record
	vLoop = vLoop + 1
}

ResultSetCurrentPosition(1) 

-Ray

Quote:


Yes that is what you are missing. It should be

PrintString(FormatCommas(vInv Amt),0, 150, 0, vFont, vSize, 1)
vRJustify = @PageExtentX()
vRJustify = 675 - vRJustify
PrintString(FormatCommas(vInv Amt),vRJustify, 150, 0, vFont, vSize, 0) 

Quote:


Yes you can. What you need to do is put an If statement around the call to PrintCheck() so that PrintCheck() only gets called if certain fields are not blank.

Quote:


You are Welcome.

-Ray

-edited-
Error in posted code. Fixed for future reference.

Quote:


Yeah I was moving to fast and forgot to change the X Coordinate to 0 in your code. But as long as you got it figured out.

-Ray

Hello Louis,

Have you tried setting a width to the PrintString() call that prints out the amount? The width is the 4th arguement. Assuming the NewPage is declared as 850, 1100, then if you type 400 in the width, the value will wrap at four inches or at closest space.

-Ray

Ray:

I replaced the previous code with the original:

vWords = vWords + " and " + Cents + "/100"

and change the width in the print string to 400 and it worked !

That just about does it !

Thanks for all your expertise.

I should send you this app to see the monster you created.

Thanks,

Louis

Ray:

I am having a small issue with verifying a date field being blank so that it does not print off on my cheques.

I initially used the following code:

If vInvDate1 <> "" then
{
PrintString(vInvDate1,100, 175, 0, vFont, vSize, 0)
}

This returned a date Jan 0,0 in my cheque.

Then I tried this:

If @IsBlank(vInvDate1) then Clear(InvDate1) else
{
PrintString(vInvDate1,100, 175, 0, vFont, vSize, 0)
}

This cleared the contents even though there was information in one of my fields that I needed when I printed the cheque.

Then I tried this:

If NOT @IsBlank(vInvDate1) then
{
PrintString(vInvDate1,100, 175, 0, vFont, vSize, 0)
}

Again, this clearing all contents in the fields.

Is there another way around this ?

Thanks,

Louis

Hi Louis...

I recently submitted a concern about this issue. 

See http://www.lantica.com/Forum2/cgi-bin/yabb/YaBB.pl?board=gen_disc;action=display...
The default date is 0 for a blank date.  You will not get a date.

So you need to check to see if Date element = 0 vs. Blank.

Have not tested, but you might need to check for 0000/00/00 vs. 0.  Or check IF NOT Date< 1/1/1700 then .......... or something similar to that.

Hope this was helpful

Quote:


Hello Bob,

@IsBlank() will work on a date element since it knows the data type of the element it is working on. Which is why you use @IsBlank() rather than <> "".  If a Date element has never been typed in it will appear as blank on the screen and in Sbasic if you write out that value, which is going to format it as a date, you will get 0000/00/00.

When you declare a Date Variable in Sbasic it will have a value of 0000/00/00. There is no such thing as a Null Date. Null is for Strings.

-Ray

Ray:

I have just encountered the strangest thing when I printed a cheque.

The invoice amount in the record and cheque total read 54.960.59.

When I print the cheque, both amounts above are off by a penny at 54,960.58.  However, the words on the cheque clearly reflect 59/100.

Have you ever seen this ?

Thanks,

Louis

Hello Louis,

Are you using version 1.1.3? There is an error in @Decimals() in 1.1.3 that rounds values rather than truncating them.

If you need this fixed before the release of 1.1.4, send an email to Support@Lantica.com, and I will see if I can get together a HotFix for you.

-Ray

Hi Ray:

We are using 1.1.3.  If you could get me a fix unless 1.1.4 is coming in the next week.

The negative refers to an invoice amount that is a credit.  The cheque is actually not negative.  I have it set up to enter four different invoices/credits.  In this case the negative reduces the positive invoice amounts.

I will try your code above.

Thanks again,

Louis