bound error

[JuniorVaz]

Ola, estava aqui criando uma parte do meu sistema comercial, e encostrei um erro mais não sei o que é, gostaria que alguem me ajudasse a soluciona-lo... O erro é: Bound error, diz que é na linha 18 do prg, mas não achei nada, vou colar abaixo o codigo que estou começando e gostaria que alguem podesse me dar uma dica... vlw

clear
cbc()
SET EXCLUSIVE OFF
SET CURS ON
SETCOLOR(cor2)
cx(1,0,20,79,"EMISSAO DE DUPLICATAS",80)
do telaDUP
stor 6 to xcodcli
stor space(63) to xendereco
stor 00.00 to xcomi
select 0
use cadCLI inde cadcli alias cli
set index to cadcli
SETCOLOR(COR2)
do while .t.
xcodcli=codcli
@ 03,17 get xcodcli pict "999999"
az:= savescreen(0,0,24,79)
if lastkey()=27
close all
exit
endif

//read
sele cli
seek xcodcli
if found()
xcodcli=codcli
xrazao=razao
xnum=num
xbairro=bairro
xendereco=endereco
xuf = uf
xcep=cep
xcidade=cidade
xinsc=insc
xcnpj=cnpj
xfone=fone
xlocalpgto=localpgto
//restscreen(0,0,24,79,az)
//@ 03,47 say xdata
@ 04,17 GET xcomi pict "00.00"
@ 06,17 GET xrazao pict "@K!"
@ 07,17 GET xendereco pict "@K!"
endif
//endif
enddo
****tela
procedure teladup()
SETCOLOR('N/W')
*/ 0....x....1....x....2....x....3....x....4....x....5....x....6....x....7....x....8/*
@ 03,02 say "C¢d.Client...: Data de EmissÆo..: "
@ 04,02 say "Desconto.....: Data Desconto....: "
@ 05,02 say "Multa Diaria.: "
@ 06,02 say "Nome Sacado..: "
@ 07,02 say "Endere‡o.....: Nø: "
@ 08,02 say "Bairro.......: Fone: "
@ 09,02 say "Municio......: CEP: Estado: "
@ 10,02 say "Pra‡a Pgto...: "
@ 11,02 say "CNPJ/CPF.....: Insc. Est: "
@ 12,02 say "Valor........: No. Duplicata....: "
@ 13,02 say "Valor Parcela: Ordem............: "
@ 14,02 say "Valor Extenso: "
return

[ANDRIL]

Ola,

Verifiquei o codigo postado e percebi que este erro ocorre devido a falta do comando READ apos o comando GET.

Veja que o comando GET utiliza um ARRAY publico chamado GETLIST porem o que ocasiou o erro foi o LOOP do DO WHILE no qual voce submeteu a var XCodCli. O comando READ faz uma pausa para o usuario digitar os dados e caso tecle o ESC sairia da rotina.

Veja a correção:

...permanece o mesmo codigo anterior

az:= savescreen(0,0,24,79)

do while .t.
xcodcli=codcli
@ 03,17 get xcodcli pict "999999"
READ

if lastkey()=27
restscreen(0,0,24,79,az)
close all
exit
endif

...continua o mesmo codigo subsequente

Abraços