HP3000-L Archives

February 2005, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Peter Smithson <[log in to unmask]>
Reply To:
Peter Smithson <[log in to unmask]>
Date:
Fri, 11 Feb 2005 11:32:54 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (56 lines)
 I forgot to add a few steps -  There's a call to VSETERROR and numerrs
is set to zero.  This is a bit of the test program -

          CALL "VINITFORM" USING COMAREA.

               MOVE 78 TO LENGTH-1.
               MOVE 3 TO VIEW-FIELDNUM.
               CALL "VSETERROR" USING COMAREA VIEW-FIELDNUM
                                      VIEW-WINDOW  LENGTH-1.
          CALL "VSHOWFORM" USING COMAREA.
          IF CSTATUS OF COMAREA NOT = 0
             MOVE "Show Form" TO ERROR-LOCATION
             PERFORM GET-ERROR-MESSAGE-SECTION.

          CALL "VREADFIELDS" USING COMAREA.

                MOVE ZERO TO numerrs.

          CALL "VFIELDEDITS" USING COMAREA.
          if numerrs not = 0
            perform GET-ERROR-MESSAGE-SECTION.

In article <[log in to unmask]>,
[log in to unmask] says...
> Hi,
>
> I can't find the bit in the documentation which explains what I'm
> seeing.  I'm sure it's in there as the VPLUS documentation from HP seems
> to be excellent!
>
> I have a required field in my form.  I use VSETERROR on it so that it's
> highlighted.  I call VREADFIELDS and then VFIELDEDITS and check the
> numerrs in the com area.
>
> If I press ENTER then numerrs is set.  If I press a function key,
> numerrs isn't.
>
> I can only guess that VFIELDEDITS isn't ran if a function key is
> pressed?  But I'm not sure about that as numerrs is set if I don't have
> the VSETERROR.
>
> I know there's something about not incrementing numerrs if the field is
> already in error which would explain why it doesn't error when F2 is hit
> but why does it error when I hit enter?
>
> Thanks.
>
> Peter
>

--
http://www.beluga.freeserve.co.uk

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2