FoxPro/Visual FoxPro - ya ve nosotros los ricos

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