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
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.