FiveTech Software tech support forums

Code: Select all

vers := 0
versione()
if vers = 1
   return(nil)
endif  
 

Code: Select all

function versione()
cFile = cperete+"\ar20.exe"        // file eseguibile server
cfile0 = "ar20.exe"    // client
cfile1 = "ar201.exe"   // copia client

IF FILE(CFILE)
   do case
      case fDate(cfile) > fDate(cfile0)
        DELETEFILE(CFILE1)
        MOVEFILE(CFILE0,CFILE1)
        COPYFILE(CFILE,CFILE0)
        msgInfo(" "+CRLF+"La versione è stata migliorata"+CRLF+" ... aggiornamento in corso" +CRLF+CRLF+"Riavviare il programma"+CRLF+" ","Avviso")  
        vers = 1
    case fDate(cfile) = fDate(cfile0)
       ora := fTime(cfile)
       nora := val(substr(ora,7,2))+val(substr(ora,4,2))*60+val(substr(ora,1,2))*3600
       ora0 := fTime(cfile0)
       nora0 := val(substr(ora0,7,2))+val(substr(ora0,4,2))*60+val(substr(ora0,1,2))*3600
       if nora > nora0
           mesver = 1
           DELETEFILE(CFILE1)
           MOVEFILE(CFILE0,CFILE1)
           COPYFILE(CFILE,CFILE0)
          msgInfo(" "+CRLF+"La versione è stata migliorata"+CRLF+" ... aggiornamento in corso" +CRLF+CRLF+"Riavviare il programma"+CRLF+" ","Avviso") 
          vers = 1   
      endif
    case fDate(cfile) < fDate(cfile0)
      if xmsgyesno("E' presente una versione precedente",," ... ripristino ???",,,"Nota",2)
         DELETEFILE(CFILE1)
         MOVEFILE(CFILE0,CFILE1)
         COPYFILE(CFILE,CFILE0)
        vers = 1
      endif
   endcase
ENDIF  

return (vers)
 

Code: Select all

      if oRs:versie <> system_version  // check if his version nummer = new version
        if URLDOWNLOADTOFILE( 0, "http:\\yourprogramlocation/fivewin/program.exe", "test.exe" ) = 0
           oRs:versie = system_version // update his version nummer
           oRs:Save()
//           oRs:Refresh()
           msginfo("Update gevonden")
        endif
      endif

// also needed

DLL FUNCTION URLDOWNLOADTOFILE( pCaller AS LONG, cUrl AS LPSTR, cFileName AS LPSTR, nReserved AS DWORD, nFnCB AS LONG ) AS LONG;
    PASCAL FROM "URLDownloadToFileA" LIB "urlmon.dll"

 

Code: Select all

 LOCAL nVerAct := 3575 // ACTUAL = se incrementa manualmente al compilar ... siempre que existan cambios de estructura..
 LOCAL SW := .T.

   IF SELECT("EMP") == 0
      IF !lUsaTab(cPatSis+"\","EMPRESA.DAT","EMP",{},.T. )
         RETURN
      ENDIF
   ENDIF
   EMP->( DBGOTOP() )
   nVerEmp := EMP->nNroVerEmp
   

   IF nVerEmp <  3575
      CLOSE ALL
      IF !verificaEstructuraTablas(cPatSis,"ESTAELEC.DAT","cValCufEle",NIL,[char(50) NOT NULL DEFAULT ''''] )
         SW := .F.
      ENDIF
   ENDIF

  IF SW

      EMP->( DBGOTOP() )

      IF lRlock("EMP","EMPRESAS",.F.)
         REPLACE EMP->nNroVerEmp WITH nVerAct
      ENDIF

      EMP->( DBCOMMIT() )
      EMP->( DBUNLOCK() )

  ENDIF