Input Array issue (1.2.27 and 1.2.28)
Luis Carlos Díaz Otero <[email protected]>
| Newsgroups | gmane.comp.lang.4gl.aubit.general |
|---|---|
| Message-ID | <[email protected]> |
Hi all; happy new year for everyone.
With 1.2.25 version i have no problem with an input array with a decimal field, but with 1.2.27 and 1.2.28 the same program only accepts one (and only one) digit in the field.
The form:
DATABASE FORMONLY
SCREEN
{
D A T O S P A R A C O S T E O D E L G A S F A C T U R A D O
\g-------------------------------------------------------------------------------\g
Ciclo de facturacion al cual se aplica el presente costeo ................... [cic ]
---------> COSTEO CONTABLE DEL CONSUMO DE LA FACTURACION NUMERO [ultima] <---------
Fecha con la cual quedarán contabilizados los comprobantes (dd/mm/aaaa) [fecha ]
\gp--------------------------------------------------------------------------------------------q\g
\g|\g MUNICIPIO \g|\g C U E N T A \g|\gCOSTO/M3 \g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\g|\g[mu ][muninombre ]\g|\g[cuenta ] [cuenombre ]\g|\g[costo ]\g|\g
\gb--------------------------------------------------------------------------------------------d\g
Número de factura en proceso [codigo ] Registro [van ] de [de ]
}
END
ATTRIBUTES
cic = FORMONLY.elciclo TYPE SMALLINT;
fecha = FORMONLY.movfecha TYPE DATE,FORMAT="dd/mm/yyyy",PICTURE="##/##/####";
ultima = FORMONLY.ultima;
mu = FORMONLY.municodigo,UPSHIFT,NOENTRY;
muninombre= FORMONLY.muninombre,NOENTRY;
cuenta = FORMONLY.cuecodigo,NOENTRY;
cuenombre = FORMONLY.cuenombre,NOENTRY;
costo = FORMONLY.costo TYPE DECIMAL(12,2);
codigo = FORMONLY.datnumfactur;
van = FORMONLY.van;
de = FORMONLY.de;
INSTRUCTIONS
SCREEN RECORD lineas[10] (municodigo THRU costo);
----------------------------------------------------------------------------------------------------
As you can see the only input field in the array, is FORMONLY.costo and is defined as DECIMAL(12,2), also in the program
In the program i have:
DEFINE
arremunici ARRAY[100] OF RECORD
municodigo LIKE com_municipios.municodigo, ## CHAR(3)
muninombre LIKE com_municipios.muninombre, ## CHAR(30)
cuecodigo LIKE con_cuentas.cuecodigo, ## CHAR(20)
cuenombre LIKE con_cuentas.cuenombre, ## CHAR(50)
costo DECIMAL(12,2)
END RECORD,
...
...
...
INPUT ARRAY arremunici WITHOUT DEFAULTS FROM lineas.* ATTRIBUTE(BOLD,CURRENT ROW DISPLAY="GREEN,BOLD,REVERSE")
...
...
...
If i try to put for example 9785.52 it is correct in Aubit4gl 1.2.25, 9785.52 is accepted and the cursor moves to the rigth as i am hitting the keys, but in 1.2.27 or 1.2.28 only one digit is accepted into the field and the cursor remains at the left side of the field, when i move to the next record of the array only the last digit pressed was entered as data.
Cordial saludo:
Luis Carlos Díaz Otero
________________________________
Hay 10 clases de personas en el mundo: las que saben de números binarios y las que no
________________________________
Asesoramos y acompañamos su presentación de tareas y trabajos de matemáticas:
http://www.facebook.com/pages/Asesorias-Matematicas/142808622433724?created
------------------------------------------------------------------------------
Ridiculously easy VDI. With Citrix VDI-in-a-Box, you don't need a complex
infrastructure or vast IT resources to deliver seamless, secure access to
virtual desktops. With this all-in-one solution, easily deploy virtual
desktops for less than the cost of PCs and save 60% on VDI infrastructure
costs. Try it free! http://p.sf.net/sfu/Citrix-VDIinabox
_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss