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
/
SYVLBL._XP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-02-11
|
9KB
|
161 lines
Labels for one Record
Selected Labels
Labels for All Records
Modify Label Form
TYPE("lc_opt") = "C"
TYPE("lc_title1") = "C"
TYPE("lc_type") = "C"
TYPE("lc_title2") = "C"
Custom Label
Don't modify Label Forms while
there are any other active users.
Modify
Cancel
Vendor Mailing Labels
syvmai
Vendor Folder Labels
syvfol
MODLABL
Modify Label Form for
<Ctrl-W> to save label, <Esc> to cancel...F
lw_lblms
lw_syvlbl
lw_label
Sample
Print
Edit count and contents
Cancel
Print a sample label for printer alignment
Print labels
Return to Menu
Vendor
Option Grid - F
Option Grid - F
Number of Labels
(number of labels per record)
@M Vendor ,Company,Zip
Order By
{Vendor/Company/Zip}
!!!!!!
Beginning Vendor
(portion or blank for all)
!!!!!!
Ending Vendor
(portion or blank for all)
Vendor Misc Code
(portion or blank for all)
Enter Database Selection Expression or <Esc> to cancel:
@S70 F
Enter an expression that evaluates to a logical
true/false...
IF .NOT. EMPTY(lablscope) .AND. TYPE([&lablscope.]) <> "L"
@S70 F
Error in expression.
IF TYPE([&lablscope.]) = "L"
.AND.
.t. .AND.
Creating Temporary Label File
a_tmpf1
COPY TO (gc_idrvtmp + gc_tmpf1) WHILE vendno >= mbvendno .AND. LEFT(vendno, LEN(mevendno)) <= mevendno FOR &lc_cond. LEFT(code,mlc)= mcode .AND. .NOT. DELETED()
COPY TO (gc_idrvtmp + gc_tmpf1) WHILE vendno >= mbvendno FOR &lc_cond. LEFT(code,mlc)= mcode .AND. .NOT. DELETED()
COPY TO (gc_idrvtmp + gc_tmpf1) WHILE LEFT(vendno,LEN(mevendno)) <= mevendno FOR &lc_cond. LEFT(code,mlc)= mcode .AND. .NOT. DELETED()
COPY TO (gc_idrvtmp + gc_tmpf1) FOR &lc_cond. LEFT(code,mlc)= mcode .AND. .NOT. DELETED()
a_tmpf1e/
Indexing File
Indexing File
Indexing File
SET FILTER TO &lc_cond. .NOT. DELETED()
Selected Label(s)
Label(s) for All Records
syvmai
syvfol
ll_cont = g_cncjob("")
Creating Temporary Label File
a_tmpf1
a_tmpf1e/
Label(s) for one Record
syvmai
syvfol
a_apvend->vendno = mvend .AND.
ll_cont = g_cncjob("")
a_tmpf1
lw_syvlbl
lw_label
LC_OPT
MLC_TITLE1
LC_TYPE
LC_TITLE2
GN_TRACE
ME_TRACE
GL_ASSERT
E_ASSRT
GU_PRNT10
GU_PRNT1
GM_MAIN
FLW_SYVLBL
LW_LABEL
FLL_CONT
EGL_MULTI
EG_GETDLG
SGC_OSEOL
SLC_TITLE
ELC_LBLFILEGC_IDRVPRGA_APVEND
LC_HELPID
GC_HELPID
LW_LBLMS
GC_EXTLBL
LL_EDIT
LL_SAMPL
LA_PAD
LA_PRMPT
MLABLEACH
MORDER
MBVENDNO
MEVENDNO
EMCODE
LABLSCOPE
G_PNTBG
G_DSPGD
G_DSPCH
NLN_LINE
G_SAYOP
G_DSPST
GN_MSGLINEGK_ESC
G_ENTVL
LC_COND
LN_RESP
G_GETCH
C_SELPR
A_TMPF1
NEGC_IDRVTMPGC_TMPF1
GC_EXTDBF
G_OPNFL
GC_TMPF2
PLN_COPIES
SGLINECOMPANY
GC_EXTNDX
VENDNO
INEL_LBOAR
RGMVEND
G_SELVND
TYPE("lc_title") = "C"
TYPE("mlableach") = "C"
Printing
No matching records found. Report cancelled.
LABEL FORM (lc_lblfile + gc_extlbl) WHILE &lc_cond. ll_cont OFF TO PRINTER
LABEL FORM (lc_lblfile + gc_extlbl) WHILE &lc_cond. ll_cont OFF SAMPLE TO PRINTER
GN_TRACE
ME_TRACE
GL_ASSERT
E_ASSRT
G_DSPST
MLC_TITLE
GN_MSGLINEG_DSPALT
LL_CONT
LC_LBLFILE_PDPARMS
FLL_SAMPL
L_LBOAR
C:\SMDISK\
C:\SMDISK\SYVLBL.PRG
SYVLBL.FXP