Menu
▾
▴
Re: [Aubit4gl-discuss] PICTURE IGNORED DURING CONSTRUCT
|
From: Mike A. <mik...@au...> - 2009-03-19 07:29:55
|
1. I think the FORMAT/PICTURE behaviour is the same as Informix 4GL - which
doesn't apply the format or picture in the case of a construct..
If you want to apply that kind of logic - you might need to use an INPUT with
a start date and end date or something similar..
2. ":" and ".." seems to work for me - what datatype are you using ?
3. Any chance of a fully worked example ?
ie - a *small* self contained 4gl module (not dependant on any external
tables if possible) - along with a form (preferable a 'formonly' form) that
shows the problem, along with the exact keys needed to reproduce the problem..
On Wednesday 18 March 2009 23:45:20 Luis Carlos Díaz Otero wrote:
> 1. I have a form with date fields and i have formatted them:
> FORMAT="dd/mm/yyyy",PICTURE="##/##/####";
>
> During input both the format and the picture are operative, but not during
> a construct over a formated and pictured date field: it forces me to query
> the field in the format mm/dd/yyyy; also at construct time it doesn´t put
> the slashes in the field to give the user an idea of how to query the
> field.
>
>
> 2. The interval wildcard : neither works in construct I.E: 1:1000
> (BETWEEN 1 AND 1000)
>
> 3. If i hit the Esc key to exit the construct, it exits, but does not
> construct anything, although i have queried on some fields
>
> This is the form:
>
> DATABASE contable
> SCREEN
> {
> TARIFAS PARA EL CALCULO DEL VALOR DEL CONSUMO DE GAS
> p--------------------------------------------------------------------------
>-----------q
>
> |Codigo de la tarifa - consecutivo de grabacion ........................
> | [tarcon ]| Municipio .... [mun] [nombremun ] Estrato ...
> | [es ] [estrato ]| Uso dado al servicio: (R)esidencial,
> | (C)omercial, (I)ndustrial ................. [u]| Tarifas validas desde el
> | .. [valida ] [fechatex ]|
> | -------------------------------------------------------------------------
> |------------| Tipo de liquidacion del consumo: Por (R)angos de consumo o
> | (P)leno .............. [p]| Valor a cobrar por concepto de reconexion del
> | servicio : ............... [recone ]| Valor a cobrar por concepto de
> | reinstalacion del servicio: ............. [reinst ]|
> | -------------------------------------p-----------p-----------p-----------
> |p-----------| RANGOS DE CONSUMO |BAS.PLENO |BAS.SU/CONT|M3.
> | PLENO | MR. NETO |
> | -------------------------------------|----$------|----$------|----$------
> ||----$------| Entre [taangocer ] y [taangouno ]|[basi1sin ]|[basi1con
> | ]|[tang1sin ]|[tang1con ]| Entre [taangoun2 ] y [taangodos
> | ]|[basi2sin ]|[basi2con ]|[tang2sin ]|[tang2con ]| Entre [taangodo2 ] y
> | [taangotre ]|[basi3sin ]|[basi3con ]|[tang3sin ]|[tang3con ]| Entre
> | [taangotr2 ] y [taangocua ]|[basi4sin ]|[basi4con ]|[tang4sin
> | ]|[tang4con ]| Entre [taangocu2 ] y [taangocin ]|[basi5sin
> | ]|[basi5con ]|[tang5sin ]|[tang5con ]|
>
> b--------------------------------------------------------------------------
>-----------d }
>
> TABLES
> com_tarifas
> ven_municipios
> com_estratos
>
> ATTRIBUTES
> tarcon=com_tarifas.tarconsecut,noentry,COLOR=GREEN;
> mun=com_tarifas.tarmunicipi,upshift,COLOR=GREEN;
> nombremun=ven_municipios.muninombre,upshift,color= RED;
> es=com_tarifas.tarestratos,COLOR=GREEN;
> estrato=com_estratos.estdescri,upshift,color= RED;
> u =com_tarifas.tarusoservi,UPSHIFT,COLOR=GREEN;
> p=com_tarifas.tarliquicon,COLOR=GREEN,UPSHIFT,COMMENTS="Pleno: La totalidad
> del consumo se liquida al mismo valor";
> valida=com_tarifas.tarvaledesd,FORMAT="dd/mm/yyyy",PICTURE="##/##/####",COL
>OR=GREEN,COMMENTS="En la forma dd/mm/aaaa";
> fechatex=FORMONLY.fechatex,color= YELLOW;
> recone = com_tarifas.tarvalrecon,COLOR=GREEN;
> reinst = com_tarifas.tarvalreins,COLOR=GREEN;
> taangouno=com_tarifas.tarrangouno,COLOR=GREEN;
> taangoun2=FORMONLY.tarrangoun2,color= GREEN;
> basi1sin=com_tarifas.tarbasi1sin,COLOR=GREEN;
> basi1con=com_tarifas.tarbasi1con,COLOR=GREEN;
> tang1sin=com_tarifas.tarrang1sin,COLOR=GREEN;
> tang1con=com_tarifas.tarrang1con,COLOR=GREEN;
> taangodo2=FORMONLY.tarrangodo2,color= GREEN;
> taangodos=com_tarifas.tarrangodos,COLOR=GREEN;
> basi2sin=com_tarifas.tarbasi2sin,COLOR=GREEN;
> basi2con=com_tarifas.tarbasi2con,COLOR=GREEN;
> tang2sin=com_tarifas.tarrang2sin,COLOR=GREEN;
> tang2con=com_tarifas.tarrang2con,COLOR=GREEN;
> taangotr2=FORMONLY.tarrangotr2,color= GREEN;
> taangotre=com_tarifas.tarrangotre,COLOR=GREEN;
> basi3sin=com_tarifas.tarbasi3sin,COLOR=GREEN;
> basi3con=com_tarifas.tarbasi3con,COLOR=GREEN;
> tang3sin=com_tarifas.tarrang3sin,COLOR=GREEN;
> tang3con=com_tarifas.tarrang3con,COLOR=GREEN;
> taangocu2=FORMONLY.tarrangocu2,color= GREEN;
> taangocua=com_tarifas.tarrangocua,COLOR=GREEN;
> basi4sin=com_tarifas.tarbasi4sin,COLOR=GREEN;
> basi4con=com_tarifas.tarbasi4con,COLOR=GREEN;
> tang4sin=com_tarifas.tarrang4sin,COLOR=GREEN;
> tang4con=com_tarifas.tarrang4con,COLOR=GREEN;
> taangocin=com_tarifas.tarrangocin,COLOR=GREEN;
> basi5sin=com_tarifas.tarbasi5sin,COLOR=GREEN;
> basi5con=com_tarifas.tarbasi5con,COLOR=GREEN;
> tang5con=com_tarifas.tarrang5con,COLOR=GREEN;
> tang5sin=com_tarifas.tarrang5sin,COLOR=GREEN;
> taangocer=formonly.tarrangocer,color= GREEN;
> INSTRUCTIONS
>
> DELIMITERS "[]"
>
> ---------------------------------------------------------------------------
>-----------------
>
> And this is the construct
>
>
> CONSTRUCT BY NAME sarta ON
>
> com_tarifas.tarconsecut,com_tarifas.tarmunicipi,ven_municipios.muninombre,c
>om_tarifas.tarestratos, com_estratos.estdescri,
> com_tarifas.tarusoservi,com_tarifas.tarvaledesd,com_tarifas.tarliquicon,
> com_tarifas.tarrangouno,com_tarifas.tarbasi1sin,com_tarifas.tarbasi1con,com
>_tarifas.tarrang1sin,com_tarifas.tarrang1con,
> com_tarifas.tarrangodos,com_tarifas.tarbasi2sin,com_tarifas.tarbasi2con,com
>_tarifas.tarrang2sin,com_tarifas.tarrang2con,
> com_tarifas.tarrangotre,com_tarifas.tarbasi3sin,com_tarifas.tarbasi3con,com
>_tarifas.tarrang3sin,com_tarifas.tarrang3con,
> com_tarifas.tarrangocua,com_tarifas.tarbasi4sin,com_tarifas.tarbasi4con,com
>_tarifas.tarrang4sin,com_tarifas.tarrang4con,
> com_tarifas.tarrangocin,com_tarifas.tarbasi5sin,com_tarifas.tarbasi5con,com
>_tarifas.tarrang5sin,com_tarifas.tarrang5con ON KEY (CONTROL-F)
> CALL calendario(TODAY)
> ON KEY (F7)
> CALL liquipre()
> ON KEY (F8)
> CALL liquifac()
> ON KEY (ESCAPE)
> LET respuesta="S"
> EXIT CONSTRUCT
> ON KEY (CONTROL-T)
> LET respuesta="N"
> EXIT CONSTRUCT
> END CONSTRUCT
>
>
> Cordial saludo:
>
> Luis Carlos Díaz Otero
>
>
> ___________________________________________________________________________
>
> Hay 10 clases de personas en el mundo: los que saben de números binarios y
> los que no.
> ___________________________________________________________________________
>
>
> ¡Sé el Bello 51 de People en Español! ¡Es tu oportunidad de Brillar!
> Sube tus fotos ya. http://www.51bello.com/
--
Mike Aubury
http://www.aubit.com/
Aubit Computing Ltd is registered in England and Wales, Number: 3112827
Registered Address : Clayton House,59 Piccadilly,Manchester,M1 2AQ
|