Com dbf faço assim:
bus := 0
DO WHILE .T.
bus++
SELECT CLI
GO TOP
SEEK STRZERO(bus,4,0)
IF .NOT. FOUND()
EXIT
ENDIF
ENDDO
Mas preciso fazer isto em array
Desde ja agradeço a compreensão e ajuda de todos.
Moderador: Moderadores
bus := 0
DO WHILE .T.
bus++
SELECT CLI
GO TOP
SEEK STRZERO(bus,4,0)
IF .NOT. FOUND()
EXIT
ENDIF
ENDDO
aCli:={}
FOR I:=1 TO 10
AADD(aCli,StrZero(i,4,0)
NEXT
bus := 0
DO WHILE .T.
bus++
IF ASCAN(aCli,STRZERO(bus,4,0)) = 0
EXIT
ENDIF
ENDDO
lAchou:=.F.
cNumero:=StrZero(10,4,0)
AEval(aCli, {|| lAchou:=IF(ASCAN(aCli,cNumero)=0,.F.,.T.)})
nBus:=1
DO WHILE ASCAN(aCli,STRZERO(nBus,4,0)) # 0
nBus++
ENDDO
Usuários vendo este fórum: Google [Bot] e 3 visitantes