problem with decimal(16) and a4gl_DEFDECPREC

Hi,

it looks like that "DISPLAY BY NAME" removes the 0 in protocol:

export a4gl_DEFDECPREC=255

m_input.4gl:

MAIN
DEFINE zahl             DECIMAL(16)

OPEN WINDOW Input AT 1,1 WITH FORM "m_input"

LET zahl = "-0,30"

MENU "Navi"
    BEFORE MENU
DISPLAY "number: ", zahl CLIPPED
DISPLAY BY NAME zahl
    COMMAND "Exit"
       EXIT MENU
END MENU

m_input.per:

DATABASE FORMONLY

SCREEN
{
decimal:                [mx1            ]
}

ATTRIBUTES
mx1 = FORMONLY.zahl;

protocol:

<< <ENVELOPE ID="3" PID="24475">

<COMMANDS>

<PROGRAMSTARTUP PROGRAMNAME="./input.4ae" ID="3">

<ENV NAME="DBPATH" 
VALUE=":/v/MAIN/schema/:/t/compiler/a4gl/tools:/home/as/aubit4gl/tools:/t/compiler/a4gl/incl:/home/as/aubit4gl/incl:."/>

<ENV NAME="DBDATE" VALUE="DMY4."/>

<ENV NAME="DBMONEY" VALUE=","/>

<ENV NAME="A4GL_NUMERIC" VALUE=","/>

<ENV NAME="DB_LOCALE" VALUE="de_de.PC-Latin-1"/>

<ENV NAME="LANG" VALUE="de_DE.utf8"/>

<ENV NAME="A4GL_VERSION" VALUE="1.2.36"/>

<ENV NAME="XML_VERSION" VALUE="1.4"/>

</PROGRAMSTARTUP>

</COMMANDS>

</ENVELOPE>

<<

<ENVELOPE ID="3" PID="24475">

<COMMANDS>

<CLOSEWINDOW WINDOW="screen"/>

<OPENWINDOWWITHFORM WINDOW="input" X="1" Y="1" ATTRIBUTE="65535" 
SOURCE="m_input"

TEXT="" STYLE="" ERROR_LINE="255" PROMPT_LINE="255" MENU_LINE="255" 
BORDER="0" COMMENT_LINE="255" MESSAGE_LINE="255" FORM_LINE="255">

<XMLFORM NAME="m_input" FILE="/tmp/fileC3SM1p">

PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiPz4KPEZvcm0gbmFtZT0ibV9pbnB1dCIgc3FsRGJOYW1lPSJmb3Jtb25seSIgd2lkdGg9IjQxIiBoZWlnaHQ9IjIiIGRlbGltaXRlcnM9IltdfCIgZW5jb2Rpbmc9IiI+CjxTY3JlZW4gd2lkdGg9IjQwIiBoZWlnaHQ9IjEiID4KPExhYmVsIHRleHQ9ImRlY2ltYWw6IiBwb3NZPSIwIiBwb3NYPSIwIiBncmlkV2lkdGg9IjgiIGd1ZXNzQWxpZ249IkwiLz4KPEZvcm1GaWVsZCBuYW1lPSJmb3Jtb25seS56YWhsIiBjb2xOYW1lPSJ6YWhsIiBmaWVsZElkPSIwIiBzcWxUYWJOYW1lPSJmb3Jtb25seSIgIHNxbFR5cGU9IkNIQVIoMTUpIiB0YWJJbmRleD0iMSIgPgogIDxFZGl0IHdpZHRoPSIxNSIgICBwb3NZPSIwIiBwb3NYPSIyNSIgZ3JpZFdpZHRoPSIxNSIvPgo8L0Zvcm1GaWVsZD4KPC9TY3JlZW4+CjxSZWNvcmRWaWV3IHRhYk5hbWU9ImZvcm1vbmx5Ij4KICAgPExpbmsgY29sTmFtZT0iemFobCIgZmllbGRJZFJlZj0iMCIvPgo8L1JlY29yZFZpZXc+CjwvRm9ybT4K</XMLFORM>

</OPENWINDOWWITHFORM>

<MENU CONTEXT="0" TITLE="Navigation" COMMENT="" STYLE="" IMAGE="">

<MENUCOMMANDS>

<MENUCOMMAND CONTEXT="0" KEYS="" ID="1" TEXT="Exit" DESCRIPTION="" 
HELPNO="0"/>

<MENUACTION CONTEXT="0" ID="2" ACTION="fgl_exit_menu" CMD_NO_TIMEOUT="2" />

</MENUCOMMANDS>

</MENU>

<DISPLAYTO ATTRIBUTE="-1">

<FIELDLIST>

<FIELD NAME="zahl"/>

</FIELDLIST>

<VS>

<TEXT TYPE="5">-,30</TEXT>

</VS></DISPLAYTO>

<WAITFOREVENT CONTEXT="0" CACHED="0"/>

</COMMANDS>

</ENVELOPE>


END MAIN

------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and their 
applications. Written by three acclaimed leaders in the field, 
this first edition is now available. Download your free book today!
http://p.sf.net/sfu/NeoTech

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss