FiveTech Software tech support forums

Posted: **Mon Jul 16, 2018 7:29 pm**

I have a dbf and save the records on a array with conditions saving only the number of invoice (n)

if I created an array type

AaDd(aSilvio, {n})

if I would like to know if a number (n) has been inserted into that array more than once, how should I know?

Posted: **Tue Jul 17, 2018 10:30 am**

Hello, you could try something like this:

Code: Select all Expand view: nIterations := 0 nPos := aScan(aArray, {|x| x[1]==nFac}) do while nPos>0 nIterations++ nPos := aScan(aArray, {|x| x[1]==nFac}, nPos+1) enddo

Posted: **Tue Jul 17, 2018 11:28 am**

thanks
I wish search on rooms
the room number 13 have two bookings
I made

Code: Select all Expand view: Function ControlloMulti(aMultiplePre,nNumero,nStatus,cGuest ,cTypeDay) Local t Local lReturn :=.f. Local nTimes:= 0 Local nIterations:=0 Local nPos := aScan(aMultiplePre, {|x| x[1]==nNumero}) do while nPos>0 nIterations++ nPos := aScan(aMultiplePre, {|x| x[1]==nNumero}, nPos+1) enddo IF nIterations >1 AaDd(aPreMulti,{nNumero,nStatus,cGuest ,cTypeDay } ) lReturn :=.t. endif return lReturn

the problem is I see only one booking and not all for a room sample on room 13 I have two bookings but the function show me this

Posted: **Tue Jul 17, 2018 11:40 am**

Now I correct with

Code: Select all Expand view: Function ControlloMulti(aMultiplePre,nNumero,nStatus,cGuest ,cTypeDay) Local t Local lReturn :=.f. Local nTimes:= 0 Local nIterations:=0 Local nPos := aScan(aMultiplePre, {|x| x[1]==nNumero}) do while nPos>0 nIterations++ nPos := aScan(aMultiplePre, {|x| x[1]==nNumero}, nPos+1) enddo IF nIterations >=2 For n= 1 to Len(aMultiplePre) IF aMultiplePre[n][1] = nNumero AaDd(aPreMulti,{nNumero,nStatus,cGuest ,cTypeDay } ) lReturn :=.t. Endif next endif return lReturn

and it show now the two bookings for room 13

but it is correct ?

FiveTech Software tech support forums

know an array

know an array

Re: know an array

Re: know an array

Re: know an array