la tabla no tiene ningun orden del indice establec
Publicado por Nohemí (4 intervenciones) el 10/07/2007 19:06:28
holaa gente amable !!! soy nueva en foxpro y necesito copiar el contenido de la tabla padron2 a la tabla parce3 ambas tienen los mismos campos, excepto parce3 tiene algunos campos mas con datos. Las dos tablas tienen el campo CUENTA , que tiene un numero en comun en diferente orden... tengo el siguiente codigo. Me marca el siguiente error "la tabla no tiene ningun orden del indice establecido". Alguna idea? gracias de antemano
use parce3
go top
r=recno()
ban=0
do while (.not. eof()) .and. (ban=0)
nc=cuenta
use padron2 order tag cuenta
seek str(c,11,0)
if found()
iu=iduser
n=nombre
ap=apellido_p
am=apellido_m
u=unidad
zn=zona
secc=seccion
mo=modulo
cp=can_ppal
cl=can_lat
sl=sub_lat
r=ramal
sra=sub_ramal
ssr=sub_s_rama
pc=p_control
edo=estado
mun=municipio
ej=ejido
te=tenencia
gpo=grupo
sr=sist_rgo
equi=equipo
sf=sup_fisica
sr=sup_riego
ref=referencia
idp=idparcela
t=toma
cl=cultivo
use parce3
go r
replace iduser with iu
replace nombre with n
replace apellido_p with ap
replace apellido_m with am
replace unidad with u
replace zona with zn
replace seccion with secc
replace modulo with mo
replace can_ppal with cp
replace can_lat with cl
replace sub_lat with ej
replace ramal with r
replace sub_rama with sra
replace p_control with pc
replace estado with edo
replace municipio with mun
replace ejido with ej
replace tenencia with te
replace grupo with gpo
replace sist_rgo with sr
replace equipo with equi
replace sup_fisica with sf
replace sup_riego with sr
replace referencia with ref
replace idparcela with idp
replace toma with t
replace cultivo with cl
endif
use parce3
go r
if .not. eof()
skip 1
r=recno()
else
ban=1
endif
enddo
use parce3
go top
r=recno()
ban=0
do while (.not. eof()) .and. (ban=0)
nc=cuenta
use padron2 order tag cuenta
seek str(c,11,0)
if found()
iu=iduser
n=nombre
ap=apellido_p
am=apellido_m
u=unidad
zn=zona
secc=seccion
mo=modulo
cp=can_ppal
cl=can_lat
sl=sub_lat
r=ramal
sra=sub_ramal
ssr=sub_s_rama
pc=p_control
edo=estado
mun=municipio
ej=ejido
te=tenencia
gpo=grupo
sr=sist_rgo
equi=equipo
sf=sup_fisica
sr=sup_riego
ref=referencia
idp=idparcela
t=toma
cl=cultivo
use parce3
go r
replace iduser with iu
replace nombre with n
replace apellido_p with ap
replace apellido_m with am
replace unidad with u
replace zona with zn
replace seccion with secc
replace modulo with mo
replace can_ppal with cp
replace can_lat with cl
replace sub_lat with ej
replace ramal with r
replace sub_rama with sra
replace p_control with pc
replace estado with edo
replace municipio with mun
replace ejido with ej
replace tenencia with te
replace grupo with gpo
replace sist_rgo with sr
replace equipo with equi
replace sup_fisica with sf
replace sup_riego with sr
replace referencia with ref
replace idparcela with idp
replace toma with t
replace cultivo with cl
endif
use parce3
go r
if .not. eof()
skip 1
r=recno()
else
ban=1
endif
enddo
Valora esta pregunta


0