John,

I can't stop you from developing software based on an idea and it doesn't bother me. However, when you post code misappropriated from me (you decompiled my EXE) and use it as your own, I will always complain. Folks here can help you as they see fit, but you and I know that you have never compensated me for taking my code and using it at QES and now ITG.

Don't give me the line about co-development, either -- it wasn't co-developed.

Kevin

***********************
lcOldsafe = SET('safety')
lcOldtalk = SET('talk')

SET TALK OFF
SET SAFETY OFF
SET EXCLUSIVE OFF
SET MULTILOCKS ON
 
lcCurrDir = SYS(5)+SYS(2003)+'\'

IF FILE("calocal.dbf")
   =l1Dbopen('caLocal')
   SELECT calocal
   LOCATE
   IF NOT EOF()
      lcCurrDir = ALLTRIM(gcHome)
      exEdir = ALLTRIM(gcExefiles)
      ENDIF
      
       ELSE
       
   lcCurrdir = SYS(5)+SYS(2003)+'\'
   lcTable = lcCurrdir+'calocal.dbf'
   CREATE TABLE (lcTable) (gcHder C(50), gcHome C(50), gcPath C(240),;
                gcExefiles C(60), gcSite C(30), gcInstall C(60),;
                gcCcmailex C(60), gcUserid C(10), gcDatafile C(60))
                
   SELECT calocal
   APPEND BLANK
   REPLACE gcHder WITH 'QES CAS - Corrective Action System'
   REPLACE gcHome WITH lcCurrdir
   lcSys0 = SYS(0)
   lnLen = LEN(ALLTRIM(lcSys0))
   lnPosition = ATC('#', lcSys0)
   lcUserid = ALLTRIM(RIGHT(lcSys0, lnLen-lnPosition))
   REPLACE gcUserid WITH lcUserid
   IF FILE('Install.ini')
      lnFilehndl = FOPEN('INSTALL.INI', 10)
      inStalldir = FGETS(lnFilehndl)
      IF RIGHT(ALLTRIM(inStalldir), 1)<>'\'
         inStalldir = ALLTRIM(inStalldir)+'\'
         ENDIF
      REPLACE gcInstall WITH ALLTRIM(inStalldir)
      dbFdir = ALLTRIM(inStalldir)+'DBFS\'
      exEdir = ALLTRIM(inStalldir)+'EXEFILES\'
      ff3dir = ALLTRIM(inStalldir)+'FOXFIRE\'
      rePtdir = ALLTRIM(inStalldir)+'REPORTS\'
      stAticdir = ALLTRIM(inStalldir)+'Static\'
      loCaldir = lcCurrdir+'local\'
      lcPath = lcCurrdir+';'+loCaldir+';'+dbFdir+';'+ff3dir+';'+rePtdir
      
      REPLACE gcPath WITH lcPath
      REPLACE gcExefiles WITH ALLTRIM(exEdir)
      REPLACE gcDatafile WITH ALLTRIM(stAticdir)
      ENDIF
   ENDIF


lcUpdateFile = .F.

neTexe = exEdir+'CAS9000.EXE'

lnNumFound=ADIR(laNetexe, neTexe)



IF lnNumFound < 1
   MODIFY WINDOW SCREEN NOCLOSE NOMINIMIZE NOGROW
   SET SYSMENU OFF
   SET STATUS BAR OFF
   DO FORM badstart
   RETURN
   ENDIF           

loCalexe = lcCurrdir+'CAS9000.EXE'
mnumfiles = ADIR(laLocalexe, loCalexe)

DO CASE
   CASE mnumfiles < 1
        lcUpdateFile = .T.
   
   OTHERWISE
        localsize = laLocalexe(1,2)
        localdate = DTOS(laLocalexe(1,3))
        localtime = laLocalexe(1,4)
        IF NOT EMPTY(calocal.gcExefiles)
           netsize = laNetexe(1,2)
           netdate = DTOS(laNetexe(1,3))
           nettime = laNetexe(1,4)
           
           IF neTdate+neTtime>loCaldate+loCaltime
              lcUpdateFile = .T.
              ENDIF
           ENDIF
   ENDCASE
         
