home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
s
/
sbt25sm4.zip
/
ZIPSMC02.EXE
/
SYRBAT._XP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-02-11
|
10KB
|
304 lines
syrcatg
a_syrcat//
itmcode
syroptn
a_syropt//
syrpick
a_syrpic//
itmcode1
syrtokn
a_syrtok//
token/
syrblck
a_syrblc//
applid1/
syrsets
a_syrset//
rptset1
a_syrset0
EDTOPT
ac_tmpitm
DELETEDz
Report Set Items
lw_rptbck
lw_rptbck
lw_rptbck
\<Select
\<Forward
\<Back
\<Edit
\<Generate
E\<xit
DEACTIVATE MENU lm_rptset
lm_rptset
lm_rptset
Select Report Set menu option
Select Item menu option
LP_SELECT
LP_FWDSET~LP_BCKSET
LP_FWDSET
syrset.spr
LP_EDTITM
LP_GENSET
LP_EXTSET
a_syrset
a_syrcat
a_syropt
a_syrpic
a_syrtok
a_syrpse
ac_tmpitm
LN_OPNRSETLN_OPNCATGLN_OPNOPTNLN_OPNPICKLL_INMENU
LC_RPTSET
LL_EDTITM
LL_ADDSET
LL_ADDITM
LC_ITMTTL
LC_DELSET
LC_RWCOD
EG_OPNFL
TGGC_IDRVDBFLC_OGDBF
FGC_IDRVTMPGC_TMPF6
GC_EXTDBF
LA_FIELDS
LN_FLDCNT
AC_TMPITM
LL_FSTOPT
LL_SELSET
LL_SETOK
LL_HASITM
LN_SETREC
LN_ITMREC
FC_RPTSET
A_SYRSET
RPTSET
FC_SETFACEFACEITM
FC_SETSHOWFC_ITMFACEFC_ITMSHOWFN_ITMSEQ
LN_PUBCNT
LA_PUBVAR
LC_BCKWIN
LW_RPTBCK
LW_RPTSET
G_PNTBG
LW_ITMBRW
LM_RPTSET
LP_SELECT
LP_FWDSET
LP_BCKSET
LP_EDTITM
LP_GENSET
LP_EXTSET
L_BRWITM
LC_CURMEN
G_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LL_EDTSET
L_INIVAR
L_EDTREC
LL_NOREAD
L_MOVSET
L_SRHSET
GC_IDRVPRGLN_ITEM
TL_GENSET
FA_SYRCAT
GA_SYROPT
NA_SYRPIC
A_SYRTOK
A_SYRPSE
VLM_EDTMNU
LW_OPTGRD
NOWAIT
ENTER
KEYBOARD CHR(gk_ctlend) PLAIN
RIGHTMOUSE
KEYBOARD CHR(gk_ctlend)
ESCAPE
BROWSE FIELDS rptseq :H = "Sequence" :W = .f. :P = "999.999" :R, showitm :H = "Title" :W = .f. :40 :R, include :H = "Include " :P = "@M ,
", edtopt :H = "Edit Opt" :W = (include = "
") :P = "@M ,
" FOR rptset = fc_rptset .AND. task <> "==========" &lc_nowait NOCLEAR WINDOW lw_itmbrw IN WINDOW lw_rptbck
ENTER
ON KEY LABEL ESCAPE &lc_esckey.
LL_NOWAIT
LC_NOWAIT
AC_TMPITM
ENTER
RIGHTMOUSELC_ESCKEY
ESCAPE
GK_ESC
LN_RETURN
LN_ITMREC
Select Report Set
syrset.spr
LL_SELSET
G_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
GC_IDRVPRGFC_RPTSET
LL_SETOK
0.000
Report Set F
not found.
Select
Reenter
a_syrsetR
a_syrset
==========
ac_temp
ac_tmpitm
ac_temp&
ac_tmpitmQ
LN_RETURN
A_SYRSET
FC_RPTSET
LL_SETOK
LN_RESP
G_GETDLG
L_SELSET
RPTSET
L_INIVAR
LL_ADDSET
LN_SETREC
RPTSEQ
TGAC_TEMP
BFAC_TMPITM
LA_FIELDS
INCLUDE
EDTOPT
LL_HASITM
L_BRWITM
No Report Sets Exist
ENTER
KEYBOARD CHR(gk_ctlend) PLAIN
RIGHTMOUSE
KEYBOARD CHR(gk_ctlend)
ESCAPE
DELETEDz
==========
Select Report Set
ENTER
ON KEY LABEL ESCAPE &lc_esckey.
LN_RETURN
G_DSPALT
A_SYRSET
ENTER
RIGHTMOUSELC_ESCKEY
ESCAPE
LC_DELSET
LL_ASSERT
GL_ASSERT
LN_TRACE
GN_TRACE
LC_LOGFILEGC_LOGFILELL_HOTKEY
GL_HOTKEY
LW_SELRPT
RPTSET
FACEITM
GK_ESC
ILEFC_RPTSET
LL_INISET
LL_BLANK
FC_RPTSET
A_SYRSET
RPTSET
USEFC_SETFACEFACEITM
FC_SETSHOWSHOWITM
FC_ITMFACEFC_ITMSHOWFN_ITMSEQ
RPTSEQ
sycprnt
a_sycprn//
a_opgrid
COPY TO &lc_ogdbf FOR rptopt = ac_tmpitm->rptopt
a_opgrid//
o_segdesf
a_opgrid
SYRDYNF
a_rwwblk
AC_TMPITM
INCLUDE
EDTOPT
LL_FMTOK
LL_DOCOK
EL_EDTOPT
EG_OPNFL
GC_IDRVDBFLL_CONT
C_SELPR
CELN_PWID
OWA_SYCPRN
A_OPGRID
A_SYROPT
ELC_OGDBF
L_OPTLOD
LC_NEWVAL
O_SEGDES
L_SEGCNV
LC_RWFRM
RPTFRM
ILEGC_ADRVPRGLC_RWCOD
RPTCODE
LC_RWBLK
RPTBLK
LC_RWOPT
RPTOPT
LL_RWDYFRXLC_RWDLOG
RPTDLOG
CELC_RWLLOG
RPTLLOG
OWLC_RWVLOG
RPTVLOG
OWLL_OPTOK
LL_BLKOK
LL_LOGOK
LL_PRTOK
L_GENRPT
GC_IDRVTMPGC_TMPF5
GC_EXTTXT
L_PRNDEV
A_RWWBLK
L_RPTZAP
LW_OPTGRD
\<Save
\<Edit
\<Cancel
DEACTIVATE MENU lm_rptmen
DEACTIVATE MENU lm_rptmen
DEACTIVATE MENU lm_rptmen
lw_rptbck
LP_OPTSAV
a_opgrid
lc_ogdbf
LP_EXTRPT
LL_FSTOPT
LM_RPTMEN
LP_OPTSAV
LP_OPTGRD
LP_EXTRPT
LC_RWOPT
RPTOPT
LC_DESFMT
SHOWITM
LL_FMTOK
ELL_DOCOK
WLW_RPTBCK
G_PNTBG
L_RPTOPT
EL_OPTSAV
LC_OGDBF
A_OPGRID
AC_TMPITM
G_DSPPRC
SYRBAT
L_BRWITM
L_EDTREC
L_SRHSET
L_SELSET
L_INIVAR
L_GENSET
L_EDTOPT
C:\SMDISK\
C:\SMDISK\SYRBAT.PRG
SYRBAT.FXP