by lmheimendinger » Mon Dec 05, 2016 3:52 pm
***************************************************************
* NOTE - I DO NOT OWN, OR DEVELOPED, THIS CODE AND AM POSTING IT ONLY FOR THE PURPOSES OF GETTING ASSISTANCE. IT IS NOT TO BE
* COPIED OR REUSED.
* THANKS FOR UNDERSTANDING.
***************************************************************
* start of .prg file
***************************************************************
INCLUDE "SCO.CH"
FUNCTION Main(nFreeMegs)
// Because dates are used in the LOCAL and PUBLIC statements of the main procedure
// we need to be sure the epoch is correct from the beginning
SET EPOCH TO 1970
MainStart(nFreeMegs)
RETURN ( NIL )
* * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION MAINStart()
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* HERE IS THE PRIMARY FUNCTION FOR THIS SYSTEM. NOTE THAT IT IS NOTHING BUT AN
* EVENT HANDLING ENDLESS LOOP - WELCOME TO THE WINDOWS JUNGLE!!!!!!!!!!!!!!!!!
* * * * * * * * * * * * * * * * * * * * * * * * * * *
PARAMETERS FREEMEGS
LOCAL SAYLIST := {}
LOCAL NEVENT := 0
LOCAL HCURRWND := 0
LOCAL HIGH := 190
LOCAL WIDE := 550
LOCAL FREESPACE := DISKSPACE(0)
LOCAL FILENAME := "\SCO\DAT\BAK\" + STRTRAN(DTOC(DATE()),"/","-") + ".ZIP"
LOCAL HSCOICON := 0
PUBLIC HMAINWND // MAIN WINDOW
PUBLIC HIDDEN := .F. // MAIN WINDOW VISIBILITY STATE
PUBLIC HINST := _GETINSTANCE()
PUBLIC AMENU // MAIN MENU
PUBLIC NILMENU // EMPTY MENU TO GIVE MAIN WINDOW WHEN IT IS DISABLED
PUBLIC HWAIT // HOUR GLASS CURSOR HANDLE
PUBLIC HAROW // ARROW CURSOR HANDLE
PUBLIC DRAWBLOCK := ""
PUBLIC DELBLOCK := ""
PUBLIC DRAWRECORD // RECORD TO VIEW AND REPAINT SCREEN IF POINTER MOVED
PUBLIC EDITRECORD // RECORD TO EDIT
PUBLIC USERID := " "
PUBLIC GCOLOR := "N/BG,W+/RB"
PUBLIC SCOLOR := "N/W"
PUBLIC DISTSHARES := 0
PUBLIC LONETIME := .T.
PUBLIC ASKDISTRIB := .T.
PUBLIC SVGA := .T.
PUBLIC VGA := .F.
PUBLIC NODELETE := .F.
PUBLIC NOEDIT := .F.
PUBLIC NOADD := .F.
PUBLIC NOCOPY := .F.
PUBLIC XSCREEN := GETSYSTEMMETRICS(SM_CXSCREEN)
PUBLIC YSCREEN := GETSYSTEMMETRICS(SM_CYSCREEN)
PUBLIC NVPOS
PUBLIC NHPOS
PUBLIC SCREENWORK := 0 // 1 TO 4 FOR BALL1 TO 4
PUBLIC DIRNOW := "" // BLANK IF \SCO\DAT ELSE EOM- OR EOY- IF IN EOM OR EOY
PUBLIC DIRSTRING := "" // BLANK IF \SCO\DAT ELSE EOM\ OR EOY\ IF IN EOM OR EOY
PUBLIC HBALL1 // BALL CURSORS
PUBLIC HBALL2 // BALL CURSORS
PUBLIC HBALL3 // BALL CURSORS
PUBLIC HBALL4 // BALL CURSORS
PUBLIC DWDATESTR := DTOC(DATE())
PUBLIC DEBUGNO := 0
PUBLIC TRADEW := XSCREEN
PUBLIC TRADEH := YSCREEN - BUTTON_HEIGHT
PUBLIC TRADEX := 0
PUBLIC TRADEY := 0
PUBLIC CUT800 := 230
PUBLIC CUT1024 := 230
PUBLIC HFONT := GETSTOCKOBJECT(OEM_FIXED_FONT)
PUBLIC PRINTPORT := "1"
PUBLIC ABUTTONS := {}
PUBLIC TOTBUTTON := 0
PUBLIC BUTTNBLOCK
PUBLIC TEMPTOTCOMM
PUBLIC TEMPTOTNET
PUBLIC CALCMAN
PUBLIC CALCMANFILTER
PUBLIC REALGANFILE
PUBLIC REALGANHANDLE
PUBLIC XACTIONHANDLE
IF XSCREEN = 1024
CHRWIDE = 10
CHRHITE = 20
SVGA = .F.
TRADEH = 500
TRADEY = 175
TRADEW = 600
TRADEX = 75
ELSE
CHRWIDE = 8
CHRHITE = 14
END
IF XSCREEN = 640
VGA = .T.
END
IF SVGA .AND. !VGA
TRADEH = 355
TRADEY = 100
TRADEW = 550
TRADEX = 50
END
#IFDEF USENTX
PUBLIC USEMDXES := .F.
PUBLIC BAGEXT := ".NTX"
#ENDIF
#IFDEF USEMDX
PUBLIC USEMDXES := .T.
PUBLIC BAGEXT := ".MDX"
ANNOUNCE RDDSYS
RDDINIT()
#ENDIF
SET SCOREBOARD OFF // DON'T EVEN THINK ABOUT USING IT IN WINDOWS!!
SET EXACT ON // ALLOW SINGLE EQUAL SIGN TO EQUAL DOUBLE EQUAL SIGN
SET ESCAPE ON // ALLOW GETS TO BE EXITED WITH ESCAPE
SET DELETED ON // GOTTA HAVE DELETED ON
SET CONFIRM ON // DO NOT LET OPERATOR LEAVE A FIELD TILL THEY HIT ENTER
SET SOFTSEEK ON // ALL SEEKS CAN BE SOFT
// SET EPOCH TO 1970 // Make 1970 JHJ
HBALL1 = LoadCursor(hInst,"BALL1"+CHR(0))
HBALL2 = LoadCursor(hInst,"BALL2"+CHR(0))
HBALL3 = LoadCursor(hInst,"BALL3"+CHR(0))
HBALL4 = LoadCursor(hInst,"BALL4"+CHR(0))
HWAIT = LOADCURSOR(HINST,IDC_WAIT)
HAROW = LOADCURSOR(HINST,IDC_ARROW)
SETCURSOR(HWAIT)
HSCOICON = "IDSCO" + CHR(0) // TELL EM RESOURSE ICON HANDLE NAME W/ NULL CHAR
HMAINWND := WINSETUP(APP_NAME,"SCO VERSION 4.2",0,0,WIDE,HIGH,HSCOICON,,,PARENTSTYL)
AMENU := MENUSETUP() // ATTATCH MAIN MENU TO MAIN WINDOW
NMAINEVID := ADDHANDLER(HMAINWND, {|NEVENT| MAINEVENT(NEVENT)}) // ADD HANDLER BLOCK
SETCARET(SC_FULL_BLOCK)
HIDECARET(HMAINWND)
SETHANDLECOUNT(125) // SET HANDLES
IF !OPENFILES(1)
SETCURSOR(HAROW)
SAYERR("COULD NOT REOPEN FILES SHARED!")
QUIT
END
C4W_AUTOCLOSE(.F.)
IF !LOGIN()
SETCURSOR(HAROW)
QUIT
END
IF LEN(T_BUY) < 4
SAYMSG("REDEFINE TRAN CODES TO 4 CHARS!")
END
* BAIL IF LESS THAN 10 MEGS DISKSPACE
IF EMPTY(FREEMEGS)
FREEMEGS = 10
ELSE
FREEMEGS = VAL(FREEMEGS)
END
IF FREESPACE < (FREEMEGS * 102400)
SETCURSOR(HAROW)
SAYERR("DISK FREE SPACE IS " + NSTR(FREESPACE) + " BYTES SO SCO WILL NOW TERMINATE!")
QUIT
END
* WARN IF LESS THAN 50 MEGS DISKSPACE
IF FREESPACE < 50000000
SETCURSOR(HAROW)
SAYERR("CAUTION - DISK FREE SPACE IS " + NSTR(FREESPACE) + " BYTES!" + CR2 +;
"PLEASE TELL NETWORK ADMINISTRATOR OF THIS!")
END
IF FILE("f:\SCO_LPT.DAT")
HANDLE = FOPEN("f:\SCO_LPT.DAT",FO_READWRITE)
FREAD(HANDLE,@PRINTPORT,1)
FCLOSE(HANDLE)
END
SETCURSOR(HAROW)
CHKSYSTIMR()
SETCURSOR(HWAIT)
IF !FILE(FILENAME)
SETCURSOR(HAROW)
* IF YNCONFIRM("A BACKUP OF THE SCO SYSTEM HAS NOT BEEN PERFORMED YET TODAY!" + CR2 +;
* "BACKUP NOW?")
* BACKUPSCO()
* END
SETCURSOR(HWAIT)
END
SELECT STOCKS
NEWORDER(0)
GO TOP
WHILE .T.
IF STYPE = "S" .AND. SACTIVE = "Y"
DO CASE
CASE DOW(DATE() - 1) = 1
SETCURSOR(HAROW)
IF SDATE < (DATE() - 3)
SAYMSG("THE BLOOMBERG DOWNLOAD WAS NOT DONE FRIDAY!" + CR2 +;
"PLEASE RUN THE SCO BLOOMBERG DOWNLOAD FOR FRIDAY BEFORE " +;
"UPDATING THE QUOTES FILE FROM BLOOMBERG TODAY!")
END
SETCURSOR(HWAIT)
CASE SDATE < (DATE() - 1)
SETCURSOR(HAROW)
SAYMSG("THE BLOOMBERG DOWNLOAD WAS NOT DONE YESTERDAY!" + CR2 +;
"PLEASE RUN THE SCO BLOOMBERG DOWNLOAD FOR YESTERDAY BEFORE " +;
"UPDATING THE QUOTES FILE FROM BLOOMBERG TODAY!")
SETCURSOR(HWAIT)
CASE SDATE != DATE() .AND. ( VAL(SUBS(TIME(),1,2)) > 14 )
SETCURSOR(HAROW)
SAYMSG("THE MARKET HAS CLOSED FOR THE DAY!" + CR2 +;
"PLEASE RUN THE BLOOMBERG SYMBOL EXPORT AND DOWNLOAD NOW!")
SETCURSOR(HWAIT)
END
EXIT
END
SKIP
IF EOF()
EXIT
END
END
NEWORDER(1)
DISTVARS(0,"NTRADE")
SETCURSOR(HAROW)
WHILE .T.
WHILE .T.
NEVENT = CHKEVENT()
IF NEVENT != EVENT_NONE
EXIT
END
END
HANDLEEVENT(NEVENT)
END
RETURN NIL
#IFDEF USEMDX
** * * * * * * * * * * * * * * * * * * * * * * * * * *
PROCEDURE RDDINIT()
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* SET NTX OR MDX INDEX DEFAULT
* * * * * * * * * * * * * * * * * * * * * * * * * * *
IF USEMDXES
REQUEST DBFMDX
RDDSETDEFAULT("DBFMDX")
END
RETURN NIL
#ENDIF
* * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION MAINEVENT(NEVENT)
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* THIS IS THE MAIN EVENT PROCESSING FUNCTION AND PREVAILS WHEN EVER NO OTHER
* FUNCTION HAS ITS EVENT HANDLING UDF ON THE TOP OF THE EVENT HANDLER STACK
* WHICH IS LOADED BY ADDHANDLER() AND UNLOADED AUTOMATICALLY WHENEVER A CALL
* TO DESTROYWINDOW() IS MADE (ACTUALLY WHENEVER THE EVENT_DESTROY IS SENT TO A
* WINDOW THEN THE EVENT HANDLER STACK IS CLEARED OF THAT WINDOWS EVENT HANDLER
* BLOCK WHICH CONTAINS THAT WINDOWS EVENT HANDLER UDF)
* * * * * * * * * * * * * * * * * * * * * * * * * * *
LOCAL OLDCOLOR
LOCAL NKEY
DO CASE
CASE NEVENT = EVENT_KEY
NKEY = INKEY()
IF NKEY = K_ESC .OR. NKEY = K_ALT_F4
// ABANDONED
IF SELECTWINDOW() = HMAINWND
DOEXIT()
END
END
CASE NEVENT = EVENT_DESTROY
IF SELECTWINDOW() = HMAINWND
DOEXIT()
END
CASE NEVENT = EVENT_CLOSE .AND. LASTKEY() != K_ALT_F4
IF SELECTWINDOW() = HMAINWND
DOEXIT()
END
CASE NEVENT = EVENT_QUIT
QUIT
CASE NEVENT = EVENT_RCLICK
* SEE IF MAIN WNDOW IS RIGHT CLICKED AND TOP WINDOW
IF SELECTWINDOW() = HMAINWND .AND. GETFOCUS() = HMAINWND
DOEXIT()
END
END
RETURN NIL
* * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION MENUSETUP()
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* THIS ENACTS THE MENU ATTATCHED TO THE MAIN WINDOW
* * * * * * * * * * * * * * * * * * * * * * * * * * *
LOCAL AMENU
LOCAL HPOPUPMEN1
LOCAL HPOPUPMEN2
LOCAL HPOPUPMEN3
* LOAD NILMENU[]
NILMENU = CREATEMENU()
IF (AMENU := GETMENU(HMAINWND)) != NIL
DESTROYMENU(AMENU)
END
* NOTE THAT AMPERSAND INDICATES THE TRIGGER LETTER
AMENU := CREATEMENU()
******************************** FILE **************************************
HPOPUPMEN1 := CREATEPOPUPMENU()
APPENDMENU(AMENU ,"FILE" , MF_ENABLED + MF_POPUP , "&FILE" , HPOPUPMEN1)
* CHANGE FILE AREA *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"CHANGFIL" , MF_ENABLED + MF_POPUP , "&CHANGE FILE AREA" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"EOMFILES" , MF_ENABLED + MF_STRING, "&MONTH END FILE SWITCH" , {|| FILEAREA("M")})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"EOYFILES" , MF_ENABLED + MF_STRING, "&YEAR END FILE SWITCH" , {|| FILEAREA("Y")})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
* DAILY *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"DAILY" , MF_ENABLED + MF_POPUP , "&DAILY" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"XPORTSYMB" , MF_ENABLED + MF_STRING, "&1 EXPORT BLOOMBERG SYMBOLS" , {|| XPORTSYMBL()})
**APPENDMENU(HPOPUPMEN2,"RUNSCODLOD", MF_ENABLED + MF_STRING, "&2 DOWNLOAD BLOOMBERG QUOTES" , {|| DOWNLOAD()})
APPENDMENU(HPOPUPMEN2,"IMPORTQOT" , MF_ENABLED + MF_STRING, "&2 IMPORT BLOOMBERG QUOTES" , {|| IMPORTQUOT()})
* MONTH END *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"MONTHEND" , MF_ENABLED + MF_POPUP , "&MONTH END" , HPOPUPMEN2)
* INVOICES *
HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"INVOICES" , MF_ENABLED + MF_POPUP , "&INVOICES" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"GENMANFEE" , MF_ENABLED + MF_STRING, "&GENERATE LINE ITEMS" , {|| GENMANFEE()})
**APPENDMENU(HPOPUPMEN3,"GENMONINV" , MF_ENABLED + MF_STRING, "&ADD ITEMS TO INVOICES" , {|| GENMONINV()})
**APPENDMENU(HPOPUPMEN3,"PRNMONINV" , MF_ENABLED + MF_STRING, "&PRINT INVOICES" , {|| PRNMONINV()})
**APPENDMENU(HPOPUPMEN3, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN3,"UPDTMONIN" , MF_ENABLED + MF_STRING, "&UPDATED INVOICE VIEWER" , {|| UPDTMONINV()})
* END INVOICES
**APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"EOMFILES" , MF_ENABLED + MF_STRING, "&MONTH END FILE CREATION" , {|| DOEOM()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"SETEOMQUOT", MF_ENABLED + MF_STRING, "&RESET END OF MONTH QUOTE" , {|| SETEOMQUOT()})
* ZERO *
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"ZERO" , MF_ENABLED + MF_POPUP , "&ZERO OUT EOM" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"TOTALBCOMM", MF_ENABLED + MF_STRING, "&BROKER COMMISSION ZERO" , {|| TOTALBCOMM()})
APPENDMENU(HPOPUPMEN3,"ZERODEPWD" , MF_ENABLED + MF_STRING, "&DEPOSIT/WITHDRAW ZERO" , {|| ZERODEPWD()})
APPENDMENU(HPOPUPMEN3,"ZEROTAXLOT", MF_ENABLED + MF_STRING, "&FISCAL TAX LOTS ZERO" , {|| ZEROTAXLOT()})
* END ZERO *
APPENDMENU(HPOPUPMEN2,"PIUPDATE" , MF_ENABLED + MF_STRING, "&PI UPDATE" , {|| UPDATEUPI()})
APPENDMENU(HPOPUPMEN2,"UPIPURGE" , MF_ENABLED + MF_STRING, "&CLEAN CLOSEOUTS IN UPI" , {|| PURGEUPI()})
* YEAR END *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"YEAREND" , MF_ENABLED + MF_POPUP , "&YEAR END" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"EOY" , MF_ENABLED + MF_STRING, "&YEAR END FILE CREATION" , {|| DOEOY()})
APPENDMENU(HPOPUPMEN2,"SNPSETEOY" , MF_ENABLED + MF_STRING, "&S+P YEAR END SETTING" , {|| SETEOYSNP()})
APPENDMENU(HPOPUPMEN2,"DOWSETEOY" , MF_ENABLED + MF_STRING, "&DOW YEAR END SETTING" , {|| SETEOYDOW()})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
* UTILITY *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"UTILITY" , MF_ENABLED + MF_POPUP , "&UTILITIES" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"NUPRNPORT" , MF_ENABLED + MF_STRING, "&CHANGE PRINTER LPT NUMBER", {|| NUPRINPORT()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"PACKALL" , MF_ENABLED + MF_STRING, "&PACK FILES" , {|| PACKALL()})
APPENDMENU(HPOPUPMEN2,"RENDX" , MF_ENABLED + MF_STRING, "&REINDEX" , {|| RENDX()})
**APPENDMENU(HPOPUPMEN2,"DUMPDEF" , MF_ENABLED + MF_STRING, "DATA DEF D&UMP" , {|| DUMPDEFS()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"CHNGPSWD" , MF_ENABLED + MF_STRING, "PASS &WORD CHANGE" , {|| CHNGPSWD()})
APPENDMENU(HPOPUPMEN2,"VIEWPSWD" , MF_ENABLED + MF_STRING, "&VIEW PASSWORD" , {|| VIEWPSWD()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN2,"BACKUPSCO" , MF_ENABLED + MF_STRING, "&BACKUP SCO SYSTEM" , {|| BACKUPSCO()})
**APPENDMENU(HPOPUPMEN2,"RESTORSCO" , MF_ENABLED + MF_STRING, "R&ESTORE SCO SYSTEM" , {|| RESTORESCO()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"MOVEFOLIOI", MF_ENABLED + MF_STRING, "&MOVE FOLIO W/O BUY/SEL" , {|| MOVEFOLIO()})
APPENDMENU(HPOPUPMEN2,"ADDFOLIOI" , MF_ENABLED + MF_STRING, "&ADD FOLIO W/O BUY" , {|| ADDFOLIO()})
APPENDMENU(HPOPUPMEN2,"DELFOLIOI" , MF_ENABLED + MF_STRING, "&DELETE FOLIO W/O SELL" , {|| DELFOLIO()})
APPENDMENU(HPOPUPMEN2,"STOCKSPLIT", MF_ENABLED + MF_STRING, "&STOCK SPLIT" , {|| STOCKSPLIT()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"CHNGSYMB" , MF_ENABLED + MF_STRING, "S&YMBOL CHANGE" , {|| CHNGSECSYM()})
APPENDMENU(HPOPUPMEN2,"CHNGCLID" , MF_ENABLED + MF_STRING, "C&LIENT ID CHANGE" , {|| CHANGECLID()})
APPENDMENU(HPOPUPMEN2,"DELCLID" , MF_ENABLED + MF_STRING, "DE&LETE CLIENTS" , {|| DELCLID()})
APPENDMENU(HPOPUPMEN2,"REBALANCE" , MF_ENABLED + MF_STRING, "REBA&LANCE 1 CLIENT" , {|| REBALANCE()})
APPENDMENU(HPOPUPMEN2,"REBALALL" , MF_ENABLED + MF_STRING, "REBA&LANCE ALL CLIENTS" , {|| REBALALL()})
**APPENDMENU(HPOPUPMEN2,"UPIFIX" , MF_ENABLED + MF_STRING, "&UPI FIX" , {|| UPIFIX()})
* END OF UTILITY *
**APPENDMENU(HPOPUPMEN1,"DOS" , MF_ENABLED + MF_STRING, "&OS" , {|| WINEXEC("\SCO\EXE\OS.PIF")})
APPENDMENU(HPOPUPMEN1,"ABOUT" , MF_ENABLED + MF_STRING, "&ABOUT" , {|| CREDITS()})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN1,"EXIT" , MF_ENABLED + MF_STRING, "E&XIT" , {|| DOEXIT() })
******************************** DATA **************************************
HPOPUPMEN1 := CREATEPOPUPMENU()
APPENDMENU(AMENU ,"DATA" , MF_ENABLED + MF_POPUP , "&DATA" , HPOPUPMEN1)
APPENDMENU(HPOPUPMEN1,"CLIENT" , MF_ENABLED + MF_STRING, "&CLIENT" , {|| DOCLIENT()})
APPENDMENU(HPOPUPMEN1,"STOCK" , MF_ENABLED + MF_STRING, "&SECURITY" , {|| DOSTOCK()})
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"PORTFOLIO" , MF_ENABLED + MF_POPUP , "&PORTFOLIO" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"PORTFOLIO" , MF_ENABLED + MF_STRING, "&VIEW" , {|| DOFOLIO()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"REPLACE PURCHASE DATE" , MF_ENABLED + MF_STRING, "&REPLACE PURCHASE DATE" , {|| DOREPFOLIO("FOLIO" , {||SETOFILTER()}, {||NOFILTER()}, .T., "FOLIO")})
APPENDMENU(HPOPUPMEN1,"GENLEDGE" , MF_ENABLED + MF_STRING, "&GENERAL LEDGER" , {|| DOGENLEDGE()})
**APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN1,"TAXLOT" , MF_ENABLED + MF_STRING, "&TAX LOTS" , {|| DOTAXLOT()})
**APPENDMENU(HPOPUPMEN1,"DODEFINCOM", MF_ENABLED + MF_STRING, "&DEFERRED INCOME" , {|| DODEFINCOM()})
**APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN1,"INVLINES" , MF_ENABLED + MF_STRING, "&LINE ITEMS" , {|| DOINVLINE()})
**APPENDMENU(HPOPUPMEN1,"MONINVOC" , MF_ENABLED + MF_STRING, "&INVOICES" , {|| DOMONINV()})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN1,"BROKER" , MF_ENABLED + MF_STRING, "&BROKER" , {|| DOBROKER()})
**APPENDMENU(HPOPUPMEN1,"PROSPECT" , MF_ENABLED + MF_STRING, "&PROSPECT" , {|| DOPROSPECT()})
* BROWSE *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"OTHERS" , MF_ENABLED + MF_POPUP , "&OTHERS" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"ARCFOLIO" , MF_ENABLED + MF_STRING, "&FOLIO ARCHIVES" , {|| DOARCFOLIO()})
APPENDMENU(HPOPUPMEN2,"ARCTN" , MF_ENABLED + MF_STRING, "&NORMAL TRADE ARCHIVES" , {|| DOARCNTRAD()})
APPENDMENU(HPOPUPMEN2,"ARCTS" , MF_ENABLED + MF_STRING, "&SHORT TRADE ARCHIVES" , {|| DOARCSTRAD()})
**APPENDMENU(HPOPUPMEN2,"ARCTF" , MF_ENABLED + MF_STRING, "F&UTURES TRADE ARCHIVES" , {|| DOARCFTRAD()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"PI" , MF_ENABLED + MF_STRING, "&PI SUMMARY FILE" , {|| DOUPI()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"INDUSTRY" , MF_ENABLED + MF_STRING, "&INDUSTRY FILE" , {|| DOINDFILE()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"VALUES" , MF_ENABLED + MF_STRING, "&VALUES" , {|| DOVALUES()})
APPENDMENU(HPOPUPMEN2,"SYSFILE" , MF_ENABLED + MF_STRING, "S&YSTEM FILE" , {|| DOSYSFILE()})
******************************** TRADING ***********************************
HPOPUPMEN1 := CREATEPOPUPMENU()
APPENDMENU(AMENU ,"TRADING" , MF_ENABLED + MF_POPUP , "&TRADING" , HPOPUPMEN1)
* NORMAL TRADES *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"NTRADES" , MF_ENABLED + MF_POPUP , "&NORMAL" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"OTRADES" , MF_ENABLED + MF_STRING, "&OPEN TRADES" , {|| DOTRADE( "OPEN TRADES" , {||SETOFILTER()}, {||NOFILTER()}, .T., "NTRADE" )})
APPENDMENU(HPOPUPMEN2,"ETRADES" , MF_ENABLED + MF_STRING, "&EXECUTED TRADES" , {|| DOTRADE( "EXECUTED TRADES", {||SETEFILTER()}, {||NOFILTER()}, .T., "NTRADE" )})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"BUY" , MF_ENABLED + MF_STRING, "&BUY DISTRIBUTION" , {|| DOBUY1()})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"SELL" , MF_ENABLED + MF_POPUP, "&SELL DISTRIBUTION" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"SELECT LOTS" , MF_ENABLED + MF_STRING, "&SELECT LOTS" , {|| DOMANFOLIO("FOLIO" , {||SETOFILTER()}, {||NOFILTER()}, .T., "FOLIO")})
APPENDMENU(HPOPUPMEN3,"MANUALSELL" , MF_ENABLED + MF_STRING, "&MANUAL" , {|| DOMANSELL1()})
APPENDMENU(HPOPUPMEN3,"AUTOSELL" , MF_ENABLED + MF_STRING, "&AUTOMATIC" , {|| DOSELL1()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"RBUY" , MF_ENABLED + MF_STRING, "&REVERSE BUY DISTRIB" , {|| DOREVBUY1()})
APPENDMENU(HPOPUPMEN2,"RSELL" , MF_ENABLED + MF_STRING, "RE&VERSE SELL DISTRIB" , {|| DOREVSELL1()})
* SHORT TRADES *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"STRADES" , MF_ENABLED + MF_POPUP , "&SHORTS" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"OSTRADES" , MF_ENABLED + MF_STRING, "&OPEN SHORT TRADES" , {|| DOTRADE( "OPEN SHORT TRADES" , {||SETOFILTER()}, {||NOFILTER()}, .T., "STRADE" )})
APPENDMENU(HPOPUPMEN2,"ESTRADES" , MF_ENABLED + MF_STRING, "&EXECUTED SHORT TRADES" , {|| DOTRADE( "EXECUTED SHORT TRADES", {||SETEFILTER()}, {||NOFILTER()}, .T., "STRADE" )})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"SELLSHORT" , MF_ENABLED + MF_STRING, "&SELL SHORT DISTRIBUTION" , {|| DOSELLSHO1()})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"BUYCOVER" , MF_ENABLED + MF_POPUP, "&BUY COVER DISTRIBUTION" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"SELECTBUYLOTS" , MF_ENABLED + MF_STRING, "&SELECT LOTS" , {|| DOBUYFOLIO("FOLIO" , {||SETOFILTER()}, {||NOFILTER()}, .T., "FOLIO")})
APPENDMENU(HPOPUPMEN3,"MANUALBUY" , MF_ENABLED + MF_STRING, "&MANUAL" , {|| DOBUYMANCOV1()})
APPENDMENU(HPOPUPMEN3,"AUTOBUY" , MF_ENABLED + MF_STRING, "&AUTOMATIC" , {||DOBUYCOV1()})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN2,"RSELSHORT" , MF_ENABLED + MF_STRING, "&REVERSE SHORT SALE DIST" , {|| REVSELSHO1()})
APPENDMENU(HPOPUPMEN2,"RBUYCOVER" , MF_ENABLED + MF_STRING, "RE&VERSE BUY COVER DIST" , {|| REVBUYCOV1()})
* FUTURES TRADES *
**HPOPUPMEN2 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN1,"FTRADES" , MF_ENABLED + MF_POPUP , "&FUTURES" , HPOPUPMEN2)
**APPENDMENU(HPOPUPMEN2,"OFTRADES" , MF_ENABLED + MF_STRING, "&OPEN FUTURES TRADES" , {|| DOTRADE( "OPEN FUTURES TRADES" , {||SETOFILTER()}, {||NOFILTER()}, .T., "FTRADE" )})
**APPENDMENU(HPOPUPMEN2,"EFTRADES" , MF_ENABLED + MF_STRING, "&EXECUTED FUTURES TRADES" , {|| DOTRADE( "EXECUTED FUTURES TRADES", {||SETEFILTER()}, {||NOFILTER()}, .T., "FTRADE" )})
**APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN2,"BUYFUTURE" , MF_ENABLED + MF_STRING, "&BUY FUTURES DISTRIB" , {|| DOBUYFUTU1()})
**APPENDMENU(HPOPUPMEN2,"SELFUTURE" , MF_ENABLED + MF_STRING, "&SELL FUTURES DISTRIB" , {|| DOSELFUTU1()})
**APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN2,"RBUYFUTUR" , MF_ENABLED + MF_STRING, "&REVERSE BUY FUTURES DIST" , {|| REVBUYFUT1()})
**APPENDMENU(HPOPUPMEN2,"RSELFUTUR" , MF_ENABLED + MF_STRING, "RE&VERSE SELL FUTURES DIST", {|| REVSELFUT1()})
******************************** TRANSACTIONS ******************************
HPOPUPMEN1 := CREATEPOPUPMENU()
APPENDMENU(AMENU ,"XACTION" , MF_ENABLED + MF_POPUP , "&XACTION" , HPOPUPMEN1)
APPENDMENU(HPOPUPMEN1,"CUSTEXP" , MF_ENABLED + MF_STRING, "&EXPENSE" , {|| EXPENSE()})
APPENDMENU(HPOPUPMEN1,"INCOME" , MF_ENABLED + MF_STRING, "&INCOME" , {|| INCOME()})
**APPENDMENU(HPOPUPMEN1,"CAPGAN" , MF_ENABLED + MF_STRING, "&CAPITAL GAIN" , {|| CAPGAN()})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
APPENDMENU(HPOPUPMEN1,"DEPOSIT" , MF_ENABLED + MF_STRING, "&DEPOSIT CASH" , {|| DODEPOSIT()})
APPENDMENU(HPOPUPMEN1,"WITHDRAW" , MF_ENABLED + MF_STRING, "&WITHDRAW CASH" , {|| DOWITHDRAW()})
**APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
**APPENDMENU(HPOPUPMEN1,"DEFINCOM" , MF_ENABLED + MF_STRING, "DEFERRED I&NCOME" , {|| DEFINCOME()})
**APPENDMENU(HPOPUPMEN1,"FEEREF" , MF_ENABLED + MF_STRING, "&FEE REFUND" , {|| FEEREFUND()})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
* REVERSALS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"REVERSALS" , MF_ENABLED + MF_POPUP , "&REVERSAL" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"RCUSTEXP" , MF_ENABLED + MF_STRING, "&EXPENSE REVERSAL" , {|| REVEXPENSE()})
APPENDMENU(HPOPUPMEN2,"RINCOME" , MF_ENABLED + MF_STRING, "&INCOME REVERSAL" , {|| REVINCOME()})
APPENDMENU(HPOPUPMEN2,"RCAPGAN" , MF_ENABLED + MF_STRING, "&CAPITAL GAIN REVERSAL" , {|| REVCAPGAN()})
******************************** REPORTS ***********************************
HPOPUPMEN1 := CREATEPOPUPMENU()
APPENDMENU(AMENU ,"REPORTS" , MF_ENABLED + MF_POPUP , "&REPORTS" , HPOPUPMEN1)
* TRADING REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"TREPORTS" , MF_ENABLED + MF_POPUP , "&TRADING" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"TREPALL" , MF_ENABLED + MF_POPUP , "&MULTI-GEN TRADES" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"TREPALLV" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| OXORDERS(1,1,1)})
APPENDMENU(HPOPUPMEN3,"TREPALLP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("OPENTRAD","OPEN TRADES",.F.,66,,,,10)},{|| PRINTREP("EXECTRAD","EXEC TRADES",.F.,66,,,,10)},{|| PRINTREP("QUOTLIST","QUOTE LIST",.F.,66,,,,10)})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"TREPOPEN" , MF_ENABLED + MF_POPUP , "&OPEN TRADES" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"TREPOPENR" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("OPENTRAD","OPEN TRADES",.F.)})
APPENDMENU(HPOPUPMEN3,"TREPOPENV" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| OXORDERS(1,0,0)})
APPENDMENU(HPOPUPMEN3,"TREPOPENP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("OPENTRAD","OPEN TRADES",.F.,66,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"TREPEXEC" , MF_ENABLED + MF_POPUP , "&EXECUTED TRADES" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"TREPEXECV" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("EXECTRAD","EXECUTED TRADES",.F.)})
APPENDMENU(HPOPUPMEN3,"TREPEXECR" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| OXORDERS(0,1,0)})
APPENDMENU(HPOPUPMEN3,"TREPEXECP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("EXECTRAD","EXECUTED TRADES",.F.,66,,,,10)})
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"TREPQUOT" , MF_ENABLED + MF_POPUP , ""E LIST" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"TREPQUOTV" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("QUOTLIST","QUOTE LIST",.F.)})
**APPENDMENU(HPOPUPMEN3,"TREPQUOTR" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| OXORDERS(0,0,1)})
**APPENDMENU(HPOPUPMEN3,"TREPQUOTP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("QUOTLIST","QUOTE LIST",.F.,66,,,,10)})
**APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"TREPCDFS" , MF_ENABLED + MF_POPUP , "&CDF'S" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"TREPCDFSV" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWCDFS()})
**APPENDMENU(HPOPUPMEN3,"TREPCDFSP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTCDFS()})
* FOLIO REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"FOLIO" , MF_ENABLED + MF_POPUP , "&PORTFOLIO" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"PORTFOLI" , MF_ENABLED + MF_POPUP , "&PORTFOLIO" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VPORTFOLI", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RFO","FOLIO",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN3,"GPORTFOLI", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| FOLIO()})
APPENDMENU(HPOPUPMEN3,"PPORTFOLI", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RFO","FOLIO",.T.,88,"CLIENT","CLMASTER","CCLID",16,.T.)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"CLQPR" , MF_ENABLED + MF_POPUP , "&CLIENT QPR" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VCLQPR" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RQP","CLIENT QPR",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN3,"GCLQPR" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| CLIENTQPR()})
APPENDMENU(HPOPUPMEN3,"PCLQPR" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RQP","CLIENT QPR",.T.,88,"CLIENT","CLMASTER","CCLID",10,.T.)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"POSCOST" , MF_ENABLED + MF_POPUP , "&POSITION COST COMPONENTS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VPOSCOST" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RPC","POSITION COST",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN3,"GPOSCOST" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| POSCOSTREP()})
APPENDMENU(HPOPUPMEN3,"PPOSCOST" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RPC","POSITION COST",.T.,88,"CLIENT","CLMASTER","CCLID",10,.T.)})
HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"VALQPR" , MF_ENABLED + MF_POPUP , "&VAL/QPR" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VVALQPR" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("VALQPR","VAL/QPR",.F.)})
APPENDMENU(HPOPUPMEN3,"GVALQPR" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| VALQPRREP()})
APPENDMENU(HPOPUPMEN3,"PVALQPR" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("VALQPR","VAL/QPR",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"STOKLIS" , MF_ENABLED + MF_POPUP , "&STOCK LIST" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VSTOKLIS" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("STOKLIST","STOCK LIST",.F.)})
APPENDMENU(HPOPUPMEN3,"GSTOKLIS" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| STOKLISREP()})
APPENDMENU(HPOPUPMEN3,"PSTOKLIS" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("STOKLIST","STOCK LIST",.F.,88,,,,10)})
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"FEEPROJ" , MF_ENABLED + MF_POPUP , "F&EE PROJECTION" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"VFEEPROJ" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("FEEPROJE","FEE PROJECTION",.F.)})
**APPENDMENU(HPOPUPMEN3,"GFEEPROJ" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| FEEPROJREP()})
**APPENDMENU(HPOPUPMEN3,"PFEEPROJ" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("FEEPROJE","FEE PROJECTION",.F.,66,,,,10)})
* SECURITIES REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"SECREPS" , MF_ENABLED + MF_POPUP , "&SECURITIES" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"STOKPOS" , MF_ENABLED + MF_POPUP , "&POSITIONS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VSTKPOS" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RPO","STOCK POSITIONS",.T.,"STOCK","STOCKS")})
APPENDMENU(HPOPUPMEN3,"GSTKPOS" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| STOCKPOS()})
APPENDMENU(HPOPUPMEN3,"PSTKPOS" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RPO","STOCK POSITIONS",.T.,88,"STOCK","STOCKS","SSYMBOL",10,,3)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"OMNIBUS" , MF_ENABLED + MF_POPUP , "&OMNIBUS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VOBUS" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("OMNIBUS","OMNIBUS",.F.)})
APPENDMENU(HPOPUPMEN3,"GOBUS" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| OMNIBUS()})
APPENDMENU(HPOPUPMEN3,"POBUS" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("OMNIBUS","OMNIBUS",.F.,88,,,,16)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"LONG" , MF_ENABLED + MF_POPUP , "&SECURITIES GOING LONG TERM" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VLONG" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWPRC("LTGOING.REP")})
APPENDMENU(HPOPUPMEN3,"GLONG" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| GOINGLONG()})
APPENDMENU(HPOPUPMEN3,"PLONG" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("LTGOING","SECURITIES GOING LONG",.F.,88,,,,10)})
* TRANSACTION REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"XACTION" , MF_ENABLED + MF_POPUP , "&XACTION" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"XACTIONREP" , MF_ENABLED + MF_POPUP , "&CLIENT XACTIONS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VXACTIONREP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RXA","CLIENT XACTIONS",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN3,"GXACTIONREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| XACTIONREP()})
APPENDMENU(HPOPUPMEN3,"PXACTIONREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RXA","CLIENT XACTIONS",.T.,88,"CLIENT","CLMASTER","CCLID",12)})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"DEPREP" , MF_ENABLED + MF_POPUP , "&DEPOSITS" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"VDEPREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("DEPOSIT","DEPOSITS",.F.)})
**APPENDMENU(HPOPUPMEN3,"PDEPREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("DEPOSIT","DEPOSITS",.F.,88,,,,16)})
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"WDREP" , MF_ENABLED + MF_POPUP , "&WITHDRAWALS" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"VWDREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("WITHDRAW","WITHDRAWALS",.F.)})
**APPENDMENU(HPOPUPMEN3,"PWDREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("WITHDRAW","WITHDRAWALS",.F.,88,,,,16)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"SHAREREP" , MF_ENABLED + MF_POPUP , "&SHARES" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VSHAREREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RSH","SHARES",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN3,"PSHAREREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RSH","SHARES",.T.,66,"CLIENT","CLMASTER","CCLID",10)})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"TAXREP" , MF_ENABLED + MF_POPUP , "&TAXES" , HPOPUPMEN3)
HPOPUPMEN4 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN3,"PRELIMTAX" , MF_ENABLED + MF_POPUP , "&PRELIMINARY TAX WORKSHEET", HPOPUPMEN4)
APPENDMENU(HPOPUPMEN4,"VPRETAXREP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RPT","PRELIM TAX WORK SHEET",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN4,"GPRETAXREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| PRELIMTAX()})
APPENDMENU(HPOPUPMEN4,"PPRETAXREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RPT","PRELIM TAX WORK SHEET",.T.,88,"CLIENT","CLMASTER","CCLID",10)})
HPOPUPMEN4 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN3,"REALGANLOS", MF_ENABLED + MF_POPUP , "&REALIZED GAINS/LOSSES" , HPOPUPMEN4)
APPENDMENU(HPOPUPMEN4,"VGANLOSREP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("RGA","GAINS & LOSSES",.T.,"CLIENT","CLMASTER")})
APPENDMENU(HPOPUPMEN4,"GGANLOSREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| REALGANLOS()})
APPENDMENU(HPOPUPMEN4,"PGANLOSREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("RGA","GAINS & LOSSES",.T.,66,"CLIENT","CLMASTER","CCLID",10)})
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"CHKNIAKSCO", MF_ENABLED + MF_POPUP , "&NIAKWA-SCO BALANCE CHECK" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"VCHKNIAKREP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("NIAKSCO","CHECK NIAK-SCO BALANCE",.F.)})
**APPENDMENU(HPOPUPMEN3,"GCHKNIAKREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| CHKNIAKSCO()})
**APPENDMENU(HPOPUPMEN3,"PCHKNIAKREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("NIAKSCO","CHECK NIAK-SCO BALANCE",.F.,66,,,,10)})
**APPENDMENU(HPOPUPMEN2,"ACCBALREP" , MF_ENABLED + MF_STRING, "&ACCOUNT BALANCE" , {|| NOTYET()})
**HPOPUPMEN3 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN2,"DEFINCREP" , MF_ENABLED + MF_POPUP , "&INCOME DEFERRED" , HPOPUPMEN3)
**APPENDMENU(HPOPUPMEN3,"VDEFINCREP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("DEFINCOM","DEFERRED INCOME",.F.)})
**APPENDMENU(HPOPUPMEN3,"GDEFINCREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| DEFINCREP()})
**APPENDMENU(HPOPUPMEN3,"PDEFINCREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("DEFINCOM","DEFERRED INCOME",.F.,88,,,,10)})
* ADMINISTRATION REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"ADMINREP" , MF_ENABLED + MF_POPUP , "&ADMINISTRATION" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"ALLRANKREP", MF_ENABLED + MF_POPUP , "&MULTI-GEN RANK REPS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"GENRANKREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| ALLRANKREP()})
APPENDMENU(HPOPUPMEN3,"PRNRANKREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| STACKFILES("ALLRANKS.REP","CLINDEX.REP","GRPSHEET.REP","PMVRANK.REP","ABSOLUTE.REP","CROIRANK.REP","TOTALPMV.REP","WEIGHTAV.REP","FEERANK.REP")},{|| PRINTREP("ALLRANKS","ALL RANK REPS",.F.,88,,,,10)})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"CLINDXREP" , MF_ENABLED + MF_POPUP , "&INDEX OF CLIENTS" ,HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VCLINDXREP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("CLINDEX","INDEX OF CLIENTS",.F.)})
APPENDMENU(HPOPUPMEN3,"GCLINDXREP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| CLINDEXREP()})
APPENDMENU(HPOPUPMEN3,"PCLINDXREP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("CLINDEX","INDEX OF CLIENTS",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"GRUPREP" , MF_ENABLED + MF_POPUP , "&GROUP SHEETS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VGRUPREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("GRPSHEET","GROUP SHEETS",.F.)})
APPENDMENU(HPOPUPMEN3,"GGRUPREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| GRPSHETREP()})
APPENDMENU(HPOPUPMEN3,"PGRUPREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("GRPSHEET","GROUP SHEETS",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"FEEREP" , MF_ENABLED + MF_POPUP , "&FEE RANK" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VRFEEREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("FEERANK","FEE RANK",.F.)})
APPENDMENU(HPOPUPMEN3,"GRFEEREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| FEERANKREP()})
APPENDMENU(HPOPUPMEN3,"PRFEEREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("FEERANK","FEE RANK",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"RPMVREP" , MF_ENABLED + MF_POPUP , "&PMV RANK" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VRPMVREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("PMVRANK","PMV RANK",.F.)})
APPENDMENU(HPOPUPMEN3,"GRPMVREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| PMVRANKREP()})
APPENDMENU(HPOPUPMEN3,"PRPMVREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("PMVRANK","PMV RANK",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"ABSLREP" , MF_ENABLED + MF_POPUP , "&ABSOLUTE" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VABSLREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("ABSOLUTE","ABSOLUTE",.F.)})
APPENDMENU(HPOPUPMEN3,"GABSLREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| ABSOLUTREP()})
APPENDMENU(HPOPUPMEN3,"PABSLREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("ABSOLUTE","ABSOLUTE",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"RAROREP" , MF_ENABLED + MF_POPUP , "&RANK CROI" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VRAROREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("CROIRANK","CROI RANK",.F.)})
APPENDMENU(HPOPUPMEN3,"GRAROREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| CROIRNKREP()})
APPENDMENU(HPOPUPMEN3,"PRAROREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("CROIRANK","CROI RANK",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"TPMVREP" , MF_ENABLED + MF_POPUP , "&TOTAL PMV" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VTPMVREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("TOTALPMV","TOTAL PMV",.F.)})
APPENDMENU(HPOPUPMEN3,"GTPMVREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| TOTPMVREP()})
APPENDMENU(HPOPUPMEN3,"PTPMVREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("TOTALPMV","TOTAL PMV",.F.,88,,,,10)})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"DOLWREP" , MF_ENABLED + MF_POPUP , "&WEIGHTED AVERAGE" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VDOLWREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("WEIGHTAV","WEIGHTED AVERAGE",.F.)})
APPENDMENU(HPOPUPMEN3,"GDOLWREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| WEIGHTREP()})
APPENDMENU(HPOPUPMEN3,"PDOLWREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("WEIGHTAV","WEIGHTED AVERAGE",.F.,88,,,,10)})
APPENDMENU(HPOPUPMEN2, "", MF_SEPARATOR)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"EQSHTREP" , MF_ENABLED + MF_POPUP , "&EQUITY SHORTFALL" , HPOPUPMEN3)
HPOPUPMEN4 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN3,"EQSHTREP1" , MF_ENABLED + MF_POPUP , "&1 EQUITY SHORTFALL STEP 1", HPOPUPMEN4)
APPENDMENU(HPOPUPMEN4,"GEQSHT1REP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| EQSHRTREP1()})
HPOPUPMEN4 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN3,"EQSHTREP2" , MF_ENABLED + MF_POPUP , "&2 EQUITY SHORTFALL STEP 2", HPOPUPMEN4)
APPENDMENU(HPOPUPMEN4,"VEQSHT2REP", MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("REQ","EQUITY SHORTFALL",.T.,"STOCK","STOCKS")})
APPENDMENU(HPOPUPMEN4,"GEQSHT2REP", MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| EQSHRTREP2()})
APPENDMENU(HPOPUPMEN4,"PEQSHT2REP", MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("REQ","EQUITY SHORTFALL",.T.,88,"STOCK","STOCKS","SSYMBOL",10)})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
* CLIENT REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"CLIDREPS" , MF_ENABLED + MF_POPUP , "&CLIENTS" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"CLIDREP" , MF_ENABLED + MF_POPUP , "&CLIENT PMV/BALANCE" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VCLIDREP" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("CLPMVBAL","CLIENT PMV/BALANCE",.F.)})
APPENDMENU(HPOPUPMEN3,"GCLIDREP" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| CLPMVREP()})
APPENDMENU(HPOPUPMEN3,"PCLIDREP" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("CLPMVBAL","CLIENT PMV/BALANCE",.F.,88,,,,10)})
* BROKER REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"BROKREPS" , MF_ENABLED + MF_POPUP , "&BROKERS" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"BROKCOMM" , MF_ENABLED + MF_POPUP , "&BROKER COMMISSIONS" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"VBROKCOM" , MF_ENABLED + MF_STRING, "&VIEW REPORT" , {|| VIEWREP("BROKCOMM","BROKER COMMISSIONS",.F.)})
APPENDMENU(HPOPUPMEN3,"GBROKCOM" , MF_ENABLED + MF_STRING, "&GENERATE REPORT" , {|| BROKCOMREP()})
APPENDMENU(HPOPUPMEN3,"PBROKCOM" , MF_ENABLED + MF_STRING, "&PRINT REPORT" , {|| PRINTREP("BROKCOMM","BROKER COMMISIONS",.F.,88,,,,16)})
* PROSPECT REPORTS *
**HPOPUPMEN2 := CREATEPOPUPMENU()
**APPENDMENU(HPOPUPMEN1,"PROSREP" , MF_ENABLED + MF_POPUP , "&PROSPECTS" , HPOPUPMEN2)
**APPENDMENU(HPOPUPMEN2,"PROSLSTREP", MF_ENABLED + MF_STRING, "&PROSPECT LIST" , {|| NOTYET()})
* SYSTEM REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"SYSREP" , MF_ENABLED + MF_POPUP , "S&YSTEM" , HPOPUPMEN2)
APPENDMENU(HPOPUPMEN2,"SYSFILREP" , MF_ENABLED + MF_STRING, "&SYSTEM FILE" , {|| NOTYET()})
APPENDMENU(HPOPUPMEN2,"VALUEREP" , MF_ENABLED + MF_STRING, "&VALUES FILE" , {|| NOTYET()})
APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
* ERASE REPORTS *
HPOPUPMEN2 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN1,"ERASEREP" , MF_ENABLED + MF_POPUP , "&ERASE" , HPOPUPMEN2)
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"DELTRADES" , MF_ENABLED + MF_POPUP , "&TRADES" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"DELCDFS" , MF_ENABLED + MF_STRING, "&CDF DELETION" , {|| DELCDFS()})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"DELFOLIO" , MF_ENABLED + MF_POPUP , "&FOLIO" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"DELQPRS" , MF_ENABLED + MF_STRING, "&QPR REPORT DELETION" , {|| DELQPRS()})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"DELSEC" , MF_ENABLED + MF_POPUP , "&SECURITIES" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"DELSTKPOS" , MF_ENABLED + MF_STRING, "&STOCK POS DELETION" , {|| DELSTOKPOS()})
HPOPUPMEN3 := CREATEPOPUPMENU()
APPENDMENU(HPOPUPMEN2,"DELXACTION", MF_ENABLED + MF_POPUP , "&XACTION" , HPOPUPMEN3)
APPENDMENU(HPOPUPMEN3,"DELDEPOSIT", MF_ENABLED + MF_STRING, "&DEPOSIT.REP DELETION" , {|| DELDEPOSIT()})
APPENDMENU(HPOPUPMEN3,"DELWITHDRW", MF_ENABLED + MF_STRING, "&WITHDRAW.REP DELETION" , {|| DELWITHDRW()})
APPENDMENU(HPOPUPMEN3,"DELPRELIMT", MF_ENABLED + MF_STRING, "&PRELIM TAX SHEET DELETION", {|| DELPRELIMT()})
****************************
* MOTH BALLED IMPORTS *******
****************************
******* IMPORT FROM NIAKWA * *
******APPENDMENU(HPOPUPMEN1, "", MF_SEPARATOR)
******HPOPUPMEN2 := CREATEPOPUPMENU()
******APPENDMENU(HPOPUPMEN1,"IMPORT" , MF_ENABLED + MF_POPUP , "&IMPORT" , HPOPUPMEN2)
******APPENDMENU(HPOPUPMEN2,"IMPCASH" , MF_ENABLED + MF_STRING, "C&ASH IMPORT" , {|| IMPORTCASH()})
******APPENDMENU(HPOPUPMEN2,"IMPDEFINC" , MF_ENABLED + MF_STRING, "&DEFERRED INCOME IMPORT" , {|| IMPORTDEFI()})
******APPENDMENU(HPOPUPMEN2,"IMPTAXLOT" , MF_ENABLED + MF_STRING, "&TAX LOT IMPORT" , {|| IMPORTTAXL()})
******APPENDMENU(HPOPUPMEN2,"IMPFOLIO" , MF_ENABLED + MF_STRING, "&FOLIO IMPORT" , {|| IMPORTFOLI()}) *
******APPENDMENU(HPOPUPMEN2,"IMPSTOCK" , MF_ENABLED + MF_STRING, "&STOCK IMPORT" , {|| IMPORTSTOK()}) *
******APPENDMENU(HPOPUPMEN2,"IMPCLID" , MF_ENABLED + MF_STRING, "&CLIENT ID IMPORT" , {|| IMPORTCLID()}) *
******APPENDMENU(HPOPUPMEN2,"IMPPI" , MF_ENABLED + MF_STRING, "&PI IMPORT" , {|| IMPORTPI2()})
****************************
******************************** END OF MENU *******************************
SETMENU(HMAINWND, AMENU)
RETURN AMENU