Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
10 views3 pages

BILPRN

The document is a program script generated by GENSCRN, detailing the setup and layout for a Windows application window named '_s3p1eds3x'. It includes functionality for user interaction through a button that triggers different report actions based on the user's selection. The script also manages window visibility and settings for compatibility and talk status.

Uploaded by

lazaruspascalth
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
10 views3 pages

BILPRN

The document is a program script generated by GENSCRN, detailing the setup and layout for a Windows application window named '_s3p1eds3x'. It includes functionality for user interaction through a button that triggers different report actions based on the user's selection. The script also manages window visibility and settings for compatibility and talk status.

Uploaded by

lazaruspascalth
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 3

* *********************************************************

* *
* * 29/03/1999 PRINTDAT.SPR 23:30:23
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (c) 1999 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This program was automatically generated by GENSCRN.
* *
* *********************************************************

#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()

* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*

IF NOT WEXIST("_s3p1eds3x")
DEFINE WINDOW _s3p1eds3x ;
AT 0.000, 0.000 ;
SIZE 7.538,44.571 ;
TITLE "����ҹ" ;
FONT "MS Sans Serif", 8 ;
NOFLOAT ;
NOCLOSE ;
NOMINIMIZE ;
DOUBLE ;
COLOR RGB(,,,0,128,128)
MOVE WINDOW _s3p1eds3x CENTER
ENDIF

* *********************************************************
* *
* * PRINTDAT/Windows Screen Layout
* *
* *********************************************************
*

#REGION 1
IF WVISIBLE("_s3p1eds3x")
ACTIVATE WINDOW _s3p1eds3x SAME
ELSE
ACTIVATE WINDOW _s3p1eds3x NOSHOW
ENDIF
@ 2.769,10.571 GET m.xprn ;
PICTURE "@*HN \!���Ҿ;\!����;\!��" ;
SIZE 1.769,7.429,0.571 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
VALID _s3p1eds86()

IF NOT WVISIBLE("_s3p1eds3x")
ACTIVATE WINDOW _s3p1eds3x
ENDIF

READ CYCLE modal

RELEASE WINDOW _s3p1eds3x


SELECT (m.currarea)

#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF

* *********************************************************
* *
* * _S3P1EDS86 m.xprn VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: PRINTDAT, Record Number: 2
* * Variable: m.xprn
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _s3p1eds86 && m.xprn VALID
#REGION 1
do case
case xprn = 1
report form bilh.frx noconsole noeject preview
case xprn = 2
report form bilh.frx noconsole noeject to print prompt
case xprn = 3
clear read
endcase
return

You might also like