problems with tui forms (.per) with interval field defined like database field

Øyvind Gjerstad <[email protected]>
Newsgroups gmane.comp.lang.4gl.aubit.general
Message-ID <[email protected]>
I am unable to input interval values in a form when the form field is 
defined like a database column with interval type.
If I change the definition in the form to "interval day to minute" it 
works, but if I use "like testtable.interval_field" in the form 
definition I get "error in field" whatever I input (at runtime). The 
form itself compiles just fine in bot cases.

Given a database called 'test' with this table:
create table testtable (interval_field interval day to hour);


and the attached form and 4gl program, this can be easlily reproduced

Is this a known bug? Are there workarounds (other than changing the form 
field definitions)?
-- 

*Øyvind Gjerstad *
Systemkonsulent

M +47 909 41 485
[email protected] <mailto:[email protected]>

*____________________ _*


*PostNord AS *
T +47 09300
IT og Forretningsutvikling
Øran Vest
Postboks 100
6301 Åndalsnes
www.postnord.no <http://www.postnord.no>

------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
foo.4gl (text/plain, 417 B)
database test
main
define p_tst interval day to minute,
       p_dummy char(1),
       p_minutes interval minute(3) to minute

  open form f_test from "foo"
  display form f_test

  while true
    input p_tst
      from formonly.tst
    let p_minutes = p_tst
    display p_minutes to formonly.resultat

    input p_dummy from formonly.dummy
    if p_dummy = "q" then
      exit while
    end if
  end while

end main
foo.per (text/plain, 469 B)
database test
screen
{
----------------------------- test av interval input --------------------------



                     Oppgi et intervall: [f000          ]


                     Du har oppgitt:       [f001          ]



                     [c]
}
END


TABLES 
testtable

ATTRIBUTES
f000=formonly.tst type like testtable.interval_field, required;
f001=FORMONLY.resultat TYPE char(10), noentry;
c=formonly.dummy type char(1);

INSTRUCTIONS
DELIMITERS "[]"

END
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.