Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB4LESS3.ZIP
Filename : CUSTOMER.MDX

XCUSTOMER
0  X  TO w+/b
SET COLOR OF TITLES TO w+/b
SET COLOR OF HIGHLIGHT TO b/w
SET COLOR OF BOX TO b/w
SET COLOR OF INFORMATION TO b/w
SET COLOR OF FIELDS TO b/w
ENDIF

SET VIEW TO TIMEEDIT.VUE

*-- Define the main popup menu for Quickapp
SET BORDER TO DOUBLE
DEFINE POPUP quick FROM 7,27
DEFINE BAR 1 OF quick PROMPT " Add Information" MESSAGE "Add records to database TIMEEDIT.VUE"
DEFINE BAR 2 OF quick PROMPT " Change Information" MESSAGE "Edi
CUSTCODECCUSTNAME
C"Browse database TIMEEDIT.VUE"
DEFINE BAR 4 OF quick PROMPT " Discard Marked Records " MESSAGE "Purge deleted records in database TIMEEDIT.VUE"
DEFINE BAR 5 OF quick PROMPT " Print Report" MESSAGE "Run report form TIME"
DEFINE BAR 6 OF quick PROMPT " Exit From Time" MESSAGE "Exit program to dBASE"
ON SELECTION POPUP quick DO Action WITH BAR()

*-- Define the popup menu for print redirection
DEFINE POPUP prntchk FROM 10,55
DEFINE BAR 1 OF prntchk PROMPT " Send to..." SKIP
DEFINE BAR 2 OF prntchk PROMPT REPLICATE(CHR(196),14) SKIP
DEFINE BAR 3 OF prntchk PROMPT " Screen " MESSAGE "Screen only"
DEFINE BAR 4 OF prntchk PROMPT " Printer" MESSAGE "Printer LPT1:"
DEFINE BAR 5 OF prntchk PROMPT " Label Sample " MESSAGE "Printer LPT1: with Sample label" SKIP
DEFINE BAR 6 OF prntchk PROMPT " Return" MESSAGE "Return to Main Menu"
ON SELECTION POPUP prntchk DO get_sele

*-- Window to cover work surface during edit, append, etc.
DEFINE WINDOW work FROM 0,0 TO 21,79 NONE

*-- Window for area below menu heading & for running reports/labels in
DEFINE WINDOW desktop FROM 4,0 TO 21,79 NONE

DEFINE WINDOW printemp FROM 10,25 TO 15,56

*-- Display heading centered on the screen.
DO menubox WITH lc_heading

*-- Show the menu so we don't get a flash if the user hits arrow keys or ESC
SHOW POPUP quick
SAVE SCREEN TO quick
*-- Display Quickapp menu centered on the screen.
DO WHILE gn_barv <> 6 && Prevent user C
?CUSTCODEXB

BOISE WHISPER

CUSTCODEA
C CUSTNAME

XB

Boise Cascade Whisperwood, Ltd. 
CUSTNAMEABOISE BRIGHTON GSA #
LIMBER 04WESTWINDS ÉWHISPER /Ph
"8
’=
#
 n$ Sign-on defaults$  Display options$ Environment settings$ Application drive/path¤1Set default values for application sign-on screenSet default display attributesSet default environment5Set default drive and search path for generated menusSDEAz~‚†_
F&eh„ò
„â„ó„ã„ô„äDl #
+
E„â
„ò„ã„ó„ä„ôdj$&eh„¶
„QDm#

#„Q
„¶dj¶&eh„è
„Ö„ë„ׄì„Ø„í„Ù„î„Ú„ï„Û„ð„Ü„ñ„Ý„é„Þ„ê„ßDn #
c
µ„Ö
„è„ׄë„Ø„ì„Ù„í„Ú„î„Û„ï„Ü„ð„Ý„ñ„Þ„é„ß„êdj6&eh„4
„à„5„áDo #
#
5„à
„4„á„5dj

/P
"änç,
# J -! Save all changes and exit#-! Abandon all changes and exitt6Save any changes made and leave applications generator7Leave applicationBoise Cascade 8
’Brighton Associates General Services Admin 
Limber Lumber Company nmeWestwinds Construction Con dWhisperwood, Ltd. valfor application sign-on screenSet default display attributesSet default environment5Set default drive and search path for generated menusSDEAz~‚†_
F&eh„ò
„â„ó„ã„ô„äDl #
+
E„â
„ò„ã„ó„ä„ôdj$&eh„¶
„QDm#

#„Q
„¶dj¶&eh„è
„Ö„ë„ׄì„Ø„í„Ù„î„Ú„ï„Û„ð„Ü„ñ„Ý„é„Þ„ê„ßDn #
c
µ„Ö
„è„ׄë„Ø„ì„Ù„í„Ú„î„Û„ï„Ü„ð„Ý„ñ„Þ„é„ß„êdj6&eh„4
„à„5„áDo #
#
5„à
„4„á„5dj

/P
"änç,
# J -! Save all changes and exit#-! Abandon all changes and exitt6Save any changes made and leave applications generator7Leave applications gene*tor without saving any changesSAbd&dp&dqs

XQ2#