Hi,
I am hitting my head against the wall trying to figure out why the following code is resulting in 67 spaces instead of 40.
Any help would be greatly appreciated.
Thanks,
Dolores
Dim CityStZip As String
if {XDDDepositor.WBeneUseVendorRemit} = 1 then
CityStZip = Trim({Vendor.RemitCity})
if CityStZip <> "" then
CityStZip = CityStZip + ", "
end if
CityStZip = CityStZip + trim({Vendor.RemitState})
CityStZip = CityStZip + " " + trim({Vendor.RemitZip})
CityStZip = left(trim(CityStZip) + Space( 40), 40)
else
CityStZip = Trim({XDDDepositor.WBeneCity})
if CityStZip <> "" then
CityStZip = CityStZip + ", "
end if
CityStZip = CityStZip + trim({XDDDepositor.WBeneState})
CityStZip = CityStZip + " " + trim({XDDDepositor.WBeneZipPostal})
CityStZip = left(trim(CityStZip) + Space( 40), 40)
end if
CityStZip = left(trimright(CityStZip) + Space( 40 ), 40)
if {XDDFile_Wrk.RecSection} = "20P" then
Formula = ">171>" _
+ CityStZip _
end if
I am hitting my head against the wall trying to figure out why the following code is resulting in 67 spaces instead of 40.
Any help would be greatly appreciated.
Thanks,
Dolores
Dim CityStZip As String
if {XDDDepositor.WBeneUseVendorRemit} = 1 then
CityStZip = Trim({Vendor.RemitCity})
if CityStZip <> "" then
CityStZip = CityStZip + ", "
end if
CityStZip = CityStZip + trim({Vendor.RemitState})
CityStZip = CityStZip + " " + trim({Vendor.RemitZip})
CityStZip = left(trim(CityStZip) + Space( 40), 40)
else
CityStZip = Trim({XDDDepositor.WBeneCity})
if CityStZip <> "" then
CityStZip = CityStZip + ", "
end if
CityStZip = CityStZip + trim({XDDDepositor.WBeneState})
CityStZip = CityStZip + " " + trim({XDDDepositor.WBeneZipPostal})
CityStZip = left(trim(CityStZip) + Space( 40), 40)
end if
CityStZip = left(trimright(CityStZip) + Space( 40 ), 40)
if {XDDFile_Wrk.RecSection} = "20P" then
Formula = ">171>" _
+ CityStZip _
end if