FiveTech Support Forums

Function CheckEstrazione()
   local oDbf
   local dDataEstrazione
   local lold:=.t.
   local oTimer

   local nMartedi:= 2
   Local nGiovedi:= 4
   local nVenerdi:= 5
   local nSabato := 6
   local nDayarchive,nDaytoday

   oDbf := TArchivioLotto():New()
   oDbf:SetOrder(1 )
   oDbf:goBottom()
   dDataEstrazione:= oDbf:data
   oDbf:close()

   //determino numero giorno
   nDayarchive:= dow(dDataEstrazione)  //estrazione salvata
   nDaytoday:= dow(date())   //oggi

     
    
   IF nDaytoday = nMartedi
      IF nDayarchive < nDayToday
          lOld:=.f.
      Endif
   Endif

    IF nDaytoday = nGiovedi
       IF nDayarchive < nDayToday
          lOld:=.f.
      Endif
    Endif

 IF nDaytoday = nVenerdi
       IF nDayarchive < nDayToday
          lOld:=.f.
      Endif
    Endif

      IF nDaytoday = nSabato
       IF nDayarchive < nDayToday
          lOld:=.f.
      Endif
    Endif

       return lOld

FUNCTION IsArchivioAggiornato( dUltimaDataAggiornamento )
   LOCAL dDataCorrente := Date()              // Data corrente
   LOCAL cOraCorrente := Time()               // Ora corrente
   LOCAL cGiornoSettimana := Dow(dDataCorrente)  // Giorno della settimana (1=DOM, 2=LUN, ..., 7=SAB)
   LOCAL cOraLimite := "20:30:00"             // Ora limite per l'aggiornamento

   // Se il giorno corrente è martedì (3), giovedì (5), venerdì (6) o sabato (7)
   IF cGiornoSettimana == 3 .OR. cGiornoSettimana == 5 .OR. cGiornoSettimana == 6 .OR. cGiornoSettimana == 7
      // Se è già passata l'ora dell'aggiornamento
      IF cOraCorrente > cOraLimite
         RETURN dUltimaDataAggiornamento == dDataCorrente
      ELSE
         // L'aggiornamento è valido dal giorno precedente
         RETURN dUltimaDataAggiornamento == dDataCorrente - 1
      ENDIF
   ELSE
      // Se oggi è lunedì o mercoledì (giorni senza aggiornamento)
      IF cGiornoSettimana == 1 // Se è domenica
         RETURN dUltimaDataAggiornamento == dDataCorrente - 1  // Sabato è stato l'ultimo giorno utile
      ELSEIF cGiornoSettimana == 2 // Se è lunedì
         RETURN dUltimaDataAggiornamento == dDataCorrente - 3  // Sabato è l'ultimo aggiornamento
      ELSEIF cGiornoSettimana == 4 // Se è mercoledì
         RETURN dUltimaDataAggiornamento == dDataCorrente - 1  // Martedì è stato l'ultimo giorno utile
      ENDIF
   ENDIF

   RETURN .F.  // Se nessuna condizione è soddisfatta, l'archivio non è aggiornato