IF lcUpdateFile         
   lnReturn = diAlog('INFO','The CAS9000.exe has been updated.  '+ ;
                     'The program will download the new CAS Program', ;
                     'Download new CAS9000.exe')
   COPY FILE (netexe) TO (localexe)
   ENDIF
    
   
DO staticfiles
CLOSE ALL
SET DEFAULT TO (lcCurrdir)
SET SAFETY ON
SET TALK OFF
DO CAS9000.exe


**************************************************
PROCEDURE StaticFiles

lcNetdir = ALLTRIM(gcInstall)+'\STATIC\'
lcLocaldir = lcCurrdir+'local\'
SET DEFAULT TO (lcLocaldir)
CREATE CURSOR checksiz (taBle C (12), loCaldate C (20), neTworkdat C (20))
*INSERT INTO checksiz (taBle) VALUES ('CASLABEL.DBF')
INSERT INTO checksiz (taBle) VALUES ('VIEWS.DBC')

x = ADIR(laLocaldbf)
IF x > 0
   SET DEFAULT TO (lcNetdir)
   =ADIR(laNetdbf)
   SELECT chEcksiz
   SCAN
   m.loCalsize = 0
   m.neTworksiz = 0
   lnElem1 = ASCAN(laLocaldbf, ALLTRIM(chEcksiz.taBle))
   IF lnElem1>0
      lnRow = ASUBSCRIPT(laLocaldbf, lnElem1, 1)
      M.loCalsize = laLocaldbf(lnRow,2)
      loCaldate = DTOS(laLocaldbf(lnRow,3))
      loCaltime = laLocaldbf(lnRow,4)
      REPLACE chEcksiz.loCaldate WITH M.loCaldate+M.loCaltime
            
          ELSE
          
      IF chEcksiz.taBle = 'VIEWS.DBC'
         REPLACE chEcksiz.loCaldate WITH '0000000000:00'
         ENDIF      

      ENDIF
      
   lnElem2 = ASCAN(laNetdbf, ALLTRIM(chEcksiz.taBle))
   IF lnElem2>0
      lnRow = ASUBSCRIPT(laNetdbf, lnElem2, 1)
      M.neTworksiz = laNetdbf(lnRow,2)
      neTdate = DTOS(laNetdbf(lnRow,3))
      neTtime = laNetdbf(lnRow,4)
      REPLACE chEcksiz.neTworkdat WITH M.neTdate+M.neTtime
      ENDIF
      
   IF chEcksiz.neTworkdat > chEcksiz.loCaldate .AND.  .NOT.  ;
      EMPTY(chEcksiz.loCaldate) .AND.  .NOT. EMPTY(chEcksiz.neTworkdat)
      WAIT WINDOW NOWAIT ALLTRIM(chEcksiz.taBle)+ ;
         ' is being updated from the network table.  Please Wait!'
         
      DO CASE
         CASE 'DBF'$chEcksiz.taBle
              loCalfile = lcLocaldir+ALLTRIM(chEcksiz.taBle)
              neTfile = lcNetdir+ALLTRIM(chEcksiz.taBle)
              USE SHARED (neTfile) ALIAS neTfile IN 0
              SELECT neTfile
              COPY TO (loCalfile) WITH CDX
              USE
              
         CASE 'VIEWS.DBC'$chEcksiz.taBle
              dbCnet = lcNetdir+'VIEWS.DBC'
              dbClocal = lcLocaldir+'VIEWS.DBC'
              COPY FILE (dbCnet) TO (dbClocal)
              dbCnet = lcNetdir+'VIEWS.DCT'
              dbClocal = lcLocaldir+'VIEWS.DCT'
              COPY FILE (dbCnet) TO (dbClocal)
              dbCnet = lcNetdir+'VIEWS.DCX'
              dbClocal = lcLocaldir+'VIEWS.DCX'
              COPY FILE (dbCnet) TO (dbClocal)
              
         OTHERWISE
              WAIT WINDOW 'Unknown file type to update -- contact technical support!'
              
         ENDCASE
      ENDIF
      
   SELECT chEcksiz
   ENDSCAN
   
   ENDIF