I have a word-merge document which has been perfect, in Sesame 1.x, as far as converting dates and money amounts in Word (2007). In version 2.x I get the following: 850.0000 instead of $850.00. The date conversion into Sesame 2.x has not been a problem. Why the difficulty in the newer version and how do I correct it?

Peter

Hi Erika,
Below is the code installed in the Global Code area.
I don't know if this is what you were asking for but it is the same as I used in 1.0x and it worked perfectly there.

Peter

// These GLOBAL CODE User Defined Functions are used by the
// WordMerge Lite program attached to 'Merge Print' button.
// They can be moved from here into that program
// if located just before the first subroutine.

FUNCTION FD(theDate as Date) as String

// FD function Converts Date values in fields
// or variables from the internal 'YYYY/MM/DD'
// format to readable 'Month Day, Year' format

var stringDate as String = @Mid(theDate,6,2) +
"/" + @Rt(theDate,2) + "/" + @Left(theDate,4)

return stringDate

END FUNCTION


FUNCTION FT(t as Time) as String

// Formats time values in '4:55 pm' style
// as opposed to raw time value '16:55'
// Doesn't do seconds.

// Calling syntax: FT(timevalue)
// Example: FT(QuittinTime)

var tf as String      //time formatted
var Hr as Int            //hour of day
var Min as String      //minutes
var ampm as String      //am or pm

tf = @Str(t)
Hr = Split(tf, ":")
Min = tf

If Hr > 0 and Hr < 12 { ampm = " am" }
Else If Hr > 12 { Hr -= 12; ampm = " pm" }
Else If Hr = 0 { Hr = 12; ampm = " am" }
Else {ampm = " pm" }

Return Hr + ":" + Min + ampm

END FUNCTION

FUNCTION FNM(NMVal as Double, decs as Int, sep as String, sign as String ) as String
/*
Formats Number & Money values - TJM 11/15/05
decs: number of decimal places
sep: 1000's separator character in quotes
sign: currency sign in quotes

Call syntax: FNM(moneyval, decs, seps, sign)
Ex: FNM(Amount, 2, ",", "$") = 2 dec. places, commas, $ sign
Ex: FNM(Amount, 3, "", "") = 3 dec. places, no sep, no money sign
*/

var intPart as String      //integer part of passed value
var decPart as String      //decimal part of passed value
var endPart as String      //processing (3-digit group) var
var result as String      //processing result var
var val as String      //NMVal to String
var n as Int            //loop counter
var na as String      //negative amount

val = @Decimals(NMVal, decs)

intPart = @Int(val)
If @In(val, ".") > 0 { decPart = @Md(val, @In(val, "."), 6) }

If @TN(intPart) < 0
{ na = "-"; intPart = @Abs(intPart) }

For n = @Len(intPart) downto 1 step 3
   endPart = sep + @Rt(intPart, 3)
   intPart = @Lt(intPart, @Len(intPart) -3)
   result = endPart + result
Next

If @Asc(result) < 48
{ return na + sign + @Replfir(result, sep, "") + decPart }
Else
{ return na + sign + result + decPart }

End Function

Function FBool(vBool as Boolean) as String

If vBool = 1 Then
return "Yes"
Else
return "No"

End Function

Function FImg(vPath as String, w as Int, h as Int) as String
var vImg as String
vImg = "<img border='0' src='file:///" + vPath + "' width='" + w + "' height='" + h + "'>"
return vImg
End Function

Hello Peter,

In your programming for the Word merge button you will have a line that looks similiar to the following

If nn = 5 Then vVal = FNM(vVal, 2, ",", "$") 

You will need to change it to

If nn = 19 Then vVal = FNM(vVal, 2, ",", "$") 

-Ray

The type of money fields was represented a 5 in 1.X and is now represented by a 19 in 2.x as the Money type itself is different. You just had to change the code so that it was using the right number that signifies Money.

If you get Inside Sesame, I let Tom know about this a little while back and he wrote up a little tidbit about it in the October issue.

-Ray