FoxPro/Visual FoxPro - la tabla no tiene ningun orden del indice establec

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:la tabla no tiene ningun orden del indice estab

Publicado por Ernesto Hernandez (4623 intervenciones) el 10/07/2007 19:20:08
revisa los indices de la tabla y asegurate que esten bien

use padron2 order tag cuenta
seek str(c,11,0)
brow

asegurate que lo encuentra

suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:la tabla no tiene ningun orden del indice estab

Publicado por neo (1604 intervenciones) el 10/07/2007 19:30:34
En otras palabras, revisa si el campo "Cuenta" tiene indice...

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:la tabla no tiene ningun orden del indice estab

Publicado por Salvador Angeles (33 intervenciones) el 11/07/2007 01:29:28
Prueba este programita:

sele 0
use padron2 share
index on cuenta tag idxcuenta

sele 0
use parce3 share
index on cuenta tag idx_cta

sele padron2
go top
do while .not. eof()
scatter memvar
ccuenta = m.cuenta
sele parce3
seek ccuenta
if found()
wait window "Encontre 1 en comun y reemplazo en parce3"
gather memvar
endif
sele padron2
skip
enddo

ojala y te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:la tabla no tiene ningun orden del indice estab

Publicado por Nohemí (4 intervenciones) el 11/07/2007 18:29:01
Holaa! gracias por su apoyo, probé el programita y en efecto funcionó muy bien, lo único que tuve que crear fue una relacion temporal.

hasta pronto
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar