What is wrong with this?
Luis Carlos Díaz Otero <[email protected]>
| Newsgroups | gmane.comp.lang.4gl.aubit.general |
|---|---|
| Message-ID | <[email protected]> |
A4GL= 1.2.29
VDC = 04_05_2012
I have a lot of programs running well now with VDC, but i have a problem with a particular one. I rewrote it to make easy to test for you.
As a note, i replaced the INPUT BY NAME with the explicit form INPUT desde,hasta,pcuenta FROM desde,hasta,pcuenta and it continues with the same error.
Module:
DEFINE desde,hasta DATE,
forma CHAR(150),
cuecodigo CHAR(20)
MAIN
LET forma="./con_repmovimunaxml"
OPEN WINDOW repmovim WITH FORM forma
INPUT BY NAME desde,hasta,cuecodigo
AFTER FIELD desde
IF desde>TODAY THEN
ERROR "Less than today"
NEXT FIELD desde
END IF
AFTER FIELD hasta
IF desde>TODAY THEN
ERROR "Less than today"
NEXT FIELD hasta
END IF
AFTER FIELD cuecodigo
IF cuecodigo IS NULL THEN
ERROR "No nulls please"
NEXT FIELD cuecodigo
END IF
END INPUT
END MAIN
Form: (con_repmovimunaxml.per)
DATABASE FORMONLY
LAYOUT
VBOX
GRID
{
----------------------------
Desde el día [desde ]
Hasta el día [hasta ]
--------------------------------------------------------------------------
Para la cuenta [cdesde ] [nomcue ]
--------------------------------------------------------------------------
}
end
END
attributes
DATEEDIT desde = FORMONLY.desde TYPE DATE;
DATEEDIT hasta = FORMONLY.hasta TYPE DATE;
cdesde = FORMONLY.cuecodigo;
nomcue = FORMONLY.cuenombre;
end
The module compiles O.K., also the form.
The input order of the fields must be:
1. desde
2. hasta
3. cuecodigo
but the programs does it in this way:
1. desde
2. cuecodigo
The field hasta is ignored (jumped)
What is wrong in the form and/or in the module?. Guessing: two DATEEDIT fields are not fixed yet for VDC?
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
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss