FiveTech Support Forums

#include "fivewin.ch"
#include "xbrowse.ch"
#include "constant.ch"

REQUEST DBFCDX
REQUEST DBFFPT

  Function test()

  Local alistini:={}
   Local oDlg
   Local aGet:= array(1)
   Local nIdListino:= 1

Create_Testfile()

   USE LISTINI ALIAS LI 
   LI->(dbgotop())

        DO While !LI->(eof())
             AaDd(alistini,{ alltrim(LI->GUEST)  })
            LI->(dbskip())
        ENDDO

   DEFINE DIALOG oDlg SIZE 200,200;
   PIXEL TRUEPIXEL RESIZABLE ;
   TITLE " Listino"

   @ 12,05 SAY "Listino :"  SIZE 80,14 PIXEL OF oDlg
   @ 10,55 COMBOBOX aGet[1] VAR nIdListino  ITEMS alistini  SIZE 120,94 PIXEL OF oDlg STYLE CBS_DROPDOWN

   ACTIVATE DIALOG oDlg CENTERED
   RETURN NIL



function Create_Testfile()
local aFields := { { "CHECK_IN", "C", 10, 0 },;
                   { "CHECK_OUT", "C", 10, 0 },;
                   { "GUEST", "C", 10, 0 },;
                   { "PRICE_LIST", "C", 10, 0 } }

REQUEST DBFCDX

DbCreate( "LISTINI.dbf", aFields, "DBFCDX" )

USE LISTINI.dbf NEW VIA "DBFCDX"

// generate periods for pricelist 1
appe blank
field->check_in:="17/05/2018"
field->check_out:="27/06/2018"
field->guest="BASSA"
field->price_list="PL1"

appe blank
field->check_in:="30/08/2018"
field->check_out:="20/09/2018"
field->guest="BASSA"
field->price_list="PL1"

appe blank
field->check_in:="28/06/2018"
field->check_out:="25/07/2018"
field->guest="MEDIA"
field->price_list="PL1"

appe blank
field->check_in:="26/07/2018"
field->check_out:="29/08/2018"
field->guest="ALTA"
field->price_list="PL1"

// generate periods for pricelist 2
appe blank
field->check_in:="01/05/2018"
field->check_out:="31/05/2018"
field->guest="BASSA"
field->price_list="PL2"

appe blank
field->check_in:="01/06/2018"
field->check_out:="30/06/2018"
field->guest="ALTA"
field->price_list="PL2"


appe blank
field->check_in:="15/08/2018"
field->check_out:="29/09/2018"
field->guest="BASSA"
field->price_list="PL2"

appe blank
field->check_in:="01/07/2018"
field->check_out:="31/07/2018"
field->guest="MEDIA"
field->price_list="PL2"

appe blank
field->check_in:="01/08/2018"
field->check_out:="14/08/2018"
field->guest="ALTA"
field->price_list="PL2"

close data
return nil

             AaDd(alistini,{ alltrim(LI->GUEST)  })

             AaDd(alistini, alltrim(LI->GUEST)  )