FoxPro/Visual FoxPro - Urgente Ayuda Clipper

Hola colegas

Soy un usuario de clipper y necesito convertir este codigo a visual foxpro

ARR_LIN := {}
ARR_DES := {}
ARR_VAL := {}
IPP->(dbSetOrder(1))
IPP->(dbGoTop())
WHILE IPP->(!EOF())
AEXIS = IPP->EXIS
IF AEXIS > 0
I = ASCAN(ARR_LIN,IPP->CODPRO)
IF I = 0
AADD(ARR_LIN,IPP->CODPRO)
AADD(ARR_VAL,0)
PRO->(dbSeek(IPP->CODPRO))
AADD(ARR_DES,PRO->DESCRIP)
I = LEN(ARR_LIN)
ENDIF
TG_LINE++
TG_LINK = TG_LINK + KILOS
ARR_VAL[I] = ARR_VAL[I] + KILOS
ENDIF
IPP->(dbSkip())
ENDDO

gracias POR SU COLABORACION

local array arr_lin(1)
local array arr_des(1)
local array arr_val(1)
local elementos

select ipp
set order to 1 &&cuidado con esto, ya que el indice 1 puede no ser el que quieres
&&set order to CODPRO sería recomendable (siempre y cuando sea ese el campo :)

elementos=0

scan
AEXIS = EXIS
IF AEXIS > 0
I = ASCAN(ARR_LIN,CODPRO)
if elementos=0 .OR. I=0
elementos=elementos+1
dimension arr_lin(elementos)
dimension arr_des(elementos)
dimension arr_val(elementos)
ARR_LIN[elementos]=CODPRO
ARR_VAL[ELEMENTOS]=0
SELECT PRO
SET ORDER TO CODPRO
SEEK(IPP.CODPRO)
ARR_DES[ELEMENTOS]=DESCRIP
i=ELEMENTOS
ENDIF
SELECT IPP
TG_LINE=TG_LINE+1
TG_LINK = TG_LINK + KILOS
ARR_VAL[I] = ARR_VAL[I] + KILOS
ENDIF
ENDSCAN

Suerte. (no lo he probado, pero en esencia, eso es lo que necesitas)