Dataport question...value to decimal return zero

kirkostas

I have an Ascii file fixed length and it has a value 1000.00
I use a dataport to read it.
I want to enter this value to a decimal variable.
But always it takes 0.
I have made some tests.
I use a code variable and it returned ok.
I use evaluate function

evaluate(mydecimal, mycode);

and it returned 0 again.
How can i enter this value into my decimal variable?

kriki

Are you sure "mycode" has a value when you use EVALUATE?

kirkostas

Yes it has a value, I can see it by using

message(format(mycode));

It returns 1000.00 but when i do evaluate i get this error message

Decimal must not be blank.
Decimal is missing or invalid on the expression.

kriki

kirkostas wrote:

Yes it has a value, I can see it by using

message(format(mycode));

And what value does it has?
PS you should use message('%1',format(mycode));
the first parameter is a formatting string, so it is possible your value is interpreted.

kirkostas

It returns 1000.00 but when i do evaluate i get this error message

Decimal must not be blank.
Decimal is missing or invalid on the expression.

Yaroslav_Gaponov

Hi
May be problem in separator - what this code return? MESSAGE('%1',FORMAT(3/2)[2])

kirkostas

It returns comma (,)
My number is 1000.00 (dot).
How can I convert it?

Just replace (.) dot with (,) comma?
So simple?

I tried it but no I get the same error.

This is my original code

MESSAGE('%1',FORMAT(3/2)[2]);

DebitNetAmt := CONVERTSTR(DebitNetAmt,'.',',');
CreditNetAmt := CONVERTSTR(CreditNetAmt,'.',',');

EVALUATE(DebitNetAmtDec,DebitNetAmt);
EVALUATE(CreditNetAmtDec,CreditNetAmt);
VALIDATE("Debit Net Amount",DebitNetAmtDec);
VALIDATE("Credit Net Amount",CreditNetAmtDec);

DebitNetAmt and CreditNetAmt returns correct values but when I evaluate them to their decimal variables it crashes.

Yaroslav_Gaponov

Hi

Have 2 way
1. change region and language options
2. Just change '.' on FORMAT(3/2)[2] symbol

kriki

Use this to clean the string from all 'dirty' characters. So you keep only a valid decimal string.

DebitNetAmt := DELCHR(DebitNetAmt,'=',DELCHR(DebitNetAmt,'=','1234567890.,'));

Afer this command, you can convert the "," to ".".

kirkostas

Same error again ](*,)

//MESSAGE('%1',FORMAT(3/2)[2]);

DebitNetAmt := DELCHR(DebitNetAmt,'=',DELCHR(DebitNetAmt,'=','1234567890.,'));
CreditNetAmt := DELCHR(CreditNetAmt,'=',DELCHR(CreditNetAmt,'=','1234567890.,'));

DebitNetAmt := CONVERTSTR(DebitNetAmt,'.',',');
CreditNetAmt := CONVERTSTR(CreditNetAmt,'.',',');

EVALUATE(DebitNetAmtDec,DebitNetAmt);
EVALUATE(CreditNetAmtDec,CreditNetAmt);
VALIDATE("Debit Net Amount",DebitNetAmtDec);
VALIDATE("Credit Net Amount",CreditNetAmtDec);

and again the

MESSAGE(DebitNetAmt);

returns 1000,00 correctly...

but when evaluate to decimal i get

Decimal must not be blank.
Decimal is missing or invalid on the expression.

Error... ](*,)

Yaroslav_Gaponov

Hi

I try and this work


str := '10000.01';
str := CONVERTSTR(str,'.',FORMAT(FORMAT(3/2)[2]));
MESSAGE(str);

IF EVALUATE(dec,str) THEN
MESSAGE('%1',dec);

kriki

I think I got it.
If you have both debit and credit in the dataport, in general one of them is blank, so you need to do this:

IF DebitNetAmt <> '' THEN
  EVALUATE(DebitNetAmtDec,DebitNetAmt);
IF CreditNetAmt <> '' THEN
  EVALUATE(CreditNetAmtDec,CreditNetAmt);

Yaroslav_Gaponov

kriki wrote:

I think I got it.
If you have both debit and credit in the dataport, in general one of them is blank, so you need to do this:

IF DebitNetAmt <> '' THEN
  EVALUATE(DebitNetAmtDec,DebitNetAmt);
IF CreditNetAmt <> '' THEN
  EVALUATE(CreditNetAmtDec,CreditNetAmt);

Then just so


if EVALUATE(DebitNetAmtDec,DebitNetAmt) then ;
if EVALUATE(CreditNetAmtDec,CreditNetAmt) then ;

kirkostas

Thank you Yaroslav Gaponov this was my problem =D>