Amount in Words on A/P Check

(0) Share

Report

Posted on by john.ellis

3,510

Hi:

I'm modifying Report ID 10412 (Report Selection - Bank), which is the A/P check.

Below is a screenshot of the Amount in Words, and below that screenshot are the two formula expressions used for this. (My guess is that the second formula is some sort of "overflow" field.)

I need for the asterisks in the beginning to appear at the end, instead. And, the phrase "US DOLLARS" need not appear.

How do I meet these two requirements?

Thank you!

John

=Cstr(Choose(97,Split(Cstr(ReportItems!FooterInfo.Value), Chr(177))))

=Cstr(Choose(98,Split(Cstr(ReportItems!FooterInfo.Value), Chr(177))))

I have the same question (0)

All responses (12)

Answers (0)

Suggested answer

JAngle 133 on at

Like (0)

Report
It is set in the code for the report. So either remove it in RDLC or try with a report extension. RDLC seems like a better plan.

here is the code that adds it:

procedure FormatNoText(var NoText: array[2] of Text[80]; No: Decimal; CurrencyCode: Code[10])
var
PrintExponent: Boolean;
Ones: Integer;
Tens: Integer;
Hundreds: Integer;
Exponent: Integer;
NoTextIndex: Integer;
begin
Clear(NoText);
NoTextIndex := 1;
NoText[1] := '****';

if No < 1 then
AddToNoText(NoText, NoTextIndex, PrintExponent, Text026)

Was this reply helpful? Yes No
Suggested answer

JAngle 133 on at

Like (0)

Report

Method to try in RDLC: docs.microsoft.com/.../ltrim-rtrim-and-trim-functions

Was this reply helpful? Yes No
john.ellis 3,510 on at

Like (0)

Report

Thanks, Josh!

Do I place that code inside of a text field on the report? I'm not very swift on programming. :)

John

Was this reply helpful? Yes No
Suggested answer

Dallefeld 211 User Group Leader on at

Like (0)

Report

Do you have a currency code for USD setup and is the description US Dollars? What happens if you simply remove the description?

Was this reply helpful? Yes No
Suggested answer

JAngle 133 on at

Like (0)

Report

GB version looks a bit different to yours but effectively the Right() and Len() functions will do what you need. Adapt this to fit yours: right(Code.GetData(1,2),len(Code.GetData(1,2))-4)

Gives you this type of output:

Was this reply helpful? Yes No
john.ellis 3,510 on at

Like (0)

Report

But, where do I "put that coding"? That's what I need help with. When it comes to programming BC, I don't even know where to begin.

Was this reply helpful? Yes No
john.ellis 3,510 on at

Like (0)

Report

Also need the asterisks moved.

I'm leery about messing with currency stuff just to make a modification.

Thanks, though!

Was this reply helpful? Yes No
Suggested answer

JAngle 133 on at

Like (0)

Report

At the bottom of your original post you have what looks to be content from a text box on a RDLC layout. That is where the code should go.

Was this reply helpful? Yes No
john.ellis 3,510 on at

Like (0)

Report

Thanks, Josh! Do I simply paste the code from the original posting into the text box?

And, since there are two fields for amount in words from what I see, do I paste into both text boxes?

John

Was this reply helpful? Yes No
Suggested answer

JAngle 133 on at

Like (0)

Report

Not quite a copy/paste. Add the suggested functions to the existing content. You can copy the existing content to paste it into the suggested functions as you need the string twice. Give it a try

Was this reply helpful? Yes No