FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour SEARCH NUMBER FREE -RESOLVED
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
SEARCH NUMBER FREE -RESOLVED
Posted: Thu Jul 18, 2019 05:49 PM
I must search all number free for a day
for a test i make a filter to a dbf
today is 18 july

DATE() <=CHECK_OUT .AND. DATE() >= CHECK_IN




and i have the record so all numbers you not see on this picture are free

But

then I make the filter on archive directly making a cicle for next to search wich number is free,
I have before found the total of numbers for each type


Code (fw): Select all Collapse
 for nElemento = 1 to nTotaleElementi

    oReservation:setorder(1)
    oReservation:Exec( < ||
    SET FILTER TO AllTrim( FIELD->TYPE ) = AllTrim( cTypeRoom ) .and. FIELD->NUM = nElemento ;
   .AND. ( dDataIniziale <= FIELD->CHECK_OUT .AND. dDataFinale >= FIELD->CHECK_IN )
   return nil
   > )
   oReservation:gotop()

     If oReservation:eof()
         aadd(aTemp,{nElemento,.f.} )
      Endif

      oReservation:SetFilter( "" )
     *nElemento++
     next


   return nil


I save on an array all numbers free





I make another super check with the tplan and I saw perhpas there is some errors or the tplan not run ok




for a sample you can see the numbers 2 and 4 , 7, 11, 16, 21 on tplan are free and on array are occupated or not visible

how it possible ?

I have another check and I saw it is right but the tplan not show the right date because

I check the number 21



as you can see the reservation finish to 18.07.2019 but for the tplan it is untill 17.07.2019

How I can resolve it ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: SEARCH NUMBER FREE -RESOLVED
Posted: Fri Jul 19, 2019 11:41 AM
Code (fw): Select all Collapse
DATE() <CHECK_OUT .AND. DATE() >= CHECK_IN


RESOLVED !!!! THANKS TO Antonino
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion