This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C1F5BF.6AE6E500
Content-Type: text/plain;
charset="windows-1252"
Hi Markus,
take a look at the syntax below, this simulates the US ( update stay )
command by forcing a re-read after the update procedure. In this case the
update procedure calls the entry procedure after the update so the entry
procedure had to be wrapped in a flag, hence the complicated syntax.
As Bob mentioned you could adapt this to execute from within the qtp calling
procedure instead of after the update procedure as in the case below.
can cle
set defaul
screen jkcREREAD2
temp t-find char*1 reset at startup
temp t-val char*10 reset at startup
file kdREREAD in mydb prim
FIELD KDREREADCH10 OF KDREREAD REQUIRED NOCHANGE &
NULL VALUE NOT ALLOWED LOOKUP NOTON KDREREAD
FIELD KDREREADNUM10 OF KDREREAD NULL VALUE NOT ALLOWED
FIELD KDREREADDATE OF KDREREAD NULL VALUE NOT ALLOWED
PROCEDURE ENTRY
BEGIN
if t-find ne "Y"
then begin
ACCEPT KDREREADCH10 OF KDREREAD
let t-val = KDREREADCH10 OF KDREREAD
ACCEPT KDREREADNUM10 OF KDREREAD
ACCEPT KDREREADDATE OF KDREREAD
end
END
PROCEDURE PATH
BEGIN
if t-find ne "Y"
then begin
REQUEST KDREREADCH10 OF KDREREAD
IF PROMPTOK
THEN LET PATH = 1
IF PATH = 0
THEN BEGIN
LET PATH = 2
END
end
else begin
LET PATH = 3
end
END
PROCEDURE FIND
BEGIN
IF PATH = 1
THEN GET KDREREAD VIAINDEX KDREREADIDX VIA KDREREADCH10
IF PATH = 2
THEN GET KDREREAD SEQUENTIAL
IF PATH = 3
THEN GET KDREREAD VIAINDEX KDREREADIDX using t-val
END
PROCEDURE postFIND
BEGIN
let t-find = " "
end
PROCEDURE UPDATE
BEGIN
PUT KDREREAD
END
PROCEDURE postUPDATE
BEGIN
if t-find = "Y"
then push find
END
build LIST DETAIL
-----Original Message-----
From: Markus Grossrieder [mailto:markus.grossrieder@alba-systems.com]
Sent: 03 May 2002 16:02
To: PowerHouse List (E-mail)
Subject: Re: Refresh records
Thanks Bob and Joe,
ok, I'll try it the other way round:
After having found my record by entering 3 values and doing an update in a
QTP,
I'm looking for a way to refresh the data WITHOUT doing my FIND again. I
don't
mind to enter F or to start another designer procedure, but I don't want to
enter the same search values again, just ... a refresh of the data in
Quick's
buffer and display them (like, say, in Access, Ctrl-F9 ... ok, it's a bad
example, but you get the picture).
I don't know for example if I can do something with the MISSING and
DISPLAYED
parameters in the FOR construct. If it's not possible: it would be a nice
feature (Bob, Conrad, Carol, Christina, Allison et. all.)
Kind regards,
Markus
----- Original Message -----
From: "Markus Grossrieder" <markus.grossrieder@alba-systems.com>
To: "PowerHouse List (E-mail)" <powerh-l@lists.swau.edu>
Sent: Thursday, May 02, 2002 5:55 PM
Subject: Refresh records
> Hi list,
>
> is there a way to refresh records shown in a Quick screen, after they are
> updated by an other program (say, a QTP), without doing a find again ?
>
> (Powerhouse 7.10.G3, OpenVMS V7.2-1)
>
> TIA, regards,
>
> Markus
>
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
This message may contain privileged and/or confidential information. If you
have received this e-mail in error or are not the intended recipient, you
may not use, copy, disseminate or distribute it; do not open any
attachments, delete it immediately from your system and notify the sender
promptly by e-mail that you have done so. Thank you.
------_=_NextPart_001_01C1F5BF.6AE6E500
Content-Type: text/html;
charset="windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
RE: Refresh records
Hi Markus,
take a look at the syntax below, this simulates the =
US ( update stay ) command by forcing a re-read after the update =
procedure. In this case the update procedure calls the entry =
procedure after the update so the entry procedure had to be wrapped in =
a flag, hence the complicated syntax.
As Bob mentioned you could adapt this to execute from =
within the qtp calling procedure instead of after the update procedure =
as in the case below.
can cle
set defaul
screen jkcREREAD2
temp t-find char*1 reset at startup
temp t-val char*10 reset at startup
file kdREREAD in mydb prim
FIELD KDREREADCH10 OF KDREREAD REQUIRED NOCHANGE =
&
NULL VALUE NOT =
ALLOWED LOOKUP NOTON KDREREAD
FIELD KDREREADNUM10 OF KDREREAD NULL VALUE NOT =
ALLOWED
FIELD KDREREADDATE OF KDREREAD NULL VALUE NOT =
ALLOWED
PROCEDURE ENTRY
BEGIN
if t-find ne "Y"
then begin
ACCEPT KDREREADCH10 OF =
KDREREAD
let t-val =3D KDREREADCH10 OF =
KDREREAD
ACCEPT KDREREADNUM10 OF =
KDREREAD
ACCEPT KDREREADDATE OF =
KDREREAD
end
END
PROCEDURE PATH
BEGIN
if t-find ne "Y"
then begin
REQUEST KDREREADCH10 OF KDREREAD
IF PROMPTOK
THEN LET PATH =3D =
1
IF PATH =3D 0
THEN BEGIN
LET PATH =
=3D 2
=
END
end
else begin
LET PATH =3D 3
end
END
PROCEDURE FIND
BEGIN
IF PATH =3D 1
THEN GET KDREREAD =
VIAINDEX KDREREADIDX VIA KDREREADCH10
IF PATH =3D 2
THEN GET KDREREAD =
SEQUENTIAL
IF PATH =3D 3
THEN GET KDREREAD =
VIAINDEX KDREREADIDX using t-val
END
PROCEDURE postFIND
BEGIN
let t-find =3D " "
end
PROCEDURE UPDATE
BEGIN
PUT KDREREAD
END
PROCEDURE postUPDATE
BEGIN
if t-find =3D "Y"
then push find
END
build LIST DETAIL
-----Original Message-----
From: Markus Grossrieder [mailto:markus.grossr=
ieder@alba-systems.com]
Sent: 03 May 2002 16:02
To: PowerHouse List (E-mail)
Subject: Re: Refresh records
Thanks Bob and Joe,
ok, I'll try it the other way round:
After having found my record by entering 3 values =
and doing an update in a QTP,
I'm looking for a way to refresh the data WITHOUT =
doing my FIND again. I don't
mind to enter F or to start another designer =
procedure, but I don't want to
enter the same search values again, just ... a =
refresh of the data in Quick's
buffer and display them (like, say, in Access, =
Ctrl-F9 ... ok, it's a bad
example, but you get the picture).
I don't know for example if I can do something with =
the MISSING and DISPLAYED
parameters in the FOR construct. If it's not =
possible: it would be a nice
feature (Bob, Conrad, Carol, Christina, Allison et. =
all.)
Kind regards,
Markus
----- Original Message -----
From: "Markus Grossrieder" =
<markus.grossrieder@alba-systems.com>
To: "PowerHouse List (E-mail)" =
<powerh-l@lists.swau.edu>
Sent: Thursday, May 02, 2002 5:55 PM
Subject: Refresh records
> Hi list,
>
> is there a way to refresh records shown in a =
Quick screen, after they are
> updated by an other program (say, a QTP), =
without doing a find again ?
>
> (Powerhouse 7.10.G3, OpenVMS =
V7.2-1)
>
> TIA, regards,
>
> Markus
>
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to =
powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body =
to powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you =
must be a subscriber.
This message may contain privileged and/or =
confidential information. If you have received this e-mail in =
error or are not the intended recipient, you may not use, copy, =
disseminate or distribute it; do not open any attachments, delete it =
immediately from your system and notify the sender promptly by e-mail =
that you have done so. Thank you.
------_=_NextPart_001_01C1F5BF.6AE6E500--