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
/
SYMEDT._XP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-02-11
|
33KB
|
857 lines
TYPE("ll_squawk") = "L"
TYPE("gc_userid") = "C"
TYPE("gl_mremind") = "L"
TYPE("gl_wkstns") = "L"
TYPE("gc_wkstid") = "C"
Message
Preparing to Send and Receive Messages...
a_arcust
gl_arf
gl_sof
ARCUST
ARCHST
a_arcust//
custno
a_arcust
SYCUST01
F$Fb/
a_apvend
gl_apf
gl_pof
APVEND
a_apvend//
vendno
a_apvend
SYVEND01
F$Fb/
syuuser
a_syuuse//
userid1
sycwkst
a_sycwks//
wkstid
COM1~COM2~COM3
syumess
a_syumes//
userid1
gl_csprocf
csgack
No messages for
- Send messages ?
a_arcust
a_apvend
a_syuuse
a_sycwks
a_syumes
a_syyume
LL_SQUAWK
LL_CALMES
GN_TRACE
E_TRACE
EMLC_MALIAS
LN_ARECNO
GL_ASSERT
E_ASSRT
MPLL_CONT
LL_REPLY
LL_AREMSG
LN_OPNFLC
LN_OPNFLV
LN_OPNFLU
LN_OPNFLW
LN_OPNFLM
GL_MREMINDL_ALTMSG
LW_MAIN
G_PNTBG
PLW_MSGBROWLW_MESSG
LC_TNAME
EG_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LC_SOURCE
LC_COMPID
LC_COMPANYLC_CONTACTLC_PHONE
GGC_PHONPICLC_ISORDERLC_PHONED
LC_RETURN
LC_PCALL
LC_WCALL
LC_URGENT
LC_INSTR
LC_TAKER
LD_CALLED
LC_CALLTIMLC_NOTE1
RLC_NOTE2
LC_USERID
LC_FILEID
GL_AR
GL_SO
FGF_ARCUSTFGF_ARCHSTFD_SETFL
TFG_OPNFL
LL_CUST
TFU_CHKPV
GL_AP
GL_PO
LINEGF_APVENDFLL_VEND
DFGC_IDRVDBFUSERID
GL_WKSTNS
WKSTID
DBFGC_WKSTID
LL_MODEM
A_SYCWKS
MPORT
EMDIAL
MTERM
PGL_CSPROC
GC_ADRVPRGLN_URECNO
LL_NORECS
LN_RESP
LC_MSG1
G_GETDL
L_HDRMSG
WL_ADDMSG
FL_NULMSG
L_DEFMU
L_BRWMSG
GC_TASK
WA_ARCUST
GL_SBTMOD
A_APVEND
A_SYUUSE
A_SYUMES
A_SYYUME
GP_HELP
GM_MAIN
SEGU_HELP
Select Menu Option...<Esc> to exit
\<Add
\<Fwd
\<Back
\<Edit
\<Reply
\<Trsf
Retr\<y
\<Del
Cal\<l
AR~SO~CM
\<Cust
AP~PO
\<Vend
\<Print
E\<xit
DO l_prmprg WITH 1
DO l_prmprg WITH 2
DO l_prmprg WITH 3
DO l_prmprg WITH 4
DO l_prmprg WITH 5
DO l_prmprg WITH 6
DO l_prmprg WITH 7
DO l_prmprg WITH 8
DO l_prmprg WITH 9
AR~SO~CM
DO l_prmprg WITH 10
AP~PO
DO l_prmprg WITH 11
DO l_prmprg WITH 12
DO l_prmprg WITH 13
Select Menu Option...<Esc> to exit
G_DSPST
GN_MSGLINELW_MAIN
GN_TRACE
ME_TRACE
LP_ADD
LP_FWD
LP_BCK
MPLP_EDT
LP_RPL
LP_TRN
GL_CSPROC
LP_RTY
LP_DEL
LL_MODEM
LP_CAL
LL_CUST
NDGC_APPLID
LP_CUS
LL_VEND
PLP_VND
LP_PRT
LP_EXT
a_syumes->userid = gc_userid
of messages
for
reached.
csrtry
**** Returning to Message Screen ****
Not A Fax message
cmcust
sycust
Customer File Maintenance
Can Not inquire source of Fax Messages
Current message is not from a Customer
syvend
Vendor File Maintenance
Current message is not from a Vendor
LN_SEL
GN_TRACE
EE_TRACE
LL_DEFMU
MLN_MRECNO
L_ADDMSG
LL_NORECS
GC_USERID
LN_URECNO
L_VARMSG
L_SAYMSG
L_NULMSG
G_CHKRC
G_DSPALT
LL_EDIT
L_EDTMSG
DNOTE1
MXFAXNO
LC_SAVENV
G_SAVENV
LS_RETRY
GC_ADRVPRGA_SYUMES
L_DELMSG
G_PUTPN
PHONE
FILEID
LN_OPNFLC
GL_CSPROC
LN_CRECNO
SOURCE
GL_MNTMSG
GC_IDRVPRGLN_OPNFLV
LN_VRECNO
L_PRNMSG
LW_MSGBROWGK_ESC
L_DEFMU
USERID
Transfer
Send8
Cancel
Transfer
Send8
Cancel
Transfer Message
Send Message
User ID, <F2> to list, or <Blank> to quit...
Edit Special Intructions?
RUN SEND "Msg: F
&lc_novmsg
Message has been sent to
LL_REPLY
LL_TRNSFR
GN_TRACE
E_TRACE
MLN_RESP
LL_RESULT
LL_UPDATE
LC_MSGID
LL_EDIT
LA_PAD
LA_PRMPT
LW_MESSG
L_NULMSG
G_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LC_USERID
GK_ESC
L_USRMSG
G_HIDSTR
A_SYUUSE
GUSERID
LL_CALMES
L_GTSMSG
L_GETMSG
LW_MAIN
G_GETCH
LL_GETCH3
G_GETDL
LC_INSTR
GL_UPDMSG
A_SYUMES
LN_URECNO
LL_NORECS
GL_SBTMOD
LC_NOVMSG
LC_CONTACTLC_PHONE
G_DSPALT
Select Menu Option...<Esc> to exit
Cancel
Save your changes
Edit again
Cancel changes
Edit Message
Message Center
GN_TRACE
E_TRACE
G_DSPST
GN_MSGLINELL_UPDATE
LL_RESULT
LN_RESP
LA_PAD
LA_PRMPT
LW_MESSG
A_SYUMES
USERID
GL_MULTI
G_LCKOB
GN_RETRY
ELC_TNAME
L_VARMSG
L_GETMSG
LC_FILEID
LC_SOURCE
LW_MAIN
G_DSPCH
G_GETCH
GGK_ESC
LL_GETCH3
L_UPDMSG
L_SAYMSG
Enter Message...
@M N,Y
@M N,Y
@M N,Y
@M N,Y
@M N,Y
@M N,Y
GN_TRACE
E_TRACE
LC_MSG
LW_MESSG
ELC_FILEID
LC_SOURCE
G_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LC_PHONE
GC_PHONPICLC_TAKER
LC_CONTACTLC_COMPANYLC_NOTE1
LC_NOTE2
LD_CALLED
G_FMTTM
LC_CALLTIMLC_INSTR
LC_PCALL
GLC_RETURN
LC_WCALL
LC_URGENT
LC_ISORDERLC_PHONED
Select Menu Option...<Esc> to exit
Message Center
Source
Phone
Contact
Company
Message:
Special Instructions
Please Call:
Returned Call:
Will Call:
Urgent:
Order:
Phone Msg:
GN_TRACE
E_TRACE
G_DSPST
GN_MSGLINELW_MAIN
LW_MESSG
User88
Contact
Phone
Messages
LW_MAIN
LW_MSGBROWLW_MESSG
READMES
NECALLED
LC_TIME
G_FMTTM
CALLTIM
NESOURCE
FILEID
CONTACT
PHONE
GC_USERID
L_REDMSG
a_syumes
GN_TRACE
E_TRACE
OWA_SYUMES
USERID
NEGC_USERID
READMES
G_LCKRC
GN_RETRY
ELC_TNAME
ARCHIVE
READTIM
READDAT
L_VARMSG
L_SAYMSG
Are you sure you want to archive this
a_syumes->userid = gc_userid
a_syumes->userid = gc_userid
syyumes
a_syyume//
userid1
a_syyume
Message Archive
GN_TRACE
E_TRACE
OWLL_RESULT
LN_RESULT
LC_KEY
G_GETDL
LC_TNAME
GL_MULTI
EG_LCKOB
GN_RETRY
A_SYUMES
USERID
READMES
ARCHIVE
READTIM
WREADDAT
YLN_DRECNO
LN_URECNO
G_CHKRC
GC_USERID
G_OPNFL
GC_IDRVDBFG_LCKFL
FILEID
SOURCE
COMPID
RCOMPANY
CONTACT
PHONE
ISORDER
PHONED
RETURN
PCALL
GWCALL
URGENT
INSTR
TAKER
CALLED
CALLTIM
NOTE1
TNOTE2
ADDUSER
ADDDATE
ADDTIME
RLCKSTAT
LCKUSER
LCKDATE
LCKTIME
A_SYYUME
FLL_NORECS
LL_REPLY
L_NULMSG
LL_ADD
GN_TRACE
WE_TRACE
LL_UPDATE
G_LCKFL
GN_RETRY
LC_TNAME
GL_MULTI
G_LCKOB
USERID
LC_USERID
ADDUSER
GC_USERID
LCKUSER
LCKDATE
LCKTIME
YFILEID
LC_FILEID
SOURCE
LC_SOURCE
COMPID
LC_COMPID
COMPANY
BFLC_COMPANYCONTACT
LC_CONTACTPHONE
RLC_PHONE
ISORDER
LC_ISORDERPHONED
LC_PHONED
RETURN
LC_RETURN
PCALL
LC_PCALL
WCALL
LC_WCALL
URGENT
LC_URGENT
INSTR
TLC_INSTR
TAKER
LC_TAKER
CALLED
RLD_CALLED
CALLTIM
LC_CALLTIMNOTE1
LC_NOTE1
FNOTE2
LC_NOTE2
A_SYUMES
GN_TRACE
E_TRACE
WLC_USERID
A_SYUMES
USERID
LC_FILEID
FILEID
LC_SOURCE
SOURCE
LC_COMPID
COMPID
LC_COMPANYCOMPANY
LC_CONTACTCONTACT
LC_PHONE
YPHONE
LC_ISORDERISORDER
LC_PHONED
PHONED
LC_RETURN
RETURN
FLC_PCALL
YPCALL
LC_WCALL
TWCALL
RLC_URGENT
URGENT
LC_INSTR
RINSTR
LC_TAKER
TAKER
LD_CALLED
CALLED
LC_CALLTIMCALLTIM
LC_NOTE1
NOTE1
LC_NOTE2
NOTE2
@M C,V,I,
User ID
Cust #
!!!!!!
AR~SO
Cust#, <F2> to list...
Cust#, <F2> to list, or <F7> for File
Maintenance...
DO l_mntmsg WITH gc_idrvprg + "sycust", "Customer File Maintenance"
Vend #
!!!!!!
AR~SO
Vend#, <F2> to list...
Vend#, <F2> to list, or <F7> for File
Maintenance...
DO l_mntmsg WITH gc_idrvprg + "syvend", "Vendor File Maintenance"
GN_TRACE
E_TRACE
WLL_RETURN
LL_CONT
LW_MESSG
LC_FILEID
GK_ESC
LC_SOURCE
GC_USERID
L_USRMSG
G_HIDSTR
A_SYUUSE
YUSERID
LL_CUST
A_ARCUST
G_SELCST
LC_PHONE
PHONE
RLC_COMPANYCOMPANY
LC_CONTACTCONTACT
A_SYUMES
FGC_APPLID
LC_MSG
TG_DSPST
RGN_MSGLINEGC_COMPID
LL_VEND
A_APVEND
G_SELVND
sycust
a_arcust->custno
a_apvend->vendno
LC_SOURCE
KEYBOARD &lc_key.
sycust
LC_SOURCE
Confirm Customer Number
Reenter
LC_SOURCE
Confirm Vendor Number
Reenter
LC_PRG
LC_TASK
WGN_TRACE
E_TRACE
LC_SALIAS
LS_PITS
LC_KEY
A_ARCUST
A_APVEND
LC_SOURCE
LW_BACKGNDG_PNTBG
NDLW_MESSG
DCUSTNO
G_GETDL
VENDNO
\From Cmcall
a_syuuse
GN_TRACE
E_TRACE
WLC_FILEID
LC_ISORDERLC_PHONED
LC_RETURN
LC_PCALL
LC_WCALL
LC_URGENT
LC_TAKER
GC_USERID
LD_CALLED
LC_CALLTIMLL_CALMES
LC_SOURCE
A_ARCUST
CUSTNO
LC_COMPID
GC_COMPID
LC_COMPANYCOMPANY
TLC_CONTACTCONTACT
FLC_PHONE
A_CMCALL
PHONE
TLC_INSTR
RLC_NOTE1
ENOTE1
LC_NOTE2
NOTE2
LL_CUST
TLL_VEND
LC_USERID
LL_REPLY
A_SYUMES
TAKER
LL_RESULT
G_HIDSTR
TA_SYUUSE
TLOCATN
YL_SAYMSG
Cust #
Vend #
User ID
LW_MESSG
LC_USERID
LC_FILEID
LC_SOURCE
LC_PHONE
GC_PHONPICLC_TAKER
LC_CONTACTLC_COMPANYLC_NOTE1
LC_NOTE2
LD_CALLED
G_FMTTM
IMLC_CALLTIMLC_INSTR
LC_PCALL
LC_RETURN
LC_WCALL
LC_URGENT
LC_ISORDERLC_PHONED
Message Center Report
smmesu
SYMESSGE
Preparing for
Entered Dates
(begin and end or blank for all)
[called >= {] + lx_val + [}]
[called <= {] + lx_val + [}]
Report Type
{Send/Receive/Both}
Send
@M Send ,Receive,Both
Include
{Current/Archive}
Current
@M Current ,Archive
Customer Number
(portion or blank for all)
Vendor Number
(portion or blank for all)
Include Only
{Read/Unread/Both}
Both
@M Read ,Unread,Both
Output destination for
Display
Print
Cancel
ll_cont = g_cncjob("")
syyumes
a_syyume//
userid1
readmes = "R" .AND.
readmes <> "R" .AND.
gc_userid = taker .AND.
gc_userid = userid .AND.
(gc_userid = userid .OR. gc_userid = taker) .AND.
(LEFT(la_valu1[4],LEN(RTRIM(la_valu1[4]))) =
LEFT(source,LEN(RTRIM(la_valu1[4])))) .OR.
(LEFT(la_valu1[5],LEN(RTRIM(la_valu1[5]))) =
LEFT(source,LEN(RTRIM(la_valu1[5])))) .AND.
LEFT(la_valu1[4],LEN(RTRIM(la_valu1[4]))) =
LEFT(source,LEN(RTRIM(la_valu1[4]))) .AND.
LEFT(la_valu1[5],LEN(RTRIM(la_valu1[5]))) =
LEFT(source,LEN(RTRIM(la_valu1[5]))) .AND.
Looking for Records
SET FILTER TO &lc_filt. &lc_cond. .NOT. DELETED()
GN_TRACE
E_TRACE
LL_CONT
LC_TITLE
LN_BOT
LC_COND
ICLL_PRNT
LC_FRMFILELC_XHLPID
LL_ARCH
LC_FILT
LC_FILTX
LW_REPT
IMLW_REPV
IMGC_HELPID
LC_HEAD1
ELC_HEAD2
LC_HEAD3
GC_IDRVPRGG_DSPST
GN_MSGLINEG_PNTBG
LA_TITLE
FLA_MESSG
LA_VALU1
LA_VALU2
TLA_PICT1
RLA_PICT2
ELA_CHCK1
LA_CHCK2
LA_EMSG1
LA_EMSG2
TLA_FILT1
LA_FILT2
GD_SDATE
GC_DATEPICLN_RESP
CG_GETGD
G_GETDL
TGC_IDRVTMPGC_TMPF5
TGC_EXTTXT
C_SELPR
G_OPNFL
GC_IDRVDBFG_RETGD
G_PRNRP
NEG_DSPRP
IMA_SYYUME
GC_TASK
FGC_APPLID
GC_COMPID
GC_USERID
A_SYUMES
Checking for Messages...
syumess
a_syumes//
userid1
** Comm Server
** Comm Server
Caller from F
You received a message at
left a message at
Today.
Check messages?
a_syumes
GN_TRACE
E_TRACE
LL_RETURN
G_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LN_OPNFLM
G_OPNFL
GC_IDRVDBFA_SYUMES
SOURCE
IMCONTACT
MFILEID
LC_MSG
EG_FMTTM
CALLTIM
CALLED
GGC_OSEOL
G_GETDL
EGC_TASK
User ID F
not found in user file.
Reenter
Select record or <Esc> to exit...
ENTER
KEYBOARD CHR(gk_ctlend) PLAIN
RIGHTMOUSE
KEYBOARD CHR(gk_ctlend) PLAIN
Phone
Location
Select User ID
ENTER
RIGHTMOUSE
LC_USERID
GN_TRACE
E_TRACE
LN_RESP
LL_RETURN
A_SYUUSE
G_GETDL
G_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LL_HOTKEY
GL_HOTKEY
ENTER
RIGHTMOUSELW_USRBROWSUSERID
G_HIDSTR
GUSERID
SNAME
ENAME
PHONE
LOCATN
LW_MSGBROWGK_ESC
LW_MESSG
A_SYUMES
EL_DEFMU
L_PRMPRG
L_ADDMSG
L_EDTMSG
L_GETMSG
L_HDRMSG
L_BRWMSG
L_REDMSG
L_DELMSG
L_UPDMSG
L_VARMSG
L_GTSMSG
L_MNTMSG
L_NULMSG
L_SAYMSG
L_PRNMSG
L_ALTMSG
L_USRMSG
C:\SMDISK\
C:\SMDISK\SYMEDT.PRG
SYMEDT.FXP